Correct some few dialogues problem on darlin script,

Add barrier check at entrance of the ship to start Darlin quest.

1 files changed, 22 insertions, 5 deletions

diff --git a/npc/000-1/darlin.txt b/npc/000-1/darlin.txt
index 3d5bcfe5..93b2dea9 100644
--- a/npc/000-1/darlin.txt
+++ b/npc/000-1/darlin.txt
@@ -13,11 +13,12 @@
 

 000-1.gat,89,89,0,1	script	Darlin	103;14,{

 

+
     mesn;

-    set @q, getq(ShipQuests_Darlin);

-    if (@q == 2) goto l_QuestGiven;

+    set @q, getq(ShipQuests_Darlin);
+    if (@q == 1 || @q == 2) goto OnQuestGiven;

     if (@q > 2) goto l_QuestDone;

-

+OnStart:

     mesq l("HEY! HEY YOU!"); 

     next;

     mesq l("CAN YOU HEAR ME?");

@@ -86,7 +87,7 @@ l_Menu:
     mesn;

     mesq l("OH, LOOK THERE!");

     next;

-    mesq l("HE IS AT THE FAR BOTTOM OF THE SHIP, YOU CAN'T MISS HIM!!");

+    mesq l("HE IS AT THE BOTTOM OF THE SHIP, DOWN THE STAIRWAY AND YOU COULDN'T MISS HIM!!");

     restorecam;

 

     close;

@@ -135,7 +136,7 @@ l_Bye:
 l_Quit:

     close;

 

-l_QuestGiven:

+OnQuestGiven:

     mesq l("HEY") + " " + strcharinfo(0) + "!"; 

     next;

     mesq l("DID YOU FIND OUT WHAT THE LIGHT WAS?");

@@ -183,3 +184,19 @@ l_QuestDone:
     goto l_Menu;
 

 }
+
+000-1.gat,92,100,0,1	script	DarlinBarrierCheck	0,0,2,{
+    set @q, getq(ShipQuests_Darlin);
+    if (@q == 0) goto l_First;
+    if (@q == 2) goto l_Last;
+    close;
+
+l_First:
+    doevent "Darlin::OnStart";
+    close;
+
+l_Last:
+    doevent "Darlin::OnQuestGiven";

+    close;
+
+}
\ No newline at end of file