Merge branch 'master' into magic

Conflicts:

	db/item_db.txt

14 files changed, 453 insertions, 23 deletions

diff --git a/npc/001-1_Tulimshar/bleacher.txt b/npc/001-1_Tulimshar/bleacher.txt
index 48b5c6c6..67ea1497 100644
--- a/npc/001-1_Tulimshar/bleacher.txt
+++ b/npc/001-1_Tulimshar/bleacher.txt
@@ -29,6 +29,7 @@ L_bleach_menu:
 		"Silk robe", L_robe,
 		"Cotton headband", L_cotton_headband,
 		"Desert hat", L_desert_hat,
+		"Cotton boots", L_cotton_boots,
 		"Nevermind", -;
 	goto L_close;
 	
@@ -74,6 +75,11 @@ L_desert_hat:
 	set @normal, 723;
 	set @dyeBase, 2130;
 	goto L_choose_color;
+
+L_cotton_boots:
+	set @normal, 735;
+	set @dyeBase, 2150;
+	goto L_choose_color;
 	
 L_choose_color:
 	mes "[Candide]";
diff --git a/npc/009-2_Hurnscald/selim.txt b/npc/009-2_Hurnscald/selim.txt
index cc7a8863..14eac5b9 100644
--- a/npc/009-2_Hurnscald/selim.txt
+++ b/npc/009-2_Hurnscald/selim.txt
@@ -28,6 +28,7 @@ L_clothes_choice:
 		"Silk robe", L_robe,
 		"Cotton headband", L_headband,
 		"Desert hat", L_desert_hat,
+		"Cotton boots", L_cottonboots,
 		"I'm fine for now, thanks.", -;
 	close;
 
@@ -93,6 +94,12 @@ L_desert_hat:
         set @name$, "desert hat";
 	goto L_picked_item;
 
+L_cottonboots:
+	set @del, 735;
+	set @new, 2150;
+	set @name$, "cotton boots";
+	goto L_picked_item;
+
 L_picked_item:
 	if (countitem(@del) == 0) goto L_havenone;
 L_colour:
diff --git a/npc/015-1_Woodland/_import.txt b/npc/015-1_Woodland/_import.txt
index fcefd199..4879bd5a 100644
--- a/npc/015-1_Woodland/_import.txt
+++ b/npc/015-1_Woodland/_import.txt
@@ -2,5 +2,6 @@ map: 015-1.gat
 npc: npc/015-1_Woodland/_mobs.txt
 npc: npc/015-1_Woodland/_warps.txt
 npc: npc/015-1_Woodland/alice.txt
+npc: npc/015-1_Woodland/barrier.txt
 npc: npc/015-1_Woodland/monsters.txt
 npc: npc/015-1_Woodland/sword.txt
diff --git a/npc/015-1_Woodland/_warps.txt b/npc/015-1_Woodland/_warps.txt
index c6ca1856..cb9044e9 100644
--- a/npc/015-1_Woodland/_warps.txt
+++ b/npc/015-1_Woodland/_warps.txt
@@ -1,3 +1,4 @@
 // 015-1 Woodland warps
 
 015-1.gat,93,55	warp	ToWoodland	-1,0,010-1.gat,15,55
