diff options
Diffstat (limited to 'npc/014-2/mouboo.txt')
| -rw-r--r-- | npc/014-2/mouboo.txt | 178 |
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; +} |