summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--world/map/npc/015-1/alice.txt8
-rw-r--r--world/map/npc/015-3/barrier.txt13
-rw-r--r--world/map/npc/015-3/katze.txt45
-rw-r--r--world/map/npc/015-3/pot.txt32
-rw-r--r--world/map/npc/functions/clear_vars.txt2
5 files changed, 67 insertions, 33 deletions
diff --git a/world/map/npc/015-1/alice.txt b/world/map/npc/015-1/alice.txt
index 18fdb4ba..34f728a1 100644
--- a/world/map/npc/015-1/alice.txt
+++ b/world/map/npc/015-1/alice.txt
@@ -2,17 +2,21 @@
// herbs.
015-1.gat,52,53,0|script|Alice|106,{
+
+ set @cat, ((Katze & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT);
+ set @Hiss, ((Katze & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT);
+
mes "[Alice]";
mes "\"Greeting, fellow wanderer.";
mes "Are you collecting herbs, too?\"";
next;
- if (LastHiss == 2 && Katze < 4)
+ if (@Hiss == 2 && @cat < 4)
menu
"Yes, sure.", L_findmany,
"Herbs?", L_herbs,
"Nope, just enjoying the scenery.", L_close,
"I saw the cat, but it doesn't like me.", L_cat;
- if (LastHiss == 1)
+ if (@Hiss == 1)
menu
"Yes, sure.", L_findmany,
"Herbs?", L_herbs,
diff --git a/world/map/npc/015-3/barrier.txt b/world/map/npc/015-3/barrier.txt
index d0603c6c..5919fc2d 100644
--- a/world/map/npc/015-3/barrier.txt
+++ b/world/map/npc/015-3/barrier.txt
@@ -3,6 +3,7 @@
015-3.gat,31,42,0|script|#CatCaveBarrier|45,1,1,{
+ set @Hiss, ((Katze & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT);
if (getequipid(equip_head) != 1217
&& (getequipid(equip_head) > 0
|| getequipid(equip_shield) > 0
@@ -16,15 +17,21 @@
|| getequipid(equip_legs) > 0))
goto L_Not_Naked;
- if (LastHiss != 2)
+ if (@Hiss != 2)
mes "\"Hissss...\"";
- set LastHiss, 2;
+ set @Hiss, 2;
+ callsub S_Update_Hiss;
close;
L_Not_Naked:
warp "015-1.gat", 60, 32;
- set LastHiss, 1;
+ set @Hiss, 1;
+ callsub S_Update_Hiss;
mes "\"GRAAUWL! Hissss...\"";
mes "Scared of what you hear, you flee back outside.";
close;
+
+S_Update_Hiss:
+ set Katze, (Katze & ~(NIBBLE_1_MASK)) | (@Hiss << NIBBLE_1_SHIFT);
+ return;
}
diff --git a/world/map/npc/015-3/katze.txt b/world/map/npc/015-3/katze.txt
index 8b258a8e..229e38f8 100644
--- a/world/map/npc/015-3/katze.txt
+++ b/world/map/npc/015-3/katze.txt
@@ -18,17 +18,19 @@
015-3.gat,32,25,0|script|Katze|172,{
- if (Katze == 1 && @KatzeNeedsAlone == 0) goto L_NeedsFood;
- if (Katze == 1) goto L_PreNeedsFood;
- if (Katze == 2 && @KatzeNeedsAlone == 0) goto L_NeedsFur;
- if (Katze == 2) goto L_PreNeedsFur;
- if (Katze == 3) goto L_NeedsWood;
- if (Katze == 4 && @KatzeNeedsAlone == 0) goto L_NeedsStuff;
- if (Katze == 4) goto L_PreNeedsStuff;
- if (Katze == 5) goto L_NeedsStuff2;
- if (Katze == 6 && @KatzeNeedsAlone == 0) goto L_GainEars;
- if (Katze == 6) goto L_PreGainEars;
- if (Katze == 7) goto L_Finished;
+ set @cat, ((Katze & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT);
+
+ if (@cat == 1 && @catNeedsAlone == 0) goto L_NeedsFood;
+ if (@cat == 1) goto L_PreNeedsFood;
+ if (@cat == 2 && @catNeedsAlone == 0) goto L_NeedsFur;
+ if (@cat == 2) goto L_PreNeedsFur;
+ if (@cat == 3) goto L_NeedsWood;
+ if (@cat == 4 && @catNeedsAlone == 0) goto L_NeedsStuff;
+ if (@cat == 4) goto L_PreNeedsStuff;
+ if (@cat == 5) goto L_NeedsStuff2;
+ if (@cat == 6 && @catNeedsAlone == 0) goto L_GainEars;
+ if (@cat == 6) goto L_PreGainEars;
+ if (@cat == 7) goto L_Finished;
L_NeedsMilk:
mes "[Katze]";
@@ -39,7 +41,8 @@ L_NeedsMilk:
close;
L_ThrowStone:
- set Katze, 0;
+ set @cat, 0;
+ callsub S_Update_Katze;
percentheal -30, 0;
warp "015-1.gat", 60, 32;
mes "\"GRAAUWL! Hissss...\"";
@@ -75,7 +78,8 @@ L_NeedsFur:
L_MoveFur:
delitem "WhiteFur", 1;
- set Katze, 3;
+ set @cat, 3;
+ callsub S_Update_Katze;
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.";
@@ -102,7 +106,8 @@ L_PreNeedsStuff:
close;
L_NeedsStuff:
- set Katze, 5;
+ set @cat, 5;
+ callsub S_Update_Katze;
mes "[Katze]";
mes "\"You've been really kind to me. I can make you something nice, but I will need";
mes "2 Snake Skins,";
@@ -162,8 +167,9 @@ L_GiveStuff:
delitem "WhiteFur", 2;
delitem "HardSpike", 2;
delitem "TinyHealingPotion", 2;
- set Katze, 6;
- set @KatzeNeedsAlone, 1;
+ set @cat, 6;
+ callsub S_Update_Katze;
+ set @catNeedsAlone, 1;
mes "[Katze]";
mes "\"Nicely done! Now leave me alone for a while, I need some time to prepare your present.\"";
close;
@@ -177,7 +183,8 @@ L_GainEars:
getitem "CatEars", 1;
set @xpval, 5000;
getexp @xpval, 0;
- set Katze, 7;
+ set @cat, 7;
+ callsub S_Update_Katze;
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.";
@@ -191,4 +198,8 @@ L_Finished:
if (getequipid(equip_head) != 1217)
mes "\"Meow. Lost your ears?\"";
close;
+
+S_Update_Katze:
+ set Katze, (Katze & ~(NIBBLE_0_MASK)) | (@cat << NIBBLE_0_SHIFT);
+ return;
}
diff --git a/world/map/npc/015-3/pot.txt b/world/map/npc/015-3/pot.txt
index 926d5830..bb3c4b9c 100644
--- a/world/map/npc/015-3/pot.txt
+++ b/world/map/npc/015-3/pot.txt
@@ -2,23 +2,25 @@
015-3.gat,37,29,0|script|Pot|127,{
+ set @cat, ((Katze & NIBBLE_0_MASK) >> NIBBLE_0_SHIFT);
+
if (Katze > 0)
mes "It's that old pot again.";
if (Katze == 0)
mes "It's a pot.";
next;
- if (Katze == 1 && @KatzeNeedsAlone == 0)
+ if (Katze == 1 && @catNeedsAlone == 0)
goto L_NeedsFood;
if (Katze == 1)
goto L_HasMilk;
- if (Katze == 2 && @KatzeNeedsAlone == 0)
+ if (Katze == 2 && @catNeedsAlone == 0)
goto L_NeedsFur;
if (Katze == 2)
goto L_HasFood;
if (Katze == 3)
goto L_NeedsWood;
- if (Katze == 4 && @KatzeNeedsAlone == 1)
+ if (Katze == 4 && @catNeedsAlone == 1)
goto L_HasWood;
if (Katze >= 4)
goto L_Finished;
@@ -32,8 +34,9 @@ L_NeedsMilk:
L_GiveMilk:
delitem "Milk", 1;
- set Katze, 1;
- set @KatzeNeedsAlone, 1;
+ set @cat, 1;
+ callsub S_Update_Katze;
+ set @catNeedsAlone, 1;
close;
L_HasMilk:
@@ -61,14 +64,16 @@ L_NeedsFood:
L_GiveChicken:
delitem "ChickenLeg", 1;
- set Katze, 2;
- set @KatzeNeedsAlone, 1;
+ set @cat, 2;
+ callsub S_Update_Katze;
+ set @catNeedsAlone, 1;
close;
L_GiveSteak:
delitem "Steak", 1;
- set Katze, 2;
- set @KatzeNeedsAlone, 1;
+ set @cat, 2;
+ callsub S_Update_Katze;
+ set @catNeedsAlone, 1;
close;
L_HasFood:
@@ -98,8 +103,9 @@ L_NeedsWood:
L_GiveWood:
delitem "RawLog", 1;
- set Katze, 4;
- set @KatzeNeedsAlone, 1;
+ set @cat, 4;
+ callsub S_Update_Katze;
+ set @catNeedsAlone, 1;
mes "You put the wooden log next to the pot. The cat eyes it suspiciously, but remains on her spot.";
close;
@@ -109,4 +115,8 @@ L_HasWood:
L_Finished:
close;
+
+S_Update_Katze:
+ set Katze, (Katze & ~(NIBBLE_0_MASK)) | (@cat << NIBBLE_0_SHIFT);
+ return;
}
diff --git a/world/map/npc/functions/clear_vars.txt b/world/map/npc/functions/clear_vars.txt
index 71d81fcb..7188c2d8 100644
--- a/world/map/npc/functions/clear_vars.txt
+++ b/world/map/npc/functions/clear_vars.txt
@@ -101,6 +101,8 @@ function|script|ClearVariables|{
set QUEST_clothdyer_state, 0;
// variable was moved to a temporary player variable
set KatzeBeenOutside, 0;
+ // variable was moved to Nibble 1 of the variable Katze
+ set LastHiss, 0;
//These lines are needed to migrate stuff from variables to flags
if (Open_Underground_Palace_Barrier)