Katze quest: use bitmasking to be able to remove the variable LastHiss.

Nibble 0: Progress of quest
Nibble 1: what was saved previously in LastHiss
Add LastHiss to clear_vars

Since the value in LastHiss is only needed to get some hint from Alice,
taking over the value from LastHiss to Nibble 1 of Katze isn't needed.

1 files changed, 28 insertions, 17 deletions

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;
 }