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.

3 files changed, 149 insertions, 7 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;

+
 }
diff --git a/npc/000-1/tibbo.txt b/npc/000-1/tibbo.txt
index 8d97d947..aed62ab6 100644
--- a/npc/000-1/tibbo.txt
+++ b/npc/000-1/tibbo.txt
@@ -2,13 +2,53 @@
 // Author:
 //    Reid
 // Description:
-//    .
+//    Sailor part of the Gugli's quest.
 
 000-1.gat,34,111,0,1	script	Tibbo	110;2,{
 
-    mesn;
-    mesq l("Hello world!");
+    set @q, getq(ShipQuests_Tibbo);
+    if (@q == 1) goto l_CallFunc;
+    setq ShipQuests_Tibbo, 1;
+
+l_CallFunc:
+    callfunc "SailorFood";
+
+    menu

+        rif(getq(ShipQuests_Tibbo) == 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_Ale) == 0, l("Ale.")), l_Top,
+        rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), l_Top,
+        rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), l_Top,
+        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), l_Top,
+        rif(getq(ShipQuests_QMuller) == 0, l("QMuller.")), l_Top,
+        l("Nobody."), -;
 
     close;
 
+l_Top:
+    mes "";

+    mesn;

+    mesq l("I've seen them on the top of the island.");

+    next;
+    mesq l("You should walk to the north.");
+    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;

+
 }
diff --git a/npc/functions/sailordialogue.txt b/npc/functions/sailordialogue.txt
new file mode 100644
index 00000000..70eb85c3
--- /dev/null
+++ b/npc/functions/sailordialogue.txt
@@ -0,0 +1,53 @@
+// Evol scripts.
+// Author:
+//    Reid
+// Description:
+//    Random some sailors's dialogues between two categories of NPCs.
+
+function	script	SailorFood	{
+    mesn;
+
+    set @q, rand(0,400)/100;
+    if (@q == 0) goto l_RandomA;
+    if (@q == 1) goto l_RandomB;
+    if (@q > 1) goto l_RandomC;
+
+l_RandomA:
+    mesq l("Hey.");
+    next;
+    mesq l("What does Gugli said about the box? Was it ok?");
+    next;
+
+    menu
+        l("It's ok."), l_Fine,
+        l("He needs more food."), -;
+
+    mes "";
+    mesn;
+    mesq l("Oh really? I'll put some more foods on the next box then.");
+
+    close;
+
+l_Fine:
+    mes "";
+    mesn;
+    mesq l("It's alright! Just one more box and it'll be ok.");
+
+    close;
+
+l_RandomB:
+    mesq l("Thanks for the help!");
+    next;
+    mesq l("These box are way too heavy to be brought alone to the ship.");
+
+    close;
+
+l_RandomC:
+    mesq l("I think that I'm soon done, I'll soon got a box full of @@s!", getitemlink("CrocClaw"));
+    next;
+    mesq l("And you? How's it going on your side?");
+    next;
+
+    return;
+
+}
\ No newline at end of file