-   script  at_main -1,{
 
    OnInit:
        bindatcmd "main", strnpcinfo(3) +"::OnCommand", 0, 2;
        end;
        
        
    OnCommand:
        if (.@atcmd_parameters$[0] == "on") {
            if (!@main) {
                atcommand "@join #main";
                message strcharinfo(0), "You are now in #main chat.";
                @main = 1;
            } else {
                message strcharinfo(0), "You are already in #main chat.";
            }
        } else if (.@atcmd_parameters$[0] == "off") {
            if (@main) {
                atcommand "@channel leave #main";
                message strcharinfo(0), "You are no longer in #main chat.";
                @main = 0;
            } else {
                message strcharinfo(0), "You are not in #main chat.";
            }
        } else {
            message strcharinfo(0), "Invalid parameters.";
            message strcharinfo(0), .@atcmd_command$ +" failed.";
        }
        
        end;
 
}