Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //===== 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;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement