Broadcaster

[Hades03]

Hello rathena member this is my broadcaster script

Features:

With 8 Color

Red, Black, Blue, Green, Purple, Pink, Gray, Orange.

you can set the payment here

set @payitem,671;

set @payamt,1;

100+ Downloads and no comment and no report omg

No Bug!!!

Wew 278 Downloads But still no reprot wew nice script

Still no bug?

broadcaster.txt

[onizame]

i want to report.. this is no bug.. o.O

[Raikumi]

can someone tell me how to set it to require 100k zeny instead of an item?

[Emistry]

replace the item checking part with this

if( Zeny < 100000 ){
   mes "You cant use.";
   close;
}

replace the item removing part with this

set Zeny - 1000000;

[cheeky]

can you arrange or align the texts? Because it's all in left side. It's not working for me..

[Hades03]

Try To Download dude

[Hades03]

340 Download Yuhoooo

[rotestserver]

thanks, but when I change the requirements to zeny. nothing happens when I click the npc. D: can you tell me why?

[Bin4ry]

@^rotestserver, you can use mine here.

// http://rathena.org/board/topic/66794-broadcaster/#entry148563
prontera,147,172,5 script Broadcast Agent 57,{

set .@Price, 100000;
setarray .@Color$[0], "Red", "Green", "Blue";
setarray .@ColorCode$[0], "0xFF0000", "0x00FF00", "0x0000FF";

mes "[broadcaster]";
mes "Hello, ^0055ff" + strcharinfo(0) + "^000000.";
mes "Do you want to broadcast something? The price is " + .@Price + "z.";
next;
if (select("Yes:No") == 2) {
mes "[broadcaster]";
mes "Oh that's a bummmer.";
mes "Feel free to talk to me again.";
close;
}
if (Zeny < .@Price) {
mes "[broadcaster]";
mes "I don't think you have enough zeny.";
close;
}
mes "[broadcaster]";
mes "Now please pick a color:";
next;
for (set .@i, 0; .@i < getarraysize(.@Color$); set .@i, .@i + 1)
set .@Menu$, .@Menu$ + .@Color$[.@i] + ":";
set .@i,(select(.@Menu$) - 1);
mes "[broadcaster]";
mes "Please type your message now:";
next;
input .@Msg$;
mes "[broadcaster]";
mes "Alright, message is broadcasted now! Thank you.";
set Zeny, Zeny - .@Price;
announce strcharinfo(0) + ": " + .@Msg$, bc_all, .@ColorCode$[.@i];
close;
}

Edit: Here is link for proper tabbed ver: http://www.heypasteit.com/clip/0JE5

Edited October 22, 2012 by darristan

[rotestserver]

@^rotestserver, you can use mine here.

// http://rathena.org/board/topic/66794-broadcaster/#entry148563
prontera,147,172,5 script Broadcast Agent 57,{

set .@Price, 100000;
setarray .@Color$[0], "Red", "Green", "Blue";
setarray .@ColorCode$[0], "0xFF0000", "0x00FF00", "0x0000FF";

mes "[broadcaster]";
mes "Hello, ^0055ff" + strcharinfo(0) + "^000000.";
mes "Do you want to broadcast something? The price is " + .@Price + "z.";
next;
if (select("Yes:No") == 2) {
mes "[broadcaster]";
mes "Oh that's a bummmer.";
mes "Feel free to talk to me again.";
close;
}
if (Zeny < .@Price) {
mes "[broadcaster]";
mes "I don't think you have enough zeny.";
close;
}
mes "[broadcaster]";
mes "Now please pick a color:";
next;
for (set .@i, 0; .@i < getarraysize(.@Color$); set .@i, .@i + 1)
set .@Menu$, .@Menu$ + .@Color$[.@i] + ":";
set .@i,(select(.@Menu$) - 1);
mes "[broadcaster]";
mes "Please type your message now:";
next;
input .@Msg$;
mes "[broadcaster]";
mes "Alright, message is broadcasted now! Thank you.";
set Zeny, Zeny - .@Price;
announce strcharinfo(0) + ": " + .@Msg$, bc_all, .@ColorCode$[.@i];
close;
}

Edit: Here is link for proper tabbed ver: http://www.heypasteit.com/clip/0JE5

Thank you sir darristan!

[EnigmatiCDreaM]

Is it possible to add a code to set a limit to how many times you broadcast a day? and if so can someone help add the code to it?

For example every player can do a maximum of 3 broadcasts a day

Appreciate it!

[markiez22]

//Jam "Merme"
//=======================================================================================
//=======================================================================================
//=======================================================================================
//Annoucer/broadcaster   (in color)
//=======================================================================================
//=======================================================================================
//=======================================================================================
prontera,145,164,6    script    Broadcaster    415,{


if (.AnnounceDelay > gettimetick(2)) {
    mes "You must wait 2 minutes between announcements.";
    close;
}

mes "[ ^FE021BMerme^000000 ]";
mes "Hello, ^F509DE"+strcharinfo(0)+"^000000";
mes "Do you want to broadcast something?.";
next;
mes "[ ^FE021BMerme^000000 ]";
mes "We Have Color Please choose!";
next;
menu "Red",red, "Green",green, "Purple",purple, "Orange",orange, "Cancel",-; 
mes "im Sorry if u want to say something just let me know.";
close;

red:
mes "[ ^FE021BMerme^000000 ]";
mes "Type your message and it will be heard miles away";
input @mensagem$;
announce ""+strcharinfo(0)+": "+@mensagem$+" ",bc,0xD20000;
set .AnnounceDelay, gettimetick(2) + 120;
close;



green:
mes "[ ^FE021BMerme^000000 ]";
mes "Type your message and it will be heard miles away";
input @mensagem4$;
announce ""+strcharinfo(O)+": "+@mensagem4$+" ",bc,0x33FF33;
set .AnnounceDelay, gettimetick(2) + 120;
close;

purple:
mes "[ ^FE021BMerme^000000 ]";
mes "Type your message and it will be heard miles away";
input @mensagem5$;
announce ""+strcharinfo(O)+": "+@mensagem5$+" ",bc,0xCC00FF;
set .AnnounceDelay, gettimetick(2) + 120;
close;


orange:
mes "[ ^FE021BMerme^000000 ]";
mes "Type your message and it will be heard miles away";
input @mensagem5$;
announce ""+strcharinfo(O)+": "+@mensagem5$+" ",bc,0xFF9900;
set .AnnounceDelay, gettimetick(2) + 120;
close;

no:
next;
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;

end;
}

 

Is it possible to add a code to set a limit to how many times you broadcast a day? and if so can someone help add the code to it?

For example every player can do a maximum of 3 broadcasts a day

Appreciate it!

 

 

i don't know how to config that. . 

but try this one. .

2min every annouce. .  to anti spam

[Akbal]

Ey Jam can you please write what is the exactly "check" part and the "remove part" of your code?

because i got an error replacing the "delitem @..." in all the colors.

 

thanks.