summaryrefslogtreecommitdiff
path: root/world/map/npc/033-1/birrod.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/033-1/birrod.txt')
-rw-r--r--world/map/npc/033-1/birrod.txt109
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;
+}