diff options
Diffstat (limited to 'npc/009-5/joaquim.txt')
| -rw-r--r-- | npc/009-5/joaquim.txt | 175 |
1 files changed, 175 insertions, 0 deletions
diff --git a/npc/009-5/joaquim.txt b/npc/009-5/joaquim.txt new file mode 100644 index 000000000..3569149c5 --- /dev/null +++ b/npc/009-5/joaquim.txt @@ -0,0 +1,175 @@ +// TMW2 Script, ported from TMW-BR +// TMW2 Author: Jesusalva +// +// Creator: Cardinalli +// Review: Lunovox <rui.gravata@gmail.com> +// +// Description: +// A rather easy quest to give players what to kill. + +009-5,36,35,4 script Joaquim NPC_PLAYER,{ + .@q=getq(HalinarzoQuest_SickWife); + if (BaseLevel < 36) goto L_TooWeak; + if (BaseLevel < 50) goto L_Weak; + if (.@q == 5) goto L_Complete; + if (.@q == 4) goto L_Finish; + if (.@q == 3) goto L_DoIt; + if (.@q == 2) goto L_Return; + if (.@q == 1) goto L_Found; + goto L_Start; + +L_TooWeak: + mesn; + mesq l("Here is a safe haven for we who don't fight. There are no monsters, and the Mouboo watches over us."); + close; + +L_Weak: + mesn; + .@r=rand(1,5); + switch (.@r) { + case 1: + mesq l("Watch out! My wife was gravely wounded the other day. Don't forget your shield when leaving this holy place!"); + break; + case 2: + mesq l("Ah, I hate mushrooms. Perhaps in future, I could use their spikes and mushies."); + break; + case 3: + mesq l("Ah, I hate snakes. Perhaps in future, I could use their tongues."); + break; + case 4: + mesq l("Ah, I love mouboos. But their steaks, hmm. Ah, no, I shouldn't eat that..."); + break; + case 5: + mesq l("You should never sell your Cactus Drinks. They have many uses."); + break; + } + close; + +L_Complete: + mesn; + mesq l("Thanks for helping my wife, I'll be forever grateful."); + close; + +L_Finish: + mesn; + mesq l("Thanks for helping my wife! May the Mouboo watch over you! o.o"); + next; + inventoryplace ElixirOfLife, 1; + geitem ElixirOfLife, 1; + getexp 17288, 0; // 15% from needed experience to level up + setq HalinarzoQuest_SickWife, 5; + mesn; + mesq l("Take this spare @@ I did. It heals fully and instantly, so don't hesit to use it if you're about to die.", getitemlink(ElixirOfLife)); + close; + +L_DoIt: + mesn; + mesq l("Please help my wife Yumi, on the Hospital!"); + close; + +// Quest Core +L_Start: + mesn; + mesq l("Ohhhhh..... Please, help me!!! My wife is gravely wounded!!"); + next; + mesn strcharinfo(0); + mesq l("Calm down! How can I help you?"); + next; + mesn; + mesq l("My grandmother gave me a recipe of the @@, it can cure anything but death.", getitemlink(ElixirOfLife)); + next; + mesn; + mesq l("I don't remember what I need now, but if you give me a moment, I'll get the list."); + setq HalinarzoQuest_SickWife, 1; + close; + +L_Found: + mesn; + mesq l("I can make an @@, I still have a bottle of fairy blood, a few mana pearls, and some other rare ingredients.", getitemlink(ElixirOfLife)); + mesq l("It is the non-rare ingredients I actually need help with!"); + next; + mesn l("@@ Recipe", getitemlink(ElixirOfLife)); + mesc l("@@/40 @@", countitem(SmallMushroom), getitemlink(SmallMushroom)); + mesc l("@@/100 @@", countitem(CactusDrink), getitemlink(CactusDrink)); + mesc l("@@/30 @@", countitem(BottleOfTonoriWater), getitemlink(BottleOfTonoriWater)); + mesc l("@@/60 @@", countitem(HardSpike), getitemlink(HardSpike)); + mesc l("@@/45 @@", countitem(SnakeTongue), getitemlink(SnakeTongue)); + mesc l("@@/15 @@", countitem(MoubooSteak), getitemlink(MoubooSteak)); + next; + select + l("I will do it, don't worry."), + l("Ahh, too many items. Sorry."); + mes ""; + mesn; + if (@menu == 1) { + mes lg("Thanks! Thanks! Savior! Hurry up!"); + setq HalinarzoQuest_SickWife, 2; + } else { + mes l("Oh noes, who nows can help my wife? Please reconsider!"); + } + close; + +L_Return: + mesn l("@@ Recipe", getitemlink(ElixirOfLife)); + mesc l("@@/40 @@", countitem(SmallMushroom), getitemlink(SmallMushroom)); + mesc l("@@/100 @@", countitem(CactusDrink), getitemlink(CactusDrink)); + mesc l("@@/30 @@", countitem(BottleOfTonoriWater), getitemlink(BottleOfTonoriWater)); + mesc l("@@/60 @@", countitem(HardSpike), getitemlink(HardSpike)); + mesc l("@@/45 @@", countitem(SnakeTongue), getitemlink(SnakeTongue)); + mesc l("@@/15 @@", countitem(MoubooSteak), getitemlink(MoubooSteak)); + next; + select + l("I'll be back later with all ingredients."), + l("They're with me."); + mes ""; + if (@menu == 1) + close; + + if (countitem(SmallMushroom) < 40 || + countitem(CactusDrink) < 100 || + countitem(BottleOfTonoriWater) < 30 || + countitem(HardSpike) < 60 || + countitem(SnakeTongue) < 45 || + countitem(MoubooSteak) < 15) + goto L_Missing; + + inventoryplace ElixirOfLife, 1; + + delitem SmallMushroom, 40; + delitem CactusDrink, 100; + delitem BottleOfTonoriWater, 30; + delitem HardSpike, 60; + delitem SnakeTongue, 45; + delitem MoubooSteak, 15; + getitem ElixirOfLife, 1; + setq HalinarzoQuest_SickWife, 3; + mesn; + mesq l("Thanks, I'll just bake the Elixir right away...!"); + next; + mesc l("@@ goes away for a while and returns briefly.", .name$); + next; + mesn; + mesq l("Here, take the Elixir. Please, bring it to my wife! I am counting on you!!"); + close; + +L_Missing: + mesn strcharinfo(0); + mesq l("Except they're not. I'll be back later."); + next; + mesn; + mesq l("Please, @@! Hurry up!", strcharinfo(0)); + close; + +OnInit: + .@npcId = getnpcid(0, .name$); + setunitdata(.@npcId, UDT_HEADTOP, NPCEyes); + setunitdata(.@npcId, UDT_HEADMIDDLE, VneckJumper); + setunitdata(.@npcId, UDT_HEADBOTTOM, RaidTrousers); + setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots + setunitdata(.@npcId, UDT_HAIRSTYLE, 3); + setunitdata(.@npcId, UDT_HAIRCOLOR, 5); + + .sex = G_MALE; + .distance = 5; + end; +} |