2 files changed, 47 insertions, 4 deletions
diff --git a/npc/000-1/astapolos.txt b/npc/000-1/astapolos.txt
index 9ecd15cb..179f74f4 100644
--- a/npc/000-1/astapolos.txt
+++ b/npc/000-1/astapolos.txt
@@ -8,13 +8,16 @@
 
     set @q, getq(ShipQuests_Astapolos);
     if (@q == 1) goto l_CallFunc;
+
+// Some dialogues will be here.
     setq ShipQuests_Astapolos, 1;
+// And here too.
 
 l_CallFunc:
     callfunc "SailorFood";
 
     menu  
-        rif(getq(ShipQuests_Astpolos) == 1, l("I'm still busy, I need to find the other sailors.")), -,
+        rif(getq(ShipQuests_Astapolos) == 1, l("I'm still busy, I need to find the other sailors.")), -,
         l("How are things going?"), l_HowAreYou,
         l("Who are you?"), l_Who;
 
@@ -28,7 +31,7 @@ l_CallFunc:
         rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), l_Bottom,
         rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), l_Top,
         rif(getq(ShipQuests_QMuller) == 0, l("QMuller.")), l_Bottom,
-        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Top,
+        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Bottom,
         l("Nobody."), -;
 
     close;
diff --git a/npc/000-1/gulukan.txt b/npc/000-1/gulukan.txt
index ba4f7856..4b7cfd33 100644
--- a/npc/000-1/gulukan.txt
+++ b/npc/000-1/gulukan.txt
@@ -6,9 +6,49 @@
 
 000-1.gat,54,90,0,1	script	Gulukan	111;2,{
 
-    mesn;
-    mesq l("Hello world!");
+    set @q, getq(ShipQuests_Gulukan);
+    if (@q == 1) goto l_CallFunc;
+
+// Some dialogues will be here.
+    setq ShipQuests_Gulukan, 1;
+// And here too.
+
+l_CallFunc:
+    callfunc "SailorFood";
+
+    menu  
+        rif(getq(ShipQuests_Gulukan) == 1, l("I'm still busy, I need to find the other sailors.")), -,
+        l("Who are you?"), l_Who;
+
+    mes "";
+    mesn;
+    mesq l("Who yeye is searching?");
+    next;
+
+    menu
+        rif(getq(ShipQuests_Ale) == 0, l("Ale.")), l_Top,
+        rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), l_Top,
+        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), l_Top,
+        rif(getq(ShipQuests_QMuller) == 0, l("QMuller.")), l_Top,
+        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Bottom,
+        l("Nobody."), -;
 
     close;
 
+l_Bottom:
+    mes "";
+    mesn;
+    mesq l("Yeye seen this yoiis at the bottom of the island, check around.");
+
+    close;
+
+l_Top:
+    mes "";
+    mesn;
+    mesq l("Yeye seen this yoiis at the top of the island.");
+    next;
+    mesq l("You yoiis should walk to the north.");
+
+    close;
+
 }