There you go
prontera,147,172,5 script Broadcaster#2 901,{
set @payitem,671;
set @payamt,1;
if (@bcdelay[0] != gettime(8)) {
setarray @bcdelay[0],gettime(8),0;
}
set .@bc,3-@bcdelay[1];
mes "[ ^FE021BMerme^000000 ]";
if ((@bcdelay[0] == gettime(8) && @bcdelay[1] >= 3)) {
mes "I'm sorry but you have reached the limit for today.";
mes "Come back again tomorrow!";
close;
}
mes "Hello, ^F509DE"+strcharinfo(0)+"^000000";
mes "Do you want to broadcast something?";
mes "Payment is^AAAA00 1 Gold Coin^000000.";
mes " ";
mes "(Today Limit: "+.@bc+" left)";
next;
menu "Yes please.",yes,"No",no;
yes:
if ((countitem(@payitem)<@payamt)) goto exit2;
mes "[ ^FE021BMerme^000000 ]";
mes "We Have Color Please choose!";
next;
menu "Red",red, "Black",black, "Blue",blue, "Green",green, "Purple",purple, "Pink",pink, "Gray",gray, "Orange",orange, "Cancel",-;
mes "If you want to say something, just let me know.";
close;
red:
set @color,0xD20000;
goto send;
black:
set @color,0x000000;
goto send;
blue:
set @color,0x6666FF;
goto send;
green:
set @color,0x33FF33;
goto send;
purple:
set @color,0xCC00FF;
goto send;
pink:
set @color,0xFF33CC;
goto send;
gray:
set @color,0xBAB9B9;
goto send;
orange:
set @color,0xFF9900;
goto send;
send:
mes "[ ^FE021BMerme^000000 ]";
mes "Type your message and it will be heard miles away";
mes " ";
mes "(Limited up to 3 times a day)";
input @mensagem$;
delitem @payitem,@payamt;
announce strcharinfo(0)+": "+@mensagem$,bc,@color;
set @bcdelay[1],@bcdelay[1]+1;
close;
no:
mes "[ ^FE021BMerme^000000 ]";
mes "Oh that's a bummmer.";
mes "Come back when you need me. ^_^";
close;
exit2:
mes "[ ^FE021BMerme^000000 ]";
mes "Sorry you don't have enough coins to make the broadcast.";
mes "Please come again.";
close;
}