+015-1.gat,59,31	warp	to 015_3	-1,-1,015-3.gat,31,36
diff --git a/npc/015-1_Woodland/alice.txt b/npc/015-1_Woodland/alice.txt
index b9ce5831..629cfed5 100644
--- a/npc/015-1_Woodland/alice.txt
+++ b/npc/015-1_Woodland/alice.txt
@@ -1,16 +1,23 @@
-//#################################################################################
-//#                                                                               #
-//# A herb collector giving the players some hints about finding and brewing      #
-//# herbs                                                                         #
-//#                                                                               #
-//#################################################################################
-
+// A herb collector giving the players some hints about finding and brewing
+// herbs.
 
 015-1.gat,52,53,0	script	Alice	106, {
 	mes "[Alice]";
 	mes "\"Greeting, fellow wanderer.";
 	mes "Are you collecting herbs, too?\"";
 	next;
+	if (LastHiss == 2 && Katze < 4)
+		menu
+			"Yes, sure.", L_findmany,
+			"Herbs?", L_herbs,
+			"Nope, just enjoying the scenery.", close,
+			"I saw the cat, but it doesn't like me.", L_cat;
+	if (LastHiss == 1)
+		menu
+			"Yes, sure.", L_findmany,
+			"Herbs?", L_herbs,
+			"Nope, just enjoying the scenery.", close,
+			"There is a monster in that cave!", L_cave;
 	menu
 		"Yes, sure.", L_findmany,
 		"Herbs?", L_herbs,
@@ -35,7 +42,6 @@ L_plenty:
 	mes "Good brewers get much better healing potions from them.";
 	mes "The most important characteristic of a good brewer is intelligence.\"";
 	close;
-		
 
 L_herbs:
 	mes "[Alice]";
@@ -43,4 +49,33 @@ L_herbs:
 	mes "Caul in Hurnscald found a way to brew magical healing potions from them, and I have heard a rumor that they may also be good for making colors.";
 	mes "Now everyone is running around in the woods to harvest the herbs.\"";
 	close;
+
+L_cave:
+	mes "[Alice]";
+	mes "\"Haha, that is no monster! It's just a sweet little cat.\"";
+	next;
+	menu
+		"But it wanted to kill me!", -,
+		"A cat!? I'll go and kill it!", -;
+	mes "[Alice]";
+	mes "\"No no, I'm sure it was only frightened. It gets upset when you've got clothes or weapons on you.\"";
+	next;
+	menu
+		"Ok, let's try it without clothes then", -,
+		"What a stupid cat!", -;
+	mes "[Alice]";
+	mes "\"Please don't do her any harm. See you later!\"";
+	next;
+	close;
+
+L_cat:
+	mes "[Alice]";
+	mes "\"You would have to tame her first. Maybe she's thirsty or hungry. Cats also tend to get bored without something to play with. Good luck!\"";
+	next;
+	menu "Thank you so much!", close,
+	     "Are you crazy? Taming a cat?", -;
+	mes "[Alice]";
+	mes "\"Well, it's up to you.\"";
+	next;
+	close;
 }
