summaryrefslogtreecommitdiff
path: root/npc/015-3_Cave
diff options
context:
space:
mode:
Diffstat (limited to 'npc/015-3_Cave')
-rw-r--r--npc/015-3_Cave/_import.txt6
-rw-r--r--npc/015-3_Cave/_mobs.txt26
-rw-r--r--npc/015-3_Cave/_warps.txt3
-rw-r--r--npc/015-3_Cave/barrier.txt27
-rw-r--r--npc/015-3_Cave/katze.txt196
-rw-r--r--npc/015-3_Cave/pot.txt106
6 files changed, 364 insertions, 0 deletions
diff --git a/npc/015-3_Cave/_import.txt b/npc/015-3_Cave/_import.txt
new file mode 100644
index 00000000..1386fb6a
--- /dev/null
+++ b/npc/015-3_Cave/_import.txt
@@ -0,0 +1,6 @@
+map: 015-3.gat
+npc: npc/015-3_Cave/_mobs.txt
+npc: npc/015-3_Cave/_warps.txt
+npc: npc/015-3_Cave/barrier.txt
+npc: npc/015-3_Cave/katze.txt
+npc: npc/015-3_Cave/pot.txt
diff --git a/npc/015-3_Cave/_mobs.txt b/npc/015-3_Cave/_mobs.txt
new file mode 100644
index 00000000..331f1e25
--- /dev/null
+++ b/npc/015-3_Cave/_mobs.txt
@@ -0,0 +1,26 @@
+// 015-3 mobs
+
+015-3.gat,21,25,3,4 monster Bats 1017,2,100000,30000,Mob015-3::On1017
+015-3.gat,29,31,2,2 monster Maggots 1002,2,100000,30000,Mob015-3::On1002
+015-3.gat,23,19,1,1 monster Maggots 1002,1,100000,30000,Mob015-3::On1002
+015-3.gat,40,19,1,1 monster Spider 1012,1,100000,30000,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_Cave/_warps.txt b/npc/015-3_Cave/_warps.txt
new file mode 100644
index 00000000..8b8a83d7
--- /dev/null
+++ b/npc/015-3_Cave/_warps.txt
@@ -0,0 +1,3 @@
+// 015-3 warps
+
+015-3.gat,31,43 warp to 015-1 -1,-1,015-1.gat,59,32
diff --git a/npc/015-3_Cave/barrier.txt b/npc/015-3_Cave/barrier.txt
new file mode 100644
index 00000000..27a18bc3
--- /dev/null
+++ b/npc/015-3_Cave/barrier.txt
@@ -0,0 +1,27 @@
+// 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,42,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.";
+ close;
+}
diff --git a/npc/015-3_Cave/katze.txt b/npc/015-3_Cave/katze.txt
new file mode 100644
index 00000000..1654542c
--- /dev/null
+++ b/npc/015-3_Cave/katze.txt
@@ -0,0 +1,196 @@
+// 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...";
+ 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("WhiteFur") > 0)
+ 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("WhiteFur") == 0)
+ menu "Throw a stone at the cat", L_ThrowStone,
+ "Leave the cat alone", -;
+ close;
+
+L_MoveFur:
+ delitem "WhiteFur", 1;
+ 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.";
+ close;
+
+L_NeedsWood:
+ mes "[Katze]";
+ mes "\"Prrrr, now I'd like something to sharpen my claws on.\"";
+ next;
+
+ if (countitem("RawLog") > 0)
+ 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.\"";
+ close;
+
+L_PreNeedsStuff:
+ mes "The cat is still eyeing the piece of wood. She probably needs to be left alone for a bit again.";
+ 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 skin]s,";
+ mes "2 [snake tongue]s,";
+ mes "2 [maggot slime]s,";
+ mes "2 [white fur]s,";
+ mes "2 [hard spike]s and";
+ mes "2 [tiny healing potion]s.\"";
+ 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 skin]s,";
+ mes "2 [snake tongue]s,";
+ mes "2 [maggot slime]s,";
+ mes "2 [white fur]s,";
+ mes "2 [hard spike]s and";
+ mes "2 [tiny healing potion]s.\"";
+ close;
+
+L_CatChecksStuff:
+ if (countitem("SnakeSkin") > 1 &&
+ countitem("SnakeTongue") > 1 &&
+ countitem("MaggotSlime") > 1 &&
+ countitem("WhiteFur") > 1 &&
+ countitem("HardSpike") > 1 &&
+ countitem("TinyHealingPotion") > 1)
+ goto L_GiveStuff;
+ mes "[Katze]";
+ mes "\"You don't seem to have everything yet. Come back later when you do.\"";
+ close;
+
+L_GiveStuff:
+ delitem "SnakeSkin", 2;
+ delitem "SnakeTongue", 2;
+ delitem "MaggotSlime", 2;
+ delitem "WhiteFur", 2;
+ delitem "HardSpike", 2;
+ delitem "TinyHealingPotion", 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.\"";
+ close;
+
+L_PreGainEars:
+ mes "[Katze]";
+ mes "\"Please leave me alone for a while, so I can prepare your present.\"";
+ close;
+
+L_GainEars:
+ getitem "CatEars", 1;
+ 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]";
+ 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?\"";
+ close;
+}
diff --git a/npc/015-3_Cave/pot.txt b/npc/015-3_Cave/pot.txt
new file mode 100644
index 00000000..a965223d
--- /dev/null
+++ b/npc/015-3_Cave/pot.txt
@@ -0,0 +1,106 @@
+// 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("Milk") > 0)
+ menu
+ "Pour in some milk", L_GiveMilk,
+ "Leave it alone", -;
+ close;
+
+L_GiveMilk:
+ delitem "Milk", 1;
+ set Katze, 1;
+ set KatzeBeenOutside, 0;
+ close;
+
+L_HasMilk:
+ mes "There is milk in it.";
+ close;
+
+L_NeedsFood:
+ mes "The milk is gone!";
+ next;
+
+ if (countitem("ChickenLeg") > 0 && countitem("Steak") > 0)
+ menu
+ "Put in a chicken leg", L_GiveChicken,
+ "Put in a steak", L_GiveSteak,
+ "Leave it alone", -;
+ if (countitem("ChickenLeg") > 0 && countitem("Steak") == 0)
+ menu
+ "Put in a chicken leg", L_GiveChicken,
+ "Leave it alone", -;
+ if (countitem("ChickenLeg") == 0 && countitem("Steak") > 0)
+ menu
+ "Put in a steak", L_GiveSteak,
+ "Leave it alone", -;
+ close;
+
+L_GiveChicken:
+ delitem "ChickenLeg", 1;
+ set Katze, 2;
+ set KatzeBeenOutside, 0;
+ close;
+
+L_GiveSteak:
+ delitem "Steak", 1;
+ set Katze, 2;
+ set KatzeBeenOutside, 0;
+ close;
+
+L_HasFood:
+ mes "There is some food in it.";
+ close;
+
+L_NeedsFur:
+ mes "And it's empty!";
+ next;
+
+ if (countitem("WhiteFur") > 0)
+ 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.";
+ close;
+
+L_NeedsWood:
+ if (countitem("RawLog") > 0)
+ menu "Put a wooden log next to the pot", L_GiveWood,
+ "Leave it alone", -;
+ close;
+
+L_GiveWood:
+ delitem "RawLog", 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.";
+ close;
+
+L_HasWood:
+ mes "A wooden log is patiently lying next to it.";
+ close;
+
+L_Finished:
+ close;
+}