![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to transitions CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / games / mpu|
Return to transitions CVS log | Up to [CSRG BSD Unix] / 42BSD / games / mpu |
1.1 root 1: {*** TRANSITIONS ***}
2:
3: road1(ACTION) = ($setv n s e w ne nw se sw u d)
4: ($hit .ME gard1 gard5 road2 road3 gard2 gard3 gard6 gard7 0 0)
5: ($miss 0 0 0 0 0 0 0 0 cg cg);
6:
7: road2(ACTION) = ($hit .ME gard2 gard6 road7 road1 gard2 gard1 gard6 gard5 0 0)
8: ($miss 0 0 0 0 0 0 0 0 cg cg);
9:
10: road3(ACTION) = ($hit .ME gard3 gard7 road1 road8 gard1 gard3 gard5 gard7 0 0)
11: ($miss 0 0 0 entr8 0 0 0 0 cg cg);
12:
13: road4(ACTION) = ($hit .ME farm1 road7 frst1 gard2 frst1 gard2 frst1 gard2 0 0)
14: ($miss 0 0 0 0 0 0 0 0 cg cg);
15:
16: road5(ACTION) = ($hit .ME road7 road6 frst1 gard6 frst1 gard6 frst1 gard6 0 0)
17: ($miss 0 0 0 0 0 0 0 0 cg cg);
18:
19: road6(ACTION) = ($hit .ME road5 town1 frst1 gard6 frst1 gard6 frst1 gard6 0 0)
20: ($miss 0 0 0 0 0 0 0 0 cg cg);
21:
22: road7(ACTION) = ($hit .ME road4 road5 frst1 road2 frst1 gard2 frst1 gard6 0 0)
23: ($miss 0 0 0 0 0 0 0 0 cg cg);
24:
25: road8(ACTION) = ($miss tress tress east8 west8 cg cg cg cg cg cg);
26:
27: east8 = ( ($eq @HWY8 0) : ($move .ME road3)
28: { ELSE } : (dump8 ($cont road8))
29: ($setg HWY8 ($minus @HWY8 1))
30: (get8 ($cont roadx))
31: (Slook 0 ($loc .ME))
32: ($setg LOOKP FALSE)
33: );
34:
35: west8 =
36: (dump8 ($cont road8))
37: ($setg HWY8 ($plus @HWY8 1))
38: (get8 ($cont roadx))
39: (Slook 0 ($loc .ME))
40: ($setg LOOKP FALSE);
41:
42: dump8 = (($link %1) : (dump8 ($link %1))) { start at bottom }
43: (($ne %1 .ME) : { Everything else leaves }
44: ($setp %1 RDLOC @HWY8) { Retain its location on HWY 8 }
45: ($move %1 roadx) { Put it in the box }
46: );
47:
48: get8 = ( %1 :
49: (get8 ($link %1))
50: (($eq ($prop %1 RDLOC) @HWY8) :
51: ($move %1 road8)
52: )
53: );
54:
55: entr8 = (dump8 ($cont road8))
56: ($setg HWY8 0)
57: (get8 ($cont roadx));
58:
59:
60:
61:
62:
63:
64: gard1(ACTION) = ($hit .ME gard4 road1 gard2 gard3 0 0 0 0 0 0 )
65: ($miss 0 0 0 0 cg cg cg cg cg cg);
66:
67: gard2(ACTION) = ($hit .ME gard4 road2 gard2 gard1 0 0 0 0 0 0 )
68: ($miss 0 0 0 0 cg cg cg cg cg cg);
69:
70: gard3(ACTION) = ($hit .ME gard4 road3 gard1 gard3 0 0 0 0 0 0 )
71: ($miss 0 0 0 0 cg cg cg cg cg cg);
72:
73: gard4(ACTION) = ($hit .ME gard4 gard1 gard2 gard3 0 0 0 0 0 0 )
74: ($miss 0 0 0 0 cg cg cg cg cg cg);
75:
76:
77: gard5(ACTION) = ($hit .ME road1 gard8 gard6 gard7 0 0 0 0 0 0 )
78: ($miss 0 0 0 0 cg cg cg cg cg cg);
79:
80: gard6(ACTION) = ($hit .ME road2 gard8 gard6 gard5 0 0 0 0 0 0 )
81: ($miss 0 0 0 0 cg cg cg cg cg cg);
82:
83: gard7(ACTION) = ($hit .ME road3 gard8 gard5 gard7 0 0 0 0 0 0 )
84: ($miss 0 0 0 0 cg cg cg cg cg cg);
85:
86: gard8(ACTION) = ($hit .ME gard5 gard8 gard6 gard7 0 0 0 0 0 0 )
87: ($miss 0 0 0 0 cg cg cg cg cg cg);
88:
89:
90:
91:
92: frst1(ACTION) = ($hit .ME frst3 frst1 frst2 frst2 0 0 0 0 0 0)
93: ($miss 0 0 0 0 cg cg cg cg cg cg);
94:
95: frst2(ACTION) = ($hit .ME frst1 frst2 frst3 frst1 0 0 0 0 0 0)
96: ($miss 0 0 0 0 cg cg cg cg cg cg);
97:
98: frst3(ACTION) = ($hit .ME frst1 frst3 frst2 frst2 0 0 0 0 0 0)
99: ($miss 0 0 0 0 cg cg cg cg cg cg);
100:
101: frst4(ACTION) = ($hit .ME frst4 frst2 frst1 road7 0 0 0 0 0 0)
102: ($miss 0 0 0 0 cg cg cg cg cg cg);
103:
104:
105: farm1 (ACTION) =($hit .ME farm2 road4 farm3 farm4 farm3 farm4 0 0 0 0)
106: ($miss 0 0 0 0 0 0 cg cg cg cg);
107:
108: farm2 (ACTION) = ($hit .ME farm6 farm1 farm7 0 0 0 0 0 farm7 0)
109: ($miss 0 0 0 cg cg cg cg cg 0 cg);
110:
111: farm3 (ACTION) = ($hit .ME farm5 farm1 frst1 0 0 farm5 0 farm1 0 0)
112: ($miss 0 0 0 cg cg 0 cg 0 cg cg);
113:
114: farm4 (ACTION) = ($hit .ME farm5 farm1 0 gard4 farm5 0 farm1 0 0 0)
115: ($miss 0 0 cg 0 0 cg 0 cg cg cg);
116:
117: farm5 (ACTION) = ($hit .ME 0 0 farm3 farm4 0 0 farm3 farm4 0 0)
118: ($miss cg cg 0 0 cg cg 0 0 cg cg);
119:
120: farm6 (ACTION) = ($hit .ME 0 farm2 0 0 0 0 0 0 0 0)
121: ($miss cg 0 cg cg cg cg cg cg cg cg );
122:
123: farm7 (ACTION) =
124: ($hit .ME 0 0 farm2 0 0 0 0 0 0 farm2)
125: ($miss cg cg 0 PanL cg cg cg cg cg PanL);
126:
127:
128: town1 (ACTION) =($hit .ME road6 town2 town3 town4 0 0 0 0 0 0)
129: ($miss 0 0 0 0 cg cg cg cg cg cg);
130:
131: town2 (ACTION) =($hit .ME town1 0 town5 town6 0 0 0 0 0 0)
132: ($miss 0 cg 0 0 cg cg cg cg cg cg);
133:
134: town3 (ACTION) =($hit .ME 0 0 0 town1 0 0 0 0 0 0)
135: ($miss cg cg cg 0 cg cg cg cg cg cg);
136:
137: town4 (ACTION) =($hit .ME 0 0 town1 0 0 0 0 0 0 0)
138: ($miss cg cg 0 cg cg cg cg cg cg cg);
139:
140: town5 (ACTION) =($hit .ME 0 0 0 town2 0 0 0 0 0 0)
141: ($miss cg cg cg 0 cg cg cg cg cg cg)
142: (TWN5x);
143:
144: town6 (ACTION) =($hit .ME 0 0 town2 0 0 0 0 0 0 0)
145: ($miss cg cg 0 cg cg cg cg cg cg cg);
146:
147:
148: cel01 (ACTION) = ($hit .ME cel02 0 0 cel04 0 0 0 0 farm7 0)
149: ($miss 0 ny cg 0 cg cg cg cg 0 cg);
150:
151: cel02 (ACTION) = ($hit .ME cel05 cel01 0 0 0 0 0 0 0 0)
152: ($miss 0 0 ny cg cg cg cg cg cg cg);
153:
154: cel03 (ACTION) = ($hit .ME 0 cel05 0 cel13 cel09 0 0 0 0 cel09)
155: ($miss cg 0 cg 0 0 cg cg cg cg 0);
156:
157: cel04 (ACTION) = ($hit .ME cel10 0 cel01 cel08 0 0 0 0 0 cel10)
158: ($miss 0 cg 0 0 cg cg cg cg cg 0 );
159:
160:
161: MV56=($setg Cel6x 5);
162: MV76=($setg Cel6x 7);
163: MV67=( ($and ($ne @Cel6x 7)
164: ($prop dragon AWAKE)): ($say
165: "The ice dragon blocks your attempt to cross!\n\n")
166: : ($move .ME cel07) );
167:
168: MV65=( ($and ($ne @Cel6x 5)
169: ($prop dragon AWAKE)): ($say
170: "The ice dragon blocks your attempt to leave!\n")
171: : ($move .ME cel05) );
172:
173:
174: cel05 (ACTION) = ($hit .ME cel03 cel02 0 0 cel06 0 0 0 0 0)
175: ($miss 0 0 cg cg MV56 ny cg cg cg cg);
176:
177: cel06 (ACTION) = ($hit .ME 0 0 0 0 0 0 0 0 0 0)
178: ($miss cg cg MV67 MV65 cg cg cg cg cg cg)
179: (($eq ($loc .ME) cel06) {still here}:
180: ($setg LOOKP TRUE)
181: )
182: ;
183:
184: cel07 (ACTION) = ($hit .ME 0 0 0 cel06 0 0 0 0 0 0)
185: ($miss cg cg cg MV76 cg cg cg cg cg cg);
186:
187: cel08 (ACTION) = ($hit .ME 0 0 cel04 0 0 0 0 0 0 0)
188: ($miss cg cg 0 ny cg cg cg cg cg cg);
189:
190: cel09 (ACTION) = ($hit .ME 0 0 0 0 0 0 0 0 0 0)
191: ($miss ny cg cg cg cg cg cg cg cg cg);
192:
193: cel10 (ACTION) = ($hit .ME 0 cel04 0 0 0 0 0 0 0 cel11)
194: ($miss cg 0 cg ny cg cg cg cg cg 0);
195:
196: cel11 (ACTION) = ($hit .ME 0 0 cel12 0 0 0 0 0 0 0)
197: ($miss ny cg 0 cg cg cg cg cg cg cg);
198:
199: cel12 (ACTION) = ($hit .ME cel11 0 0 0 0 0 0 0 0 0)
200: ($miss 0 cg ny cg cg cg cg cg cg cg);
201:
202: cel13 (ACTION) = (($eq ($verb) down):
203: (($prop cel13 HOLED):
204: ($say "You plunge into the icy waters!\n")
205: ($move .ME cel14)
206: ($exit 0)
207: )
208: )
209: ($hit .ME 0 0 cel03 0 0 0 0 0 0 0)
210: ($miss cg cg 0 ny cg cg cg cg cg cg);
211:
212:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.