1 files changed, 149 insertions, 0 deletions
diff --git a/npc/000-1/darlin.txt b/npc/000-1/darlin.txt
new file mode 100644
index 000000000..1288ad83e
--- /dev/null
+++ b/npc/000-1/darlin.txt
@@ -0,0 +1,149 @@
+// Evol scripts.
+// Authors:
+//    Alige
+//    Reid
+// Description:
+//    Darlin talks from the top of the tall mast.
+// Variable:
+//    x   ShipQuests_TreasureChest
+// Values:
+//    0   Treasure Chest has not been opened yet.
+//    1   Treasure Chest has been opened.
+
+000-1,89,95,0	script	Darlin	NPC_RAIJIN_MAN,{
+    .@q = getq(ShipQuests_TreasureChest);
+
+    mesn;
+    setcamnpc;
+    mesq l("HEY! HEY YOU!");
+    next;
+    mesq l("CAN YOU HEAR ME?!");
+    next;
+    restorecam;
+
+    menu
+        l("Yes!"), -,
+        l("No!"), L_Quit;
+
+    setcamnpc;
+    mes "";
+    mesn;
+    mesq l("GOOD!");
+    next;
+    mesq l("I WAS HERE WHEN THEY RESCUED YOU!");
+    next;
+    mesq l("DO YOU FEEL BETTER?!");
+    next;
+    restorecam;
+
+    menu
+        l("I do feel better!"), -,
+        l("Why don't you come down to talk?"), L_GoDown;
+
+    mes "";
+    menu
+        l("And you, how are you doing?"), -,
+        l("But I need to go, see you!"), L_Bye;
+
+    setcamnpc;
+    mes "";
+    mesn;
+    mesq l("I AM DOING FINE!");
+    next;
+    mesq l("HEY, WHAT'S YOUR NAME?!");
+    next;
+    restorecam;
+
+    select
+         strcharinfo(0) + ".",
+         l("Maybe you can come down to talk?");
+
+    setcamnpc;
+    mes "";
+    mesn;
+    mesq l("WHAT DID YOU SAY?!");
+    next;
+    mesq l("I DO NOT UNDERSTAND!");
+    next;
+    restorecam;
+
+    menu
+        l("I said... WHY DON'T YOU COME DOWN TO TALK?"), L_GoDown,
+        l("I SAID, SEE YOU LATER!"), L_Bye,
+        l("I'M CALLED, @@!", strtoupper(strcharinfo(0))), -;
+
+    setcamnpc;
+    mes "";
+    mesn;
+    mesq strtoupper(strcharinfo(0)) + "? " + l("THAT'S A NICE NAME!");
+    next;
+    mesq l("SO WHAT'S UP?! WHAT ARE YOU DOING?!");
+    next;
+    restorecam;
+
+    menu
+        l("I'm looking for Gugli, where is he?"), -,
+        l("I need to go, sorry."), L_Bye;
+
+    setcamnpc;
+    mes "";
+    mesn;
+    mesq l("OH, LOOK THERE!");
+    setcamnpc "Gugli";
+    next;
+    mesq l("HE IS AT THE BOTTOM OF THE SHIP, DOWN THE STAIRS. YOU CAN'T MISS HIM!");
+    next;
+    restorecam;
+
+    goto L_Quit;
+
+L_GoDown:
+    setcamnpc;
+    mes "";
+    mesn;
+    mesq l("I WOULD LOVE TO!");
+    next;
+    mesq l("BUT I CAN'T, I NEED TO KEEP AN EYE ON THE SEA, TO WARN THE CREW IF THERE HAPPENS TO BE SOME PIRATES AROUND!");
+    next;
+    mesq l("I ALSO AVOID THE DANGEROUS ANIMALS!");
+    next;
+    restorecam;
+
+    menu
+        l("Have you seen anything dangerous?"), -,
+        l("Interesting... I'll leave you to your task then!"), L_Bye;
+
+    mes "";
+    mesn;
+
+    if (.@q > 0) goto L_DangerAround;
+
+    setcamnpc;
+    mesq l("Oh no, but I've noticed a weird light on the other part of this island, I wonder what it could be...");
+    next;
+    restorecam;
+
+    goto L_Quit;
+
+L_Bye:
+    npctalk3 l("FINE, BYE!");
+
+    goto L_Quit;
+
+L_DangerAround:
+    setcamnpc;
+    mesq l("NOTHING ELSE OTHER THAN SHARKS AND AN ODD LIGHT!");
+    next;
+    restorecam;
+
+    goto L_Quit;
+
+L_Quit:
+    closedialog;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 14;
+    end;
+}