//===== 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;
                    
                    }
                    }
            
}