path: root/npc/009-5/joaquim.txt

// 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, IronIngot, 1;
    getitem ElixirOfLife, 1;
    getitem IronIngot, 1;
    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));
    next;
    mesn;
    mesq l("This costed years of work... But you deserve it. Here is, an @@. Use it wisely, many armor can be forged with it.", getitemlink(IronIngot));
    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);
    npcsit;

    .sex = G_MALE;
    .distance = 5;
    end;
}