![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to objcts.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 objcts.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 root 1: C OAPPLI- OBJECT SPECIAL ACTION ROUTINES
2: C
3: C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142
4: C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
5: C WRITTEN BY R. M. SUPNIK
6: C
7: C DECLARATIONS
8: C
9: LOGICAL FUNCTION OAPPLI(RI,ARG)
10: IMPLICIT INTEGER (A-Z)
11: LOGICAL SOBJS,NOBJS
12: LOGICAL QOPEN,QON,LIT
13: LOGICAL MOVETO,RMDESC,CLOCKD
14: LOGICAL THIEFP,CYCLOP,TROLLP,BALLOP,LIGHTP
15: LOGICAL QEMPTY,QHERE,F,OPNCLS
16: #include "parser.h"
17: #include "gamestate.h"
18: #include "state.h"
19: C
20: COMMON /BATS/ BATDRP(9)
21: C
22: C PUZZLE ROOM
23: C
24: COMMON /PUZZLE/ CPDR(16),CPWL(8),CPVEC(64)
25: #include "rooms.h"
26: #include "rflag.h"
27: #include "rindex.h"
28: #include "objects.h"
29: #include "oflags.h"
30: #include "oindex.h"
31: #include "clock.h"
32:
33: #include "advers.h"
34: #include "verbs.h"
35: #include "flags.h"
36: C
37: C FUNCTIONS AND DATA
38: C
39: QOPEN(R)=and(OFLAG2(R),OPENBT).NE.0
40: QON(R)=and(OFLAG1(R),ONBT).NE.0
41: DATA MXSMP/99/
42: C OAPPLI, PAGE 2
43: C
44: IF(RI.EQ.0) GO TO 10
45: C !ZERO IS FALSE APP.
46: IF(RI.LE.MXSMP) GO TO 100
47: C !SIMPLE OBJECT?
48: IF(PRSO.GT.220) GO TO 5
49: IF(PRSO.NE.0) ODO2=ODESC2(PRSO)
50: 5 IF(PRSI.NE.0) ODI2=ODESC2(PRSI)
51: AV=AVEHIC(WINNER)
52: FLOBTS=FLAMBT+LITEBT+ONBT
53: OAPPLI=.TRUE.
54: C
55: GO TO (2000,5000,10000,11000,12000,15000,18000,
56: & 19000,20000,22000,25000,26000,32000,35000,39000,40000,
57: & 45000,47000,48000,49000,50000,51000,52000,54000,55000,
58: & 56000,57000,58000,59000,60000,61000,62000),
59: & (RI-MXSMP)
60: CALL BUG(6,RI)
61: C
62: C RETURN HERE TO DECLARE FALSE RESULT
63: C
64: 10 OAPPLI=.FALSE.
65: RETURN
66: C
67: C SIMPLE OBJECTS, PROCESSED EXTERNALLY.
68: C
69: 100 IF(RI.LT.32) OAPPLI=SOBJS(RI,ARG)
70: IF(RI.GE.32) OAPPLI=NOBJS(RI,ARG)
71: RETURN
72: C OAPPLI, PAGE 3
73: C
74: C O100-- MACHINE FUNCTION
75: C
76: 2000 IF(HERE.NE.MMACH) GO TO 10
77: C !NOT HERE? F
78: OAPPLI=OPNCLS(MACHI,123,124)
79: C !HANDLE OPN/CLS.
80: RETURN
81: C
82: C O101-- WATER FUNCTION
83: C
84: 5000 IF(PRSA.NE.FILLW) GO TO 5050
85: C !FILL X WITH Y IS
86: PRSA=PUTW
87: C !MADE INTO
88: I=PRSI
89: PRSI=PRSO
90: PRSO=I
91: C !PUT Y IN X.
92: I=ODI2
93: ODI2=ODO2
94: ODO2=I
95: 5050 IF((PRSO.EQ.WATER).OR.(PRSO.EQ.GWATE)) GO TO 5100
96: CALL RSPEAK(561)
97: C !WATER IS IND OBJ,
98: RETURN
99: C !PUNT.
100: C
101: 5100 IF(PRSA.NE.TAKEW) GO TO 5400
102: C !TAKE WATER?
103: IF((OADV(BOTTL).EQ.WINNER).AND.(OCAN(PRSO).NE.BOTTL))
104: & GO TO 5500
105: IF(OCAN(PRSO).EQ.0) GO TO 5200
106: C !INSIDE ANYTHING?
107: IF(QOPEN(OCAN(PRSO))) GO TO 5200
108: C !YES, OPEN?
109: CALL RSPEAK(525,ODESC2(OCAN(PRSO)))
110: C !INSIDE, CLOSED, PUNT.
111: RETURN
112: C
113: 5200 CALL RSPEAK(615)
114: C !NOT INSIDE OR OPEN,
115: RETURN
116: C !SLIPS THRU FINGERS.
117: C
118: 5400 IF(PRSA.NE.PUTW) GO TO 5700
119: C !PUT WATER IN X?
120: IF((AV.NE.0).AND.(PRSI.EQ.AV)) GO TO 5800
121: C !IN VEH?
122: IF(PRSI.EQ.BOTTL) GO TO 5500
123: C !IN BOTTLE?
124: CALL RSPSUB(297,ODI2)
125: C !WONT GO ELSEWHERE.
126: CALL NEWSTA(PRSO,0,0,0,0)
127: C !VANISH WATER.
128: RETURN
129: C
130: 5500 IF(QOPEN(BOTTL)) GO TO 5550
131: C !BOTTLE OPEN?
132: CALL RSPEAK(612)
133: C !NO, LOSE.
134: RETURN
135: C
136: 5550 IF(QEMPTY(BOTTL)) GO TO 5600
137: C !OPEN, EMPTY?
138: CALL RSPEAK(613)
139: C !NO, ALREADY FULL.
140: RETURN
141: C
142: 5600 CALL NEWSTA(WATER,614,0,BOTTL,0)
143: C !TAKE WATER TO BOTTLE.
144: RETURN
145: C
146: 5700 IF((PRSA.NE.DROPW).AND.(PRSA.NE.POURW).AND.
147: & (PRSA.NE.GIVEW)) GO TO 5900
148: IF(AV.NE.0) GO TO 5800
149: C !INTO VEHICLE?
150: CALL NEWSTA(PRSO,133,0,0,0)
151: C !NO, VANISHES.
152: RETURN
153: C
154: 5800 CALL NEWSTA(WATER,0,0,AV,0)
155: C !WATER INTO VEHICLE.
156: CALL RSPSUB(296,ODESC2(AV))
157: C !DESCRIBE.
158: RETURN
159: C
160: 5900 IF(PRSA.NE.THROWW) GO TO 10
161: C !LAST CHANCE, THROW?
162: CALL NEWSTA(PRSO,132,0,0,0)
163: C !VANISHES.
164: RETURN
165: C OAPPLI, PAGE 4
166: C
167: C O102-- LEAF PILE
168: C
169: 10000 IF(PRSA.NE.BURNW) GO TO 10500
170: C !BURN?
171: IF(OROOM(PRSO).EQ.0) GO TO 10100
172: C !WAS HE CARRYING?
173: CALL NEWSTA(PRSO,158,0,0,0)
174: C !NO, BURN IT.
175: RETURN
176: C
177: 10100 CALL NEWSTA(PRSO,0,HERE,0,0)
178: C !DROP LEAVES.
179: CALL JIGSUP(159)
180: C !BURN HIM.
181: RETURN
182: C
183: 10500 IF(PRSA.NE.MOVEW) GO TO 10600
184: C !MOVE?
185: CALL RSPEAK(2)
186: C !DONE.
187: RETURN
188: C
189: 10600 IF((PRSA.NE.LOOKUW).OR.(RVCLR.NE.0)) GO TO 10
190: CALL RSPEAK(344)
191: C !LOOK UNDER?
192: RETURN
193: C
194: C O103-- TROLL, DONE EXTERNALLY.
195: C
196: 11000 OAPPLI=TROLLP(ARG)
197: C !TROLL PROCESSOR.
198: RETURN
199: C
200: C O104-- RUSTY KNIFE.
201: C
202: 12000 IF(PRSA.NE.TAKEW) GO TO 12100
203: C !TAKE?
204: IF(OADV(SWORD).EQ.WINNER) CALL RSPEAK(160)
205: C !PULSE SWORD.
206: GO TO 10
207: C
208: 12100 IF((((PRSA.NE.ATTACW).AND.(PRSA.NE.KILLW)).OR.
209: & (PRSI.NE.RKNIF)).AND.
210: & (((PRSA.NE.SWINGW).AND.(PRSA.NE.THROWW)).OR.
211: & (PRSO.NE.RKNIF))) GO TO 10
212: CALL NEWSTA(RKNIF,0,0,0,0)
213: C !KILL KNIFE.
214: CALL JIGSUP(161)
215: C !KILL HIM.
216: RETURN
217: C OAPPLI, PAGE 5
218: C
219: C O105-- GLACIER
220: C
221: 15000 IF(PRSA.NE.THROWW) GO TO 15500
222: C !THROW?
223: IF(PRSO.NE.TORCH) GO TO 15400
224: C !TORCH?
225: CALL NEWSTA(ICE,169,0,0,0)
226: C !MELT ICE.
227: ODESC1(TORCH)=174
228: C !MUNG TORCH.
229: ODESC2(TORCH)=173
230: OFLAG1(TORCH)=and(OFLAG1(TORCH), not(FLOBTS))
231: CALL NEWSTA(TORCH,0,STREA,0,0)
232: C !MOVE TORCH.
233: GLACRF=.TRUE.
234: C !GLACIER GONE.
235: IF(.NOT.LIT(HERE)) CALL RSPEAK(170)
236: C !IN DARK?
237: RETURN
238: C
239: 15400 CALL RSPEAK(171)
240: C !JOKE IF NOT TORCH.
241: RETURN
242: C
243: 15500 IF((PRSA.NE.MELTW).OR.(PRSO.NE.ICE)) GO TO 10
244: IF(and(OFLAG1(PRSI),FLOBTS).EQ.FLOBTS) GO TO 15600
245: CALL RSPSUB(298,ODI2)
246: C !CANT MELT WITH THAT.
247: RETURN
248: C
249: 15600 GLACMF=.TRUE.
250: C !PARTIAL MELT.
251: IF(PRSI.NE.TORCH) GO TO 15700
252: C !MELT WITH TORCH?
253: ODESC1(TORCH)=174
254: C !MUNG TORCH.
255: ODESC2(TORCH)=173
256: OFLAG1(TORCH)=and(OFLAG1(TORCH), not(FLOBTS))
257: 15700 CALL JIGSUP(172)
258: C !DROWN.
259: RETURN
260: C
261: C O106-- BLACK BOOK
262: C
263: 18000 IF(PRSA.NE.OPENW) GO TO 18100
264: C !OPEN?
265: CALL RSPEAK(180)
266: C !JOKE.
267: RETURN
268: C
269: 18100 IF(PRSA.NE.CLOSEW) GO TO 18200
270: C !CLOSE?
271: CALL RSPEAK(181)
272: RETURN
273: C
274: 18200 IF(PRSA.NE.BURNW) GO TO 10
275: C !BURN?
276: CALL NEWSTA(PRSO,0,0,0,0)
277: C !FATAL JOKE.
278: CALL JIGSUP(182)
279: RETURN
280: C OAPPLI, PAGE 6
281: C
282: C O107-- CANDLES, PROCESSED EXTERNALLY
283: C
284: 19000 OAPPLI=LIGHTP(CANDL)
285: RETURN
286: C
287: C O108-- MATCHES, PROCESSED EXTERNALLY
288: C
289: 20000 OAPPLI=LIGHTP(MATCH)
290: RETURN
291: C
292: C O109-- CYCLOPS, PROCESSED EXTERNALLY.
293: C
294: 22000 OAPPLI=CYCLOP(ARG)
295: C !CYCLOPS
296: RETURN
297: C
298: C O110-- THIEF, PROCESSED EXTERNALLY
299: C
300: 25000 OAPPLI=THIEFP(ARG)
301: RETURN
302: C
303: C O111-- WINDOW
304: C
305: 26000 OAPPLI=OPNCLS(WINDO,208,209)
306: C !OPEN/CLS WINDOW.
307: RETURN
308: C
309: C O112-- PILE OF BODIES
310: C
311: 32000 IF(PRSA.NE.TAKEW) GO TO 32500
312: C !TAKE?
313: CALL RSPEAK(228)
314: C !CANT.
315: RETURN
316: C
317: 32500 IF((PRSA.NE.BURNW).AND.(PRSA.NE.MUNGW)) GO TO 10
318: IF(ONPOLF) RETURN
319: C !BURN OR MUNG?
320: ONPOLF=.TRUE.
321: C !SET HEAD ON POLE.
322: CALL NEWSTA(HPOLE,0,LLD2,0,0)
323: CALL JIGSUP(229)
324: C !BEHEADED.
325: RETURN
326: C
327: C O113-- VAMPIRE BAT
328: C
329: 35000 CALL RSPEAK(50)
330: C !TIME TO FLY, JACK.
331: F=MOVETO(BATDRP(RND(9)+1),WINNER)
332: C !SELECT RANDOM DEST.
333: F=RMDESC(0)
334: RETURN
335: C OAPPLI, PAGE 7
336: C
337: C O114-- STICK
338: C
339: 39000 IF(PRSA.NE.WAVEW) GO TO 10
340: C !WAVE?
341: IF(HERE.EQ.MRAIN) GO TO 39500
342: C !ON RAINBOW?
343: IF((HERE.EQ.POG).OR.(HERE.EQ.FALLS)) GO TO 39200
344: CALL RSPEAK(244)
345: C !NOTHING HAPPENS.
346: RETURN
347: C
348: 39200 OFLAG1(POT)=or(OFLAG1(POT),VISIBT)
349: RAINBF=.NOT. RAINBF
350: C !COMPLEMENT RAINBOW.
351: I=245
352: C !ASSUME OFF.
353: IF(RAINBF) I=246
354: C !IF ON, SOLID.
355: CALL RSPEAK(I)
356: C !DESCRIBE.
357: RETURN
358: C
359: 39500 RAINBF=.FALSE.
360: C !ON RAINBOW,
361: CALL JIGSUP(247)
362: C !TAKE A FALL.
363: RETURN
364: C
365: C O115-- BALLOON, HANDLED EXTERNALLY
366: C
367: 40000 OAPPLI=BALLOP(ARG)
368: RETURN
369: C
370: C O116-- HEADS
371: C
372: 45000 IF(PRSA.NE.HELLOW) GO TO 45100
373: C !HELLO HEADS?
374: CALL RSPEAK(633)
375: C !TRULY BIZARRE.
376: RETURN
377: C
378: 45100 IF(PRSA.EQ.READW) GO TO 10
379: C !READ IS OK.
380: CALL NEWSTA(LCASE,260,LROOM,0,0)
381: C !MAKE LARGE CASE.
382: I=ROBADV(WINNER,0,LCASE,0)+ROBRM(HERE,100,0,LCASE,0)
383: CALL JIGSUP(261)
384: C !KILL HIM.
385: RETURN
386: C OAPPLI, PAGE 8
387: C
388: C O117-- SPHERE
389: C
390: 47000 IF(CAGESF.OR.(PRSA.NE.TAKEW)) GO TO 10
391: C !TAKE?
392: IF(WINNER.NE.PLAYER) GO TO 47500
393: C !ROBOT TAKE?
394: CALL RSPEAK(263)
395: C !NO, DROP CAGE.
396: IF(OROOM(ROBOT).NE.HERE) GO TO 47200
397: C !ROBOT HERE?
398: F=MOVETO(CAGED,WINNER)
399: C !YES, MOVE INTO CAGE.
400: CALL NEWSTA(ROBOT,0,CAGED,0,0)
401: C !MOVE ROBOT.
402: AROOM(AROBOT)=CAGED
403: OFLAG1(ROBOT)=or(OFLAG1(ROBOT),NDSCBT)
404: CTICK(CEVSPH)=10
405: C !GET OUT IN 10 OR ELSE.
406: RETURN
407: C
408: 47200 CALL NEWSTA(SPHER,0,0,0,0)
409: C !YOURE DEAD.
410: RFLAG(CAGER)=or(RFLAG(CAGER),RMUNG)
411: RRAND(CAGER)=147
412: CALL JIGSUP(148)
413: C !MUNG PLAYER.
414: RETURN
415: C
416: 47500 CALL NEWSTA(SPHER,0,0,0,0)
417: C !ROBOT TRIED,
418: CALL NEWSTA(ROBOT,264,0,0,0)
419: C !KILL HIM.
420: CALL NEWSTA(CAGE,0,HERE,0,0)
421: C !INSERT MANGLED CAGE.
422: RETURN
423: C
424: C O118-- GEOMETRICAL BUTTONS
425: C
426: 48000 IF(PRSA.NE.PUSHW) GO TO 10
427: C !PUSH?
428: I=PRSO-SQBUT+1
429: C !GET BUTTON INDEX.
430: IF((I.LE.0).OR.(I.GE.4)) GO TO 10
431: C !A BUTTON?
432: IF(WINNER.NE.PLAYER) GO TO (48100,48200,48300),I
433: CALL JIGSUP(265)
434: C !YOU PUSHED, YOU DIE.
435: RETURN
436: C
437: 48100 I=267
438: IF(CAROZF) I=266
439: C !SPEED UP?
440: CAROZF=.TRUE.
441: CALL RSPEAK(I)
442: RETURN
443: C
444: 48200 I=266
445: C !ASSUME NO CHANGE.
446: IF(CAROZF) I=268
447: CAROZF=.FALSE.
448: CALL RSPEAK(I)
449: RETURN
450: C
451: 48300 CAROFF=.NOT.CAROFF
452: C !FLIP CAROUSEL.
453: IF(.NOT.QHERE(IRBOX,CAROU)) RETURN
454: C !IRON BOX IN CAROUSEL?
455: CALL RSPEAK(269)
456: C !YES, THUMP.
457: OFLAG1(IRBOX)=xor(OFLAG1(IRBOX),VISIBT)
458: IF(CAROFF) RFLAG(CAROU)=and(RFLAG(CAROU), not(RSEEN))
459: RETURN
460: C
461: C O119-- FLASK FUNCTION
462: C
463: 49000 IF(PRSA.EQ.OPENW) GO TO 49100
464: C !OPEN?
465: IF((PRSA.NE.MUNGW).AND.(PRSA.NE.THROWW)) GO TO 10
466: CALL NEWSTA(FLASK,270,0,0,0)
467: C !KILL FLASK.
468: 49100 RFLAG(HERE)=or(RFLAG(HERE),RMUNG)
469: RRAND(HERE)=271
470: CALL JIGSUP(272)
471: C !POISONED.
472: RETURN
473: C
474: C O120-- BUCKET FUNCTION
475: C
476: 50000 IF(ARG.NE.2) GO TO 10
477: C !READOUT?
478: IF((OCAN(WATER).NE.BUCKE).OR.BUCKTF) GO TO 50500
479: BUCKTF=.TRUE.
480: C !BUCKET AT TOP.
481: CTICK(CEVBUC)=100
482: C !START COUNTDOWN.
483: CALL NEWSTA(BUCKE,290,TWELL,0,0)
484: C !REPOSITION BUCKET.
485: GO TO 50900
486: C !FINISH UP.
487: C
488: 50500 IF((OCAN(WATER).EQ.BUCKE).OR..NOT.BUCKTF) GO TO 10
489: BUCKTF=.FALSE.
490: CALL NEWSTA(BUCKE,291,BWELL,0,0)
491: C !BUCKET AT BOTTOM.
492: 50900 IF(AV.NE.BUCKE) RETURN
493: C !IN BUCKET?
494: F=MOVETO(OROOM(BUCKE),WINNER)
495: C !MOVE ADVENTURER.
496: F=RMDESC(0)
497: C !DESCRIBE ROOM.
498: RETURN
499: C OAPPLI, PAGE 9
500: C
501: C O121-- EATME CAKE
502: C
503: 51000 IF((PRSA.NE.EATW).OR.(PRSO.NE.ECAKE).OR.
504: & (HERE.NE.ALICE)) GO TO 10
505: CALL NEWSTA(ECAKE,273,0,0,0)
506: C !VANISH CAKE.
507: OFLAG1(ROBOT)=and(OFLAG1(ROBOT), not(VISIBT))
508: OAPPLI=MOVETO(ALISM,WINNER)
509: C !MOVE TO ALICE SMALL.
510: IZ=64
511: IR=ALISM
512: IO=ALICE
513: GO TO 52405
514: C
515: C O122-- ICINGS
516: C
517: 52000 IF(PRSA.NE.READW) GO TO 52200
518: C !READ?
519: I=274
520: C !CANT READ.
521: IF(PRSI.NE.0) I=275
522: C !THROUGH SOMETHING?
523: IF(PRSI.EQ.BOTTL) I=276
524: C !THROUGH BOTTLE?
525: IF(PRSI.EQ.FLASK) I=277+(PRSO-ORICE)
526: C !THROUGH FLASK?
527: CALL RSPEAK(I)
528: C !READ FLASK.
529: RETURN
530: C
531: 52200 IF((PRSA.NE.THROWW).OR.(PRSO.NE.RDICE).OR.(PRSI.NE.POOL))
532: & GO TO 52300
533: CALL NEWSTA(POOL,280,0,0,0)
534: C !VANISH POOL.
535: OFLAG1(SAFFR)=or(OFLAG1(SAFFR),VISIBT)
536: RETURN
537: C
538: 52300 IF((HERE.NE.ALICE).AND.(HERE.NE.ALISM).AND.(HERE.NE.ALITR))
539: & GO TO 10
540: IF(((PRSA.NE.EATW).AND.(PRSA.NE.THROWW)).OR.
541: & (PRSO.NE.ORICE)) GO TO 52400
542: CALL NEWSTA(ORICE,0,0,0,0)
543: C !VANISH ORANGE ICE.
544: RFLAG(HERE)=or(RFLAG(HERE),RMUNG)
545: RRAND(HERE)=281
546: CALL JIGSUP(282)
547: C !VANISH ADVENTURER.
548: RETURN
549: C
550: 52400 IF((PRSA.NE.EATW).OR.(PRSO.NE.BLICE))
551: & GO TO 10
552: CALL NEWSTA(BLICE,283,0,0,0)
553: C !VANISH BLUE ICE.
554: IF(HERE.NE.ALISM) GO TO 52500
555: C !IN REDUCED ROOM?
556: OFLAG1(ROBOT)=or(OFLAG1(ROBOT),VISIBT)
557: IO=HERE
558: OAPPLI=MOVETO(ALICE,WINNER)
559: IZ=1/64
560: IR=ALICE
561: C
562: C Do a size change, common loop used also by code at 51000
563: C
564: 52405 DO 52450 I=1,OLNT
565: C !ENLARGE WORLD.
566: IF((OROOM(I).NE.IO).OR.(OSIZE(I).EQ.10000))
567: & GO TO 52450
568: OROOM(I)=IR
569: OSIZE(I)=OSIZE(I)*IZ
570: 52450 CONTINUE
571: RETURN
572: C
573: 52500 CALL JIGSUP(284)
574: C !ENLARGED IN WRONG ROOM.
575: RETURN
576: C
577: C O123-- BRICK
578: C
579: 54000 IF(PRSA.NE.BURNW) GO TO 10
580: C !BURN?
581: CALL JIGSUP(150)
582: C !BOOM
583: C !
584: RETURN
585: C
586: C O124-- MYSELF
587: C
588: 55000 IF(PRSA.NE.GIVEW) GO TO 55100
589: C !GIVE?
590: CALL NEWSTA(PRSO,2,0,0,PLAYER)
591: C !DONE.
592: RETURN
593: C
594: 55100 IF(PRSA.NE.TAKEW) GO TO 55200
595: C !TAKE?
596: CALL RSPEAK(286)
597: C !JOKE.
598: RETURN
599: C
600: 55200 IF((PRSA.NE.KILLW).AND.(PRSA.NE.MUNGW)) GO TO 10
601: CALL JIGSUP(287)
602: C !KILL, NO JOKE.
603: RETURN
604: C OAPPLI, PAGE 10
605: C
606: C O125-- PANELS INSIDE MIRROR
607: C
608: 56000 IF(PRSA.NE.PUSHW) GO TO 10
609: C !PUSH?
610: IF(POLEUF.NE.0) GO TO 56100
611: C !SHORT POLE UP?
612: I=731
613: C !NO, WONT BUDGE.
614: IF(MOD(MDIR,180).EQ.0) I=732
615: C !DIFF MSG IF N-S.
616: CALL RSPEAK(I)
617: C !TELL WONT MOVE.
618: RETURN
619: C
620: 56100 IF(MLOC.NE.MRG) GO TO 56200
621: C !IN GDN ROOM?
622: CALL RSPEAK(733)
623: C !YOU LOSE.
624: CALL JIGSUP(685)
625: RETURN
626: C
627: 56200 I=831
628: C !ROTATE L OR R.
629: IF((PRSO.EQ.RDWAL).OR.(PRSO.EQ.YLWAL)) I=830
630: CALL RSPEAK(I)
631: C !TELL DIRECTION.
632: MDIR=MOD(MDIR+45+(270*(I-830)),360)
633: C !CALCULATE NEW DIR.
634: CALL RSPSUB(734,695+(MDIR/45))
635: C !TELL NEW DIR.
636: IF(WDOPNF) CALL RSPEAK(730)
637: C !IF PANEL OPEN, CLOSE.
638: WDOPNF=.FALSE.
639: RETURN
640: C !DONE.
641: C
642: C O126-- ENDS INSIDE MIRROR
643: C
644: 57000 IF(PRSA.NE.PUSHW) GO TO 10
645: C !PUSH?
646: IF(MOD(MDIR,180).EQ.0) GO TO 57100
647: C !MIRROR N-S?
648: CALL RSPEAK(735)
649: C !NO, WONT BUDGE.
650: RETURN
651: C
652: 57100 IF(PRSO.NE.PINDR) GO TO 57300
653: C !PUSH PINE WALL?
654: IF(((MLOC.EQ.MRC).AND.(MDIR.EQ.180)).OR.
655: & ((MLOC.EQ.MRD).AND.(MDIR.EQ.0)).OR.
656: & (MLOC.EQ.MRG)) GO TO 57200
657: CALL RSPEAK(736)
658: C !NO, OPENS.
659: WDOPNF=.TRUE.
660: C !INDICATE OPEN.
661: CFLAG(CEVPIN)=.TRUE.
662: C !TIME OPENING.
663: CTICK(CEVPIN)=5
664: RETURN
665: C
666: 57200 CALL RSPEAK(737)
667: C !GDN SEES YOU, DIE.
668: CALL JIGSUP(685)
669: RETURN
670: C
671: 57300 NLOC=MLOC-1
672: C !NEW LOC IF SOUTH.
673: IF(MDIR.EQ.0) NLOC=MLOC+1
674: C !NEW LOC IF NORTH.
675: IF((NLOC.GE.MRA).AND.(NLOC.LE.MRD)) GO TO 57400
676: CALL RSPEAK(738)
677: C !HAVE REACHED END.
678: RETURN
679: C
680: 57400 I=699
681: C !ASSUME SOUTH.
682: IF(MDIR.EQ.0) I=695
683: C !NORTH.
684: J=739
685: C !ASSUME SMOOTH.
686: IF(POLEUF.NE.0) J=740
687: C !POLE UP, WOBBLES.
688: CALL RSPSUB(J,I)
689: C !DESCRIBE.
690: MLOC=NLOC
691: IF(MLOC.NE.MRG) RETURN
692: C !NOW IN GDN ROOM?
693: C
694: IF(POLEUF.NE.0) GO TO 57500
695: C !POLE UP, GDN SEES.
696: IF(MROPNF.OR.WDOPNF) GO TO 57600
697: C !DOOR OPEN, GDN SEES.
698: IF(MR1F.AND.MR2F) RETURN
699: C !MIRRORS INTACT, OK.
700: CALL RSPEAK(742)
701: C !MIRRORS BROKEN, DIE.
702: CALL JIGSUP(743)
703: RETURN
704: C
705: 57500 CALL RSPEAK(741)
706: C !POLE UP, DIE.
707: CALL JIGSUP(743)
708: RETURN
709: C
710: 57600 CALL RSPEAK(744)
711: C !DOOR OPEN, DIE.
712: CALL JIGSUP(743)
713: RETURN
714: C OAPPLI, PAGE 11
715: C
716: C O127-- GLOBAL GUARDIANS
717: C
718: 58000 IF((PRSA.NE.ATTACW).AND.(PRSA.NE.KILLW).AND.
719: & (PRSA.NE.MUNGW)) GO TO 58100
720: CALL JIGSUP(745)
721: C !LOSE.
722: RETURN
723: C
724: 58100 IF(PRSA.NE.HELLOW) GO TO 10
725: C !HELLO?
726: CALL RSPEAK(746)
727: C !NO REPLY.
728: RETURN
729: C
730: C O128-- GLOBAL MASTER
731: C
732: 59000 IF((PRSA.NE.ATTACW).AND.(PRSA.NE.KILLW).AND.
733: & (PRSA.NE.MUNGW)) GO TO 59100
734: CALL JIGSUP(747)
735: C !BAD IDEA.
736: RETURN
737: C
738: 59100 IF(PRSA.NE.TAKEW) GO TO 10
739: C !TAKE?
740: CALL RSPEAK(748)
741: C !JOKE.
742: RETURN
743: C
744: C O129-- NUMERAL FIVE (FOR JOKE)
745: C
746: 60000 IF(PRSA.NE.TAKEW) GO TO 10
747: C !TAKE FIVE?
748: CALL RSPEAK(419)
749: C !TIME PASSES.
750: DO 60100 I=1,3
751: C !WAIT A WHILE.
752: IF(CLOCKD(X)) RETURN
753: 60100 CONTINUE
754: RETURN
755: C
756: C O130-- CRYPT FUNCTION
757: C
758: 61000 IF(.NOT.ENDGMF) GO TO 45000
759: C !IF NOT EG, DIE.
760: IF(PRSA.NE.OPENW) GO TO 61100
761: C !OPEN?
762: I=793
763: IF(QOPEN(TOMB)) I=794
764: CALL RSPEAK(I)
765: OFLAG2(TOMB)=or(OFLAG2(TOMB),OPENBT)
766: RETURN
767: C
768: 61100 IF(PRSA.NE.CLOSEW) GO TO 45000
769: C !CLOSE?
770: I=795
771: IF(QOPEN(TOMB)) I=796
772: CALL RSPEAK(I)
773: OFLAG2(TOMB)=and(OFLAG2(TOMB),not(OPENBT))
774: IF(HERE.EQ.CRYPT) CTICK(CEVSTE)=3
775: C !IF IN CRYPT, START EG.
776: RETURN
777: C OAPPLI, PAGE 12
778: C
779: C O131-- GLOBAL LADDER
780: C
781: 62000 IF((CPVEC(CPHERE+1).EQ.-2).OR.(CPVEC(CPHERE-1).EQ.-3))
782: & GO TO 62100
783: CALL RSPEAK(865)
784: C !NO, LOSE.
785: RETURN
786: C
787: 62100 IF((PRSA.EQ.CLMBW).OR.(PRSA.EQ.CLMBUW)) GO TO 62200
788: CALL RSPEAK(866)
789: C !CLIMB IT?
790: RETURN
791: C
792: 62200 IF((CPHERE.EQ.10).AND.(CPVEC(CPHERE+1).EQ.-2))
793: & GO TO 62300
794: CALL RSPEAK(867)
795: C !NO, HIT YOUR HEAD.
796: RETURN
797: C
798: 62300 F=MOVETO(CPANT,WINNER)
799: C !TO ANTEROOM.
800: F=RMDESC(3)
801: C !DESCRIBE.
802: RETURN
803: C
804: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.