//Warper for Prontera and Payon guild dungeons.

-	script	PrtPayWarper	-1,{
	if (getcharid(2) == getcastledata(strnpcinfo(4),1)) {
		mes "- Warp to a dungeon? -";
		next;
		switch(select("Prontera Guild Dungeon:Payon Guild Dungeon:Do nothing.")) {
		case 1:
			if (compare(strnpcinfo(4),"arug")) {
				set .@map$,"gld_dun01";
				set .@i, 120;
				set .@x, 132;
			}
			else {
				set .@map$,"schg_dun01";
				set .@i, 199;
				set .@x, 129;
			}
			//set .@i, atoi(charat(strnpcinfo(4),9))-1;
			warp .@map$,.@mapx[.@i],.@mapy[.@x];
			close;
		case 2:
			if (compare(strnpcinfo(4),"arug")) {
				set .@map$,"gld_dun03";
				set .@i, 85;
				set .@x, 104;

			}
			else {
				set .@map$,"schg_dun01";
				set .@i, 199;
				set .@x, 129;
			}
			//set .@i, atoi(charat(strnpcinfo(4),9))-1;
			warp .@map$,.@mapx[.@i],.@mapy[.@x];
			close;
		case 3:
			mes "It's too scary.";
			close;
		}
	}
}

//Warper for Rachel and Geffen guild dungeons.

-	script	RayGefWarper	-1,{
	if (getcharid(2) == getcastledata(strnpcinfo(4),1)) {
		mes "- Warp to a dungeon? -";
		next;
		switch(select("Rachel Guild Dungeon:Geffen Guild Dungeon:Do nothing.")) {
		case 1:
			if (compare(strnpcinfo(4),"arug")) {
				set .@map$,"arug_dun01";
				set .@i, 200;
				set .@x, 174;

			}
			else {
				set .@map$,"schg_dun01";
				set .@i, 199;
				set .@x, 129;
			}
			//set .@i, atoi(charat(strnpcinfo(4),9))-1;
			warp .@map$,.@mapx[.@i],.@mapy[.@x];
			close;
		case 2:
			if (compare(strnpcinfo(4),"arug")) {
				set .@map$,"gld_dun04";
				set .@i, 61;
				set .@x, 56;

			}

			//set .@i, atoi(charat(strnpcinfo(4),9))-1;
			warp .@map$,.@mapx[.@i],.@mapy[.@x];
			close;
		case 3:
			mes "It's too scary.";
			close;
		}
	}
}

//Warper for Yuno and Aldeberan guild dungeons

-	script	YunAldWarper	-1,{
	if (getcharid(2) == getcastledata(strnpcinfo(4),1)) {
		mes "- Warp to a dungeon? -";
		next;
		switch(select("Yuno Guild Dungeon:Aldeberan Guild Dungeon:Do nothing.")) {
		case 1:
			if (compare(strnpcinfo(4),"arug")) {
				set .@map$,"schg_dun01";
				set .@i, 199;
				set .@x, 129;

			}

			//set .@i, atoi(charat(strnpcinfo(4),9))-1;
			warp .@map$,.@mapx[.@i],.@mapy[.@x];
			close;
		case 2:
			if (compare(strnpcinfo(4),"arug")) {
				set .@map$,"gld_dun02";
				set .@i, 36;
				set .@x, 112;

			}

			//set .@i, atoi(charat(strnpcinfo(4),9))-1;
			warp .@map$,.@mapx[.@i],.@mapy[.@x];
			close;
		case 3:
			mes "It's too scary.";
			close;
		}
	}
}

arug_cas01,159,347,3	duplicate(PrtPayWarper)	Dungeon Warper	435
arug_cas02,350,289,3	duplicate(RayGefWarper)	Dungeon Warper#2	435
arug_cas03,331,154,3	duplicate(YunAldWarper)	Dungeon Warper#3	435