Chance warp location on 000-1,

Change Alige's script template,
Add new dialogue on doors script,
Cut Nard script in two part and add box script with new quest inside.

6 files changed, 154 insertions, 55 deletions

diff --git a/npc/000-1/_warps.txt b/npc/000-1/_warps.txt
index 5363208c8..d479c1338 100644
--- a/npc/000-1/_warps.txt
+++ b/npc/000-1/_warps.txt
@@ -1,3 +1,3 @@
 // 000-1 warps
 
-000-1.gat,93,98	warp	ToInterior	-1,0,000-2-0.gat,20,27
+000-1.gat,93,98	warp	ToInterior	-1,0,000-2-0.gat,21,27
diff --git a/npc/000-2-0/doors.txt b/npc/000-2-0/doors.txt
index cbca847b8..ccd2f04d8 100644
--- a/npc/000-2-0/doors.txt
+++ b/npc/000-2-0/doors.txt
@@ -8,9 +8,38 @@
 000-2-0.gat,20,27,0,1	script	AreaNPC	0,0,0,{
 
 OnTouch:
+    set @q, geta2(ShipQuests, ShipQuests_Nardbox);
+    if (@q == 1) goto l_Warp;
+    if (@q == 2) goto l_GotoNard;
+    if (@q == 3) goto l_End;
 
+    setcamnpc "Julia";
+    mesn "Julia";
+    mesq l("Cap'tain has locked the door, you should go see him.");
+    next;
+
+    mesn "Narrator";
+    mes col(l("Nard, the captain of the ship is in the room at your left."), 9);
+    restorecam;
+
+    close;
+
+l_Warp:
+    warp "000-1", 93, 105;
+    close;
+
+l_GotoNard:
+    setcamnpc "Julia";
+    mesn "Julia";
+    mesq l("Cap'tain is waiting for you! Hurry up.");
+    next;
+    restorecam;
+
+    close;
+
+l_End:
     mesn "Narrator";
-    mes col(l("This door seems locked."), 9);
-	close;
+    mes col(l("The door is closed."), 9);
+    close;
 
-}
+}
\ No newline at end of file
diff --git a/npc/000-2-1/alige.txt b/npc/000-2-1/alige.txt
index ca22a8457..02d001d5c 100644
--- a/npc/000-2-1/alige.txt
+++ b/npc/000-2-1/alige.txt
@@ -204,8 +204,10 @@
     mesn;
     mesq l("There is some flying yellow plush around you, they're called pious. Getting a roasted leg of one of them would be perfect.");
     next;
+    mesn;
     mesq l("I'd like to catch one of them, but they are flying away when I try.");
     next;
+    mesn;
     mesq l("As you can walk around, it'll be an easy task for you. Impale me one of them!!");
     close;
 
diff --git a/npc/000-2-3/_import.txt b/npc/000-2-3/_import.txt
index f70330bd6..0c0f4a02c 100644
--- a/npc/000-2-3/_import.txt
+++ b/npc/000-2-3/_import.txt
@@ -5,4 +5,5 @@ npc: npc/000-2-3/piousrocket.txt
 npc: npc/000-2-3/sailors.txt
 npc: npc/000-2-3/elmo.txt
 npc: npc/000-2-3/nard.txt
