summaryrefslogtreecommitdiff
path: root/world
diff options
context:
space:
mode:
Diffstat (limited to 'world')
-rw-r--r--world/map/npc/033-1/birrod.txt157
-rw-r--r--world/map/npc/033-1/yerrnk.txt14
2 files changed, 161 insertions, 10 deletions
diff --git a/world/map/npc/033-1/birrod.txt b/world/map/npc/033-1/birrod.txt
index 39ccaa9f..0e962e21 100644
--- a/world/map/npc/033-1/birrod.txt
+++ b/world/map/npc/033-1/birrod.txt
@@ -1,5 +1,5 @@
033-1.gat,72,27,0 script Birrod 217, {
-
+//TODO: minimum level for quests?
set @Q_Barbarians_MASK, NIBBLE_0_MASK;
set @Q_Barbarians_SHIFT, NIBBLE_0_SHIFT;
@@ -11,6 +11,11 @@
set @candycane, 15;
set @sweet_exp, 10000;
+//TODO set @wolfdrop, ;
+//TODO set @wolf_exp, ;
+
+ set @minigame_exp, 5000;
+
if (@state >= 6) goto L_Impressed;
if (@state == 5) goto L_Questions;
if (@state == 4) goto L_Warrior;
@@ -63,6 +68,10 @@ L_Sweets:
getexp @sweet_exp, 0;
set @state, 4;
callsub S_Update_Mask;
+ mes "[Birrod]";
+ mes "\"Thank you!\"";
+ mes "He puts the sweets in his pockets covertly.";
+ mes "Then takes one candy and eats it with such a delighted look on his face that's really hard not to burst out in laughter.";
close;
L_Warrior:
@@ -70,22 +79,144 @@ L_Warrior:
// 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.";
+ mes "[Birrod]";
+ mes "\"Hello, " + strcharinfo(0) + "! Would you like to prove your hunting skills again?\"";
+ next;
+//TODO: check name of monster
+ mes "\"I noticed many wolverns in this area. When there are so many of them, they reduce the fluffy population too much.";
+ mes "Also they are dangerous to all the small people who live in the town nearby.\"";
+ next;
+ mes "\"Bring me (amount) (TODO:drop of wolvern).";
+ mes "TODO: add story about what useful can be done with that drop.";
menu
- "Debug: succes",-,
- "Debug: no succes",L_Close;
+ "Debug succes",-,
+ "Debug no succes",L_Close;
set @state, 5;
callsub S_Update_Mask;
+ mes "[Birrod]";
+ mes "\"TODO: impressed, player is ready to become a fully accepted warrior of the tribe. Shall come back when ready for initiation ritual. (that means getting the skill pool skill)\"";
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";
+//TODO: find out the problem
+ if (getskilllv(SKILL_POOL) == 0) goto L_Not_Ready;
+ mes "Birrod has a very ceremonial look on his face.";
+ mes "[Birrod]";
+ mes "\"" + strcharinfo(0) + ", are you ready to become a full-fledged member of our tribe, the Mangarr?\"";
+ menu
+ "Yes, what do I need to do?",-,
+ "That's why I'm here.",-,
+ "Sorry, I have to go. See you.",L_No_Member;
+ mes "Birrod nods earnestly.";
+ mes "[Birrod]";
+ mes "\"I will ask you some questions.";
+ mes "Think well and be honest, because it will depend on your answers if you will be considered worthily.\"";
+ next;
+ mes "\"What's the most important thing for a true warrior?\"";
+ menu
+ "Strength!",L_Fail11,
+ "A good weapon.",L_Fail12,
+ "Braveness.",L_Success11;
+L_Fail11:
+ mes "[Birrod]";
+ mes "\"Strength is indeed important for a warrior. But before you can show strength, you need to have something else.\"";
+ next;
+ goto L_No_Member;
+L_Fail12:
+ mes "[Birrod]";
+ mes "\"Are you kidding?\"";
+ next;
+ goto L_No_Member;
+L_Success11:
+ mes "[Birrod]";
+ mes "\"Wise words.\"";
+ next;
+ mes "\"What would you do if you are wounded but Yetis are attacking our tribe?\"";
+ menu
+ "Run as fast as I can.",L_Fail21,
+ "Fight no matter what.",L_Fail22,
+ "Try to hold them back until everyone is safe, then retreat.",L_Success21;
+L_Fail21:
+ mes "[Birrod]";
+ mes "\"You will never get a accepted member of our tribe with that attitude.\"";
+ next;
+ goto L_No_Member;
+L_Fail22:
+ mes "[Birrod]";
+ mes "\"Honorably but stupid.\"";
+ next;
+ goto L_No_Member;
+L_Success21:
+ mes "[Birrod]";
+ mes "\"Right.\"";
+ next;
+ mes "\"When you are on a hunting trip with your comrades and it's time to set up a camp in the evening, what things do you do?\"";
menu
- "Debug: succes",-,
- "Debug: no succes",L_Close;
+ "Take care of everyone who got wounded.",L_Success31,
+ "Pitch the tent and make a fire.",L_Success32,
+ "Lay down and rest.",L_Fail31;
+L_Success31:
+ mes "[Birrod]";
+ mes "\"You're a caring person. Good.\"";
+ next;
+ goto L_Success3;
+L_Success32:
+ mes "[Birrod]";
+ mes "\"You're diligent, good.\"";
+ next;
+ goto L_Success3;
+L_Fail31:
+ mes "[Birrod]";
+ mes "\"You wouldn't make friends that way.\"";
+ next;
+ goto L_No_Member;
+L_Success3:
+ mes "\"What is your goal in life?\"";
+ menu
+ "Learning new things and see the world.",L_Success41,
+ "Becoming as powerful as I can.",L_Fail41,
+ "Protect the ones I love.",L_Success42;
+L_Success41:
+ mes "[Birrod]";
+ mes "\"You're curious. An attribute we appreciate.\"";
+ next;
+ goto L_Success4;
+L_Fail41:
+ mes "[Birrod]";
+ mes "\"You're seeking power? For what?\"";
+ next;
+ goto L_No_Member;
+L_Success42:
+ mes "[Birrod]";
+ mes "\"An honorable goal.\"";
+ next;
+L_Success4:
+ mes "\"What do you think is a good reason to fight and kill?\"";
+ menu
+ "Because I want it.",L_Fail51,
+ "To survive.",L_Success51,
+ "To protect someone in need.",L_Success52;
+L_Fail51:
+ mes "[Birrod]";
+ mes "\"You think so?\"";
+ next;
+ goto L_No_Member;
+L_Success51:
+ mes "[Birrod]";
+ mes "\"Right.\"";
+ next;
+ goto L_Success5;
+L_Success52:
+ mes "[Birrod]";
+ mes "\"Yes, that's the most honorable reason.\"";
+ next;
+L_Success5:
+ getexp @minigame_exp, 0;
+ mes "TODO: some introductionw words to the skill";
+ setskill SKILL_WARRIOR_BERSERK, 1;
set @state, 6;
callsub S_Update_Mask;
close;
@@ -98,6 +229,18 @@ L_No_Items:
mes "\"" + strcharinfo(0) + ", remember that a member of our tribe is candid and honest.\"";
close;
+L_Not_Ready:
+ mes "[Birrod]";
+ mes "TODO: not ready, some hint to skill pool";
+ close;
+
+L_No_Member:
+ mes "Birrod shakes his head.";
+ mes "[Birrod]";
+ mes "\"Think again about your position in our tribe and what you want to achieve.";
+ mes "Come back when you feel better prepared.\"";
+ close;
+
L_Close:
close;
diff --git a/world/map/npc/033-1/yerrnk.txt b/world/map/npc/033-1/yerrnk.txt
index 022fb7ee..a951a8e4 100644
--- a/world/map/npc/033-1/yerrnk.txt
+++ b/world/map/npc/033-1/yerrnk.txt
@@ -1,5 +1,5 @@
033-1.gat,66,28,0 script Yerrnk 216, {
-
+//TODO: minimum level for quests?
set @Q_Barbarians_MASK, NIBBLE_0_MASK;
set @Q_Barbarians_SHIFT, NIBBLE_0_SHIFT;
@@ -70,8 +70,16 @@ L_Sorrow:
L_Birrod:
mes "[Yerrnk]";
mes "\"" + strcharinfo(0) + ", I have to admit that I'm surprised by your skills.";
- mes "You've proved your braveness and strength.";
- mes "Please talk to Birrod to receive the initiation ritual to become a warrior of the Mangarr.\"";
+ mes "You've proved your braveness and strength.\"";
+//TODO: find out the problem
+ if (getskilllv(SKILL_POOL) == 0) goto L_Not_Ready;
+ mes "\"Please talk to Birrod to receive the initiation ritual to become a warrior of the Mangarr.\"";
+ close;
+
+L_Not_Ready:
+ mes "[Yerrnk]";
+ mes "\"But you're not yet ready to become a fully accepted warrior of our tribe.";
+ mes "You should travel the world to gain the ability to focus on your inner strength.\"";
close;
L_Warrior: