path: root/npc/001-3-2/henry.txt

// Evol scripts.
// Author:
//    Micksha
//    Jesusalva
// Description:
//    Henry, a Thief Faction member managing the Hideout in Artis.
//    Pretends to be a nice pirate.

001-3-2,24,51,0	script	Henry#001-3-2	NPC_HENRY,{
    function proposeFirstQuest;
    function reportFirstQuest;
    function proposeSecondQuest;
    function reportSecondQuest;
    function proposeThirdQuest;
    function reportThirdQuest;
    function completedHenry;

    .@q=getq(ThiefQuests_Artis);
    switch (.@q) {
        case 0:
            proposeFirstQuest();
            break;
        case 1:
        case 2:
            reportFirstQuest();
            break;
        case 3:
            proposeSecondQuest();
            break;
        case 4:
        case 5:
            reportSecondQuest();
            break;
        case 6:
            proposeThirdQuest();
            break;
        case 7:
        case 8:
            reportThirdQuest();
            break;
        default:
            completedHenry();
            break;
    }
    close;

///////////////////////////////////////////////////////
function proposeFirstQuest {
    speech
        l("Stop! Who's there?"),
        l("Ah, its you. Sophialla already informed me. I can help you to go to Woodland, but you also could do me a favor."),
        l("The Legion has been on my tail for a while. They're a bit annoying, you know."),
        l("I mean, what's wrong with smuggling goods?! The town markets would have way less stuff otherwise. You can understand me, right? Don't answer."),
        l("Anyway, you want to get on our pirate ship, right? So you better help me out!"),
        b(l("In Artis Townhall Archives,"))+" "+l("there is an entry about me."),
        l("If they somehow catch me again, they'll use this entry as evidence to get me on a harsher punishment..."),
        l("So please find my file on the archives and, I don't know, deal with it?"),
        l("I am smart, I'll know if you lie. Anyway, just don't get caught inside the archives.");
        //l("After messing with the Major and the Legion here, I can teach you lockpicking. Ah, and you may try to find my friend Nunia in Woodland, once you go there. She seems to be disappeared."),
        //l("Call for Micksha and Jesusalva to implement all this, please.");
    next;
    mesc l("Accept this quest?"), 3;
    if (askyesno() == ASK_YES) {
        mesn;
        mesq l("Great! Then I'll be counting on you!");
        setq ThiefQuests_Artis, 1, 0, 2**rand2(17);
    }
    return;
}

function reportFirstQuest {
    .@q=getq(ThiefQuests_Artis);
    mesn;
    mesq l("Have you already did what I asked you to?");
    select
        l("Not yet, but I'll be back."),
        l("What was I supposed to do, again?"),
        l("Yes, the file has been dealt with.");
    mes "";
    switch (@menu) {
    case 1:
        mesn;
        mesq l("I'm not in hurry if you're not in hurry...");
        break;
    case 2:
        speech
            l("You should invade the townhall archives - I don't care how."),
            l("There'll be a file about an... incident... with me. Deal with the file - I also don't care how."),
            l("Try to don't get too much attention, or they'll arrest you as well.");
        break;
    case 3:
        mesn;
        mesq l("Hm... Then tell me, what was I wearing on the file picture?");
        next;
        select
            l("A fancy hat."),
            l("A shemagh or a shawl."),
            l("Sunglasses."),
            l("A santa hat."),
            l("A top hat."),
            l("A legion armor."),
            l("An eye patch."),
            l("A bandit hood."),
            rif(.@q == 2, l("There was no picture on the file."));
        mes "";
        if (@menu != 9) {
            mesc l("%s lunges at you!", strnpcinfo(1));
            mesc l("You've been stabbed!"), 1;
            mes "";
            mesn;
            mesq l("Now I know you're lying; Go find my file and deal with it!");
            percentheal -15, 0;
            close;
        } else {
            // WUT How did this even happen?!
            if (.@q != 2)
                atcommand("@kick "+strcharinfo(0));

            // TODO: Reward
            mesn;
            mesq l("Heh... I hope you disposed of the file.");
            next;
            mesn;
            mesq l("I'll keep my end of the bargain. The Hand- I mean, we pirates will bring you to the Argaes region.");
            next;
            mesn;
            mesq l("Can't bring you directly to the town because some... misunderstandings, but don't worry.");
            next;
            mesn;
            mesq l("Anyway, here's some gold. I might have another task for you if you want.");
            // Reward Reference: Lv 10
            quest_xp(.maxLevel_1, 30, BaseLevel);
            quest_jxp(.maxLevel_1, 30);
            Zeny+=300;
            setq ThiefQuests_Artis, 3;
            // Previous state already wiped this:
            //setq2 ThiefQuests_Artis, false; // Restart wheels
        }

    }
    return;
}