diff --git a/npc/015-1_Woodland/barrier.txt b/npc/015-1_Woodland/barrier.txt
new file mode 100644
index 00000000..beeeb976
--- /dev/null
+++ b/npc/015-1_Woodland/barrier.txt
@@ -0,0 +1,7 @@
+// This barrier is for checking whether the player went outside after
+// progressing with the cat quest.
+
+015-1.gat,59,32,0	script	#CatOutsideBarrier	127,1,1,{
+    set KatzeBeenOutside, 1;
+    close;
+}
diff --git a/npc/015-3/_import.txt b/npc/015-3/_import.txt
new file mode 100644
index 00000000..ad76971d
--- /dev/null
+++ b/npc/015-3/_import.txt
@@ -0,0 +1,6 @@
+map: 015-3.gat
+npc: npc/015-3/_mobs.txt
+npc: npc/015-3/_warps.txt
+npc: npc/015-3/barrier.txt
+npc: npc/015-3/katze.txt
+npc: npc/015-3/pot.txt
diff --git a/npc/015-3/_mobs.txt b/npc/015-3/_mobs.txt
new file mode 100644
index 00000000..7ed7bc67
--- /dev/null
+++ b/npc/015-3/_mobs.txt
@@ -0,0 +1,27 @@
+// 015-3 mobs
+
+015-3.gat,21,25,3,4	monster	Bats	1017,2,0,0,Mob015-3::On1017
+015-3.gat,29,31,2,2	monster	Maggots	1002,2,0,0,Mob015-3::On1002
+015-3.gat,23,19,1,1	monster	Maggots	1002,1,0,0,Mob015-3::On1002
+015-3.gat,40,19,1,1	monster	Spider	1012,1,0,0,Mob015-3::On1012
+015-3.gat,29,35,2,1	monster	Spider	1012,1,0,0,Mob015-3::On1012
+
+
+015-3.gat,0,0,0	script	Mob015-3	-1,{
+On1002:
+	set @mobID, 1002;
+	callfunc "MobPoints";
+	break;
+
+On1012:
+	set @mobID, 1012;
+	callfunc "MobPoints";
+	break;
+
+On1017:
+	set @mobID, 1017;
+	callfunc "MobPoints";
+	break;
+
+	end;
+}
diff --git a/npc/015-3/_warps.txt b/npc/015-3/_warps.txt
new file mode 100644
index 00000000..90107d63
--- /dev/null
+++ b/npc/015-3/_warps.txt
@@ -0,0 +1,3 @@
+// 015-3 warps
+
+015-3.gat,31,37	warp	to 015-1	-1,-1,015-1.gat,59,32
diff --git a/npc/015-3/barrier.txt b/npc/015-3/barrier.txt
new file mode 100644
index 00000000..4039e9f5
--- /dev/null
+++ b/npc/015-3/barrier.txt
@@ -0,0 +1,28 @@
+// You can only enter the cat cave naked, otherwise the cat's reaction scares
+// you away. You can also get in while wearing the cat ears.
+
+015-3.gat,31,36,0	script	#CatCaveBarrier	127,1,1,{
+
+    if (getequipid(equip_head) != 1217 && (getequipid(equip_head) > 0 ||
+        getequipid(equip_shield) > 0 ||
+        getequipid(equip_hand1) > 0 ||
+        getequipid(equip_hand2) > 0 ||
+        getequipid(equip_gloves) > 0 ||
+        getequipid(equip_shoes) > 0 ||
+        getequipid(equip_misc1) > 0 ||
+        getequipid(equip_misc2) > 0 ||
+        getequipid(equip_torso) > 0 ||
+        getequipid(equip_legs) > 0)) goto L_Not_Naked;
+
+    if (LastHiss != 2) mes "\"Hissss...\"";
+    set LastHiss, 2;
+    close;
+
+L_Not_Naked:
+    warp "015-1.gat", 60, 32;
+    set LastHiss, 1;
+    mes "\"GRAAUWL! Hissss...\"";
+    mes "Scared of what you hear, you flee back outside.";
+    next;
+    close;
+}
diff --git a/npc/015-3/katze.txt b/npc/015-3/katze.txt
new file mode 100644
index 00000000..c24a9f80
--- /dev/null
+++ b/npc/015-3/katze.txt
@@ -0,0 +1,207 @@
+// Katze doesn't like the player at first, needs following:
+//
+// 1. Some milk
+// 2. Some steak or chicken leg
+// 3. Some fur
+//
+// Now the cat starts to speak, still needs:
+//
+// 4. Some wood for scratching
+// 5. Some stuff for making somethings nice for the player:
+//
+//    * 2 Snake skins
+//    * 2 Snake tongues
+//    * 2 Maggot slimes
+//    * 2 White furs
+//    * 2 Hard spikes
+//    * 2 Tiny potions
+
+015-3.gat,32,25,0	script	Katze	172, {
+
+    if (Katze == 1 && KatzeBeenOutside == 1) goto L_NeedsFood;
+    if (Katze == 1) goto L_PreNeedsFood;
+
+    if (Katze == 2 && KatzeBeenOutside == 1) goto L_NeedsFur;
+    if (Katze == 2) goto L_PreNeedsFur;
+
+    if (Katze == 3) goto L_NeedsWood;
+
+    if (Katze == 4 && KatzeBeenOutside == 1) goto L_NeedsStuff;
+    if (Katze == 4) goto L_PreNeedsStuff;
+
+    if (Katze == 5) goto L_NeedsStuff2;
+
+    if (Katze == 6 && KatzeBeenOutside == 1) goto L_GainEars;
+    if (Katze == 6) goto L_PreGainEars;
+
+    if (Katze == 7) goto L_Finished;
+
+L_NeedsMilk:
+    mes "[Katze]";
+    mes "\"Meow.\"";
+    next;
+    menu "Throw a stone at the cat", L_ThrowStone,
+         "Leave the cat alone", -;
+    close;
+
+L_ThrowStone:
+    set Katze, 0;
+    // Maybe make sure not to kill the player, since this has an issue. The
+    // text below will remain in the NPC dialog until it is used again.
+    heal -100,0;
+    warp "015-1.gat", 60, 32;
+    mes "\"GRAAUWL! Hissss...\"";
+    mes "Yikes, the cat attacked you! Your whole body is scratched. Maybe throwing a stone wasn't such a great idea...";
+    next;
+    close;
+
+L_PreNeedsFood:
+L_NeedsFood:
+    mes "[Katze]";
+    mes "\"Meow, prrrr...\"";
+    next;
+    menu "Throw a stone at the cat", L_ThrowStone,
+         "Leave the cat alone", -;
+    close;
+
+L_PreNeedsFur:
+L_NeedsFur:
+    mes "[Katze]";
+    mes "\"Prrr. Meow, prrr...\"";
+    next;
+
+    if (countitem(611) > 0)  // White Fur
+        menu "Make funny movements with the fur near the ground", L_MoveFur,
+             "Throw a stone at the cat", L_ThrowStone,
+             "Leave the cat alone", -;
+    if (countitem(611) == 0)
+        menu "Throw a stone at the cat", L_ThrowStone,
+             "Leave the cat alone", -;
+    close;
+
+L_MoveFur:
+    delitem 611, 1; // Cat takes the white fur
+    set Katze, 3;
+    mes "The cat jumps at the fur! You quickly let go of it. The cat happily returns to its spot, carrying the fur in its mouth.";
+    next;
+    mes "The cat drops the fur and looks at you with half opened eyes. Suddenly she starts talking, and says: \"That was very kind of you.\" She seems to be smiling.";
+    next;
+    close;
+
+L_NeedsWood:
+    mes "[Katze]";
+    mes "\"Prrrr, now I'd like something to sharpen my claws on.\"";
+    next;
+
+    if (countitem(569) > 0)   // Raw log
+        menu "Want this piece of wood?", L_GiveWood,
+             "Ok, see you later", -;
+    close;
+
+L_GiveWood:
+    mes "[Katze]";
+    mes "\"Sure! Please put it next to the pot.\"";
+    next;
+    close;
+
+L_PreNeedsStuff:
+    mes "The cat is still eyeing the piece of wood. She probably needs to be left alone for a bit again.";
+    next;
+    close;
+
+L_NeedsStuff:
+    set Katze, 5;
+    mes "[Katze]";
+    mes "\"You've been really kind to me. I can make you something nice, but I will need";
+    mes "2 snake skins,";
+    mes "2 snake tongues,";
+    mes "2 maggot slimes,";
+    mes "2 white furs,";
+    mes "2 hard spikes and";
+    mes "2 tiny healing potions.\"";
+    next;
+    close;
+
+L_NeedsStuff2:
+    mes "[Katze]";
+    mes "\"Did you bring what I asked you for?\"";
+    next;
+    menu "Look here", L_CatChecksStuff,
+         "What do you need again?", L_WhatsNeeded,
+         "No, I haven't got everything yet", -;
+    close;
+
+L_WhatsNeeded:
+    mes "[Katze]";
+    mes "\"Actually, you should have remembered yourself.\"";
+    next;
+    menu "Please tell me", L_Please,
+         "Never mind", -;
+    close;
+
+L_Please:
+    mes "[Katze]";
+    mes "\"Alright... [the cat glares at you] it was";
+    mes "2 snake skins,";
+    mes "2 snake tongues,";
+    mes "2 maggot slimes,";
+    mes "2 white furs,";
+    mes "2 hard spikes and";
+    mes "2 tiny healing potions.\"";
+    next;
+    close;
+
+L_CatChecksStuff:
+    if (countitem(641) > 1 &&             // Snake skin
+        countitem(710) > 1 &&             // Snake tongue
+        countitem(505) > 1 &&             // Maggot slime
+        countitem(611) > 1 &&             // White fur
+        countitem(613) > 1 &&             // Hard spike
+        countitem(684) > 1)               // Tiny healing potion
+        goto L_GiveStuff;
+    mes "[Katze]";
+    mes "\"You don't seem to have everything yet. Come back later when you do.\"";
+    next;
+    close;
+
+L_GiveStuff:
+    delitem 641, 2;
+    delitem 710, 2;
+    delitem 505, 2;
+    delitem 611, 2;
+    delitem 613, 2;
+    delitem 684, 2;
+    set Katze, 6;
+    set KatzeBeenOutside, 0;
+    mes "[Katze]";
+    mes "\"Nicely done! Now leave me alone for a while, I need some time to prepare your present.\"";
+    next;
+    close;
+
+L_PreGainEars:
+    mes "[Katze]";
+    mes "\"Please leave me alone for a while, so I can prepare your present.\"";
+    next;
+    close;
+
+L_GainEars:
+    getitem 1217, 1;    // Cat ears
+    set @xpval, 5000;
+    getexp @xpval, 0;
+    set Katze, 7;
+    mes "[Katze]";
+    mes "\"Look what I made for you! It makes you look a bit like me! Maybe it will give you a feeling of what it is like to be a cat.\"";
+    mes "The cat winks at you.";
+    mes "[You gain " + @xpval + " experience points]";
+    next;
+    close;
+
+L_Finished:
+    mes "[Katze]";
+    if (getequipid(equip_head) == 1217)  // Cat ears
+        mes "\"Meow, fellow cat.\"";
+    if (getequipid(equip_head) != 1217)
+        mes "\"Meow. Lost your ears?\"";
+    next;
+    close;
+}
diff --git a/npc/015-3/pot.txt b/npc/015-3/pot.txt
new file mode 100644
index 00000000..bf3bd945
--- /dev/null
+++ b/npc/015-3/pot.txt
@@ -0,0 +1,111 @@
+// The pot where the player can deposit stuff for the cat.
+
+015-3.gat,37,29,0	script	Pot	127, {
+
+    if (Katze > 0)
+        mes "It's that old pot again.";
+    if (Katze == 0)
+        mes "It's a pot.";
+    next;
+
+    if (Katze == 1 && KatzeBeenOutside == 1) goto L_NeedsFood;
+    if (Katze == 1) goto L_HasMilk;
+
+    if (Katze == 2 && KatzeBeenOutside == 1) goto L_NeedsFur;
+    if (Katze == 2) goto L_HasFood;
+
+    if (Katze == 3) goto L_NeedsWood;
+
+    if (Katze == 4 && KatzeBeenOutside == 0) goto L_HasWood;
+    if (Katze >= 4) goto L_Finished;
+
+L_NeedsMilk:
+    if (countitem(527) > 0)
+        menu
+            "Pour in some milk", L_GiveMilk,
+            "Leave it alone", -;
+    close;
+
+L_GiveMilk:
+    delitem 527, 1;
+    set Katze, 1;
+    set KatzeBeenOutside, 0;
+    close;
+
+L_HasMilk:
+    mes "There is milk in it.";
+    next;
+    close;
+
+L_NeedsFood:
+    mes "The milk is gone!";
+    next;
+
+    if (countitem(562) > 0 && countitem(676) > 0)
+        menu
+            "Put in a chicken leg", L_GiveChicken,
+            "Put in a steak", L_GiveSteak,
+            "Leave it alone", -;
+    if (countitem(562) > 0 && countitem(676) == 0)
+        menu
+            "Put in a chicken leg", L_GiveChicken,
+            "Leave it alone", -;
+    if (countitem(562) == 0 && countitem(676) > 0)
+        menu
+            "Put in a steak", L_GiveSteak,
+            "Leave it alone", -;
+    close;
+
+L_GiveChicken:
+    delitem 562, 1;
+    set Katze, 2;
+    set KatzeBeenOutside, 0;
+    close;
+
+L_GiveSteak:
+    delitem 676, 1;
+    set Katze, 2;
+    set KatzeBeenOutside, 0;
+    close;
+
+L_HasFood:
+    mes "There is some food in it.";
+    next;
+    close;
+
+L_NeedsFur:
+    mes "And it's empty!";
+    next;
+
+    if (countitem(611) > 0)  // White Fur
+        menu "Put a white fur next to the pot", L_GiveFur,
+             "Leave it alone", -;
+    close;
+
+L_GiveFur:
+    mes "You put down the fur, but the cat doesn't seem to take any notice. Maybe there's something else you could do. You pick the fur up again.";
+    next;
+    close;
+
+L_NeedsWood:
+    if (countitem(569) > 0)   // Raw log
+        menu "Put a wooden log next to the pot", L_GiveWood,
+             "Leave it alone", -;
+    close;
+
+L_GiveWood:
+    delitem 569, 1;
+    set Katze, 4;
+    set KatzeBeenOutside, 0;
+    mes "You put the wooden log next to the pot. The cat eyes it suspiciously, but remains on her spot.";
+    next;
+    close;
+
+L_HasWood:
+    mes "A wooden log is patiently lying next to it.";
+    next;
+    close;
+
+L_Finished:
+    close;
+}
diff --git a/npc/_import.txt b/npc/_import.txt
index 626ecc37..142fd3ec 100644
--- a/npc/_import.txt
+++ b/npc/_import.txt
@@ -29,6 +29,7 @@ import: npc/013-3_Cave/_import.txt
 import: npc/014-1_Woodland/_import.txt
 import: npc/014-3_Cave/_import.txt
 import: npc/015-1_Woodland/_import.txt
