From bb0b20b77637bdcecfb067b38f961ea5dd7639bc Mon Sep 17 00:00:00 2001
From: Reid <reidyaro@gmail.com>
Date: Wed, 12 Sep 2012 00:52:25 +0200
Subject: Add Ale and Tibbo dialogues in relation with the main intro quest,
 Add sailors dialogues function, This is a try to place some NPC's dialogues
 in an independent file. It'll redirect some random but pre-choosen dialogues
 to the NPC. As the Gugli and Nard's quest will interfere in these dialogues,
 some strings are still on the NPC script.

---
 npc/000-1/ale.txt | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 53 insertions(+), 4 deletions(-)

(limited to 'npc/000-1/ale.txt')

diff --git a/npc/000-1/ale.txt b/npc/000-1/ale.txt
index 052f233d..f335d155 100644
--- a/npc/000-1/ale.txt
+++ b/npc/000-1/ale.txt
@@ -2,14 +2,63 @@
 // Author:
 //    Reid
 // Description:
-//    .
+//    Sailor part of the Gugli's quest.
 
 000-1.gat,55,23,0,1	script	Ale	105;2,{
 
-    mesn;
-    mesq g(l("Good day, sir."),
-           l("Good day, lady."));
+    set @q, getq(ShipQuests_Ale);
+    if (@q == 1) goto l_CallFunc;
+    setq ShipQuests_Ale, 1;
+
+l_CallFunc:
+    callfunc "SailorFood";
+
+    menu
+        rif(getq(ShipQuests_Ale) == 1, l("I'm still busy, I need to find the other sailors.")), -,
+        l("What's this fruit?"), l_Aquada;
+
+    mes "";
+    mesn;
+    mesq l("Who are you searching?");
+    next;
+
+    menu
+        rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), l_Bottom,
+        rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), l_Bottom,
+        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), l_Jalad,
+        rif(getq(ShipQuests_QMuller) == 0, l("QMuller.")), l_Bottom,
+        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Bottom,
+        l("Nobody."), -;
+
+    close;
+
+l_Bottom:
+    mes "";
+    mesn;
+    mesq l("I've seen him on the bottom of the island, ask Jalad for more info.");
 
     close;
 
+l_Jalad:
+    setcamnpc "Jalad";
+
+    next;
+    mesn;
+    mesq l("Look, he's there!");
+    next;
+
+    restorecam;
+    close;
+
+l_Aquada:
+    mes "";
+    mesn;
+    mesq l("This is an @@, a light blue sea fruit. They're highly desired in the archipelago.", getitemlink("Aquada"));
+    next;
+    mesq l("You can find them in the ocean, near corals and other sea beings. But the sea is too heavy today, you shouldn't try to swim there.");
+    next;
+    mesq l("Orelse, if you really wish one, and if you feel capable, you can try killing tortugas or crocs if you're strong enough. I'm sure they could drop one or two @@s.", getitemlink("Aquada"));
+
+    close;
+
 }
-- 
cgit v1.2.3-60-g2f50