1 files changed, 132 insertions, 0 deletions
diff --git a/npc/000-1/muller.txt b/npc/000-1/muller.txt
new file mode 100644
index 000000000..276557cb3
--- /dev/null
+++ b/npc/000-1/muller.txt
@@ -0,0 +1,132 @@
+// Evol scripts.
+// Authors:
+//    Hal9000
+//    Reid
+// Description:
+//    Sailor part of the Gugli's quest.
+//    Plushroom box.
+
+000-1,35,69,0	script	Q'Muller	NPC_ORC_MAN,{
+    if (getq(General_Narrator) > 0)
+    {
+        sailortalk;
+    }
+
+    .@g = getq(ShipQuests_Gugli);
+    if (.@g == 0) goto L_NoTask;
+
+    .@q = getq(ShipQuests_QMuller);
+    if (.@q == 1) goto L_CallFunc;
+
+    mesn;
+    mesq l("Can't you see I'm working?!");
+    next;
+
+    select
+        l("Well I'm working too! Don't you want me to carry one of these boxes back to Gugli?");
+
+    mes "";
+    mesn;
+    mesq l("Oh I see... Sailors are not able to do their job anymore, is it like that?!");
+    next;
+
+    menu
+        l("Indeed! Goodbye."), L_Quit,
+        l("Yes, it is true! You are not able at all. Nard has been waiting for the food for too long already. Hurry up, you lazy sailors!"), -;
+
+    mes "";
+    mesn;
+    mesq l("Are you blind? Do you really think these boxes are light and soft as a piou's feather?!");
+    next;
+
+    select
+        lg("I am sure that I can run with one of them on my shoulder.");
+
+    mes "";
+    mesn;
+    mesq l("Well then... Take this one!");
+    next;
+
+    inventoryplace PlushroomBox, 1;
+
+    setq ShipQuests_QMuller, 1;
+    getitem PlushroomBox, 1;
+
+    mes "";
+    mesn;
+    mesq l("And now I want to see you run!");
+
+    close;
+
+L_CallFunc:
+    sailorfood;
+
+    menu
+        rif(getq(ShipQuests_Gugli) > 1, l("Task is done.")), L_TaskDone,
+        rif(getq(ShipQuests_QMuller) == 1 && (getq(ShipQuests_Ale) == 0 || getq(ShipQuests_Astapolos) == 0 || getq(ShipQuests_Gulukan) == 0 || getq(ShipQuests_Jalad) == 0 || getq(ShipQuests_Tibbo) == 0), l("I'm still busy, I need to find the other sailors.")), -,
+        l("What's that?"), L_Plushroom;
+
+    mes "";
+    mesn;
+    mesq l("Who are you looking for?");
+    next;
+
+    menu
+        rif(getq(ShipQuests_Ale) == 0, l("Ale.")), L_Top,
+        rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), L_Top,
+        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), L_Top,
+        rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), L_Bottom,
+        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), L_Bottom,
+        l("Nobody."), L_Quit;
+
+L_Bottom:
+    mes "";
+    mesn;
+    mesq l("I've seen him at the bottom of the island, check around.");
+
+    close;
+
+L_Top:
+    mes "";
+    mesn;
+    mesq l("I've seen him at the top of the island.");
+    next;
+    mesq l("You should walk to the north.");
+
+    close;
+
+L_Plushroom:
+    mes "";
+    mesn;
+    mesq l("'That', as you call it, is a @@. There are plenty on this island!", getitemlink(Plushroom));
+    next;
+    mesq l("It's a kind of mushroom. We call it like that because of it's taste, just like a marshmallow. It also has this name because of it's appearance, it looks like a plush!");
+    next;
+    mesq l("There are few groups of these @@s all around this island. Just pick some and have a try.", getitemlink(Plushroom));
+
+    close;
+
+L_NoTask:
+    mes "";
+    mesn;
+    mesq l("You see? I'm working here!");
+
+    close;
+
+L_TaskDone:
+    mes "";
+    mesn;
+    mesq l("Good to hear!");
+    next;
+
+    goodbye;
+
+L_Quit:
+    closedialog;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}