1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
// The pot where the player can deposit stuff for the cat.
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 && @catNeedsAlone == 0)
goto L_NeedsFood;
if (Katze == 1)
goto L_HasMilk;
if (Katze == 2 && @catNeedsAlone == 0)
goto L_NeedsFur;
if (Katze == 2)
goto L_HasFood;
if (Katze == 3)
goto L_NeedsWood;
if (Katze == 4 && @catNeedsAlone == 1)
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 @cat, 1;
callsub S_Update_Katze;
set @catNeedsAlone, 1;
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 @cat, 2;
callsub S_Update_Katze;
set @catNeedsAlone, 1;
close;
L_GiveSteak:
delitem "Steak", 1;
set @cat, 2;
callsub S_Update_Katze;
set @catNeedsAlone, 1;
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 @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;
L_HasWood:
mes "A wooden log is patiently lying next to it.";
close;
L_Finished:
close;
S_Update_Katze:
set Katze, (Katze & ~(NIBBLE_0_MASK)) | (@cat << NIBBLE_0_SHIFT);
return;
}
|
