Jump to content
  • 0

How can i add Anti-flooding in this broadcaster script?

Hercules

Asked by Hercules,

 Share

Question

Hercules Poring

Hercules

Posted
  • Group:  Members
  • Topic Count:  39
  • Topics Per Day:  0.01
  • Content Count:  104
  • Reputation:   1
  • Joined:  05/04/12
  • Last Seen:  
Posted (edited)

This is a broadcaster script of Rosemount w/ 40 colors...

her link is here.


//===== eAthena Script =======================================
//= Broadcasting
//===== By ===================================================
//= Rosemount
//===== Version ==============================================
//= 1.0 - Script Created
//===== Created on ===========================================
//= eAthena Svn r650
//===== Description ==========================================
//= With 40 color and admin menu
//===== Topic Start ==========================================
//= http://rathena.org/board/topic/66227-broadcaster-with-40-color/page__pid__113929#entry113929
//============================================================


- script Broad -1,{
OnWhisperGlobal:
if(getgmlevel() >=99) goto L_admin;
end;

L_admin:
menu "Set broadcast price",L_set,"Enable Broadcast",L_enable,"Disable Broadcast",L_disable;

L_set:
input $price;
close;

L_enable:
enablenpc "BroadCaster";
close;

L_disable:
mes "Please insert the reason";
input @reason$;
announce "GM "+strcharinfo(0)+" : was disable broadcaster npc by reason [ "+@reason$+" ]",bc_all;
disablenpc "BroadCaster";
close;
}

prontera,156,178,4 script BroadCaster 100,{
mes "The price for today is ^FF0000"+$price+"^000000 zeny.";
next;
goto L_menu;

L_menu:
menu
 "^FF0000Color#1^000000",L_01,
 "^FF4000Color#2^000000",L_02,
 "^FF8000Color#3^000000",L_03,
 "^FFBF00Color#4^000000",L_04,
 "^FFFF00Color#5^000000",L_05,
 "^BFFF00Color#6^000000",L_06,
 "^80FF00Color#7^000000",L_07,
 "^40FF00Color#8^000000",L_08,
 "^FA5882Color#9^000000",L_09,
 "^0101DFColor#10^000000",L_10,
 "^7401DFColor#11^000000",L_11,
 "^045FB4Color#12^000000",L_12,
 "^2ECCFAColor#13^000000",L_13,
 "^FF00FFColor#14^000000",L_14,
 "^0000FFColor#15^000000",L_15,
 "^088A08Color#16^000000",L_16,
 "^FA58D0Color#17^000000",L_17,
 "^FA8258Color#18^000000",L_18,
 "^D0A9F5Color#19^000000",L_19,
 "^04B486Color#20^000000",L_20,
 "^C1FFC1Color#21^000000",L_21,
 "^698B69Color#22^000000",L_22,
 "^FFF68FColor#23^000000",L_23,
 "^FF6A6AColor#24^000000",L_24,
 "^FFA500Color#25^000000",L_25,
 "^EE9A00Color#26^000000",L_26,
 "^CD8500Color#27^000000",L_27,
 "^B0E2FFColor#28^000000",L_28,
 "^A4D3EEColor#29^000000",L_29,
 "^C6E2FFColor#30^000000",L_30,
 "^DA70D6Color#31^000000",L_31,
 "^BA55D3Color#32^000000",L_32,
 "^BA55D3Color#33^000000",L_33,
 "^FAEBD7Color#34^000000",L_34,
 "^FFEFD5Color#35^000000",L_35,
 "^FFAEB9Color#36^000000",L_36,
 "^EEA2ADColor#37^000000",L_37,
 "^FF7256Color#38^000000",L_38,
 "^FFA07AColor#39^000000",L_39,
 "^EE7621Color#40^000000",L_40;


L_01:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad01,"No",L_no;

broad01:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFF0000;
close;

L_02:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad02,"No",L_no;

broad02:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFF4000;
close;

L_03:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad03,"No",L_no;

broad03:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFF8000;
close;

L_04:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad04,"No",L_no;

broad04:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFBF00;
close;

L_05:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad05,"No",L_no;

broad05:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFFF00;
close;

L_06:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad06,"No",L_no;

board06:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xBFFF00;
close;

L_07:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad07,"No",L_no;

broad07:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x80FF00;
close;

L_08:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad08,"No",L_no;

broad08:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x40FF00;
close;

L_09:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad09,"No",L_no;

broad09:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFA5882;
close;

L_10:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad10,"No",L_no;

broad10:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x0101DF;
close;

L_11:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad11,"No",L_no;

broad11:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x7401DF;
close;

L_12:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad12,"No",L_no;

broad12:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x045FB4;
close;

L_13:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad13,"No",L_no;

broad13:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x2ECCFA;
close;

L_14:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad14,"No",L_no;

broad14:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFF00FF;
close;

L_15:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad15,"No",L_no;

broad15:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x0000FF;
close;

L_16:
input @broadcast$;

broad16:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x088A08;
close;

L_17:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad17,"No",L_no;

broad17:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFA58D0;
close;

L_18:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad18,"No",L_no;

broad18:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFA8258;
close;

L_19:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad19,"No",L_no;

broad19:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xD0A9F5;
close;

L_20:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad20,"No",L_no;

broad20:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x04B486;
close;

L_21:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad21,"No",L_no;

broad21:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xC1FFC1;
close;

L_22:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad22,"No",L_no;

broad22:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0x698B69;
close;

L_23:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad23,"No",L_no;

broad23:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFF68F;
close;

L_24:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad24,"No",L_no;

broad24:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFF6A6A;
close;

L_25:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad25,"No",L_no;

broad25:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFA500;
close;

L_26:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad26,"No",L_no;

broad26:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xEE9A00;
close;

L_27:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad27,"No",L_no;

broad27:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xCD8500;
close;

L_28:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad28,"No",L_no;

broad28:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xB0E2FF;
close;

L_29:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad29,"No",L_no;

broad29:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xA4D3EE;
close;

L_30:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad30,"No",L_no;

broad30:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xC6E2FF;
close;

L_31:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad31,"No",L_no;

broad31:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xDA70D6;
close;

L_32:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad32,"No",L_no;

broad32:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xBA55D3;
close;

L_33:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad33,"No",L_no;

broad33:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xBA55D3;
close;

L_34:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad34,"No",L_no;

broad34:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFAEBD7;
close;

L_35:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad35,"No",L_no;

broad35:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFEFD5;
close;

L_36:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad36,"No",L_no;

broad36:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFAEB9;
close;

L_37:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad37,"No",L_no;

broad37:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xEEA2AD;
close;

L_38:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad38,"No",L_no;

broad38:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFF7256;
close;

L_39:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad39,"No",L_no;

broad39:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xFFA07A;
close;

L_40:
input @broadcast$;
mes "Are you sure want to broadcast ^FF0000"+@broadcast$+"^000000";
menu "Yes",broad40,"No",L_no;

broad40:
if(Zeny < $price) goto error;
set Zeny, Zeny - $price;
announce ""+strcharinfo(0)+": "+@broadcast$+"",0,0xEE7621;
close;

L_no:
next;
if(Sex == 0)
mes "Hello Mrs ^FA8258"+strcharinfo(0)+"^000000 Have a nice day.";
else
mes "Hello Mr ^FA8258"+strcharinfo(0)+"^000000 Have a nice day.";
close;

error:
next;
mes "You dont have ^FF0000"+$price+"^000000 zeny.";
close;
}

