diff options
Diffstat (limited to 'world/map/npc/033-1/birrod.txt')
| -rw-r--r-- | world/map/npc/033-1/birrod.txt | 109 |
1 files changed, 109 insertions, 0 deletions
diff --git a/world/map/npc/033-1/birrod.txt b/world/map/npc/033-1/birrod.txt new file mode 100644 index 00000000..39ccaa9f --- /dev/null +++ b/world/map/npc/033-1/birrod.txt @@ -0,0 +1,109 @@ +033-1.gat,72,27,0 script Birrod 217, { + + set @Q_Barbarians_MASK, NIBBLE_0_MASK; + set @Q_Barbarians_SHIFT, NIBBLE_0_SHIFT; + + set @state, ((QUEST_Barbarians & @Q_Barbarians_MASK) >> @Q_Barbarians_SHIFT); + +//TODO: think about amount + set @candy, 25; + set @chocolate, 20; + set @candycane, 15; + set @sweet_exp, 10000; + + if (@state >= 6) goto L_Impressed; + if (@state == 5) goto L_Questions; + if (@state == 4) goto L_Warrior; + if (@state == 3) goto L_Sweets; + if (@state == 2) goto L_Kimarr; + if (@state == 1) goto L_Fluffy; + + mes "[Barbarian]"; + mes "\"Welcome. My name is Birrod, warrior of the Mangarr.\""; + next; + mes "\"We usually live high up in the snowy mountains, but we need to solve a problem, so we came down here.\""; + next; + mes "\"But this shouldn't concern you.\""; + close; + +L_Fluffy: + mes "[Birrod]"; + mes "\"Kimarr asked you to perform the fluffy hunting? I'm curious how you're going to do it.\""; + mes "He grins."; + close; + +L_Kimarr: + mes "[Birrod]"; + mes "\"Great! Very well done! Welcome to our tribe.\""; + next; + mes "\"But I think, Kimarr has something for you.\""; + close; + +L_Sweets: + mes "Birrod speaks with a lowered voice."; + mes "[Birrod]"; + mes "\"" + strcharinfo(0) + ", can I ask you for a favor?\""; + next; + mes "\"I noticed those slime things with the funny hats. And they have so tasty stuff with them!\""; + next; + mes "He blushes."; + mes "[Birrod]"; + mes "\"A warrior shouldn't get excited about sweets, so ahm, it would be great if you don't tell Yerrnk and Kimarr about it.\""; + next; + mes "\"Do you have " + @candy + " Candys, " + @chocolate + " Chocolate Bars and " + @candycane + " Candy Canes for me?\""; + menu + "Sure.",-, + "I'll see what I can do.",L_Close, + "I'm a great warrior, I don't have sweets with me!",L_Close; + + if ((countitem("Candy") < @candy) || (countitem("ChocolateBar") < @chocolate) || (countitem("CandyCane") < @candycane)) goto L_No_Items; + delitem "Candy", @candy; + delitem "ChocolateBar", @chocolate; + delitem "CandyCane", @candycane; + getexp @sweet_exp, 0; + set @state, 4; + callsub S_Update_Mask; + close; + +L_Warrior: +//TODO: player can show his fighting abilities by bringing some drop of wolve monsters +// wolve monsters are more dangerous and harder to hunt than fluffies -> harder task +// reason to hunt them: there unusual aggressive and are a danger for the people living in that area +// also use of the items the drop (e.g. fur -> clothes) + mes "TODO: add story about hunting the wolf monsters here."; + menu + "Debug: succes",-, + "Debug: no succes",L_Close; + set @state, 5; + callsub S_Update_Mask; + close; + +L_Questions: +//TODO: minigame idea: barbarian asks some questions with three possible answers, player needs to always choose the right answer +//question are about how the player would act in certain situations and about his attitude +// give raging skill if successfull + mes "TODO: minigame and skill"; + menu + "Debug: succes",-, + "Debug: no succes",L_Close; + set @state, 6; + callsub S_Update_Mask; + close; + +L_Impressed: + mes "\"I'm very proud of you being a member of the tribe.\""; + close; + +L_No_Items: + mes "\"" + strcharinfo(0) + ", remember that a member of our tribe is candid and honest.\""; + close; + +L_Close: + close; + +S_Update_Mask: + set QUEST_Barbarians, + (QUEST_Barbarians & ~(@Q_Barbarians_MASK)) + | (@state << @Q_Barbarians_SHIFT); + return; +} |