summaryrefslogtreecommitdiff
path: root/npc/000-1/ale.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/000-1/ale.txt')
-rw-r--r--npc/000-1/ale.txt110
1 files changed, 110 insertions, 0 deletions
diff --git a/npc/000-1/ale.txt b/npc/000-1/ale.txt
new file mode 100644
index 000000000..0a37eb021
--- /dev/null
+++ b/npc/000-1/ale.txt
@@ -0,0 +1,110 @@
+// Evol scripts.
+// Authors:
+// Qwerty Dragon
+// Reid
+// Description:
+// Sailor part of the Gugli's quest.
+// Aquada box.
+
+000-1,55,23,0 script Ale#000-1 NPC_DEMON_MAN_SITTING,{
+ if (getq(General_Narrator) > 0)
+ {
+ sailortalk;
+ }
+
+ .@g = getq(ShipQuests_Gugli);
+ if (.@g == 0) goto L_NoTask;
+
+ .@q = getq(ShipQuests_Ale);
+ if (.@q == 1) goto L_CallFunc;
+
+ mesn;
+ mesq l("Ouch...");
+ next;
+ mesq l("These heavy boxes are killing me, I can't feel my arms anymore!");
+ next;
+
+ menu
+ lg("Gugli sent me down here to help you."), -,
+ l("See you aboard."), L_Quit;
+
+ mes "";
+ mesn;
+ mesq l("Really? That's kind of you, I accept your help!");
+ next;
+ mesq l("Hmm... Let's see, take this one.");
+ next;
+
+ inventoryplace AquadaBox, 1;
+
+ setq ShipQuests_Ale, 1;
+ getitem AquadaBox, 1;
+
+ mes "";
+ mesn;
+ mesq l("I will take care of the other ones don't worry.");
+
+ close;
+
+L_CallFunc:
+ sailorfood;
+
+ menu
+ rif(getq(ShipQuests_Gugli) > 1, l("Task is done.")), L_TaskDone,
+ rif(getq(ShipQuests_Ale) == 1 && (getq(ShipQuests_Astapolos) == 0 || getq(ShipQuests_Gulukan) == 0 || getq(ShipQuests_Jalad) == 0 || getq(ShipQuests_QMuller) == 0 || getq(ShipQuests_Tibbo) == 0), l("I'm still busy, I need to find the other sailors.")), -;
+
+ mes "";
+ mesn;
+ mesq l("Who are you looking for?");
+ next;
+
+ menu
+ rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), L_Bottom,
+ rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), L_Bottom,
+ rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), L_Jalad,
+ rif(getq(ShipQuests_QMuller) == 0, l("Q'Muller.")), L_Bottom,
+ rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), L_Bottom,
+ l("Nobody."), L_Quit;
+
+L_Bottom:
+ mes "";
+ mesn;
+ mesq l("I've seen him down around the southern area of the island, ask Jalad for more information.");
+
+ close;
+
+L_Jalad:
+ setcamnpc "Jalad";
+
+ next;
+ mesn;
+ mesq l("Look, here he is!");
+ next;
+
+ restorecam;
+
+ close;
+
+L_NoTask:
+ mes "";
+ mesn;
+ mesq l("Ouch... These boxes are so heavy!");
+
+ close;
+
+L_TaskDone:
+ mes "";
+ mesn;
+ mesq l("That's good to hear!");
+
+ close;
+
+L_Quit:
+ closedialog;
+ close;
+
+OnInit:
+ .sex = G_MALE;
+ .distance = 2;
+ end;
+}