1 files changed, 68 insertions, 0 deletions
diff --git a/npc/quests/custom/excalibur.txt b/npc/quests/custom/excalibur.txt
new file mode 100644
index 000000000..f96c25309
--- /dev/null
+++ b/npc/quests/custom/excalibur.txt
@@ -0,0 +1,68 @@
+// Excalibur Quest NPC
+// By: Syrus22
+// Version 1.0
+// Any comments or questions PM me on the Yare forums
+// Description: This is a simple item quest NPC. The player must find an
+// Angel Band, a Heaven Ring, and an Emperium. If they do they will receive
+// the Excalibur.
+prt_castle.gat,81,171,5	script	Mysterious King	108,{
+mes "[Excalibur Quest Rep]";
+mes "Hello Adventurer.";
+mes "I'm glad to announce that we are sponsoring a hunt for the legendary sword, Excalibur. Or more appropriately a hunt for certain rare items that can be traded in for the legendary sword.";
+next;
+goto ExMenu;
+    ExMenu:
+	menu "Required Items",ExItems,"Create Excalibur",ExCreate,"End",ExEnd;
+
+    ExItems:
+        mes "[Excalibur Quest Rep]";
+        mes "You need the following items to create the Excalibur.";
+        mes "Angel Band";
+	mes "Heaven Ring";
+	mes "Emperium";
+        next;
+	goto ExMenu;
+
+    ExCreate:
+        mes "[Excalibur Quest Rep]";
+	mes "Let me check your inventory!";
+	next;
+	if(countitem(2254)<1) goto NoAngel;
+	if(countitem(2282)<1) goto NoHeaven;
+	if(countitem(714)<1) goto NoEmp;
+        goto ExGive;
+
+	    NoAngel:
+		mes "[Excalibur Quest Rep]";
+		mes "Sorry but you must have at least 1 Angel Band.";
+		mes "Come back after you get ALL the items.";
+		close;
+
+	    NoHeaven:
+		mes "[Excalibur Quest Rep]";
+		mes "Sorry but you must have at least 1 Heaven Ring.";
+		mes "Come back after you get ALL the items.";
+		close;
+
+	    NoEmp:
+		mes "[Excalibur Quest Rep]";
+		mes "Sorry but you must have at least 1 Emperium.";
+		mes "Come back after you get ALL the items.";
+		close;
+
+	    ExGive:
+		mes "[Excalibur Quest Rep]";
+		mes "Congratulations. You have collected all necessary items. I give to you the Excalibur!!!";
+		delitem 2254,1;
+		delitem 2282,1;
+		delitem 714,1;
+		getitem 1137,1;
+		mes "Thank you for your participation!";
+		close;
+
+    ExEnd:
+        mes "[Excalibur Quest Rep]";
+	mes "Good bye then. Hope you try the quest!";
+        close;
+close;    }
+}