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.

1 files changed, 53 insertions, 4 deletions

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;

+
 }