+import: npc/015-3/_import.txt
 import: npc/016-1_Woodland/_import.txt
 import: npc/017-1_Woodland_hills/_import.txt
 import: npc/018-1_Woodland_mining_camp/_import.txt
diff --git a/npc/functions/barber.txt b/npc/functions/barber.txt
index 0edaab73..57c3c598 100644
--- a/npc/functions/barber.txt
+++ b/npc/functions/barber.txt
@@ -6,10 +6,9 @@ function	script	Barber	{
 		"Change my color", L_Color,
 		"Nah, I'm fine", L_Done;
 
+	goto L_Done;
+
 L_Style:
-	if (Sex == 0) goto L_Style_Female;
-	
-L_Style_Male:
 	menu
 		"Bald", -,
 		"Ponytail", -,
@@ -18,27 +17,18 @@ L_Style_Male:
 		"Emo", -,
 		"Mohawk", -,
 		"Pompadour", -,
-		"Center parting", -,
-		"Supprise me", -,
-		"Nah, I'm fine", close;
-		goto L_Process_Style;
-
-L_Style_Female:
-	menu
-		"Bald", -,
+		"Center parting/Short and slick", -,
 		"Long and slick", -,
 		"Short and curly", -,
-		"Ponytail", -,
-		"Pigtails", -,
 		"Long and curly", -,
+		"Pigtails", -,
 		"Parted", -,
-		"Short and slick", -,
 		"Supprise me", -,
 		"Nah, I'm fine", L_Done;
 
 L_Process_Style:
 	set @style, @menu - 1;
-	if (@style == 8) set @style, rand(8);
+	if (@style == 13) set @style, rand(13);
 	setlook 1, @style;
 	return;