I want to add an anti-spamming system to this script,how??Please help...

Thanks in future... /thx

Edited by Arcenciel
Codeboxed
Link to comment
Share on other sites

5 answers to this question

Recommended Posts

Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  
Posted 
set .@Delay,60;
if ( .Delay > gettimetick(2) ){
npctalk "Wait for the Delay ... "+( .@Delay - gettimetick(2) )+" Seconds";
}else{
set .Delay, gettimetick(2)+.@Delay;
announce "MESSAGE";
}

  • Upvote 1
Link to comment
Share on other sites
Hercules Poring

Hercules

Posted
  • Group:  Members
  • Topic Count:  39
  • Topics Per Day:  0.01
  • Content Count:  104
  • Reputation:   1
  • Joined:  05/04/12
  • Last Seen:  
  • Author
Posted 

set .@Delay,60;
if ( .Delay > gettimetick(2) ){
npctalk "Wait for the Delay ... "+( .@Delay - gettimetick(2) )+" Seconds";
}else{
set .Delay, gettimetick(2)+.@Delay;
announce "MESSAGE";
}

In what line should i put this?

by the way THANK YOU!! /thx

Link to comment
Share on other sites
Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  
Posted

any way you think it is suitable....

hint :

after the header for check delay ....

before announce for adding the delay...

Link to comment
Share on other sites
Hercules Poring

Hercules

Posted
  • Group:  Members
  • Topic Count:  39
  • Topics Per Day:  0.01
  • Content Count:  104
  • Reputation:   1
  • Joined:  05/04/12
  • Last Seen:  
  • Author
Posted

any way you think it is suitable....

hint :

after the header for check delay ....

before announce for adding the delay...

What is the header? sorry.. /sry

Link to comment
Share on other sites
Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  
Posted

/swt

prontera,156,178,4 script BroadCaster 100,{

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...