Correct a few things on box and julia script,

Add quest on Nard NPC.

3 files changed, 100 insertions, 26 deletions

diff --git a/npc/000-2-0/julia.txt b/npc/000-2-0/julia.txt
index cae56129..5b2083a6 100644
--- a/npc/000-2-0/julia.txt
+++ b/npc/000-2-0/julia.txt
@@ -25,11 +25,10 @@
 
 l_Menu:
     menu
-
-    lg("I made a mistake, I would like to change my language."), l_ChooseLang,
-    l("Could you explain to me where I am?"), l_WhereIam,
-    l("What happened to me?"), l_What,
-    l("Nothing, sorry."), l_Close;
+        lg("I made a mistake, I would like to change my language."), l_ChooseLang,
+        l("Could you explain to me where I am?"), l_WhereIam,
+        l("What happened to me?"), l_What,
+        l("Nothing, sorry."), l_Close;
 
     mes "";
     mesn;
@@ -56,14 +55,14 @@ l_First:
 
   l_ChooseLang:
     menu
-      l("I speak English") + " (English)", -,
-      l("I speak French") + " (Français)", -,
-      l("I speak Russian") + " (Русский)", -,
-      l("I speak Spanish") + " (Español)", -,
-      l("I speak Portuguese") + " (Português)", -,
-      l("I speak German") + " (Deutsch)", -,
-      l("I speak Flemish") + " (Vloams)", -,
-      l("I speak Polish") + " (Polski)", -,
+        l("I speak English") + " (English)", -,
+        l("I speak French") + " (Français)", -,
+        l("I speak Russian") + " (Русский)", -,
+        l("I speak Spanish") + " (Español)", -,
+        l("I speak Portuguese") + " (Português)", -,
+        l("I speak German") + " (Deutsch)", -,
+        l("I speak Flemish") + " (Vloams)", -,
+        l("I speak Polish") + " (Polski)", -,
 
       @s$, l_NoChanges;
     set @lang, @menu-1;
@@ -86,8 +85,8 @@ l_NoChanges:
 
 l_YNMenu:
     menu
-      l("Yes, please!"), l_Menu,
-      l("No, thanks."), l_Close;
+        l("Yes, please!"), l_Menu,
+        l("No, thanks."), l_Close;
 
 l_WhereIam:
     mes "";
@@ -116,8 +115,8 @@ l_What:
 
 l_EsperiaMenu:
     menu
-    l("Sorry but I can't tell you anything about that."), l_NoChanges,
-    l("Nothing, sorry."), l_NoChanges;
+        l("Sorry but I can't tell you anything about that."), l_NoChanges,
+        l("Nothing, sorry."), l_NoChanges;
 
 l_Close:
     mes "";
@@ -132,4 +131,4 @@ OnTouch:
 
     close;
 
-}
+}
\ No newline at end of file
diff --git a/npc/000-2-3/box.txt b/npc/000-2-3/box.txt
index 77ac41fa..772fe9dd 100644
--- a/npc/000-2-3/box.txt
+++ b/npc/000-2-3/box.txt
@@ -65,7 +65,6 @@
     close;
 
 l_NotYet:
-    mes "";
     mesn "Nard";
     mesq l("Please don't touch at these hats, they are for crew members only.");      
 
@@ -73,7 +72,6 @@ l_Close:
     close;
 
 l_Give:
-    mes "";
     mesn "Nard";
     mesq l("Congrats!"); 
     next;
@@ -87,7 +85,6 @@ l_Give:
     close;
 
 l_Already:
-    mes "";
     mesn "Nard";
     mesq l("You already took a Bandana, put this one back please."); 
     close;
