Barbarians: Adding minigame to Birrod, some dialogue

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: