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

[Hercules]

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...

Edited August 27, 2012 by Arcenciel
Codeboxed

[Emistry]

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

[Hercules]

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!!

[Emistry]

any way you think it is suitable....

hint :

after the header for check delay ....

before announce for adding the delay...

[Hercules]

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..

[Emistry]

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