//===== eAthena Script =======================================
//= Broadcaster
//===== By: ==================================================
//= Keim
//===== Current Version: =====================================
//= 1.0
//===== Description: =========================================
//= Broadcaster for free use
//===== Additional Comments: =================================
//= For @Jam
//============================================================
payon,123,123,4	script	Broadcaster	123,{
	set .@npc$,"^FF0000Broadcaster^000000";
	
	mes .@npc$;
	mes "Hello there, "+strcharinfo(0)+", how are you today!";
	next;
	mes "I am the Broadcaster!";
	mes "What do you wish to do today?";
	next;
	menu "Broadcaster",l_broadcast,"Leave",l_leave;
	
	l_broadcast:
	next;
	mes .@npc$;
	mes "Broadcasting has a fee of 1,000,000 Zeny.";
	mes "Checking for zeny...";
	if(Zeny<1000000) { mes .@npc$; mes "You don't have enough zeny, sorry!"; close;
		} else {
	mes .@npc$;
	mes "Type in the box the text you want to broadcast.";
	mes "Type 'cancel' to cancel";
	input .@announce$;
	if (.@announce$ == cancel) goto l_leave;
	next;
	mes .@npc$;
	mes "Current preview of your broadcast...";
	mes ""+.@announce$+"";
	next;
	mes "Continue?";
	if (select("Yes","Try Again")==2) { goto l_broadcast;
		} else {
			l_colour:
			mes .@npc$;
			mes "Choose your colour...";
			menu "Black",l_black,"Gray",l_gray,"Pink",l_pink,"Orange",l_orange,"Blue",l_blue;
			
			l_black:
			mes .@npc$;
			mes "Final preview...";
			mes "^000000"+.@announce$+"^000000";
			next;
			mes .@npc$;
			mes "Continue?";
			if (select("Yes","No")==2) { goto l_colour; 
				} else {
					mes .@npc$;
					mes "Thank you for using my broadcaster! Bye!";
					set Zeny,zeny -1000000;
					announce " "+strcharinfo(0)+": "+.@announce$+"",0,0x000000;
					close;
					}
					
			l_gray:
			mes .@npc$;
			mes "Final preview...";
			mes "^B5B5B5"+.@announce$+"^000000";
			next;
			mes .@npc$;
			mes "Continue?";
			if (select("Yes","No")==2) { goto l_colour; 
				} else {
					mes .@npc$;
					mes "Thank you for using my broadcaster! Bye!";
					set Zeny,zeny -1000000;
					announce " "+strcharinfo(0)+": "+.@announce$+"",0,0xBDBDBD;
					close;
					}
					
			l_pink:
			mes .@npc$;
			mes "Final preview...";
			mes "^FF5C9D"+.@announce$+"^000000";
			next;
			mes .@npc$;
			mes "Continue?";
			if (select("Yes","No")==2) { goto l_colour; 
				} else {
					mes .@npc$;
					mes "Thank you for using my broadcaster! Bye!";
					set Zeny,zeny -1000000;
					announce " "+strcharinfo(0)+": "+.@announce$+"",0,0xFF5C9DD;
					close;
					}
					
			l_orange:
			mes .@npc$;
			mes "Final preview...";
			mes "^FF7700"+.@announce$+"^000000";
			next;
			mes .@npc$;
			mes "Continue?";
			if (select("Yes","No")==2) { goto l_colour; 
				} else {
					mes .@npc$;
					mes "Thank you for using my broadcaster! Bye!";
					set Zeny,zeny -1000000;
					announce " "+strcharinfo(0)+": "+.@announce$+"",0,0xFF7700;
					close;
					}
					
			l_blue:
			mes .@npc$;
			mes "Final preview...";
			mes "^0095FF"+.@announce$+"^000000";
			next;
			mes .@npc$;
			mes "Continue?";
			if (select("Yes","No")==2) { goto l_colour; 
				} else {
					mes .@npc$;
					mes "Thank you for using my broadcaster! Bye!";
					set Zeny,zeny -1000000;
					announce " "+strcharinfo(0)+": "+.@announce$+"",0,0095FF;
					close;
					}
					
					l_leave:
					mes .@npc$;
					mes "Okay then. Come back later!";
					close;
					
					}
					}
			
}