Broadcaster NPC

//Made by Karul

prontera,155,180,4	script	Broadcaster	793,{

set .@name$,"^0FDDAF[Broadcaster] ^000000";


mes .@name$;
mes "Do you want to broadcast anything for the cost of 1 million zeny?";
L_Main:
switch(select("Yes:No")) {
		case 1: next;
				mes .@name$;
				mes "Alright what do you want to broadcast?";
				mes "^EE2C2C[Please note that spamming broadcasts breaks the rules of the server. It is jailable and/or bannable.] ^000000";
				input @message$;
				close2;
				if(@message$ == "cancel")
				{
						next;
						goto L_Main;
				} else {
						mes .@name$;
						mes "Is your message correct?";
						mes "'^000088"+@message$+"^000000'";
						if(select("Yes it is:No, go back")==2)goto L_Main;
							{
								next;
								set zeny,zeny-1000000;
								mes .@name$;
								mes "Your message will be displayed. ";
								Announce ""+strcharinfo(0)+": "+@message$+"",bc_all;
								next;
								mes .@name$;
								mes "Your message was shown. Thank you.";
								close;
							}
						}
			case 2: next;
				mes .@name$;
				mes "Alright!";
				close;
			}
}