Override

1 files changed, 247 insertions, 351 deletions

diff --git a/npc/008-1/hinnak.txt b/npc/008-1/hinnak.txt
index 65d050e7..3672ed93 100644..100755
--- a/npc/008-1/hinnak.txt
+++ b/npc/008-1/hinnak.txt
@@ -1,354 +1,250 @@
-// Evol scripts.
-// Author:
-//   gumi, Micksha
-// Quest states:
-//    [1] 0 - cannot do the quest
-//    [1] 1 - can do the quest
-//    [1] 2 - hinnak asked for help
-//    [1] 3 - helped hinnak
-//    [2]     kill counter
-// Description:
-
-//    Hinnak needs help to get rid of the same stuff than ever.
-
-008-1,270,74,0	script	Hinnak#008-1	NPC_HINNAK,{
-
-       if (BaseLevel < .min_level)
-    {
-        npctalk3 generic(1 | 16 | 64);
-        end;
-    }
-
-    function hinn_new_player
-    {
-        if(getequipid(EQI_HEAD_TOP) == .bad_hat)
-        {
-            narrator 4,
-                l("The farmer lunges at you with a farming implement.");
-            heal -50, 0;
-
-            selectd
-                l("I'm out of here."),
-                l("Whoa, what are you doing?");
-
-            if (@menu == 1)
-            {
-                return;
-            }
-
-            speech 4 | 1,
-                l("Sorry, you look like a pinkie."),
-                l("They've been destroying my fields, and I guess I got a bit worked up.");
-        }
-
-        else
-        {
-            speech 4,
-                l("Argh!"),
-                l("I hate them!"),
-                l("I @#$% hate them!"),
-                l("I @#$% hate these @#$% pinkies!");
-
-            selectd
-                l("You need some anger control therapy."),
-                l("Why do you hate them?");
-
-            if (@menu == 1)
-            {
-                return;
-            }
-
-            speech 4 | 1,
-                l("These @#$% beasts are jumping around in my fields destroying all my harvest."),
-                l("But they are too fast."),
-                l("I can't catch them.");
-        }
-
-        selectd
-            l("Want me to help you?");
-
-        speech 4 | 1,
-            l("Yes, you look quite fast."),
-            l("Maybe you can catch some of them."),
-            l("That will pay them a lesson."),
-            l("Slay some of them and bring me %d of their antennae.", .drop_count);
-
-        setq .quest, 2, 0;
-
-        selectd
-            l("How much is this worth to you?");
-
-        speech 1,
-            l("Well, I can't offer you much."),
-            l("But I got an old scythe laying around."),
-            l("Maybe you can use it as a weapon.");
-
-        close;
-    }
-
-    function hinn_help
-    {
-        if (getequipid(EQI_HEAD_TOP) == .bad_hat)
-        {
-            narrator 4,
-                l("The farmer glares at your hat.");
-        }
-
-        speech 4,
-            l("Have you got the %d antennae?", .drop_count);
-
-        selectd
-            l("Not yet, but I am working on it."),
-            rif(countitem(.monster_drop) >= .drop_count, l("Sure, here they are!"));
-
-        if (@menu == 1)
-        {
-            return;
-        }
-
-        if (getq2(.quest) < .kill_count)
-        {
-            speech 1,
-                l("Don't try to fool me!"),
-                l("I know you didn't kill them yourself!"),
-                l("Kill at least %d pinkies and come back.", .kill_count);
-            close;
-        }
-
-        speech 1,
-            l("Thank you very much"),
-            l("As promised, here's my old scythe."),
-            l("Maybe you can use it as a weapon."),
-            l("It is a bit cumbersome but its strikes are deadly.");
-
-        if (countitem(.monster_drop) >= .drop_count)
-        {
-            delitem .monster_drop, .drop_count;
-            getitem .reward_item, 1;
-            quest_gp(.maxLevel, .reward_money);
-            //getexp .reward_exp, 0;
-            setq .quest, 3;
-        }
-        close;
-    }
-
-    function hinn_thanks
-    {
-        if (getequipid(EQI_HEAD_TOP) == .bad_hat)
-        {
-            speech 4,
-                l("That better be a trophy on your head.");
-
-            selectd
-                l("It is.");
-
-            speech 4 | 1,
-                l("Good then."),
-                l("Thanks for your help with the pinkies.");
-        }
-
-        else
-        {
-            speech 4,
-                l("Good to see you again."),
-                l("Thanks again for helping me with the pinkies!");
-        }
-
-        selectd
-            l("Sure, any time!"),
-            l("Anything else you want me to do?"),
-            l("You're welcome. Bye!");
-
-        if (@menu == 3)
-        {
-            return;
-        }
-
-        speech 4 | 1,
-            l("Actually, it's been a long day."),
-            l("If it's no trouble, could you get me a %s?",
-                getitemlink(.drink_item));
-
-        selectd
-            rif(countitem(.drink_item) >= 1, l("Here you are.")),
-            l("Sure, I'll go get one. Bye!"),
-            l("You shouldn't drink while working!");
-
-        do
-        {
-            switch (@menu)
-            {
-                case 2: return;
-                case 3:
-                    speech 1,
-                        l("Well, I'm done for the day, and I'm quite old enough to decide when I can have a %s, thank you!",
-                            getitemname(.drink_item));
-                    selectd
-                        rif(countitem(.drink_item) >= 1, l("Sorry... here you are.")),
-                        l("I don't have any.");
-                    break;
-                default:
-                    if (countitem(.drink_item) < 1)
-                    {
-                        return;
-                    }
-                    delitem .drink_item, 1;
-
-                    narrator 4 | 8 | 2 | 1,
-                        l("%s takes a sip.", .name$);
-
-                    speech 4,
-                        l("Aaah!"),
-                        l("Nothing like a well-deserved %s after a long day of tending the crops!",
-                            getitemname(.drink_item)),
-                        l("Thanks, that was very kind of you!");
-
-                    narrator 4 | 8 | 1 | 2,
-                        l("He takes another sip.");
-
-                    speech 4,
-                        l("Thanks!"),
-                        l("You know, I had the strangest thing happen to me."),
-                        l("I had this patch of ground that was really clumpy; lots of clay, you see."),
-                        l("Right over there."),
-                        // TODO: move cam to the spot
-                        l("Looks much better now, doesn't it?"),
-                        // TODO: restore cam
-                        l("But how I got there is kind of scary..."),
-                        l("I'd been trying to break it up for a while, but that kind of work is a pain."),
-                        l("So my wife said that I should go and see the witch, just in case she knows something."),
-                        l("And sure enough I ask the witch, and she has a look at it."),
-                        l("“Nothing I can do”, she says, “but I can ask a friend”."),
-                        l("So the next day another witch shows up."),
-                        l("Gorgeous woman, but when she looked at me, the scares went scuttling down my spine..."),
-                        l("First thing she asked was if I'm a farmer."),
-                        l("Said her friend had told her that I needed help."),
-                        l("I show her what the problem is, and she tells me to go inside and wait.");
-
-                    narrator 4 | 8 | 1 | 2,
-                        l("%s drains his mug in one long sip, then hesitates.", .name$);
-
-                    speech 4,
-                        l("So I go inside."),
-                        l("I'm barely in when it starts raining outside, pouring cats and mouboos!"),
-                        l("Not so weird, perhaps, except that it was been bright and sunny just a second before!"),
-                        l("So I rush out, my wife telling me to leave the witch alone, and I see her standing there in the middle of the rain..."),
-                        l("None of the raindrops touched her, as if they were afraid!"),
-                        l("Then she yells out some gobbledygook word, and out of the ground there comes a swarm of maggots, crawling and digging and climbing over each other's backs..."),
-                        // XXX: maybe here insert a reference to SUSAN?
-                        l("And then she turns to me!"),
-                        l("Seeing her gaze, for a moment there I thought she would turn me into a pinkie, for sure..."),
-                        l("But all she says is, “had you stayed inside, you wouldn't be wet now”.");
-
-                    selectd
-                        l("Hahaha!"),
-                        l("Whoah, scary..."),
-                        l("What was that gobbledygook word?"),
-                        l("I better go now. Bye.");
-
-                    switch (@menu)
-                    {
-                        case 1:
-                            speech 1,
-                                l("Yeah, funny now..."),
-                                l("But you should've seen that gaze!"),
-                                l("Ah, well, never mind.");
-                            close;
-                        case 2:
-                            speech 1,
-                                l("Yeah, you could say that...");
-                            close;
-                        case 3:
-                            speech 1,
-                                l("Oh, I can't be sure..."),
-                                l("But something like “Nanaj princino”, I think."); // this is "Dwarven Princess" translated to Esperanto
-                            close;
-                    }
-                    return;
-            }
-        } while(true);
-    }
-
-    // OnTalk:
-
-    if (getq(.quest_inspector) == 11)
-    {
-        selectd
-            l("Did you see anyone in a mask come by here at night?"),
-            l("Did you see anyone with a large satchel come by here at night?"),
-            l("Hello.");
-
-        switch (@menu)
-        {
-            case 1:
-                speech
-                    l("No."),
-                    l("It tends to be too dark to see a mask.");
-                close;
-
-            case 2:
-                speech
-                    l("Yes, I saw someone with a large sack on their back go to the mining camp.");
-                close;
-        }
-    }
-
-    switch (getq(.quest))
-    {
-        case 0:
-        case 1: hinn_new_player; break;
-        case 2: hinn_help; break;
-        default: hinn_thanks;
-    }
-
-    closeclientdialog();
+
+008-1,101,30,0	script	Hinnak	NPC142,{
+    @inspector = ((QUEST_Hurnscald & NIBBLE_3_MASK) >> NIBBLE_3_SHIFT);
+
+    if (@inspector == 10) goto L_NohMask;
+    goto L_No_NohMask;
+
+L_No_NohMask:
+    @state = ((QUEST_Hurnscald & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT);
+
+    if (@state == 1) goto L_Exchange;
+    if (@state == 2) goto L_ThanksAgain;
+    if (getequipid(equip_head) == 751) goto L_Intro_Hat;
+
+    mes "[Farmer Hinnak]";
+    mes "\"Argh! I hate them! I @#$% hate them! I @#$% hate these @#$% pinkies!\"";
+    next;
+    menu
+        "You need some anger control therapy.", L_close,
+        "Why do you hate them?", L_Reason;
+
+L_Intro_Hat:
+    mes "The farmer lunges at you with a farming implement.";
+    next;
+    heal -50, 0;
+    menu
+        "I'm out of here.", L_close,
+        "Whoa, what are you doing?", L_Intro_Hat_Explain;
+
+L_Intro_Hat_Explain:
+    mes "[Farmer Hinnak]";
+    mes "\"Sorry, you look like a pinkie. They've been destroying my fields, and I guess I got a bit worked up.\"";
+    next;
+    goto L_Help;
+
+L_Reason:
+    mes "[Farmer Hinnak]";
+    mes "\"These @#$% beasts are jumping around in my fields destroying all my harvest.";
+    mes "But they are too fast. I can't catch them.\"";
+    next;
+    menu
+        "Want me to help you?", L_Help,
+        "Well, life ain't fair.", L_close;
+
+L_Help:
+    mes "[Farmer Hinnak]";
+    mes "\"Yes, you look quite fast. Maybe you can catch some of them. That will pay them a lesson.";
+    mes "Slay some of them and bring me 10 of their antennae.\"";
+    @state = 1;
+    callsub S_Update_Mask;
+    next;
+    menu
+        "Sure, I'm on my way", L_close,
+        "How much is this worth to you?", L_Reward;
+
+L_Reward:
+    mes "[Farmer Hinnak]";
+    mes "\"Well, I can't offer you much. But I got an old scythe laying around. Maybe you can use it as a weapon.\"";
+    goto L_close;
+
+L_Exchange:
+    if (getequipid(equip_head) != 751)
+        goto L_Exchange_Start;
+    mes "The farmer glares at your hat.";
+    next;
+    goto L_Exchange_Start;
+
+L_Exchange_Start:
+    mes "[Farmer Hinnak]";
+    mes "\"Have you got the 10 antennae?\"";
+    next;
+    menu
+        "Not yet, but I am working on it.", L_close,
+        "Sure, here they are!", L_Exchange_Exchange;
+
+L_Exchange_Exchange:
+    if (countitem("PinkAntenna") < 10)
+        goto L_Exchange_Notenough;
+    getinventorylist;
+    if (@inventorylist_count == 100 && countitem("PinkAntenna") > 10)
+        goto L_Exchange_TooMany;
+    delitem "PinkAntenna", 10;
+    getitem "Scythe", 1;
+    @state = 2;
+    callsub S_Update_Mask;
+    mes "[Farmer Hinnak]";
+    mes "\"Thank you very much. I've got something for you. My old scythe. Maybe you can use it as a weapon. It is a bit cumbersome but its strikes are deadly.\"";
+    goto L_close;
+
+L_Exchange_Notenough:
+    mes "[Farmer Hinnak]";
+    mes "\"It doesn't look like you do.\"";
+    goto L_close;
+
+L_Exchange_TooMany:
+    mes "[Farmer Hinnak]";
+    mes "\"Looks like you don't have room for this. Come back later to receive your reward. Hold on to the antennea until then.\"";
+    goto L_close;
+
+L_ThanksAgain:
+    if (getequipid(equip_head) == 751)
+        goto L_ThanksHat;
+    mes "[Farmer Hinnak]";
+    mes "\"Good to see you again, and thanks again for helping me with the pinkies!\"";
+    next;
+    goto L_ThanksMenu;
+
+L_ThanksHat:
+    mes "[Farmer Hinnak]";
+    mes "\"That better be a trophy on your head.\"";
+    menu
+        "It is.", L_Next;
+
+L_Next:
+    mes "[Farmer Hinnak]";
+    mes "\"Good then. Thanks for your help with the pinkies.\"";
+    goto L_ThanksMenu;
+
+L_ThanksMenu:
+    menu
+        "Sure, any time!", L_Next1,
+        "Anything else you want me to do?", L_Next1,
+        "You're welcome. Bye!", L_Bye;
+
+L_Next1:
+    mes "[Farmer Hinnak]";
+    mes "\"Actually, it's been a long day. If it's no trouble, could you get me a beer?\"";
+    next;
+    menu
+        "Here you are.", L_GiveBeer,
+        "Sure, I'll go get one. Bye!", L_Bye,
+        "You shouldn't drink while working!", L_Next2;
+
+L_Next2:
+    mes "[Farmer Hinnak]";
+    mes "\"Well, I'm done for the day, and I'm quite old enough to decide when I can have a beer, thank you!\"";
+    next;
+    menu
+        "Sorry... here you are.", L_GiveBeer,
+        "I don't have any.", L_NoBeer;
+
+L_GiveBeer:
+    if (countitem("Beer") < 1)
+        goto L_NoBeer;
+    delitem "Beer", 1;
+    mes "[Farmer Hinnak]";
+    mes "Hinnak takes a sip.";
+    mes "\"Aaah!  Nothing like a well-deserved beer after a long day of tending the crops!\"";
+    mes "\"Thanks, that was very kind of you!\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "He takes another sip.";
+    mes "\"Thanks!  You know, I had the strangest thing happen to me. I had this patch of ground that was really clumpy; lots of clay, you see.\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"Right over there.\"";
+    mes "He points to a stretch of soft, raked ground.";
+    mes "\"Looks much better now, doesn't it?  But how I got there is kind-a scary...\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"I'd been trying to break it up for a while, but that kind of work is a pain. So my wife said that I should go and see the witch, just in case she knows something.\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"And sure enough I ask the witch, and she has a look at it. 'Nothing I can do', she says, 'but I can ask a friend'.\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"So the next day another witch shows up. Gorgeous woman, but when she looked at me, the scares went scuttling down my spine....\"";
+    mes "\"First thing she asked was if I'm a farmer. Said her friend had told her that I needed help.\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"I show her what the problem is, and she tells me to go inside and wait.\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"Hinnak drains his beer in one long sip, then hesitates.";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"So I go inside. I'm barely in when it starts raining outside, pouring cats and mouboos!\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"Not so weird, perhaps, except that it was been bright and sunny just a second before!  So I rush out, my wife telling me to leave the witch alone, and I see her standing there in the middle of the rain...\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"None of the raindrops touched her, as if they was afraid!\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"Then she yells out some gobbledygook word, and out of the ground there comes a swarm of maggots, crawling and digging and climbing over each other's backs...\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"And then she turns to me!  Seeing her stare, for a moment there I think that she'll turn me into a pinkie, for sure...\"";
+    next;
+    mes "[Farmer Hinnak]";
+    mes "\"But all she says is, 'if you'd stayed inside, you wouldn't be wet now'.\"";
+    next;
+    menu
+        "Hahaha!", L_Sagatha_hahaha,
+        "Whoah, scary...", L_Sagatha_scary,
+        "What was that gobbledygook word?", L_Sagatha_word,
+        "I better go now.", L_Bye;
+
+L_Sagatha_hahaha:
+    mes "[Farmer Hinnak]";
+    mes "\"Yeah, funny now... But you should've seen that stare!  Ah, well, never mind.\"";
+    goto L_close;
+
+L_Sagatha_scary:
+    mes "[Farmer Hinnak]";
+    mes "\"Yeah, you could say that...\"";
+    mes "He stares into his empty beer jug, as if wishing it weren't empty yet.";
+    goto L_close;
+
+L_Sagatha_word:
+    mes "[Farmer Hinnak]";
+    mes "\"Oh, I can't be sure... but something like '" + get(.invocation$, "summon-maggots") + "', I think.\"";
+    goto L_close;
+
+L_NoBeer:
+    mes "[Farmer Hinnak]";
+    mes "\"Ah... no beer?  Oh well.\"";
+    goto L_close;
+
+L_Bye:
+    mes "[Farmer Hinnak]";
+    mes "\"Bye!\"";
+    goto L_close;
+
+L_NohMask:
+    menu
+        "Did you see anyone in a mask come by here at night?", L_NohMask_Mask,
+        "Did you see anyone with a large satchel come by here at night?", L_NohMask_Satchel,
+        "Hello.", L_No_NohMask;
+
+L_NohMask_Mask:
+    mes "[Farmer Hinnak]";
+    mes "\"No. It tends to be too dark to see a mask.\"";
+    goto L_close;
+
+L_NohMask_Satchel:
+    mes "[Farmer Hinnak]";
+    mes "\"Yes, I saw someone with a large sack on their back go to the mining camp.\"";
+    goto L_close;
+
+L_close:
+    @state = 0;
+    @inspector = 0;
     close;
 
-OnNPCKillEvent:
-    // XXX: maybe have a OnTakeScript on the pinky antena item so we count pickups instead of kills
-    if (killedrid == .monster_id && getq(.quest) == 2 &&
-        getq2(.quest) < .kill_count && strcharinfo(PC_MAP) == .map$)
-    {
-        setq .quest, 2, getq2(.quest) + 1;
-    }
-    end;
-
-OnPCLoginEvent:
-OnPCBaseLvUpEvent:
-    if (BaseLevel >= .min_level && getq(.quest) < 1)
-    {
-        setq .quest, 1; // allow the player to do the quest
-        dispbottom l("New quest available: %s (level %d+)",
-            getquestlink(.quest), .min_level); // XXX: requires new manaplus versions, maybe show a different message for old versions?
-    }
-    end;
-
-OnInit:
-    .min_level = 15; // min level to do the quest
-    .maxLevel = getiteminfo(Scythe, ITEMINFO_ELV) + 20;
-    .monster_id = Pinkie; // monster to kill
-    .monster_drop = PinkAntennae; // monster drop to collect
-    .drop_count = 10; // amount of that drop needed
-    .kill_count = 10; // min number of kills
-    .reward_item = Scythe; // reward item
-    .reward_money = 0; // reward money
-    .reward_exp = 0; // reward exp
-    .bad_hat = PinkieHat; // hinnak attacks you when you wear this hat
-    .drink_item = Beer; // the item hinnak asks to drink
-
-    .quest = HurnscaldQuests_Hinnak;
-    .quest_inspector = HurnscaldQuests_Inspector;
-    .quest_debug = .quest;
-    .distance = 3;
-
-////////// UNFINISHED //////////
-////////////////////////////////
-// REMOVE THIS CODE WHEN THIS //
-// NPC IS NO LONGER A WIP //////
-////////////////////////////////
-//if (!debug) disablenpc(.name$);
-///////// UNFINISHED ///////////
-
-    end;
+S_Update_Mask:
+    QUEST_Hurnscald = (QUEST_Hurnscald & ~(NIBBLE_1_MASK)) | (@state << NIBBLE_1_SHIFT);
+    return;
 }
-