1 files changed, 65 insertions, 0 deletions
diff --git a/npc/000-1/tarlan.txt b/npc/000-1/tarlan.txt
new file mode 100644
index 000000000..579144788
--- /dev/null
+++ b/npc/000-1/tarlan.txt
@@ -0,0 +1,65 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Sailor hitting a crocotree, then being struck by a falling croconut.
+
+000-1,33,37,0	script	Tarlan	NPC_TARLAN,{
+    .dir = 2;
+
+    mesn;
+    .@a = rand(4);
+    if (.@a == 0) goto L_HardToHit;
+    if (.@a == 1) goto L_Aouch;
+    if (.@a == 2) goto L_DoYou;
+
+    mesq l("Hey you!");
+    next;
+    mesq l("What are you looking for?");
+    next;
+
+    menu
+        l("Some food."), L_Food,
+        l("Nothing, just hanging around."), -;
+
+    closedialog;
+    npctalk3 l("Ok, see you then!");
+    goto L_Quit;
+
+L_Food:
+    mes " ";
+    mesn;
+    mesq l("You can yaye some @@s by hitting these crocotrees.", getitemlink(Croconut));
+    next;
+    mesq l("Yeye be careful with wild animal's food, some of them are yeyery dangerous, especially the crocs.");
+
+    goto L_Quit;
+
+L_HardToHit:
+    mesq l("These crocotrees are full of yaying @@s, but they are so hard to hit...", getitemlink(Croconut));
+
+    goto L_Quit;
+
+L_Aouch:
+    mesq l("Ayouyouch! My head...");
+    next;
+    mesq l("Damn @@.", getitemlink(Croconut));
+
+    goto L_Quit;
+
+L_DoYou:
+    mesq l("Do you want to try?");
+    next;
+    mesq l("Just hit the trunk, and it will yeye a @@.", getitemlink(Croconut));
+
+    goto L_Quit;
+
+L_Quit:
+    .dir = 4;
+    close;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 2;
+    end;
+}