First round-up of questchain cleaning.

2 files changed, 35 insertions, 36 deletions

diff --git a/npc/000-2-3/box.txt b/npc/000-2-3/box.txt
index 45df8493..85365600 100644
--- a/npc/000-2-3/box.txt
+++ b/npc/000-2-3/box.txt
@@ -5,15 +5,18 @@
 //    Captain Nard dialogs.
 //    Nard does the introduction with a small quest.
 //    This quest is meant to teach the player how to use a weapon,and to bring food to the ship.
-// 2 bits array:
+//    4 bits array:
 //    ShipQuests
 // Variable:
 //    ShipQuests_Nard
 // Values: 
 //    0   Introduction of the boxes and Nard. This is displayed when the player never spoke to Nard or his box.
 //    1   Nard spoke and gave access to the outdoor of the ship.
-//    2   Completed the quest.
-//    3   Opened the chest and finished the introduction.
+//    2   Completed the Gugli quest.
+//    3   ChefGado Quest accepted.
+//    4   ChefGado Quest completed and "Introduction" chapter finalized.
+//    5   Reward taken from the box.
+
 
 000-2-3.gat,25,24,0	script	Box	102;1,{
 
@@ -29,10 +32,16 @@
         l("Take a Bandana."), -,
         l("Nothing."), l_Quit;
 
-    if (@q == 1) goto l_NotYet;
-    if (@q == 2) goto l_Give;
-    if (@q > 2) goto l_Already;
+    if (@q == 0) goto l_NoQuest;
+    if (@q == 4) goto l_Give;
+    if (@q > 4) goto l_Already;
+
+    setcamnpc "Nard";
+    mes "";
+    mesn "Nard";
+    mesq l("Please don't touch these hats, they are for crew members only.");
 
+l_NoQuest:
     mes "";
     mesn "Narrator";
     mes col(l("Nard looks surprised and stops you."), 9);
@@ -64,35 +73,18 @@
     mesq l("Now go outside and talk with Gugli, he'll tell you what we need.");
     next;
 
-    set @item, 718;
-    set @count, 1;
-    callfunc "InventoryPlace", @item, @count;
-
     setq ShipQuests_Nard, 1;
     getitem "JohanneKey", 1;
 
     close;
 
-l_NotYet:
-    setcamnpc "Nard";
-    mes "";
-    mesn "Nard";
-    mesq l("Please don't touch these hats, they are for crew members only.");
-
 l_Give:
     setcamnpc "Nard";
     mes "";
     mesn "Nard";
-    mesq l("Congrats!");
-    next;
-    mesn "Nard";
     mesq l("You are now part of the crew. Thanks again for your help.");
 
-    set @item, 2900;
-    set @count, 1;
-    callfunc "InventoryPlace", @item, @count;
-
-    setq ShipQuests_Nard, 3;
+    setq ShipQuests_Nard, 5;
     getitem "Bandana", 1;
 //  Need to add a skill for the crew at this line.
 
diff --git a/npc/000-2-3/nard.txt b/npc/000-2-3/nard.txt
index 53859159..2938f7d9 100644
--- a/npc/000-2-3/nard.txt
+++ b/npc/000-2-3/nard.txt
@@ -5,7 +5,7 @@
 //    Captain Nard dialogs.
 //    Nard does the introduction with a small quest.
 //    This quest is meant to teach the player how to use a weapon,and to bring food to the ship.
-// 2 bits array:
+//    4 bits array:
 //    ShipQuests
 // Variable:
 //    0    ShipQuests_Nard
@@ -14,8 +14,10 @@
 // Values: 
 //    00   Introduction of the boxes and Nard. This is displayed when the player never spoke to Nard or his box.
 //    01   Nard spoke and gave access to the outdoor of the ship.
-//    02   Completed the quest.
-//    03   Opened the chest and finished the introduction.
+//    02   Completed the Gugli quest.
+//    03   ChefGado Quest accepted.
+//    04   ChefGado Quest completed and "Introduction" chapter finalized.
+//    05   Reward taken from the box.
 //    10   Never talked with Gugli.
 //    11   Gugli gives you the task.
 //    12   Gave all of the boxes to Gugli.
@@ -30,7 +32,8 @@ l_Checker:
     if (@gado > 3 && @nard == 3) goto l_ChefQuestComplete;
     if (@nard == 2) goto l_ChefQuestStart;
     if (@nard == 3) goto l_ChefQuestGiven;
-    if (@nard == 4) goto l_Already;
+    if (@nard == 4) goto l_Reward;
+    if (@nard > 4) goto l_Already;
     if (@gugli == 2) goto l_Done;
     if (@nard == 1) goto l_NotYet;
 
@@ -96,10 +99,6 @@ l_NeedContent:
     mesq l("Now go outside and talk with Gugli, he'll tell you what we need.");
     next;
 
-    set @item, 718;
-    set @count, 1;
-    callfunc "InventoryPlace", @item, @count;
-
     setq ShipQuests_Nard, 1;
     getitem "JohanneKey", 1;
 
@@ -183,15 +182,17 @@ l_ChefQuestComplete:
     next;
     mesq l("You are now officially part of my crew! Thanks again for your help.");
     next;
+    mesq l("Take your reward from the box next to my desk!");
+    next
 
-    set @item, 2900;
-    set @count, 1;
-    callfunc "InventoryPlace", @item, @count;
+    menu
+        l("I will take it! Thank you captain!"), -;
 
     setq ShipQuests_Nard, 4;
-    getitem "Bandana", 1;
+
 //  Need to add a skill for the crew at this line.
 
+    mes "";
     mesn "Narrator";
     mes col(l("This is it, the end of the Second Beta Release of Evol Online!"), 9);
     next;
@@ -201,6 +202,12 @@ l_ChefQuestComplete:
 
     close;
 
+l_Reward:
+    mesn;
+    mesq l("Hey! There's a reward for you in the box next to me!");
+
+    close;
+
 l_Already:
     mesn;
     mesq l("Sorry, I don't need any help right now. Come back later.");