caspen,0,0,0    script  Login Manager   123,{
 
    if(login_command != 1){
        set login_command,1;
    }
    mes "[GinRO]";
    mes "Hello "+strcharinfo(0)+",";
    mes "I'm the Login Manager of GinRO!";
    next;
    mes "[GinRO]";
    mes "Here you can manage certain @-commands which should be either enabled or disabled when you Login in the great World of GinRO!";
    next;
    mes "[GinRO]";
    mes "So what can I do for you today?";
    // Autoloot
    if(#autolootPC == 0) {
        set .@menuPC$[0],"^CC6600Off^000000";
    } else {
        set .@menuPC$[0],"^0066CCOn^000000";
    }
    // NoKs
    if(#noksPC == 0){
        set .@menuPC$[1],"^CC6600Off^000000";
    } else {
        set .@menuPC$[1],"^0066CCOn^000000";
    }
    // ShowExp
    if(#showexpPC == 0) {
        set .@menuPC$[2],"^CC6600Off^000000";
    } else {
        set .@menuPC$[2],"^0066CCOn^000000";
    }
    // Showdelay
    if(#showdelayPC == 0) {
        set .@menuPC$[3],"^CC6600Off^000000";
    } else {
        set .@menuPC$[3],"^0066CCOn^000000";
    }
    next;
    switch(select("@autoloot "+.@menuPC$[0]+":@noks "+.@menuPC$[1]+" ["+#noks2PC$+"]:@showexp "+.@menuPC$[2]+":@showdelay "+.@menuPC$[3]+":Cancel")){
    case 1:
        if(#autolootPC == 0) {
            set #autolootPC,1;
            atcommand strcharinfo(0)+":@autoloot 100";
            close;
        }
        set #autolootPC,0;
        atcommand strcharinfo(0)+":@autoloot 0";
        close;
    case 2:
        if(#noksPC == 0) {
            set #noksPC,1;
            set .@menuPC$[1],"^0066CCOn^000000";
            switch(select("party","self","guild")) {
            case 1:
                set #noks2PC$,"party";
                atcommand strcharinfo(0)+":@noks party";
                close;
            case 2:
                set #noks2PC$,"self";
                atcommand strcharinfo(0)+":@noks self";
                close;
            case 3:
                set #noks2PC$,"guild";
                atcommand strcharinfo(0)+":@noks guild";
                close;
            }
        }
        set #noksPC,0;
        set #noks2PC$,"none";
        atcommand strcharinfo(0)+":@noks";
        close;
    case 3:
        if(#showexpPC == 0) {
            set #showexpPC,1;
            atcommand strcharinfo(0)+":@showexp";
            close;
        }
        set #showexpPC,0;
        atcommand strcharinfo(0)+":@showexp";
        close;
    case 4:
        if(#showdelayPC == 0) {
            set #showdelayPC,1;
            atcommand strcharinfo(0)+":@showdelay";
            close;
        }
        set #showdelayPC,0;
        atcommand strcharinfo(0)+":@showdelay";
        close;
    case 5:
        close;
    }
 
OnPCLoginEvent:
    if(login_command != 1) end;
    if(#autolootPC == 1) atcommand strcharinfo(0)+":@autoloot 100";
    if(#noks2PC$ == "") set #noks2PC$,"self";
    if(#noksPC == 1) atcommand strcharinfo(0)+":@noks "+#noks2PC$;
    // By default there are On, so we make an inverse check
    if(#showexpPC == 0) atcommand strcharinfo(0)+":@showexp";
    if(#showdelayPC == 0) atcommand strcharinfo(0)+":@showdelay";
    end;
}