//Jam "Merme"
//=======================================================================================
//=======================================================================================
//=======================================================================================
//Annoucer/broadcaster   (in color)
//=======================================================================================
//=======================================================================================
//=======================================================================================
caspen,177,229,3	script	Broadcaster	790,{

set @payitem,671;
set @payamt,1;

mes "[ ^FE021B Broadcaster^000000  ]";
mes "Hello, ^F509DE"+strcharinfo(0)+"^000000";
mes "Do you want to broadcast something? Payment is^FAEB60 100,000 Zeny ^000000.";
menu "Yes please.",yes,"No",no;

yes:
if(Zeny < 100000) goto exit2;
next;
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Alrighty then! Please choose the color that you want your broadcast to be displayed in!";
next;
menu "^FFFF Y Yellow^000000",yellow, "^FF000  Red^000000",red, "^00FFFF Blue^000000",blue, "",green, "",purple, "",pink, "",gray, "",orange, "Cancel",-; 
mes "Come back if you ever need to broadcast something!";
close;

red:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(0)+": "+@mensagem$+" ",bc,0xD20000;
close;

yellow:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem1$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(O)+": "+@mensagem1$+" ",bc,0xFFFF00;
close;


blue:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem3$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(0)+": "+@mensagem3$+" ",bc_blue;
close;

green:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem4$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(O)+": "+@mensagem4$+" ",bc,0x33FF33;
close;

purple:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem5$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(O)+": "+@mensagem5$+" ",bc,0xCC00FF;
close;

pink:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem5$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(O)+": "+@mensagem5$+" ",bc,0xFF33CC;
close;

gray:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem6$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(O)+": "+@mensagem6$+" ",bc,0xBAB9B9;
close;

orange:
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Type your message and it will be heard miles away";
input @mensagem5$;
set Zeny,Zeny - 100000;
announce ""+strcharinfo(O)+": "+@mensagem5$+" ",bc,0xFF9900;
close;

no:
next;
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Oh that's a bummer.";
mes "Come back when you need me. ^_^";
close;

exit2:
next;
mes "[ ^FE021B Broadcaster^000000  ]";
mes "Sorry you don't have enough Zeny to make the broadcast.";
mes "Please come again when you can afford it.";
close;

end;
}