1 files changed, 42 insertions, 0 deletions
diff --git a/npc/guild/gldfunc_dunsw.txt b/npc/guild/gldfunc_dunsw.txt
new file mode 100644
index 000000000..6d954c639
--- /dev/null
+++ b/npc/guild/gldfunc_dunsw.txt
@@ -0,0 +1,42 @@
+//===== 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_dun"+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;
+}