///////////////////////////////////////////////////////
function proposeSecondQuest {
    speech
        l("Ah, its you again. Welcome back."),
        l("So, if you want to go to Hurnscald, just talk to the pirate down there."),
        l("Anyway, I still could use your help! You see, I would like to play tricks on the legion members during the night."),
        l("For this, I would like you to to repair the secret passage to the Legion Building."),
        l("Don't use the passage, you're not skilled enough and will be busted! Just repair it, it'll be enough.");
    mesc l("You suspect that he is withholding information. Do he really only wants to do pranks? But then, do you care with what he wants to do inside?");
    next;
    mesc l("Accept this quest?"), 3;
    select
        l("Actually, I wanted to ask you something."),
        l("Yes"),
        l("No");
    mes "";
    if (@menu == 2) {
        mesn;
        mesq l("Great! Then I'll be counting on you!");
        setq1 ThiefQuests_Artis, 4;
        close;
    } else if (@menu == 1) {
        mesn;
        mesq l("Shush - No questions.");
        next;
        mesn;
        mesq l("Thie-- *ahem* pirates do not reply to questions.");
        next;
        mesn;
        mesq l("...What? I'm totally a pirate. Arr harr! See? Pirate.");
    }
    return;
}

function reportSecondQuest {
    mesn;
    mesq l("Have you already did what I asked you to?");
    next;
    select
        l("Not yet, but I'll get to it."),
        l("What was I supposed to do, again?"),
        l("Yes, the deed is done.");
    mes "";
    switch (@menu) {
    case 1:
        break;
    case 2:
        speech
            l("In the sewers, there is a passage to the Legion basement."),
            l("I want to get in there, so please do me a favor, and repair the gate. Don't try to go inside yourself, you'll be caught."),
            l("Also - don't ask me why I want this. Thieves doesn't make questions. You better remember this!");
        break;
    case 3:
        mesn;
        mesq l("Great! I'll send a scout to check. I hope you didn't blew up everything by going there, you're not very discrete.");
        next;
        mes "...";
        next;
        .@q2=getq2(ThiefQuests_Artis);
        if (.@q2 != 2) {
            mesn;
            mesq l("Nope, it is still sealed tight. Go do your job if you want a reward.");
            break;
        }
        mesn;
        mesq l("Alright - This will be... good. Anyway, I should give you a reward.");
        next;
        mesn;
        mesq l("Take this %s. There is something good on it; Just use a %s.",
               getitemlink(TreasureMap), getitemlink(IronShovel));

        // Obtain the map, quest is done
        inventoryplace TreasureMap, 1;
        getitem TreasureMap, 1;
        quest_jxp(.maxLevel_2, 100);
        setq1 ThiefQuests_Artis, 6;

        // Override the treasure location, if already existing
        .@m$="001-1";
        .@x=any(199, 200);
        .@y=any(61,62);

        shovel_addquest(.@m$, .@x, .@y, "shovel_randomtreasure");
        ShovelQuests_AssignedMAP$=shovel_getcity(.@m$);
        ShovelQuests_AssignedX=.@x;
        ShovelQuests_AssignedY=.@y;

        // TODO: If we add a daily legion quest, it must be "redemption"~ish
        // That is, destroy points from all other three factions
        // ...Also, is *this* specific code a good idea at all?
        .@t$=faction_addrep("Legion", -15);
        mesc .@t$;
        .@t$=faction_addrep("Thief", 15);
        mesc .@t$;
        next;
        mesn;
        mesq l("I don't know how to get a shovel, though.");
        next;
        mesn;
        mesq l("Remember: \"Use\" the map, and use the debugger (F10) or \"/where\" in chat to check your coordinates!");
    }
    return;
}

