Made the sailor dialouge only appear the first time

2 files changed, 13 insertions, 4 deletions

diff --git a/db/const.txt b/db/const.txt
index f751338b..6f77d09d 100644
--- a/db/const.txt
+++ b/db/const.txt
@@ -204,8 +204,8 @@ SKILL_DYE		502
 // 0011 2233 4455 6677
 // 0000 1111 2222 3333
 // 0123 4567 8901 2345 *
-// JJAA PPPP AAKA ----
-// uull eeee rrnM ----
+// JJAA PPPP AAKA D---
+// uull eeee rrnM o---
 
 // 2
 ShipQuests_Julia	0
@@ -219,3 +219,5 @@ ShipQuests_Arpan	4
 ShipQuests_Knife	10
 // 1
 ShipQuests_ArpanMoney	11
+// 1
+ShipQuests_Door	12
diff --git a/npc/000-2-3/sailors.txt b/npc/000-2-3/sailors.txt
index 01ea7fb7..f94a74c4 100644
--- a/npc/000-2-3/sailors.txt
+++ b/npc/000-2-3/sailors.txt
@@ -1,11 +1,14 @@
 // Evol scripts.
 // Authors:
 //    Reid
+//    Ablu
 // Description:
 //    End of intro with Nard and Elmo talking about the player.
 
 000-2-3.gat,20,26,0,0	script	AreaTop	0,1,0,{
 OnTouch:
+    if (geta(ShipQuests, ShipQuests_Door) == 1) end;
+    seta ShipQuests, ShipQuests_Door, 1;
     mesn "Elmo";
     mesq g(l("So it's why we wanted to warn you, maybe she comes from this guild, as the sign was on her raft."), l("So it's why we wanted to warn you, maybe he comes from this guild, as the sign was on his raft."));
     next;
@@ -29,6 +32,8 @@ OnTouch:
 
 000-2-3.gat,21,27,0,0	script	AreaMiddle	0,0,0,{
 OnTouch:
+    if (geta(ShipQuests, ShipQuests_Door) == 1) end;
+    seta ShipQuests, ShipQuests_Door, 1;
     mesn "Elmo";
     mesq g(l("So it's why we wanted to warn you, maybe she comes from this guild, as the sign was on her raft."), l("So it's why we wanted to warn you, maybe he comes from this guild, as the sign was on his raft."));
     next;
@@ -50,8 +55,10 @@ OnTouch:
     close;
 }
 
-000-2-3.gat,20,28,0,0	script	AreaBotton	0,1,0,{
+000-2-3.gat,20,28,0,0	script	AreaBottom	0,1,0,{
 OnTouch:
+    if (geta(ShipQuests, ShipQuests_Door) == 1) end;
+    seta ShipQuests, ShipQuests_Door, 1;
     mesn "Elmo";
     mesq g(l("So it's why we wanted to warn you, maybe she comes from this guild, as the sign was on her raft."), l("So it's why we wanted to warn you, maybe he comes from this guild, as the sign was on his raft."));
     next;
@@ -71,4 +78,4 @@ OnTouch:
     mesn "Elmo";
     mesq l("Sure, cap'tain.");
     close;
-}
\ No newline at end of file
+}