diff --git a/npc/000-2-3/nard.txt b/npc/000-2-3/nard.txt
index 20a14a41..38199249 100644
--- a/npc/000-2-3/nard.txt
+++ b/npc/000-2-3/nard.txt
@@ -17,8 +17,17 @@
 
 000-2-3.gat,25,26,0,1	script	Nard	306,{
 
+    set @q, geta2(ShipQuests, ShipQuests_Nardbox);
+
+l_Checker:
+    if (@q == 1) goto l_NotYet;
+    if (@q == 2) goto l_Give;
+    if (@q > 2) goto l_Already;
+
     mesn;
-    mesq l("Hello, Let me present myself, I'm Captain Nard, the leader of this ship."); 
+    mesq l("Hello."); 
+    next;
+    mesq l("Let me present myself, I'm the Captain Nard, the leader of this ship."); 
     next;
     mesq lg("It's nice to see that you woke up and that you are ok, Elmo came here to tell me this good news!");
     next;
@@ -39,27 +48,96 @@ l_Menu:
         l("Who is this Julia?"), l_Julia,
         lg("I'm a bit sick."), -;
 
+
+    mes "";
+    mesn;
+    mesq l("Oh, I was going to request your help to help the crew for searching some new food and to explore the island out there.");
+    next;
+
+l_MenuQuest:
+    menu
+        l("What's your needs?"), l_Need,
+        l("Is there a reward?"), -;
+
+    mes "";
+    mesn;
+    mesq l("I like this answer!");
+    next;
+    mesq g(l("We are in need of manpower on the island... Oh excuse me, women are also welcome!"), l("We are in need of manpower on the island.")); 
+    next;
+
+    goto l_NeedContent;
+
+l_NeedHead:
     mes "";
     mesn;
-    mesq l("That's a good idea, go rest a bit and I'll see you tomorrow!");
+
+l_NeedContent:
+    mesq l("Of course, there is a reward for your task."); 
+    next;
+    mesq l("Our crew is like a family, and if you accept to help us, I would like to invit you on our family!"); 
+    next;
+    mesq l("What? It's not a good reward?"); 
+    next;
+    mesq l("Oh well. I will aslo give you one of these hats on the box around you, but only when you will complete your task!"); 
+    next;
+    mesq l("Go outside and talk with Gugli, he will explain you what are our needs.");
+    next;
+
+    seta2 ShipQuests, ShipQuests_Nardbox, 1;
+
     close;
 
 l_Ok:
     mes "";
     mesn;
-    mesq l("Good to know. From what Darlin reported to me, we'll soon come across a little island, before we arrive in Artis.");
+    mesq l("Good to know.");
+    next;
+    mesq l("We made stop over a little island, before arriving to the port of Artis.");
     next;
     mesq l("It'll be a good time for you to do some exercise, as the ship is not very vast for that.");
-    close;
+    next;
+
+    goto l_SpecialTask;
 
 l_Julia:
     mes "";
     mesn;
     mesq l("You have extremely bad amnesia.");
     next;
-    mesq l("She is the nurse and the shipkeeper of this ship, and also an excellent cook!");
+    mesq l("She is the nurse and the shipkeeper of this ship, and also an excellent chef!");
     next;
     mesq l("But more than everything, she is the one who took care of you when you were in coma.");
+    next;
+
+l_SpecialTask:
+    mesq l("I know that you just come back from a long sick time, but I would like to ask you a special task.");
+    next;
+
+    goto l_MenuQuest;
+
+l_NotYet:
+    mesn;
+    mesq l("You still didn't completed your task.");
+    next;
+    mesq l("And please don't touch at these hats, they are for crew members only.");      
+    close;
+
+l_Give:
+    mesn;
+    mesq l("Congrats!"); 
+    next;
+    mesq l("You are now part of the crew! Thanks again for your help.");
+
+    seta2 ShipQuests, ShipQuests_Nardbox, 3;
+    getitem "Bandana", 1;
+//  Need to add a skill for the crew at this line.
+
+    close;
+
+l_Already:
+    mesn;
+    mesq l("I don't need any help right now, come back later."); 
     close;
 
 }
\ No newline at end of file