Toams/rowboat + Micksha/galmatia

3 files changed, 91 insertions, 7 deletions

diff --git a/npc/001-1/_import.txt b/npc/001-1/_import.txt
index 1b748d55..d8a08d54 100644
--- a/npc/001-1/_import.txt
+++ b/npc/001-1/_import.txt
@@ -30,6 +30,7 @@
 "npc/001-1/qonan.txt",
 "npc/001-1/qpid.txt",
 "npc/001-1/rowboat.txt",
+"npc/001-1/rowboathelper.txt",
 "npc/001-1/rumly.txt",
 "npc/001-1/salem.txt",
 "npc/001-1/shop.txt",
diff --git a/npc/001-1/rowboat.txt b/npc/001-1/rowboat.txt
index 8682ba0e..a5e158d3 100644
--- a/npc/001-1/rowboat.txt
+++ b/npc/001-1/rowboat.txt
@@ -1,20 +1,48 @@
 // Evol scripts.
 // Author:
-//    Micksha
+//    Micksha, Toams
 // Description:
 //    The rowboat, picking up the player on small beach in order to bring it to Koga.
-// THIS IS A PLACEHOLDER!
+// TODO:
+// Check if the player who wants to enter the boat is the same as the one who called for the boat. 
+// Make the rowboat move back to the cave if the player doesnt enter in time.
 
-001-1,203,64,0	script	Rowboat	NPC_ROWBOAT_STAND_WE,{
-    speech
+001-1,193,26,0	script	#Rowboat	NPC_ROWBOAT_STAND_WE,{
+    
+
+    speech S_LAST_BLANK_LINE | S_LAST_NEXT,
         l("Oh, hi."),
-        l("In case you don't have a commendatory letter from you-know-whom, I am just sitting here and observe the whales.");
-        l("Perhaps, and only perhaps, if you bring me the latter, I can bring you to a ship that will perhaps, and only perhaps, be able to bring you to Woodland.");
+        l("In case you don't have a commendatory letter from you-know-whom, I am just sitting here and observe the whales."),
+        l("Perhaps, and only perhaps, if you bring me the latter, I can bring you to a ship that will perhaps, and only perhaps, be able to bring you to Woodland."),
+        l("Do you have this commendatory letter?");
+        closeclientdialog();
+        if (askyesno() == 1) {
+           slide_or_warp("001-1", 204, 62);
+           movenpc("#Rowboat", 193, 26);
+           setmount 1;
 
     close;
+    }
+
+OnMoveToBeach:
+firstmove;
+end;
+    
+OnTimer1000:
+    dographmovestep;
 
 OnInit:
     .sex = G_MALE;
     .distance = 3;
-    end;
+    .speed = 175;
+    
+    initmovegraph "Cave",  193, 26,
+                  "CP1",   202, 27,
+                  "CP2",   213, 58,
+                  "Beach", 203, 64;
+                  
+    setmovegraphcmd "Cave",   "CP1",      1,  "dir 4",
+                    "CP1",    "CP2",      1,  "dir 4",
+                    "CP2",    "Beach",    1,  "dir 4"; 
+    initnpctimer;
 }
diff --git a/npc/001-1/rowboathelper.txt b/npc/001-1/rowboathelper.txt
new file mode 100644
index 00000000..8e16ee8b
--- /dev/null
+++ b/npc/001-1/rowboathelper.txt
@@ -0,0 +1,55 @@
+// Evol scripts.
+// Author:
+//    Toams
+// Description:
+//    helper scripts for rowboat usage
+// TODO:
+// Check if mona's quest is done before being able to call the boat
+
+// calling the Rowboat
+001-1,200,60,0	script	Curious Hole	NPC_NO_SPRITE,{
+
+narrator(S_LAST_BLANK_LINE | S_LAST_NEXT,
+    l("You see a curious hole behind some rocks"),
+    l("'Hey anyone there?'"),
+    l("..."),
+    l("Altough you can't get rid of the feeling someone is listening on the other side, you don't get any replies"),
+    l("Now if only these lazy developers would write the missing parts of mona's quest so you would know the needed password."),
+    l("So for now just call the boat?"));
+    closeclientdialog();
+    if (askyesno() == 1) {
+        doevent("#Rowboat::OnMoveToBeach");
+    close;
+    }
+
+// Make sure to unmount the boat when player dies
+OnPCDieEvent:
+   setmount 0;
+  
+OnInit:
+    .distance = 1;    
+}
+
+
+//unmounting the rowboat
+001-1,202,62,0	script	unmountrowboat	NPC_HIDDEN,1,1,{
+
+function UnMount {
+    narrator(S_LAST_BLANK_LINE | S_LAST_NEXT,
+        l("Do you want to leave the boat?"));
+    closeclientdialog();
+    if (askyesno() == 1) {
+        slide_or_warp("001-1", 199, 62);
+        setmount 0;
+    close;
+    }
+}
+
+OnTouch:
+    UnMount;
+    end;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 1;
+}