-npc: npc/000-2-3/savepoint.txt
\ No newline at end of file
+npc: npc/000-2-3/savepoint.txt
+npc: npc/000-2-3/box.txt
\ No newline at end of file
diff --git a/npc/000-2-3/box.txt b/npc/000-2-3/box.txt
new file mode 100644
index 000000000..77ac41fa2
--- /dev/null
+++ b/npc/000-2-3/box.txt
@@ -0,0 +1,95 @@
+// Evol scripts.
+// Authors:
+//    Reid
+// Description:
+//    Cap'tain Nard dialogs.
+//    Nard will done the introduction by a little quest,
+//    This quest is meant to learn at the player how to manipulate a weapon, but also to bring some foods to the ship.
+// 2 bits array:
+//    ShipQuests
+// Variable:
+//    ShipQuests_NardBox
+// Values: 
+//    0   Intro of the box and of Nard, it's displayed when the player never spoke to Nard, nor his box.
+//    1   Nard spoke and he gave you access to the outdoor of the ship.
+//    2   You complete the quest.
+//    3   You open the chest, you complete the introduction.
+
+000-2-3.gat,25,24,0	script	Box	102,{
+
+    set @q, geta2(ShipQuests, ShipQuests_Nardbox);
+
+    mesn "Narrator";
+    mes col(l("Some Bandanas and Sailor Hats are inside this box."), 9);
+    next;
+    mes col(l("What do you wish to do?"), 9);
+    next;
+
+    menu
+        l("Take a Bandana"), -,
+        l("Nothing"), l_Close;
+
+    if (@q == 1) goto l_NotYet;
+    if (@q == 2) goto l_Give;
+    if (@q > 2) goto l_Already;
+
+    mes "";
+    mesn "Narrator";
+    mes col(l("Nard looks surprised and stop you."), 9);
+    next;
+
+    mesn "Nard";
+    mesq l("You like these hats, right?"); 
+    next;
+    mesq l("How if I ask you to help the crew? It would mean that you are a part of us, and that you will be able to get one of these hat."); 
+    next;
+    mesq l("We need as much hands as possible to explore the island out there, and to get some new food."); 
+    next;
+    mesq l("You could meet some of the other sailors by this way, and... Getting this hat of course, it will be a sign of your joint to our crew."); 
+    next;
+    mesq l("What do you think?"); 
+    next;
+
+    menu
+        l("Why not, I got plenty of free time."), -,
+        l("I think that I'm still a bit sick."), l_Close;
+
+    mes "";
+    mesn "Nard";
+    mesq l("Fine!");
+    next;
+    mesq l("Go outside and talk with Gugli, he will explain you what are our needs.");
+
+    seta2 ShipQuests, ShipQuests_Nardbox, 1;
+
+    close;
+
+l_NotYet:
+    mes "";
+    mesn "Nard";
+    mesq l("Please don't touch at these hats, they are for crew members only.");      
+
+l_Close:
+    close;
+
+l_Give:
+    mes "";
+    mesn "Nard";
+    mesq l("Congrats!"); 
+    next;
+    mesn "Nard";
+    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:
+    mes "";
+    mesn "Nard";
+    mesq l("You already took a Bandana, put this one back please."); 
+    close;
+
+}
\ No newline at end of file
diff --git a/npc/000-2-3/nard.txt b/npc/000-2-3/nard.txt
index bc8dc53b6..20a14a41a 100644
--- a/npc/000-2-3/nard.txt
+++ b/npc/000-2-3/nard.txt
@@ -3,14 +3,23 @@
 //    Reid
 // Description:
 //    Cap'tain Nard dialogs.
+//    Nard will done the introduction by a little quest,
+//    This quest is meant to learn at the player how to manipulate a weapon, but also to bring some foods to the ship.
+// 2 bits array:
+//    ShipQuests
+// Variable:
+//    ShipQuests_NardBox
+// Values: 
+//    0   Intro of the box and of Nard, it's displayed when the player never spoke to Nard, nor his box.
+//    1   Nard spoke and he gave you access to the outdoor of the ship.
+//    2   You complete the quest.
+//    3   You open the chest, you complete the introduction.
 
 000-2-3.gat,25,26,0,1	script	Nard	306,{
 
     mesn;
     mesq l("Hello, Let me present myself, I'm Captain Nard, the leader of this ship."); 
     next;
-
-    mesn;
     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;
 
@@ -28,66 +37,29 @@ l_Menu:
     menu
         lg("I feel ok."), l_Ok,
         l("Who is this Julia?"), l_Julia,
-        lg("I'm sick, I'm going back to bed."), -;
+        lg("I'm a bit sick."), -;
 
+    mes "";
     mesn;
-    mesq l("That's a good idea, go rest a bit and I'll see you tomorow!");
-    close;
-
-l_Julia:
-    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!");
-    next;
-    mesq l("But more than everything, she is the one who took care of you when you were in coma.");
+    mesq l("That's a good idea, go rest a bit and I'll see you tomorrow!");
     close;
 
 l_Ok:
+    mes "";
     mesn;
-    mesq l("Good to know. From what Darlin reported to me, we'll soon come accross a little island, before we arrive in Artis.");
+    mesq l("Good to know. From what Darlin reported to me, we'll soon come across a little island, before we arrive in 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;
 
-}
-
-000-2-3.gat,25,24,0	script	Box	102,{
-
-    set @q, geta2(ShipQuests, ShipQuests_Nardbox);
-
-    mesn "Narrator";
-    mes col(l("Some Bandanas and Sailor Hats are inside this box."), 9);
+l_Julia:
+    mes "";
+    mesn;
+    mesq l("You have extremely bad amnesia.");
     next;
-    mes col(l("What do you wish to do?"), 9);
+    mesq l("She is the nurse and the shipkeeper of this ship, and also an excellent cook!");
     next;
-
-    menu
-        l("Take a Bandana"), -,
-        l("Nothing"), l_Close;
-
-    if (@q == 1) goto l_Give;
-    if (@q > 1) goto l_Already;
-
-    mes "";
-    doevent "Nard::OnQuest"; // Dialogs continue with Nard NPC.
-
-l_Give:
-    mes "";
-    mesn "Nard";
-    mesq l("Congrats!"); 
-    mesn "Nard";
-    mesq l("You are now part of the crew! Thanks again for your help.");
-
-    seta2 ShipQuests, ShipQuests_Nardbox, 2;
-    getitem "Bandana", 1;
-
-l_Close:
+    mesq l("But more than everything, she is the one who took care of you when you were in coma.");
     close;
 
-l_Already:
-    mes "";
-    mesn "Nard";
-    mesq l("You already took a Bandana, put this one back please."); 
-    close;
 }
\ No newline at end of file