trinity,102,131,5   script  Channel System  951,{
 
    set .chan$, "[ ^0000FFChannel System^000000 ]";
    
    mes .chan$;
    mes "Hello Adventurer!";
    mes "...";
    mes "Are you ready to join a global";
    mes "channel and make friends?";
    next;
    menu "> Channel System Intro",C1,"> Channel List",C2,"> Join Channel",C3;
    
    C1:
    mes .chan$;
    mes "The Channel System is a chat";
    mes "that allows you to speak with the";
    mes "rest of the players who are in the";
    mes "channel.";
    next;
    mes .chan$;
    mes "There are only 2 official channels,";
    mes "^0000FF#main^000000 and ^FF0000#trade^000000 channels.";
    next;
    mes .chan$;
    mes "These 2 chats are to used exclusively. ^FF0000You must speak english in the 2 channels at all times!";
    next;
    mes .chan$;
    mes "The main channel is used to ask ro related questions only, trading or selling items are prohibited on this channel. ^FF0000You must speak english in the 2 channels at all times!";
    next;
    mes .chan$;
    mes "The trade channel obviously its for trading purposes. you can't ask for support on this channel. ^FF0000You must speak english in the 2 channels at all times!";
    next;
    mes .chan$;
    mes "Thanks for reading the informations on how to use the channel system.";
    close;
    
    C2:
    atcommand "@channel list";
    close;
    
    C3:
    if(channelsys < 0) {
    mes .chan$;
    mes "please read the introduction of the system first.";
    end;
    } else {
    mes "please select which channel you want to join.";
    switch(select("> Main:> Trade:> Both")) {
    
    case 1:
    atcommand "@channel join #main";
    break;
    
    case 2:
    atcommand "@channel join #trade";
    break;
    
    case 3:
    atcommand "@channel join #main";
    atcommand "@channel join #trade";
    break;
    
            }
        }
    }