summaryrefslogtreecommitdiff
path: root/npc/000-2-3/box.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/000-2-3/box.txt')
-rw-r--r--npc/000-2-3/box.txt112
1 files changed, 112 insertions, 0 deletions
diff --git a/npc/000-2-3/box.txt b/npc/000-2-3/box.txt
new file mode 100644
index 000000000..cc280b746
--- /dev/null
+++ b/npc/000-2-3/box.txt
@@ -0,0 +1,112 @@
+// Evol scripts.
+// Authors:
+// Qwerty Dragon
+// Reid
+// Description:
+// 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.
+// 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 Gugli quest.
+// 3 ChefGado Quest accepted.
+// 4 ChefGado Quest completed and "Introduction" chapter finalized.
+// 5 Reward taken from the box.
+
+000-2-3,25,24,0 script Box NPC_HAT_BOX,{
+ .@q = getq(ShipQuests_Nard);
+
+ 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_Quit;
+
+ 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.");
+
+ close;
+
+L_NoQuest:
+ mes "";
+ mesn "Narrator";
+ mes col(l("Nard looks surprised and stops you."), 9);
+ next;
+
+ setcamnpc "Nard";
+ mesn "Nard";
+ mesq l("You like these hats, right?");
+ next;
+ mesq l("How about I ask you to help the crew? It would mean that you're one of us and that you will be able to get one of these hats.");
+ next;
+ mesq l("We need as many 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 this way, and... Getting this hat of course, will be a sign of you becoming part of our crew.");
+ next;
+ mesq l("What do you think?");
+ next;
+
+ menu
+ l("Why not, I've got plenty of free time."), -,
+ l("I think that I'm still a bit sick."), L_Quit;
+
+ mes "";
+ mesn "Nard";
+ mesq l("Great!");
+ next;
+ mesq l("I give you this key, it opens all the doors on this ship.");
+ next;
+ mesq l("Now go outside and talk with Gugli, he'll tell you what provisions we need.");
+ next;
+
+ inventoryplace JohanneKey, 1;
+ setq ShipQuests_Nard, 1;
+ getitem JohanneKey, 1;
+
+ close;
+
+L_Give:
+ setcamnpc "Nard";
+ mes "";
+ mesn "Nard";
+ mesq l("Congrats, you are now part of the crew. Thanks again for your help.");
+
+ inventoryplace Bandana, 1;
+
+ setq ShipQuests_Nard, 5;
+ getitem Bandana, 1;
+// Need to add a skill for the crew at this line.
+
+ close;
+
+L_Already:
+ setcamnpc "Nard";
+ mes "";
+ mesn "Nard";
+ mesq l("You already took a @@, please put this one back in the box.", getitemlink(Bandana));
+
+ close;
+
+L_Quit:
+ closedialog;
+ close;
+
+OnInit:
+ .distance = 1;
+ end;
+}