//===== eAthena Script =======================================
//= War of Emperium Guild Dungeon Switch Function
//===== By: ==================================================
//= jAthena - kalen (1.0)
//= 1.1 by Akaru, ho|yAnge|X, and Valaris
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= eAthena 0.1+; RO Episode 4+
//===== Description: =========================================
//= Switch that warps guild members to guild dungeon.
//==========================================
//= Break down of arguments used in the function:
//=   arg(0): name of guild castle.
//=   arg(1): guild dungeon level.
//=   arg(2): x1 coordinate for warp
//=   arg(3): y1 coordinate for warp
//===== Additional Comments: =================================
//= v1.2: All guild Dungeon Switch npcs use this function.[kobra_k88]
//============================================================

//==================================================
function	script	F_GldDunSw	{

	mes "[ Mysterious Voice ]";
	mes " ' Only brave warriors may lead the guild base.. '";
	next;
	mes "(There is little switch over here....... Would you like to pull the switch?)";
	next;
	menu "Yes",-,"No",M_No;

		set @GID, GetCastleData(getarg(0)+".gat",1);
		if (getcharid(2) != @GID) goto L_NotGLead;
		warp "gld_dun0"+getarg(1)+".gat",getarg(2),getarg(3);
		end;

		L_NotGLead:
			mes "[ Mysterious Voice ]";
			mes " ' ..... it seems that you are not brave enough...... ' ";
	M_No:
		return;
}