![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sobjs.F CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon|
Return to sobjs.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 root 1: C SOBJS- SIMPLE OBJECTS PROCESSOR
2: C OBJECTS IN THIS MODULE CANNOT CALL RMINFO, JIGSUP,
3: C MAJOR VERBS, OR OTHER NON-RESIDENT SUBROUTINES
4: C
5: C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142
6: C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
7: C WRITTEN BY R. M. SUPNIK
8: C
9: C DECLARATIONS
10: C
11: LOGICAL FUNCTION SOBJS(RI,ARG)
12: IMPLICIT INTEGER (A-Z)
13: LOGICAL QOPEN
14: LOGICAL MOVETO,OPNCLS,LIT
15: LOGICAL QHERE,F
16: #include "parser.h"
17: #include "gamestate.h"
18: #include "state.h"
19: #include "rooms.h"
20: #include "rflag.h"
21: #include "rindex.h"
22: #include "objects.h"
23: #include "oflags.h"
24: #include "oindex.h"
25: #include "clock.h"
26:
27: #include "villians.h"
28: #include "advers.h"
29: #include "verbs.h"
30: #include "flags.h"
31: C
32: C FUNCTIONS AND DATA
33: C
34: QOPEN(R)=and(OFLAG2(R),OPENBT).NE.0
35: C SOBJS, PAGE 2
36: C
37: IF(PRSO.GT.220) GO TO 5
38: IF(PRSO.NE.0) ODO2=ODESC2(PRSO)
39: 5 IF(PRSI.NE.0) ODI2=ODESC2(PRSI)
40: AV=AVEHIC(WINNER)
41: SOBJS=.TRUE.
42: C
43: GO TO (1000,3000,4000,6000,7000,8000,9000,
44: & 13000,14000,16000,17000,
45: & 21000,23000,24000,27000,28000,29000,30000,
46: & 31000,33000,34000,36000,37000,38000,
47: & 41000,42000,43000,44000,46000,
48: & 53000,56000)
49: & RI
50: CALL BUG(6,RI)
51: C
52: C RETURN HERE TO DECLARE FALSE RESULT
53: C
54: 10 SOBJS=.FALSE.
55: RETURN
56: C SOBJS, PAGE 3
57: C
58: C O1-- GUNK FUNCTION
59: C
60: 1000 IF(OCAN(GUNK).EQ.0) GO TO 10
61: C !NOT INSIDE? F
62: CALL NEWSTA(GUNK,122,0,0,0)
63: C !FALLS APART.
64: RETURN
65: C
66: C O2-- TROPHY CASE
67: C
68: 3000 IF(PRSA.NE.TAKEW) GO TO 10
69: C !TAKE?
70: CALL RSPEAK(128)
71: C !CANT.
72: RETURN
73: C
74: C O3-- BOTTLE FUNCTION
75: C
76: 4000 IF(PRSA.NE.THROWW) GO TO 4100
77: C !THROW?
78: CALL NEWSTA(PRSO,129,0,0,0)
79: C !BREAKS.
80: RETURN
81: C
82: 4100 IF(PRSA.NE.MUNGW) GO TO 10
83: C !MUNG?
84: CALL NEWSTA(PRSO,131,0,0,0)
85: C !BREAKS.
86: RETURN
87: C SOBJS, PAGE 4
88: C
89: C O4-- ROPE FUNCTION
90: C
91: 6000 IF(HERE.EQ.DOME) GO TO 6100
92: C !IN DOME?
93: DOMEF=.FALSE.
94: C !NO,
95: IF(PRSA.NE.UNTIEW) GO TO 6050
96: C !UNTIE?
97: CALL RSPEAK(134)
98: C !CANT
99: RETURN
100: C
101: 6050 IF(PRSA.NE.TIEW) GO TO 10
102: C !TIE?
103: CALL RSPEAK(135)
104: C !CANT TIE
105: RETURN
106: C
107: 6100 IF((PRSA.NE.TIEW).OR.(PRSI.NE.RAILI)) GO TO 6200
108: IF(DOMEF) GO TO 6150
109: C !ALREADY TIED?
110: DOMEF=.TRUE.
111: C !NO, TIE IT.
112: OFLAG1(ROPE)=or(OFLAG1(ROPE),NDSCBT)
113: OFLAG2(ROPE)=or(OFLAG2(ROPE),CLMBBT)
114: CALL NEWSTA(ROPE,137,DOME,0,0)
115: RETURN
116: C
117: 6150 CALL RSPEAK(136)
118: C !DUMMY.
119: RETURN
120: C
121: 6200 IF(PRSA.NE.UNTIEW) GO TO 6300
122: C !UNTIE?
123: IF(DOMEF) GO TO 6250
124: C !TIED?
125: CALL RSPEAK(134)
126: C !NO, DUMMY.
127: RETURN
128: C
129: 6250 DOMEF=.FALSE.
130: C !YES, UNTIE IT.
131: OFLAG1(ROPE)=and(OFLAG1(ROPE), not(NDSCBT))
132: OFLAG2(ROPE)=and(OFLAG2(ROPE), not(CLMBBT))
133: CALL RSPEAK(139)
134: RETURN
135: C
136: 6300 IF(DOMEF.OR.(PRSA.NE.DROPW)) GO TO 6400
137: C !DROP & UNTIED?
138: CALL NEWSTA(ROPE,140,MTORC,0,0)
139: C !YES, DROP.
140: RETURN
141: C
142: 6400 IF((PRSA.NE.TAKEW).OR. .NOT.DOMEF) GO TO 10
143: CALL RSPEAK(141)
144: C !TAKE & TIED.
145: RETURN
146: C
147: C O5-- SWORD FUNCTION
148: C
149: 7000 IF((PRSA.EQ.TAKEW).AND.(WINNER.EQ.PLAYER))
150: & SWDACT=.TRUE.
151: GO TO 10
152: C
153: C O6-- LANTERN
154: C
155: 8000 IF(PRSA.NE.THROWW) GO TO 8100
156: C !THROW?
157: CALL NEWSTA(LAMP,0,0,0,0)
158: C !KILL LAMP,
159: CALL NEWSTA(BLAMP,142,HERE,0,0)
160: C !REPLACE WITH BROKEN.
161: RETURN
162: C
163: 8100 IF(PRSA.EQ.TRNONW) CFLAG(CEVLNT)=.TRUE.
164: IF(PRSA.EQ.TRNOFW) CFLAG(CEVLNT)=.FALSE.
165: GO TO 10
166: C
167: C O7-- RUG FUNCTION
168: C
169: 9000 IF(PRSA.NE.RAISEW) GO TO 9100
170: C !RAISE?
171: CALL RSPEAK(143)
172: C !CANT
173: RETURN
174: C
175: 9100 IF(PRSA.NE.TAKEW) GO TO 9200
176: C !TAKE?
177: CALL RSPEAK(144)
178: C !CANT
179: RETURN
180: C
181: 9200 IF(PRSA.NE.MOVEW) GO TO 9300
182: C !MOVE?
183: CALL RSPEAK(145+ORRUG)
184: ORRUG=1
185: OFLAG1(DOOR)=or(OFLAG1(DOOR),VISIBT)
186: RETURN
187: C
188: 9300 IF((PRSA.NE.LOOKUW).OR.(ORRUG.NE.0).OR.
189: & QOPEN(DOOR)) GO TO 10
190: CALL RSPEAK(345)
191: RETURN
192: C SOBJS, PAGE 5
193: C
194: C O8-- SKELETON
195: C
196: 13000 I=ROBRM(HERE,100,LLD2,0,0)+ROBADV(WINNER,LLD2,0,0)
197: IF(I.NE.0) CALL RSPEAK(162)
198: C !IF ROBBED, SAY SO.
199: RETURN
200: C
201: C O9-- MIRROR
202: C
203: 14000 IF(MIRRMF.OR.(PRSA.NE.RUBW)) GO TO 14500
204: MROOM=xor(HERE,1)
205: DO 14100 I=1,OLNT
206: C !INTERCHANGE OBJS.
207: IF(OROOM(I).EQ.HERE) OROOM(I)=-1
208: IF(OROOM(I).EQ.MROOM) OROOM(I)=HERE
209: IF(OROOM(I).EQ.-1) OROOM(I)=MROOM
210: 14100 CONTINUE
211: F=MOVETO(MROOM,WINNER)
212: CALL RSPEAK(163)
213: C !SHAKE WORLD.
214: RETURN
215: C
216: 14500 IF((PRSA.NE.LOOKW).AND.(PRSA.NE.LOOKIW).AND.
217: & (PRSA.NE.EXAMIW)) GO TO 14600
218: I=164
219: C !MIRROR OK.
220: IF(MIRRMF) I=165
221: C !MIRROR DEAD.
222: CALL RSPEAK(I)
223: RETURN
224: C
225: 14600 IF(PRSA.NE.TAKEW) GO TO 14700
226: C !TAKE?
227: CALL RSPEAK(166)
228: C !JOKE.
229: RETURN
230: C
231: 14700 IF((PRSA.NE.MUNGW).AND.(PRSA.NE.THROWW)) GO TO 10
232: I=167
233: C !MIRROR BREAKS.
234: IF(MIRRMF) I=168
235: C !MIRROR ALREADY BROKEN.
236: MIRRMF=.TRUE.
237: BADLKF=.TRUE.
238: CALL RSPEAK(I)
239: RETURN
240: C SOBJS, PAGE 6
241: C
242: C O10-- DUMBWAITER
243: C
244: 16000 IF(PRSA.NE.RAISEW) GO TO 16100
245: C !RAISE?
246: IF(CAGETF) GO TO 16400
247: C !ALREADY AT TOP?
248: CALL NEWSTA(TBASK,175,TSHAF,0,0)
249: C !NO, RAISE BASKET.
250: CALL NEWSTA(FBASK,0,BSHAF,0,0)
251: CAGETF=.TRUE.
252: C !AT TOP.
253: RETURN
254: C
255: 16100 IF(PRSA.NE.LOWERW) GO TO 16200
256: C !LOWER?
257: IF(.NOT.CAGETF) GO TO 16400
258: C !ALREADY AT BOTTOM?
259: CALL NEWSTA(TBASK,176,BSHAF,0,0)
260: C !NO, LOWER BASKET.
261: CALL NEWSTA(FBASK,0,TSHAF,0,0)
262: CAGETF=.FALSE.
263: IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
264: C !IF DARK, DIE.
265: RETURN
266: C
267: 16200 IF((PRSO.NE.FBASK).AND.(PRSI.NE.FBASK)) GO TO 16300
268: CALL RSPEAK(130)
269: C !WRONG BASKET.
270: RETURN
271: C
272: 16300 IF(PRSA.NE.TAKEW) GO TO 10
273: C !TAKE?
274: CALL RSPEAK(177)
275: C !JOKE.
276: RETURN
277: C
278: 16400 CALL RSPEAK(125+RND(3))
279: C !DUMMY.
280: RETURN
281: C
282: C O11-- GHOST FUNCTION
283: C
284: 17000 I=178
285: C !ASSUME DIRECT.
286: IF(PRSO.NE.GHOST) I=179
287: C !IF NOT, INDIRECT.
288: CALL RSPEAK(I)
289: RETURN
290: C !SPEAK AND EXIT.
291: C SOBJS, PAGE 7
292: C
293: C O12-- TUBE
294: C
295: 21000 IF((PRSA.NE.PUTW).OR.(PRSI.NE.TUBE)) GO TO 10
296: CALL RSPEAK(186)
297: C !CANT PUT BACK IN.
298: RETURN
299: C
300: C O13-- CHALICE
301: C
302: 23000 IF((PRSA.NE.TAKEW).OR.(OCAN(PRSO).NE.0).OR.
303: & (OROOM(PRSO).NE.TREAS).OR.(OROOM(THIEF).NE.TREAS).OR.
304: & (and(OFLAG2(THIEF),FITEBT).EQ.0).OR.
305: & .NOT. THFACT) GO TO 10
306: CALL RSPEAK(204)
307: C !CANT TAKE.
308: RETURN
309: C
310: C O14-- PAINTING
311: C
312: 24000 IF(PRSA.NE.MUNGW) GO TO 10
313: C !MUNG?
314: CALL RSPEAK(205)
315: C !DESTROY PAINTING.
316: OFVAL(PRSO)=0
317: OTVAL(PRSO)=0
318: ODESC1(PRSO)=207
319: ODESC2(PRSO)=206
320: RETURN
321: C SOBJS, PAGE 8
322: C
323: C O15-- BOLT
324: C
325: 27000 IF(PRSA.NE.TURNW) GO TO 10
326: C !TURN BOLT?
327: IF(PRSI.NE.WRENC) GO TO 27500
328: C !WITH WRENCH?
329: IF(GATEF) GO TO 27100
330: C !PROPER BUTTON PUSHED?
331: CALL RSPEAK(210)
332: C !NO, LOSE.
333: RETURN
334: C
335: 27100 IF(LWTIDF) GO TO 27200
336: C !LOW TIDE NOW?
337: LWTIDF=.TRUE.
338: C !NO, EMPTY DAM.
339: CALL RSPEAK(211)
340: OFLAG2(COFFI)=and(OFLAG2(COFFI), not(SCRDBT))
341: OFLAG1(TRUNK)=or(OFLAG1(TRUNK),VISIBT)
342: RFLAG(RESER)=and(or(RFLAG(RESER),RLAND)
343: & ,not(RWATER+RSEEN))
344: RETURN
345: C
346: 27200 LWTIDF=.FALSE.
347: C !YES, FILL DAM.
348: CALL RSPEAK(212)
349: IF(QHERE(TRUNK,RESER))
350: & OFLAG1(TRUNK)=and(OFLAG1(TRUNK), not(VISIBT))
351: RFLAG(RESER)=and(or(RFLAG(RESER),RWATER) ,not(RLAND))
352: RETURN
353: C
354: 27500 CALL RSPSUB(299,ODI2)
355: C !NOT WITH THAT.
356: RETURN
357: C
358: C O16-- GRATING
359: C
360: 28000 IF((PRSA.NE.OPENW).AND.(PRSA.NE.CLOSEW)) GO TO 10
361: IF(GRUNLF) GO TO 28200
362: C !UNLOCKED?
363: CALL RSPEAK(214)
364: C !NO, LOCKED.
365: RETURN
366: C
367: 28200 I=215
368: C !UNLOCKED, VIEW FRM CLR.
369: IF(HERE.NE.CLEAR) I=216
370: C !VIEW FROM BELOW.
371: SOBJS=OPNCLS(GRATE,I,885)
372: C !OPEN/CLOSE.
373: RFLAG(MGRAT)=and(RFLAG(MGRAT), not(RLIGHT))
374: IF(QOPEN(GRATE)) RFLAG(MGRAT)=or(RFLAG(MGRAT),RLIGHT)
375: IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
376: C !IF DARK, DIE.
377: RETURN
378: C
379: C O17-- TRAP DOOR
380: C
381: 29000 IF(HERE.NE.LROOM) GO TO 29100
382: C !FROM LIVING ROOM?
383: SOBJS=OPNCLS(DOOR,218,219)
384: C !OPEN/CLOSE.
385: RETURN
386: C
387: 29100 IF(HERE.NE.CELLA) GO TO 10
388: C !FROM CELLAR?
389: IF((PRSA.NE.OPENW).OR.QOPEN(DOOR)) GO TO 29200
390: CALL RSPEAK(220)
391: C !CANT OPEN CLOSED DOOR.
392: RETURN
393: C
394: 29200 SOBJS=OPNCLS(DOOR,0,22)
395: C !NORMAL OPEN/CLOSE.
396: RETURN
397: C
398: C O18-- DURABLE DOOR
399: C
400: 30000 I=0
401: C !ASSUME NO APPL.
402: IF(PRSA.EQ.OPENW) I=221
403: C !OPEN?
404: IF(PRSA.EQ.BURNW) I=222
405: C !BURN?
406: IF(PRSA.EQ.MUNGW) I=223+RND(3)
407: C !MUNG?
408: IF(I.EQ.0) GO TO 10
409: CALL RSPEAK(I)
410: RETURN
411: C
412: C O19-- MASTER SWITCH
413: C
414: 31000 IF(PRSA.NE.TURNW) GO TO 10
415: C !TURN?
416: IF(PRSI.NE.SCREW) GO TO 31500
417: C !WITH SCREWDRIVER?
418: IF(QOPEN(MACHI)) GO TO 31600
419: C !LID UP?
420: CALL RSPEAK(226)
421: C !NO, ACTIVATE.
422: IF(OCAN(COAL).NE.MACHI) GO TO 31400
423: C !COAL INSIDE?
424: CALL NEWSTA(COAL,0,0,0,0)
425: C !KILL COAL,
426: CALL NEWSTA(DIAMO,0,0,MACHI,0)
427: C !REPLACE WITH DIAMOND.
428: RETURN
429: C
430: 31400 DO 31450 I=1,OLNT
431: C !KILL NONCOAL OBJECTS.
432: IF(OCAN(I).NE.MACHI) GO TO 31450
433: C !INSIDE MACHINE?
434: CALL NEWSTA(I,0,0,0,0)
435: C !KILL OBJECT AND CONTENTS.
436: CALL NEWSTA(GUNK,0,0,MACHI,0)
437: C !REDUCE TO GUNK.
438: 31450 CONTINUE
439: RETURN
440: C
441: 31500 CALL RSPSUB(300,ODI2)
442: C !CANT TURN WITH THAT.
443: RETURN
444: C
445: 31600 CALL RSPEAK(227)
446: C !LID IS UP.
447: RETURN
448: C SOBJS, PAGE 9
449: C
450: C O20-- LEAK
451: C
452: 33000 IF((PRSO.NE.LEAK).OR.(PRSA.NE.PLUGW).OR.(RVMNT.LE.0))
453: & GO TO 10
454: IF(PRSI.NE.PUTTY) GO TO 33100
455: C !WITH PUTTY?
456: RVMNT=-1
457: C !DISABLE LEAK.
458: CTICK(CEVMNT)=0
459: CALL RSPEAK(577)
460: RETURN
461: C
462: 33100 CALL RSPSUB(301,ODI2)
463: C !CANT WITH THAT.
464: RETURN
465: C
466: C O21-- DROWNING BUTTONS
467: C
468: 34000 IF(PRSA.NE.PUSHW) GO TO 10
469: C !PUSH?
470: GO TO (34100,34200,34300,34400),(PRSO-RBUTT+1)
471: GO TO 10
472: C !NOT A BUTTON.
473: C
474: 34100 RFLAG(HERE)=xor(RFLAG(HERE),RLIGHT)
475: I=230
476: IF(and(RFLAG(HERE),RLIGHT).NE.0) I=231
477: CALL RSPEAK(I)
478: RETURN
479: C
480: 34200 GATEF=.TRUE.
481: C !RELEASE GATE.
482: CALL RSPEAK(232)
483: RETURN
484: C
485: 34300 GATEF=.FALSE.
486: C !INTERLOCK GATE.
487: CALL RSPEAK(232)
488: RETURN
489: C
490: 34400 IF(RVMNT.NE.0) GO TO 34500
491: C !LEAK ALREADY STARTED?
492: CALL RSPEAK(233)
493: C !NO, START LEAK.
494: RVMNT=1
495: CTICK(CEVMNT)=-1
496: RETURN
497: C
498: 34500 CALL RSPEAK(234)
499: C !BUTTON JAMMED.
500: RETURN
501: C
502: C O22-- INFLATABLE BOAT
503: C
504: 36000 IF(PRSA.NE.INFLAW) GO TO 10
505: C !INFLATE?
506: IF(OROOM(IBOAT).NE.0) GO TO 36100
507: C !IN ROOM?
508: CALL RSPEAK(235)
509: C !NO, JOKE.
510: RETURN
511: C
512: 36100 IF(PRSI.NE.PUMP) GO TO 36200
513: C !WITH PUMP?
514: CALL NEWSTA(IBOAT,0,0,0,0)
515: C !KILL DEFL BOAT,
516: CALL NEWSTA(RBOAT,236,HERE,0,0)
517: C !REPL WITH INF.
518: DEFLAF=.FALSE.
519: RETURN
520: C
521: 36200 I=237
522: C !JOKES.
523: IF(PRSI.NE.LUNGS) I=303
524: CALL RSPSUB(I,ODI2)
525: RETURN
526: C
527: C O23-- DEFLATED BOAT
528: C
529: 37000 IF(PRSA.NE.INFLAW) GO TO 37100
530: C !INFLATE?
531: CALL RSPEAK(238)
532: C !JOKE.
533: RETURN
534: C
535: 37100 IF(PRSA.NE.PLUGW) GO TO 10
536: C !PLUG?
537: IF(PRSI.NE.PUTTY) GO TO 33100
538: C !WITH PUTTY?
539: CALL NEWSTA(IBOAT,239,OROOM(DBOAT),OCAN(DBOAT),OADV(DBOAT))
540: CALL NEWSTA(DBOAT,0,0,0,0)
541: C !KILL DEFL BOAT, REPL.
542: RETURN
543: C SOBJS, PAGE 10
544: C
545: C O24-- RUBBER BOAT
546: C
547: 38000 IF(ARG.NE.0) GO TO 10
548: C !DISMISS READIN, OUT.
549: IF((PRSA.NE.BOARDW).OR.(OADV(STICK).NE.WINNER)) GO TO 38100
550: CALL NEWSTA(RBOAT,0,0,0,0)
551: C !KILL INFL BOAT,
552: CALL NEWSTA(DBOAT,240,HERE,0,0)
553: C !REPL WITH DEAD.
554: DEFLAF=.TRUE.
555: RETURN
556: C
557: 38100 IF(PRSA.NE.INFLAW) GO TO 38200
558: C !INFLATE?
559: CALL RSPEAK(367)
560: C !YES, JOKE.
561: RETURN
562: C
563: 38200 IF(PRSA.NE.DEFLAW) GO TO 10
564: C !DEFLATE?
565: IF(AV.EQ.RBOAT) GO TO 38300
566: C !IN BOAT?
567: IF(OROOM(RBOAT).EQ.0) GO TO 38400
568: C !ON GROUND?
569: CALL NEWSTA(RBOAT,0,0,0,0)
570: C !KILL INFL BOAT,
571: CALL NEWSTA(IBOAT,241,HERE,0,0)
572: C !REPL WITH DEFL.
573: DEFLAF=.TRUE.
574: RETURN
575: C
576: 38300 CALL RSPEAK(242)
577: C !IN BOAT.
578: RETURN
579: C
580: 38400 CALL RSPEAK(243)
581: C !NOT ON GROUND.
582: RETURN
583: C
584: C O25-- BRAIDED ROPE
585: C
586: 41000 IF((PRSA.NE.TIEW).OR.(PRSO.NE.BROPE).OR.
587: & ((PRSI.NE.HOOK1).AND.(PRSI.NE.HOOK2)))
588: & GO TO 41500
589: BTIEF=PRSI
590: C !RECORD LOCATION.
591: CFLAG(CEVBAL)=.FALSE.
592: C !STALL ASCENT.
593: CALL RSPEAK(248)
594: RETURN
595: C
596: 41500 IF((PRSA.NE.UNTIEW).OR.(PRSO.NE.BROPE)) GO TO 10
597: IF(BTIEF.NE.0) GO TO 41600
598: C !TIED UP?
599: CALL RSPEAK(249)
600: C !NO, JOKE.
601: RETURN
602: C
603: 41600 CALL RSPEAK(250)
604: BTIEF=0
605: C !UNTIE.
606: CTICK(CEVBAL)=3
607: C !RESTART CLOCK.
608: CFLAG(CEVBAL)=.TRUE.
609: RETURN
610: C
611: C O26-- SAFE
612: C
613: 42000 I=0
614: C !ASSUME UNPROCESSED.
615: IF(PRSA.EQ.TAKEW) I=251
616: C !TAKE?
617: IF((PRSA.EQ.OPENW).AND.SAFEF) I=253
618: C !OPEN AFTER BLAST?
619: IF((PRSA.EQ.OPENW).AND..NOT.SAFEF) I=254
620: C !OPEN BEFORE BLAST?
621: IF((PRSA.EQ.CLOSEW).AND.SAFEF) I=253
622: C !CLOSE AFTER?
623: IF((PRSA.EQ.CLOSEW).AND..NOT.SAFEF) I=255
624: IF(I.EQ.0) GO TO 10
625: CALL RSPEAK(I)
626: RETURN
627: C
628: C O27-- FUSE
629: C
630: 43000 IF(PRSA.NE.BURNW) GO TO 10
631: C !BURN?
632: CALL RSPEAK(256)
633: CTICK(CEVFUS)=2
634: C !START COUNTDOWN.
635: RETURN
636: C
637: C O28-- GNOME
638: C
639: 44000 IF((PRSA.NE.GIVEW).AND.(PRSA.NE.THROWW)) GO TO 44500
640: IF(OTVAL(PRSO).EQ.0) GO TO 44100
641: C !TREASURE?
642: CALL RSPSUB(257,ODO2)
643: C !YES, GET DOOR.
644: CALL NEWSTA(PRSO,0,0,0,0)
645: CALL NEWSTA(GNOME,0,0,0,0)
646: C !VANISH GNOME.
647: GNODRF=.TRUE.
648: RETURN
649: C
650: 44100 CALL RSPSUB(258,ODO2)
651: C !NO, LOSE OBJECT.
652: CALL NEWSTA(PRSO,0,0,0,0)
653: RETURN
654: C
655: 44500 CALL RSPEAK(259)
656: C !NERVOUS GNOME.
657: IF(.NOT.GNOMEF) CTICK(CEVGNO)=5
658: C !SCHEDULE BYEBYE.
659: GNOMEF=.TRUE.
660: RETURN
661: C
662: C O29-- COKE BOTTLES
663: C
664: 46000 IF((PRSA.NE.THROWW).AND.(PRSA.NE.MUNGW)) GO TO 10
665: CALL NEWSTA(PRSO,262,0,0,0)
666: C !MUNG BOTTLES.
667: RETURN
668: C SOBJS, PAGE 11
669: C
670: C
671: C O30-- ROBOT
672: C
673: 53000 IF(PRSA.NE.GIVEW) GO TO 53200
674: C !GIVE?
675: CALL NEWSTA(PRSO,0,0,0,AROBOT)
676: C !PUT ON ROBOT.
677: CALL RSPSUB(302,ODO2)
678: RETURN
679: C
680: 53200 IF((PRSA.NE.MUNGW).AND.(PRSA.NE.THROWW)) GO TO 10
681: CALL NEWSTA(ROBOT,285,0,0,0)
682: C !KILL ROBOT.
683: RETURN
684: C
685: C O31-- GRUE
686: C
687: 56000 IF(PRSA.NE.EXAMIW) GO TO 56100
688: C !EXAMINE?
689: CALL RSPEAK(288)
690: RETURN
691: C
692: 56100 IF(PRSA.NE.FINDW) GO TO 10
693: C !FIND?
694: CALL RSPEAK(289)
695: RETURN
696: C
697: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.