///////////////////////////////////////////////////////
function proposeThirdQuest {
    speech
        l("Thanks for the help the other day."),
        l("I have a beloved friend called Nunia, who handles the Thieves' Guild branch in Hurnscald."),
        l("Bet you thought we were simple pirates, right? No smart remarks, please."),
        l("Anyway, I haven't heard about her from quite a while, which is concerning."),
        l("Could you please go there see if she is well?"),
        l("I'll give you something... useful... If you want to pursue in being a thief. I'll even put a good word about you... If you manage to find our headquarters somewhere in the world, that is!");
    next;
    mesc l("Accept this quest?"), 3;
    if (askyesno() == ASK_YES) {
        mesn;
        mesq l("Great! Then I'll be counting on you!");
        setq1 ThiefQuests_Artis, 7;
        close;
    }
    return;
}

function reportThirdQuest {
    mesn;
    mesq l("Have you already did what I asked you to?");
    next;
    select
        l("Not yet, but I'll get to it."),
        l("What was I supposed to do, again?"),
        l("Yes, the deed is done.");
    mes "";
    switch (@menu) {
    case 2:
        speech
            l("My beloved friend Nunia in Hurnscald went missing."),
            l("I mean, I do not receive any letter from her for a while, so I got worried."),
            l("I would like you to check how she is doing. You know, the Brotherhood could have got her and she is in need of rescue, or something else.");
        break;
    case 3:
        .@q=getq(ThiefQuests_Artis);
        mesn;
        mesq l("Before you go on any further, I wanna see the proof that you talked with her.");
        next;
        if (.@q != 8) {
            mesc l("You don't know what sort of proof he is looking for.");
            break;
        }

        select
            l("She has white hair, blue eyes, and always carry a big sack."),
            l("She told me a passphrase.");
        mes "";
        if (@menu == 2) {
            mesn;
            mesq l("Liar; Nunia is not creative enough to come up with a passphrase of her own!");
            next;
            mesn;
            mesq l("Besides, if she could give you a passphrase, then I wouldn't have sent ya.");
            break;
        }

        mesn;
        mesq l("That's Nunia alright. So how she is doing?");
        next;
        mesc l("You describe to him how Nunia is supposed to lay low for a while.");
        next;
        mesn;
        mesq l("Of course. I'm glad she is safe. You know, we don't really care with this Legion versus Brotherhood stifle.");
        next;
        mesn;
        mesq l("The brotherhood spies here are... friendly, but mostly because our interests coincide. But in Hurnscald, where their main base is, we're enemies.");
        next;
        inventoryplace Lockpicks, 5;
        mesn;
        mesq l("Anyway, thanks for the report. I'll give you some %s.", getitemlink(Lockpicks));
        next;
        mesn;
        mesq l("Whenever you find a vault, a door, or anything of interest, you can use it to pry it open.");
        next;
        mesn;
        mesq l("Lockpicks are not keys, they can break quite easily. Also, you don't want anyone watching you.");
        next;
        mesn;
        mesq l("If you are caught while lockpicking, you'll be arrested. So be careful.");
        // TODO: Add a lock here where player can train without being arrested.
        next;
        mesn;
        mesq l("I have other matters to attend do, so you'll have to excuse me.");
        quest_item(.maxLevel_3, Lockpicks, 5);
        setq1 ThiefQuests_Artis, 9;
        break;
    }
    return;
}

///////////////////////////////////////////////////////
function completedHenry {
    mesc l("He seems to ignore you.");
    mesc l("Probably better not disturb him.");
    return;
}


///////////////////////////////////////////////////////
OnInit:
    .distance = 3;
    .maxLevel_1 = 15;
    .maxLevel_2 = 25;
    .maxLevel_3 = 35;
    end;

OnGiantMaggot:
    .@q=getq(ThiefQuests_Artis);
    .@q2=getq2(ThiefQuests_Artis);
    .@max=(.@q == 1 ? true : (.@q == 4 ? true : false));

    // To drop, or not to drop...?
    if (!.@q2 && .@max) {
        if (rand2(10000) < 1800) {
		    getitem Gearwheel, 1;
            setq2 ThiefQuests_Artis, true;
        }
    }

    // Eh, whatever, continue with what you were doing, script.
    fix_mobkill(GiantMaggot);
    end;
}