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