summaryrefslogtreecommitdiff
path: root/npc/014-2/mouboo.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/014-2/mouboo.txt')
-rw-r--r--npc/014-2/mouboo.txt178
1 files changed, 178 insertions, 0 deletions
diff --git a/npc/014-2/mouboo.txt b/npc/014-2/mouboo.txt
new file mode 100644
index 000000000..25516dc39
--- /dev/null
+++ b/npc/014-2/mouboo.txt
@@ -0,0 +1,178 @@
+// TMW2/LoF scripts.
+// Authors:
+// TMW-LoF Team
+// Jesusalva
+// Description:
+// Part from a bigger, very important quest for learning about the MOUBOOTAUR.
+// Interacts with Sagratha (for uncursing).
+//
+// Quest Structure:
+// HurnscaldQuest_InjuriedMouboo - STATUS - HPBAR
+// Quest Status:
+// 0 - First Met
+// 1 - Examined (HP Bar stored on field 2)
+// 2 - Healed (Curse not solved - ready for Sagratha Quest)
+// 3 - Curse removed (Sagratha's Arc)
+// 9 - KILLED YOUR MOUBOO. YOU EVIL MONSTER.
+
+014-2,144,80,0 script Mouboo#0142injuried NPC_INJURIED_MOUBOO,{
+ .@q=getq(HurnscaldQuest_InjuriedMouboo);
+
+ if (.@q < 2) goto L_Begin;
+ if (.@q == 2) goto L_Healed;
+ if (.@q == 3) goto L_Uncursed;
+ if (.@q == 9) goto L_Killed;
+ goodbye;
+ end;
+
+// Main Quest
+L_Begin:
+ .@q=getq(HurnscaldQuest_InjuriedMouboo);
+ .@q2=getq2(HurnscaldQuest_InjuriedMouboo);
+ mesn l("Injuried Mouboo");
+ mesq l("Booo....");
+ mesc l("The Mouboo seems to be lying in pain.");
+ next;
+ select
+ l("Examine the Mouboo"),
+ rif(.@q == 1, l("Attempt to heal the Mouboo")),
+ rif(.@q == 1, l("Attempt to kill the Mouboo")),
+ l("Leave the Mouboo alone");
+ mes "";
+ switch (@menu) {
+ case 1:
+ mesc l("The Mouboo is lying down on the grass.");
+ mesc l("There doesn't seems to be any physical wound.");
+ mesc l("A closer inspection suggests this mouboo has been... CURSED.");
+ setq HurnscaldQuest_InjuriedMouboo, 1, 100;
+ next;
+ goto L_Begin;
+ case 2:
+ mes "##B" + l("Drag and drop a healing item from your inventory.") + "##b";
+
+ .@id = requestitem();
+
+ // If ID is invalid, there's not enough items, it is bound = Cannot bury
+ if (.@id < 1 || countitem(.@id) < 1 || checkbound(.@id) || getiteminfo(.@id, ITEMINFO_TYPE) != IT_HEALING) {
+ if (checkbound(.@id))
+ mesc l("You cannot part with this item!");
+ else if (.@id == MoubooFigurine)
+ mesc l("Haha, this wooden figurine won't do the job, sorry.");
+ else if (.@id == PlushMouboo)
+ mesc l("This seems like a good idea at first, but actually, it isn't.");
+ else if (.@id == MoubooPendant)
+ mesc l("Wise choice! But can you really part with it? Better think on something else!");
+ else if (.@id == MoubooHat || .@id == AlphaMoubooHat)
+ mesc l("...I don't think giving it this hat will really help...");
+ else if (getiteminfo(.@id, ITEMINFO_TYPE) != IT_HEALING)
+ mesc l("This is not a healing item.");
+ else
+ mesc l("You give up.");
+ close;
+ }
+ if (.@id == MoubooSteak) {
+ mesc l("Uhm, this seems like a bad idea.");
+ close;
+ } else if (.@id == DeathPenalty) {
+ mesc l("Uhm, that's an... @@. Do you... want to grow a tree on the mouboo or something? Can't you think on something else?", DeathPenalty);
+ close;
+ }
+ mesc l("Really give your @@ to the Mouboo?", .@id), 1;
+ mesc l("The item will be lost forever.");
+ next;
+ if (askyesno() == ASK_YES) {
+ delitem .@id, 1;
+ itemeffect(.@id); // As a bonus, you'll be healed too, because I need to retrieve @max value
+
+ // You need about 9.000 HP-worth healing items, and you can't use Mouboo Steak
+ if (.@id == ElixirOfLife)
+ setq2 HurnscaldQuest_InjuriedMouboo, 9999;
+ else
+ setq2 HurnscaldQuest_InjuriedMouboo, .@q2+((@min+@max)/10);
+
+ if (.@q2 > 1000) {
+ mesc l("This will be remembered."), 6;
+ setq HurnscaldQuest_InjuriedMouboo, 2;
+ getexp 800, 0;
+ close;
+ }
+ }
+ break;
+ case 3:
+ mes "##B" + l("Drag and drop a weapon from your inventory.") + "##b";
+
+ .@id = requestitem();
+
+ // If ID is invalid, there's not enough items, it is bound = Cannot bury
+ if (.@id < 1 || countitem(.@id) < 1 || getiteminfo(.@id, ITEMINFO_TYPE) != IT_WEAPON) {
+ if (getiteminfo(.@id, ITEMINFO_TYPE) != IT_WEAPON)
+ mesc l("This is not a weapon. Wait, you don't want to explode it, right?!");
+ else
+ mesc l("You give up.");
+ close;
+ }
+
+ mesc l("Really attack the Mouboo with a(n) @@?", .@id), 1;
+ mesc l("There will be consequences.");
+ next;
+ if (askyesno() == ASK_YES) {
+ .@atk=getiteminfo(.@id, ITEMINFO_ATK);
+ mesn l("Injuried Mouboo");
+ if (.@q2 < 20)
+ mesq l("Re-ref... Reflect.");
+ else
+ mesq l("Ma... Magical Re... Re-ref... Reflection.");
+ setq2 HurnscaldQuest_InjuriedMouboo, .@q2-(.@atk/10);
+
+ if (.@q2 > 1000) {
+ mesq l("The... Mou... Boo... Taur...");
+ mesq l("Is... Dan... Ger... Ous...");
+ mesq l("...Help... Me...");
+ setq HurnscaldQuest_InjuriedMouboo, 9;
+ getexp 800, 0;
+ next;
+
+ mesc l("This will be remembered."), 6;
+ heal -.@atk, -(.@atk/10);
+ close;
+ }
+
+ heal -.@atk, -(.@atk/10);
+ next;
+ }
+ break;
+ default:
+ close;
+ }
+ mes "";
+ goto L_Begin;
+
+
+// Sagratha Arc
+L_Healed:
+ .@q=getq(HurnscaldQuest_InjuriedMouboo);
+ .@q2=getq2(HurnscaldQuest_InjuriedMouboo);
+ mesn l("Injuried Mouboo");
+ mesq l("Zzzzzz....");
+ mesc l("The mouboo is sleeping soundly. The curse is still there.");
+ // TODO: HANDLE SAGRATHA
+ close;
+
+// Final Results
+L_Uncursed:
+ mesn;
+ mesq l("Hello, @@. Thanks for helping me.", strcharinfo(0));
+ next;
+ mesn;
+ mesq l("Don't challenge the Moubootaur. You saw what happened to me.");
+ close;
+
+L_Killed:
+ mesc l("Did this Mouboo just blinked? No, I made sure to kill it. Must have been my imagination.");
+ close;
+
+OnInit:
+ .sex=G_OTHER;
+ .distance=2;
+ end;
+}