-
Notifications
You must be signed in to change notification settings - Fork 15
/
gas-mix.zap
427 lines (400 loc) · 13.4 KB
/
gas-mix.zap
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
.FUNCT V-$SCRUB:ANY:0:0
PRINTI "[CO2 scrubbers "
ZERO? GL-SCRUBBERS-ON /?PRT4
SET 'GL-SCRUBBERS-ON,0
JUMP ?PRE6
?PRT4: SET 'GL-SCRUBBERS-ON,1
?PRE6: ZERO? GL-SCRUBBERS-ON /?CCL3
PRINTI "on"
JUMP ?CND1
?CCL3: PRINTI "off"
?CND1: PRINTI ".]
"
RETURN 2
.FUNCT V-$AIR:ANY:0:0
SET 'GL-OXYGEN-QTY,K-OXY-NOM
SET 'GL-OXYGEN-MSG,K-OXY-NOM
SET 'GL-CO2-QTY,K-CO2-NOM
SET 'GL-CO2-MSG,K-CO2-NOM
SET 'GL-NITROGEN-QTY,K-NIT-NOM
SET 'GL-NITROGEN-MSG,K-NIT-NOM
SET 'GL-HELIUM-QTY,K-HEL-NOM
PRINTI "[Breathing mix returned to nominal.]
"
RETURN 2
.FUNCT RT-NUM-DIGITS:ANY:1:1,N
LESS? N,0 \?CND1
SUB 0,N >N
?CND1: LESS? N,10 /TRUE
LESS? N,100 \?CCL8
RETURN 2
?CCL8: LESS? N,1000 \?CCL10
RETURN 3
?CCL10: LESS? N,10000 /?CTR11
RETURN 5
?CTR11: RETURN 4
.FUNCT RT-PRINT-FLOAT:ANY:2:3,F,E,D,N,M
ASSIGNED? 'D /?CND1
SET 'D,-1
?CND1: LESS? E,0 \?CCL5
CALL2 RT-NUM-DIGITS,F
SUB 0,STACK >N
GRTR? E,N /?CCL8
PRINTI "0."
?PRG9: LESS? E,N \?REP10
PRINTC 48
INC 'E
JUMP ?PRG9
?REP10: PRINTN F
RTRUE
?CCL8: SUB 0,N
EQUAL? STACK,5 \?CCL16
SET 'M,10000
JUMP ?PRG23
?CCL16: SUB 0,N
EQUAL? STACK,4 \?CCL18
SET 'M,1000
JUMP ?PRG23
?CCL18: SUB 0,N
EQUAL? STACK,3 \?CCL20
SET 'M,100
JUMP ?PRG23
?CCL20: SUB 0,N
EQUAL? STACK,2 \?CCL22
SET 'M,10
JUMP ?PRG23
?CCL22: SET 'M,1
?PRG23: DIV F,M
MOD STACK,10
PRINTN STACK
INC 'N
EQUAL? E,N \?CND25
PRINTC 46
?CND25: DIV M,10 >M
ZERO? M \?PRG23
RTRUE
?CCL5: PRINTN F
SET 'N,0
?PRG29: LESS? N,E \TRUE
PRINTC 48
INC 'N
JUMP ?PRG29
.FUNCT RT-NITROGEN-MSG:ANY:0:0
GRTR? GL-NITROGEN-QTY,GL-NITROGEN-MSG \?CCL3
LESS? GL-NITROGEN-QTY,K-NIT-HIGH-4 /?CCL6
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTI " The high nitrogen level finally overcomes you and you fall to the floor, unconscious.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL6: LESS? GL-NITROGEN-QTY,K-NIT-HIGH-3 /?CCL9
LESS? GL-NITROGEN-MSG,K-NIT-HIGH-3 \FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " You are beginning to hallucinate."
?CCL9: LESS? GL-NITROGEN-QTY,K-NIT-HIGH-2 /?CCL14
LESS? GL-NITROGEN-MSG,K-NIT-HIGH-2 \FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " Your head is beginning to spin."
?CCL14: LESS? GL-NITROGEN-QTY,K-NIT-HIGH-1 /?CCL19
LESS? GL-NITROGEN-MSG,K-NIT-HIGH-1 \FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " You are beginning to feel light-headed."
?CCL19: GRTR? GL-NITROGEN-QTY,K-NIT-LOW-1 \?CCL24
GRTR? GL-NITROGEN-MSG,K-NIT-LOW-1 /FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " Your hands stop trembling. The nitrogen level must be back to normal."
?CCL24: GRTR? GL-NITROGEN-QTY,K-NIT-LOW-2 \?CCL29
GRTR? GL-NITROGEN-MSG,K-NIT-LOW-2 /FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " Most of the trembling in your hands has disappeared."
?CCL29: GRTR? GL-NITROGEN-QTY,K-NIT-LOW-3 \FALSE
GRTR? GL-NITROGEN-MSG,K-NIT-LOW-3 /FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " The flashes of irritibility cease, but your fingertips are still trembling."
?CCL3: LESS? GL-NITROGEN-QTY,GL-NITROGEN-MSG \FALSE
GRTR? GL-NITROGEN-QTY,K-NIT-LOW-4 /?CCL42
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTI " You slump to the floor, a victim of High Pressure Nervous Syndrome.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL42: GRTR? GL-NITROGEN-QTY,K-NIT-LOW-3 /?CCL45
GRTR? GL-NITROGEN-MSG,K-NIT-LOW-3 \FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " You begin to have flashes of sudden irritibility."
?CCL45: GRTR? GL-NITROGEN-QTY,K-NIT-LOW-2 /?CCL50
GRTR? GL-NITROGEN-MSG,K-NIT-LOW-2 \FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " The trembling in your fingertips gets worse."
?CCL50: GRTR? GL-NITROGEN-QTY,K-NIT-LOW-1 /?CCL55
GRTR? GL-NITROGEN-MSG,K-NIT-LOW-1 \FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " Your hands begin to tremble."
?CCL55: LESS? GL-NITROGEN-QTY,K-NIT-HIGH-1 \?CCL60
LESS? GL-NITROGEN-MSG,K-NIT-HIGH-1 /FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " You no longer feel dizzy. The nitrogen level must be back to normal."
?CCL60: LESS? GL-NITROGEN-QTY,K-NIT-HIGH-2 \?CCL65
LESS? GL-NITROGEN-MSG,K-NIT-HIGH-2 /FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " Your head stops spinning, but you still feel dizzy."
?CCL65: LESS? GL-NITROGEN-QTY,K-NIT-HIGH-3 \FALSE
LESS? GL-NITROGEN-MSG,K-NIT-HIGH-3 /FALSE
SET 'GL-NITROGEN-MSG,GL-NITROGEN-QTY
PRINTR " The hallucinations fade, but your head is still spinning."
.FUNCT RT-OXYGEN-MSG:ANY:0:0
GRTR? GL-OXYGEN-QTY,GL-OXYGEN-MSG \?CCL3
LESS? GL-OXYGEN-QTY,K-OXY-HIGH-4 /?CCL6
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTI " The high oxygen level finally overcomes you. You go into convulsions, fall to the floor, and pass out.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL6: LESS? GL-OXYGEN-QTY,K-OXY-HIGH-3 /?CCL9
LESS? GL-OXYGEN-MSG,K-OXY-HIGH-3 \FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " Suddenly, your stomach muscles tighten up and you fight off the urge to vomit."
?CCL9: LESS? GL-OXYGEN-QTY,K-OXY-HIGH-2 /?CCL14
LESS? GL-OXYGEN-MSG,K-OXY-HIGH-2 \FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " You begin to feel nauseous."
?CCL14: LESS? GL-OXYGEN-QTY,K-OXY-HIGH-1 /?CCL19
LESS? GL-OXYGEN-MSG,K-OXY-HIGH-1 \FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " Suddenly, you feel a twitch in your lower lip."
?CCL19: GRTR? GL-OXYGEN-QTY,K-OXY-LOW-1 \?CCL24
GRTR? GL-OXYGEN-MSG,K-OXY-LOW-1 /FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " Your headache disappears. The oxygen level must be back to normal."
?CCL24: GRTR? GL-OXYGEN-QTY,K-OXY-LOW-2 \?CCL29
GRTR? GL-OXYGEN-MSG,K-OXY-LOW-2 /FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " You begin to see colors again, but you still have a mild headache."
?CCL29: GRTR? GL-OXYGEN-QTY,K-OXY-LOW-3 \FALSE
GRTR? GL-OXYGEN-MSG,K-OXY-LOW-3 /FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " Your tunnel vision begins to fade."
?CCL3: LESS? GL-OXYGEN-QTY,GL-OXYGEN-MSG \FALSE
GRTR? GL-OXYGEN-QTY,K-OXY-LOW-4 /?CCL42
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTI " You collapse, a victim of oxygen starvation.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL42: GRTR? GL-OXYGEN-QTY,K-OXY-LOW-3 /?CCL45
GRTR? GL-OXYGEN-MSG,K-OXY-LOW-3 \FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " You notice that your peripheral vision is beginning to disappear."
?CCL45: GRTR? GL-OXYGEN-QTY,K-OXY-LOW-2 /?CCL50
GRTR? GL-OXYGEN-MSG,K-OXY-LOW-2 \FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " The colors around you seem to fade."
?CCL50: GRTR? GL-OXYGEN-QTY,K-OXY-LOW-1 /?CCL55
GRTR? GL-OXYGEN-MSG,K-OXY-LOW-1 \FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " Your head begins to ache."
?CCL55: LESS? GL-OXYGEN-QTY,K-OXY-HIGH-1 \?CCL60
LESS? GL-OXYGEN-MSG,K-OXY-HIGH-1 /FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " You lip stops twitching. The oxygen level must be back to normal."
?CCL60: LESS? GL-OXYGEN-QTY,K-OXY-HIGH-2 \?CCL65
LESS? GL-OXYGEN-MSG,K-OXY-HIGH-2 /FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " You no longer feel nauseous, but your lip still twitches occasionally."
?CCL65: LESS? GL-OXYGEN-QTY,K-OXY-HIGH-3 \FALSE
LESS? GL-OXYGEN-MSG,K-OXY-HIGH-3 /FALSE
SET 'GL-OXYGEN-MSG,GL-OXYGEN-QTY
PRINTR " The tension in your stomach disappears, but you still feel slightly nauseous."
.FUNCT RT-CO2-MSG:ANY:0:0
GRTR? GL-CO2-QTY,GL-CO2-MSG \?CCL3
LESS? GL-CO2-QTY,K-CO2-HIGH-4 /?CCL6
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTI " You pass out from carbon dioxide poisoning.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL6: LESS? GL-CO2-QTY,K-CO2-HIGH-3 /?CCL9
LESS? GL-CO2-MSG,K-CO2-HIGH-3 \FALSE
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTR " Suddenly the muscles in your arm begin to spasm."
?CCL9: LESS? GL-CO2-QTY,K-CO2-HIGH-2 /?CCL14
LESS? GL-CO2-MSG,K-CO2-HIGH-2 \FALSE
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTR " Your chest muscles are beginning to ache."
?CCL14: LESS? GL-CO2-QTY,K-CO2-HIGH-1 /FALSE
LESS? GL-CO2-MSG,K-CO2-HIGH-1 \FALSE
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTR " You begin to feel a little short of breath."
?CCL3: LESS? GL-CO2-QTY,GL-CO2-MSG \FALSE
LESS? GL-CO2-QTY,K-CO2-HIGH-1 \?CCL27
LESS? GL-CO2-MSG,K-CO2-HIGH-1 /FALSE
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTR " You begin to breathe more easily. The carbon dioxide level must have returned to normal."
?CCL27: LESS? GL-CO2-QTY,K-CO2-HIGH-2 \?CCL32
LESS? GL-CO2-MSG,K-CO2-HIGH-2 /FALSE
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTR " Your chest muscles feel better, but you are still short of breath."
?CCL32: LESS? GL-CO2-QTY,K-CO2-HIGH-3 \FALSE
LESS? GL-CO2-MSG,K-CO2-HIGH-3 /FALSE
SET 'GL-CO2-MSG,GL-CO2-QTY
PRINTR " The spasms in your arm have stopped, but your chest muscles still ache."
.FUNCT RT-I-GAS-MIX:ANY:0:0
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-GAS-MIX,STACK
SUB GL-OXYGEN-QTY,4 >GL-OXYGEN-QTY
LESS? GL-OXYGEN-QTY,0 \?CND1
SET 'GL-OXYGEN-QTY,0
?CND1: ZERO? GL-SCRUBBERS-ON /?CCL5
SUB GL-CO2-QTY,340 >GL-CO2-QTY
LESS? GL-CO2-QTY,0 \?CND3
SET 'GL-CO2-QTY,0
JUMP ?CND3
?CCL5: ADD GL-CO2-QTY,340 >GL-CO2-QTY
?CND3: CALL1 RT-OXYGEN-MSG
ZERO? STACK \TRUE
CALL1 RT-CO2-MSG
ZERO? STACK \TRUE
RFALSE
.FUNCT V-$HEAT:ANY:0:0
PRINTI "[Heaters "
ZERO? GL-HEATERS-ON /?PRT4
SET 'GL-HEATERS-ON,0
JUMP ?PRE6
?PRT4: SET 'GL-HEATERS-ON,1
?PRE6: ZERO? GL-HEATERS-ON /?CCL3
PRINTI "on"
JUMP ?CND1
?CCL3: PRINTI "off"
?CND1: PRINTI ".]
"
RETURN 2
.FUNCT RT-TH-THERMOMETER:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?EXAMINE,V?READ \FALSE
PRINTI " The thermometer says your core temperature is "
ICALL RT-PRINT-FLOAT,GL-PLAYER-TEMP,K-TEMP-FACTOR
PRINTR " degrees Fahrenheit."
.FUNCT RT-TEMP-MSG:ANY:0:0
LESS? GL-PLAYER-TEMP,GL-TEMP-MSG \?CCL3
GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-4 /?CCL6
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTI " The cold finally overpowers you and you pass out.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL6: GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-3 /?CCL9
GRTR? GL-TEMP-MSG,K-TEMP-LOW-3 \FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You're so cold you can hardly move."
?CCL9: GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-2 /?CCL14
GRTR? GL-TEMP-MSG,K-TEMP-LOW-2 \FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " The cold begins to creep into your bones."
?CCL14: GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-1 /?CCL19
GRTR? GL-TEMP-MSG,K-TEMP-LOW-1 \FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You begin to shiver."
?CCL19: LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-1 \?CCL24
LESS? GL-TEMP-MSG,K-TEMP-HIGH-1 /FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You stop sweating. Your body temperature must have returned to normal."
?CCL24: LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-2 \?CCL29
LESS? GL-TEMP-MSG,K-TEMP-HIGH-2 /FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " Your face is no longer flushed, but you are still sweating."
?CCL29: LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-3 \FALSE
LESS? GL-TEMP-MSG,K-TEMP-HIGH-3 /FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " Your breathing returns to normal, but your face is still red."
?CCL3: GRTR? GL-PLAYER-TEMP,GL-TEMP-MSG \FALSE
LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-4 /?CCL42
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTI " The heat becomes overpowering and you collapse.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL42: LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-3 /?CCL45
LESS? GL-TEMP-MSG,K-TEMP-HIGH-3 \FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You're so hot you can hardly move. Your breathing speeds up dangerously."
?CCL45: LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-2 /?CCL50
LESS? GL-TEMP-MSG,K-TEMP-HIGH-2 \FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " Your face turns red from the heat."
?CCL50: LESS? GL-PLAYER-TEMP,K-TEMP-HIGH-1 /?CCL55
LESS? GL-TEMP-MSG,K-TEMP-HIGH-1 \FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You feel uncomfortably hot and begin to sweat."
?CCL55: GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-1 \?CCL60
GRTR? GL-TEMP-MSG,K-TEMP-LOW-1 /FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You stop shivering. Your body temperature must be back to normal."
?CCL60: GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-2 \?CCL65
GRTR? GL-TEMP-MSG,K-TEMP-LOW-2 /FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " Your hands and feet tingle as they begin to warm up."
?CCL65: GRTR? GL-PLAYER-TEMP,K-TEMP-LOW-3 \FALSE
GRTR? GL-TEMP-MSG,K-TEMP-LOW-3 /FALSE
SET 'GL-TEMP-MSG,GL-PLAYER-TEMP
PRINTR " You're beginning to thaw out."
.FUNCT RT-I-DEEPCORE-TEMP:ANY:0:0
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-DEEPCORE-TEMP,STACK
ZERO? GL-HEATERS-ON /?CCL3
ADD GL-DEEPCORE-TEMP,5 >GL-DEEPCORE-TEMP
RFALSE
?CCL3: SUB GL-DEEPCORE-TEMP,5 >GL-DEEPCORE-TEMP
RFALSE
.FUNCT RT-I-TEMP:ANY:0:0,L,D1,D2
LOC CH-PLAYER >L
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-TEMP,STACK
FSET? L,FL-WATER \?CCL3
IN? TH-FBS-SUIT,CH-PLAYER \?PRD8
FSET? TH-FBS-SUIT,FL-WORN /?CTR5
?PRD8: IN? TH-DRY-SUIT,CH-PLAYER \?CCL6
FSET? TH-DRY-SUIT,FL-WORN \?CCL6
?CTR5: SUB GL-PLAYER-TEMP,10 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL6: SUB GL-PLAYER-TEMP,500 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL3: LESS? GL-PLAYER-TEMP,K-TEMP-NOM \?CCL14
SUB GL-PLAYER-TEMP,860
GRTR? GL-DEEPCORE-TEMP,STACK \?CCL14
SUB GL-PLAYER-TEMP,860
SUB GL-DEEPCORE-TEMP,STACK >D1
SUB K-TEMP-NOM,GL-PLAYER-TEMP >D2
GRTR? D2,D1 /?CCL19
GRTR? D2,5 /?CCL19
SET 'GL-PLAYER-TEMP,K-TEMP-NOM
JUMP ?CND1
?CCL19: LESS? D1,5 /?CCL23
ADD GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL23: ADD GL-PLAYER-TEMP,D1 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL14: GRTR? GL-PLAYER-TEMP,K-TEMP-NOM \?CCL25
SUB GL-PLAYER-TEMP,860
LESS? GL-DEEPCORE-TEMP,STACK \?CCL25
SUB GL-PLAYER-TEMP,860
SUB STACK,GL-DEEPCORE-TEMP >D1
SUB GL-PLAYER-TEMP,K-TEMP-NOM >D2
GRTR? D2,D1 /?CCL30
GRTR? D2,5 /?CCL30
SET 'GL-PLAYER-TEMP,K-TEMP-NOM
JUMP ?CND1
?CCL30: LESS? D1,5 /?CCL34
SUB GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL34: SUB GL-PLAYER-TEMP,D1 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL25: ADD GL-PLAYER-TEMP,600
GRTR? GL-DEEPCORE-TEMP,STACK \?CCL36
ADD GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
JUMP ?CND1
?CCL36: SUB GL-PLAYER-TEMP,1200
LESS? GL-DEEPCORE-TEMP,STACK \?CND1
SUB GL-PLAYER-TEMP,5 >GL-PLAYER-TEMP
?CND1: CALL1 RT-TEMP-MSG
RSTACK
.ENDI