1 files changed, 150 insertions, 0 deletions
diff --git a/npc/00000SAVE/008-1_george.txt b/npc/00000SAVE/008-1_george.txt
new file mode 100644
index 000000000..62afeb7a0
--- /dev/null
+++ b/npc/00000SAVE/008-1_george.txt
@@ -0,0 +1,150 @@
+
+008-1,136,62,0	script	George	NPC138,{
+    if (getequipid(equip_head) == 617) goto L_Pirate;
+    if (getequipid(equip_head) == 622) goto L_Bandana;
+    if (getequipid(equip_head) == 621) goto L_EyePatch;
+
+    mes "[George the Pirate]";
+    mes "\"Yar! Do you need something, matey?\"";
+    goto L_Main;
+
+L_Main:
+    if (GEORGE_Quest == 1) goto L_Main2;
+    if (GEORGE_Quest == 2) goto L_Main3;
+    if (GEORGE_Quest == 3) goto L_Main5;
+    if (GEORGE_Quest == 4) goto L_Main4;
+    menu
+        "Can you explain the Ferry?", L_Explain,
+        "Nothing I guess", L_close;
+
+L_Main2:
+    menu
+        "Can you explain the Ferry?", L_Explain,
+        "Actually, I heard from Roger that you may need some help.", L_RequestOne,
+        "Nothing I guess", L_close;
+
+L_Main3:
+    menu
+        "Can you explain the Ferry?", L_Explain,
+        "About the items you asked me to collect...", L_ProgressOne,
+        "Nothing I guess", L_close;
+
+L_Main4:
+    menu
+        "Can you explain the Ferry?", L_Explain,
+        "About the items you asked me to collect...", L_ProgressTwo,
+        "Nothing I guess", L_close;
+
+L_Main5:
+    menu
+        "Can you explain the Ferry?", L_Explain,
+        "Dow you need any more help?", L_RequestTwo,
+        "Nothing I guess", L_close;
+
+L_Pirate:
+    mes "[George the Pirate]";
+    mes "\"Arrrrh! Ye be wearing a pirate's hat!\"";
+    goto L_Main;
+
+L_Bandana:
+    mes "[George the Pirate]";
+    mes "\"Arrrrh! Ye remind me of my old first mate!\"";
+    goto L_Main;
+
+L_EyePatch:
+    mes "[George the Pirate]";
+    mes "\"Arrrrh! Looks like ye lost an eye there!\"";
+    goto L_Main;
+
+L_Explain:
+    mes "[George the Pirate]";
+    mes "\"Arrr matey! I helped pioneer the trade routes between Hurnscald and the rest of the World, so now merchants and adventurers can travel to and fro without any hassle of dodging wolvern, yarr.\"";
+    next;
+    mes "\"To use the ferry, just step up on the dock and select your destination. Each destination has an associated price that you need to pay. You don't have to go anywhere. Choosing the current port will result in nothing.\"";
+    goto L_close;
+
+
+L_RequestOne:
+    mes "[George the Pirate]";
+    mes "\"Roger, eh? Aye, I do need help. If you bring me 30 beers, 50 bottles, and 30 casino coins, maybe I can give you a reward.";
+    GEORGE_Quest = 2;
+    goto L_close;
+
+L_RequestTwo:
+    mes "[George the Pirate]";
+    mes "\"Arrr matey! My captain asked me to have you get him some items. Please bring us 50 zombie nachos and 50 lady fingers, my captain likes to snack on those during our long voyages. Oh, and something to read too!\"";
+    GEORGE_Quest = 4;
+    goto L_close;
+
+L_ProgressOne:
+    if (countitem("Beer") < 30)
+        goto L_NotEnough;
+    if (countitem("BottleOfWater") < 50)
+        goto L_NotEnough;
+    if (countitem("CasinoCoins") < 30)
+        goto L_NotEnough;
+    mes "[George the Pirate]";
+    mes "\"Yar matey! You have the items I asked for! You have the honor and trust we pirates bestow each other!\"";
+    getinventorylist;
+    if (@inventorylist_count == 100)
+        goto L_TooMuch;
+    delitem "Beer", 30;
+    delitem "BottleOfWater", 50;
+    delitem "CasinoCoins", 30;
+    mes "";
+    mes "\"Here is a reward for your effort! Now you can be a true buccaneer!\"";
+    getitem "SailorHat", 1;
+    getexp 5000, 0;
+    GEORGE_Quest = 3;
+    goto L_close;
+
+L_ProgressTwo:
+    if (countitem("ZombieNachos") < 50)
+        goto L_NotEnough;
+    if (countitem("LadyFingers") < 50)
+        goto L_NotEnough;
+    if (countitem("ScrollOfPaper") < 1)
+        goto L_NotEnough;
+    mes "[George the Pirate]";
+    mes "\"Arrr! Good job matey! You brought us everything we asked for, even the Maritime Almanac Scroll!\"";
+    getinventorylist;
+    if (@inventorylist_count == 100)
+        goto L_TooMuch;
+    delitem "ZombieNachos", 50;
+    delitem "LadyFingers", 50;
+    delitem "ScrollOfPaper", 1;
+    mes "\"My captain wanted me to give this to you as a special reward for your efforts.\"";
+    getitem "CaptainsHat", 1;
+    getexp 15000, 0;
+    GEORGE_Quest = 5;
+    goto L_close;
+
+L_NotEnough:
+    mes "[George the Pirate]";
+    mes "\"Arrr! You did not bring me everything I asked for!\"";
+    if (GEORGE_Quest == 2)
+        goto L_NotEnoughOne;
+    if (GEORGE_Quest == 4)
+        goto L_NotEnoughTwo;
+    // This shouldn't be necessary as it should *never* be reached, but
+    // tmwAthena complains of "implicit fallthrough" and refuses to run
+    // without it here. Perhaps I'm doing something wrong? More likely
+    // we need to slap some TMW devs.
+    goto L_close;
+
+L_NotEnoughOne:
+    mes "\"Remember, I need 30 beers, 50 bottles, and 30 casino coins.\"";
+    goto L_close;
+
+L_NotEnoughTwo:
+    mes "\"Remember, I need 50 zombie nachos, 50 lady fingers, and something to read.\"";
+    goto L_close;
+
+L_TooMuch:
+    mes "[George the Pirate]";
+    mes "\"Err... you do not appear to have enough room for your reward. Please come back once you lighten your load, matey!\"";
+    goto L_close;
+
+L_close:
+    close;
+}