viewing paste Broadcaster | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136
//===== 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;
                                       
                                        }
                                        }
                       
}
Viewed 468 times, submitted by unknown.