1 files changed, 93 insertions, 0 deletions
diff --git a/npc/008-1/crane.txt b/npc/008-1/crane.txt
new file mode 100644
index 00000000..d8099536
--- /dev/null
+++ b/npc/008-1/crane.txt
@@ -0,0 +1,93 @@
+// TMW scripts.
+// Author:
+//    Micksha
+// Description:
+//    Crane is Snarfles' apprentice, who secretly eats mouboo steak and enjoys.
+
+008-1,97,113,0	script	Crane	NPC_SNARFLES,{
+    function foodQuest;
+
+    mesn;
+    mesq l("Heya. I am Crane, Snarfle's apprentice.");
+    if (getq(General_SmearedHands) <= 3 && getq2(General_SmearedHands) != 1)
+        foodQuest();
+    close;
+
+function foodQuest {
+    .@q=getq(General_SmearedHands);
+    next;
+    mesn;
+    mesq l("Don't tell him, but, I secretly love %s!", getitemlink(MoubooSteak));
+    switch (.@q) {
+    case 1:
+        next;
+        mesn strcharinfo(0);
+        select
+            l("Do you know a recipe for %s?", getitemname(BarbecuePlate)),
+            l("Okay, I won't.");
+        mes "";
+        if (@menu == 2)
+            break;
+        mesn;
+        mesq l("Ah sure, it is a simple recipe, I could even make one for you and give you the recipe, but...");
+        next;
+        mesn;
+        mesq l("I always get smeared hands eating it and cannot play cards anymore with Snarfles.");
+        next;
+        mesn;
+        mesq l("Well, if you find me a solution for that problem, I can give you the recipe. What do you say?");
+        next;
+        mesc l("WARNING: If you accept this quest, you'll be struck at the %s route!", b(l("Carnivour"))), 1;
+        mesc l("This will also make %s's Quest unavailable.", b("Snarfles")), 1;
+        mesc l("This decision cannot be changed later."), 1;
+        next;
+        mesc l("Accept this request?"), 1;
+        if (askyesno() == ASK_YES) {
+            setq General_SmearedHands, 2, CARNIVOROUS; // 2 = Carnivorous
+            mesn;
+            mesq l("Great! I'll be eager for your return!");
+        }
+        break;
+    case 2:
+        mesn;
+        mesq l("Have you found a solution for my smeared hands problem?");
+        next;
+        select
+            l("No, not yet.");
+        mes "";
+        mesn;
+        mesq l("I've heard they're related to the earl of sandwich, so maybe a sandwich maker could help... *sigh* I want to play cards...");
+        break;
+    case 3:
+        mesn strcharinfo(0);
+        select
+            l("Have you tried putting it in a bread already?"),
+            l("I'll keep looking for solutions for your problem.");
+        mes "";
+        if (@menu == 2)
+            return;
+        mesn;
+        mesq l("Actually... No. Have been too afraid of it tasting foul.");
+        next;
+        mesn strcharinfo(0);
+        mesq l("Really? Tiki, Candor's chef, liked it very much.");
+        next;
+        mesn;
+        mesq l("Wha - Really?! Tiki said it tasted good??! I'm saved! You're truly my savior!!");
+        next;
+        mesn;
+        mesq l("I'll put the %s recipe on your %s. Thanks, you saved my day!", getitemlink(BarbecuePlate), getitemlink(RecipeBook));
+        RECIPES[CraftBarbecuePlate]=true;
+        getitembound BarbecuePlate, 1, IBT_ACCOUNT;
+        setq1 General_SmearedHands, 4; // Finished
+    default:
+        return;
+    }
+    return;
+}
+
+OnInit:
+    .bodytype = BODYTYPE_3;
+    .distance = 4;
+    end;
+}