1: C NOBJS- NEW 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 NOBJS(RI,ARG) 12: IMPLICIT INTEGER (A-Z) 13: LOGICAL QOPEN,MOVETO,F 14: LOGICAL QHERE,OPNCLS,MIRPAN 15: #include "parser.h" 16: #include "gamestate.h" 17: #include "state.h" 18: #include "screen.h" 19: #include "puzzle.h" 20: C 21: C MISCELLANEOUS VARIABLES 22: C 23: COMMON /HYPER/ HFACTR 24: #include "rooms.h" 25: #include "rflag.h" 26: #include "rindex.h" 27: #include "objects.h" 28: #include "oflags.h" 29: #include "oindex.h" 30: #include "clock.h" 31: 32: #include "villians.h" 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: C NOBJS, PAGE 2 41: C 42: IF(PRSO.NE.0) ODO2=ODESC2(PRSO) 43: IF(PRSI.NE.0) ODI2=ODESC2(PRSI) 44: AV=AVEHIC(WINNER) 45: NOBJS=.TRUE. 46: C 47: GO TO (1000,2000,3000,4000,5000,6000,7000,8000,9000, 48: & 10000,11000,12000,13000,14000,15000,16000,17000, 49: & 18000,19000,20000,21000), 50: & (RI-31) 51: CALL BUG(6,RI) 52: C 53: C RETURN HERE TO DECLARE FALSE RESULT 54: C 55: 10 NOBJS=.FALSE. 56: RETURN 57: C 58: C O32-- BILLS 59: C 60: 1000 IF(PRSA.NE.EATW) GO TO 1100 61: C !EAT? 62: CALL RSPEAK(639) 63: C !JOKE. 64: RETURN 65: C 66: 1100 IF(PRSA.EQ.BURNW) CALL RSPEAK(640) 67: C !BURN? JOKE. 68: GO TO 10 69: C !LET IT BE HANDLED. 70: C NOBJS, PAGE 3 71: C 72: C O33-- SCREEN OF LIGHT 73: C 74: 2000 TARGET=SCOL 75: C !TARGET IS SCOL. 76: 2100 IF(PRSO.NE.TARGET) GO TO 2400 77: C !PRSO EQ TARGET? 78: IF((PRSA.NE.PUSHW).AND.(PRSA.NE.MOVEW).AND. 79: & (PRSA.NE.TAKEW).AND.(PRSA.NE.RUBW)) GO TO 2200 80: CALL RSPEAK(673) 81: C !HAND PASSES THRU. 82: RETURN 83: C 84: 2200 IF((PRSA.NE.KILLW).AND.(PRSA.NE.ATTACW).AND. 85: & (PRSA.NE.MUNGW)) GO TO 2400 86: CALL RSPSUB(674,ODI2) 87: C !PASSES THRU. 88: RETURN 89: C 90: 2400 IF((PRSA.NE.THROWW).OR.(PRSI.NE.TARGET)) GO TO 10 91: IF(HERE.EQ.BKBOX) GO TO 2600 92: C !THRU SCOL? 93: CALL NEWSTA(PRSO,0,BKBOX,0,0) 94: C !NO, THRU WALL. 95: CALL RSPSUB(675,ODO2) 96: C !ENDS UP IN BOX ROOM. 97: CTICK(CEVSCL)=0 98: C !CANCEL ALARM. 99: SCOLRM=0 100: C !RESET SCOL ROOM. 101: RETURN 102: C 103: 2600 IF(SCOLRM.EQ.0) GO TO 2900 104: C !TRIED TO GO THRU? 105: CALL NEWSTA(PRSO,0,SCOLRM,0,0) 106: C !SUCCESS. 107: CALL RSPSUB(676,ODO2) 108: C !ENDS UP SOMEWHERE. 109: CTICK(CEVSCL)=0 110: C !CANCEL ALARM. 111: SCOLRM=0 112: C !RESET SCOL ROOM. 113: RETURN 114: C 115: 2900 CALL RSPEAK(213) 116: C !CANT DO IT. 117: RETURN 118: C NOBJS, PAGE 4 119: C 120: C O34-- GNOME OF ZURICH 121: C 122: 3000 IF((PRSA.NE.GIVEW).AND.(PRSA.NE.THROWW)) GO TO 3200 123: IF(OTVAL(PRSO).NE.0) GO TO 3100 124: C !THROW A TREASURE? 125: CALL NEWSTA(PRSO,641,0,0,0) 126: C !NO, GO POP. 127: RETURN 128: C 129: 3100 CALL NEWSTA(PRSO,0,0,0,0) 130: C !YES, BYE BYE TREASURE. 131: CALL RSPSUB(642,ODO2) 132: CALL NEWSTA(ZGNOM,0,0,0,0) 133: C !BYE BYE GNOME. 134: CTICK(CEVZGO)=0 135: C !CANCEL EXIT. 136: F=MOVETO(BKENT,WINNER) 137: C !NOW IN BANK ENTRANCE. 138: RETURN 139: C 140: 3200 IF((PRSA.NE.ATTACW).AND.(PRSA.NE.KILLW).AND. 141: & (PRSA.NE.MUNGW)) GO TO 3300 142: CALL NEWSTA(ZGNOM,643,0,0,0) 143: C !VANISH GNOME. 144: CTICK(CEVZGO)=0 145: C !CANCEL EXIT. 146: RETURN 147: C 148: 3300 CALL RSPEAK(644) 149: C !GNOME IS IMPATIENT. 150: RETURN 151: C 152: C O35-- EGG 153: C 154: 4000 IF((PRSA.NE.OPENW).OR.(PRSO.NE.EGG)) GO TO 4500 155: IF(.NOT.QOPEN(EGG)) GO TO 4100 156: C !OPEN ALREADY? 157: CALL RSPEAK(649) 158: C !YES. 159: RETURN 160: C 161: 4100 IF(PRSI.NE.0) GO TO 4200 162: C !WITH SOMETHING? 163: CALL RSPEAK(650) 164: C !NO, CANT. 165: RETURN 166: C 167: 4200 IF(PRSI.NE.HANDS) GO TO 4300 168: C !WITH HANDS? 169: CALL RSPEAK(651) 170: C !NOT RECOMMENDED. 171: RETURN 172: C 173: 4300 I=652 174: C !MUNG MESSAGE. 175: IF((and(OFLAG1(PRSI),TOOLBT).NE.0).OR. 176: & (and(OFLAG2(PRSI),WEAPBT).NE.0)) GO TO 4600 177: I=653 178: C !NOVELTY 1. 179: IF(and(OFLAG2(PRSO),FITEBT).NE.0) I=654 180: OFLAG2(PRSO)=or(OFLAG2(PRSO),FITEBT) 181: CALL RSPSUB(I,ODI2) 182: RETURN 183: C 184: 4500 IF((PRSA.NE.OPENW).AND.(PRSA.NE.MUNGW)) GO TO 4800 185: I=655 186: C !YOU BLEW IT. 187: 4600 CALL NEWSTA(BEGG,I,OROOM(EGG),OCAN(EGG),OADV(EGG)) 188: CALL NEWSTA(EGG,0,0,0,0) 189: C !VANISH EGG. 190: OTVAL(BEGG)=2 191: C !BAD EGG HAS VALUE. 192: IF(OCAN(CANAR).NE.EGG) GO TO 4700 193: C !WAS CANARY INSIDE? 194: CALL RSPEAK(ODESCO(BCANA)) 195: C !YES, DESCRIBE RESULT. 196: OTVAL(BCANA)=1 197: RETURN 198: C 199: 4700 CALL NEWSTA(BCANA,0,0,0,0) 200: C !NO, VANISH IT. 201: RETURN 202: C 203: 4800 IF((PRSA.NE.DROPW).OR.(HERE.NE.MTREE)) GO TO 10 204: CALL NEWSTA(BEGG,658,FORE3,0,0) 205: C !DROPPED EGG. 206: CALL NEWSTA(EGG,0,0,0,0) 207: OTVAL(BEGG)=2 208: IF(OCAN(CANAR).NE.EGG) GO TO 4700 209: OTVAL(BCANA)=1 210: C !BAD CANARY. 211: RETURN 212: C NOBJS, PAGE 5 213: C 214: C O36-- CANARIES, GOOD AND BAD 215: C 216: 5000 IF(PRSA.NE.WINDW) GO TO 10 217: C !WIND EM UP? 218: IF(PRSO.EQ.CANAR) GO TO 5100 219: C !RIGHT ONE? 220: CALL RSPEAK(645) 221: C !NO, BAD NEWS. 222: RETURN 223: C 224: 5100 IF(.NOT.SINGSF.AND.((HERE.EQ.MTREE).OR. 225: & ((HERE.GE.FORE1).AND.(HERE.LT.CLEAR)))) 226: & GO TO 5200 227: CALL RSPEAK(646) 228: C !NO, MEDIOCRE NEWS. 229: RETURN 230: C 231: 5200 SINGSF=.TRUE. 232: C !SANG SONG. 233: I=HERE 234: IF(I.EQ.MTREE) I=FORE3 235: C !PLACE BAUBLE. 236: CALL NEWSTA(BAUBL,647,I,0,0) 237: RETURN 238: C 239: C O37-- WHITE CLIFFS 240: C 241: 6000 IF((PRSA.NE.CLMBW).AND.(PRSA.NE.CLMBUW).AND. 242: & (PRSA.NE.CLMBDW)) GO TO 10 243: CALL RSPEAK(648) 244: C !OH YEAH? 245: RETURN 246: C 247: C O38-- WALL 248: C 249: 7000 IF((IABS(HERE-MLOC).NE.1).OR.(MRHERE(HERE).NE.0).OR. 250: & (PRSA.NE.PUSHW)) GO TO 7100 251: CALL RSPEAK(860) 252: C !PUSHED MIRROR WALL. 253: RETURN 254: C 255: 7100 IF(and(RFLAG(HERE),RNWALL).EQ.0) GO TO 10 256: CALL RSPEAK(662) 257: C !NO WALL. 258: RETURN 259: C NOBJS, PAGE 6 260: C 261: C O39-- SONG BIRD GLOBAL 262: C 263: 8000 IF(PRSA.NE.FINDW) GO TO 8100 264: C !FIND? 265: CALL RSPEAK(666) 266: RETURN 267: C 268: 8100 IF(PRSA.NE.EXAMIW) GO TO 10 269: C !EXAMINE? 270: CALL RSPEAK(667) 271: RETURN 272: C 273: C O40-- PUZZLE/SCOL WALLS 274: C 275: 9000 IF(HERE.NE.CPUZZ) GO TO 9500 276: C !PUZZLE WALLS? 277: IF(PRSA.NE.PUSHW) GO TO 10 278: C !PUSH? 279: DO 9100 I=1,8,2 280: C !LOCATE WALL. 281: IF(PRSO.EQ.CPWL(I)) GO TO 9200 282: 9100 CONTINUE 283: CALL BUG(80,PRSO) 284: C !WHAT? 285: C 286: 9200 J=CPWL(I+1) 287: C !GET DIRECTIONAL OFFSET. 288: NXT=CPHERE+J 289: C !GET NEXT STATE. 290: WL=CPVEC(NXT) 291: C !GET C(NEXT STATE). 292: GO TO (9300,9300,9300,9250,9350),(WL+4) 293: C !PROCESS. 294: C 295: 9250 CALL RSPEAK(876) 296: C !CLEAR CORRIDOR. 297: RETURN 298: C 299: 9300 IF(CPVEC(NXT+J).EQ.0) GO TO 9400 300: C !MOVABLE, ROOM TO MOVE? 301: 9350 CALL RSPEAK(877) 302: C !IMMOVABLE, NO ROOM. 303: RETURN 304: C 305: 9400 I=878 306: C !ASSUME FIRST PUSH. 307: IF(CPUSHF) I=879 308: C !NOT? 309: CPUSHF=.TRUE. 310: CPVEC(NXT+J)=WL 311: C !MOVE WALL. 312: CPVEC(NXT)=0 313: C !VACATE NEXT STATE. 314: CALL CPGOTO(NXT) 315: C !ONWARD. 316: CALL CPINFO(I,NXT) 317: C !DESCRIBE. 318: CALL PRINCR(.TRUE.,HERE) 319: C !PRINT ROOMS CONTENTS. 320: RFLAG(HERE)=or(RFLAG(HERE),RSEEN) 321: RETURN 322: C 323: 9500 IF(HERE.NE.SCOLAC) GO TO 9700 324: C !IN SCOL ACTIVE ROOM? 325: DO 9600 I=1,12,3 326: TARGET=SCOLWL(I+1) 327: C !ASSUME TARGET. 328: IF(SCOLWL(I).EQ.HERE) GO TO 2100 329: C !TREAT IF FOUND. 330: 9600 CONTINUE 331: C 332: 9700 IF(HERE.NE.BKBOX) GO TO 10 333: C !IN BOX ROOM? 334: TARGET=WNORT 335: GO TO 2100 336: C NOBJS, PAGE 7 337: C 338: C O41-- SHORT POLE 339: C 340: 10000 IF(PRSA.NE.RAISEW) GO TO 10100 341: C !LIFT? 342: I=749 343: C !ASSUME UP. 344: IF(POLEUF.EQ.2) I=750 345: C !ALREADY UP? 346: CALL RSPEAK(I) 347: POLEUF=2 348: C !POLE IS RAISED. 349: RETURN 350: C 351: 10100 IF((PRSA.NE.LOWERW).AND.(PRSA.NE.PUSHW)) GO TO 10 352: IF(POLEUF.NE.0) GO TO 10200 353: C !ALREADY LOWERED? 354: CALL RSPEAK(751) 355: C !CANT DO IT. 356: RETURN 357: C 358: 10200 IF(MOD(MDIR,180).NE.0) GO TO 10300 359: C !MIRROR N-S? 360: POLEUF=0 361: C !YES, LOWER INTO 362: CALL RSPEAK(752) 363: C !CHANNEL. 364: RETURN 365: C 366: 10300 IF((MDIR.NE.270).OR.(MLOC.NE.MRB)) GO TO 10400 367: POLEUF=0 368: C !LOWER INTO HOLE. 369: CALL RSPEAK(753) 370: RETURN 371: C 372: 10400 CALL RSPEAK(753+POLEUF) 373: C !POLEUF = 1 OR 2. 374: POLEUF=1 375: C !NOW ON FLOOR. 376: RETURN 377: C 378: C O42-- MIRROR SWITCH 379: C 380: 11000 IF(PRSA.NE.PUSHW) GO TO 10 381: C !PUSH? 382: IF(MRPSHF) GO TO 11300 383: C !ALREADY PUSHED? 384: CALL RSPEAK(756) 385: C !BUTTON GOES IN. 386: DO 11100 I=1,OLNT 387: C !BLOCKED? 388: IF(QHERE(I,MREYE).AND.(I.NE.RBEAM)) GO TO 11200 389: 11100 CONTINUE 390: CALL RSPEAK(757) 391: C !NOTHING IN BEAM. 392: RETURN 393: C 394: 11200 CFLAG(CEVMRS)=.TRUE. 395: C !MIRROR OPENS. 396: CTICK(CEVMRS)=7 397: MRPSHF=.TRUE. 398: MROPNF=.TRUE. 399: RETURN 400: C 401: 11300 CALL RSPEAK(758) 402: C !MIRROR ALREADYOPEN. 403: RETURN 404: C NOBJS, PAGE 8 405: C 406: C O43-- BEAM FUNCTION 407: C 408: 12000 IF((PRSA.NE.TAKEW).OR.(PRSO.NE.RBEAM)) GO TO 12100 409: CALL RSPEAK(759) 410: C !TAKE BEAM, JOKE. 411: RETURN 412: C 413: 12100 I=PRSO 414: C !ASSUME BLK WITH DIROBJ. 415: IF((PRSA.EQ.PUTW).AND.(PRSI.EQ.RBEAM)) GO TO 12200 416: IF((PRSA.NE.MUNGW).OR.(PRSO.NE.RBEAM).OR. 417: & (PRSI.EQ.0)) GO TO 10 418: I=PRSI 419: 12200 IF(OADV(I).NE.WINNER) GO TO 12300 420: C !CARRYING? 421: CALL NEWSTA(I,0,HERE,0,0) 422: C !DROP OBJ. 423: CALL RSPSUB(760,ODESC2(I)) 424: RETURN 425: C 426: 12300 J=761 427: C !ASSUME NOT IN ROOM. 428: IF(QHERE(J,HERE)) I=762 429: C !IN ROOM? 430: CALL RSPSUB(J,ODESC2(I)) 431: C !DESCRIBE. 432: RETURN 433: C 434: C O44-- BRONZE DOOR 435: C 436: 13000 IF((HERE.EQ.NCELL).OR.((LCELL.EQ.4).AND. 437: & ((HERE.EQ.CELL).OR.(HERE.EQ.SCORR)))) 438: & GO TO 13100 439: CALL RSPEAK(763) 440: C !DOOR NOT THERE. 441: RETURN 442: C 443: 13100 IF(.NOT.OPNCLS(ODOOR,764,765)) GO TO 10 444: C !OPEN/CLOSE? 445: IF((HERE.EQ.NCELL).AND.QOPEN(ODOOR)) 446: & CALL RSPEAK(766) 447: RETURN 448: C 449: C O45-- QUIZ DOOR 450: C 451: 14000 IF((PRSA.NE.OPENW).AND.(PRSA.NE.CLOSEW)) GO TO 14100 452: CALL RSPEAK(767) 453: C !DOOR WONT MOVE. 454: RETURN 455: C 456: 14100 IF(PRSA.NE.KNOCKW) GO TO 10 457: C !KNOCK? 458: IF(INQSTF) GO TO 14200 459: C !TRIED IT ALREADY? 460: INQSTF=.TRUE. 461: C !START INQUISITION. 462: CFLAG(CEVINQ)=.TRUE. 463: CTICK(CEVINQ)=2 464: QUESNO=RND(8) 465: C !SELECT QUESTION. 466: NQATT=0 467: CORRCT=0 468: CALL RSPEAK(768) 469: C !ANNOUNCE RULES. 470: CALL RSPEAK(769) 471: CALL RSPEAK(770+QUESNO) 472: C !ASK QUESTION. 473: RETURN 474: C 475: 14200 CALL RSPEAK(798) 476: C !NO REPLY. 477: RETURN 478: C 479: C O46-- LOCKED DOOR 480: C 481: 15000 IF(PRSA.NE.OPENW) GO TO 10 482: C !OPEN? 483: CALL RSPEAK(778) 484: C !CANT. 485: RETURN 486: C 487: C O47-- CELL DOOR 488: C 489: 16000 NOBJS=OPNCLS(CDOOR,779,780) 490: C !OPEN/CLOSE? 491: RETURN 492: C NOBJS, PAGE 9 493: C 494: C O48-- DIALBUTTON 495: C 496: 17000 IF(PRSA.NE.PUSHW) GO TO 10 497: C !PUSH? 498: CALL RSPEAK(809) 499: C !CLICK. 500: IF(QOPEN(CDOOR)) CALL RSPEAK(810) 501: C !CLOSE CELL DOOR. 502: C 503: DO 17100 I=1,OLNT 504: C !RELOCATE OLD TO HYPER. 505: IF((OROOM(I).EQ.CELL).AND.(and(OFLAG1(I),DOORBT).EQ.0)) 506: & CALL NEWSTA(I,0,LCELL*HFACTR,0,0) 507: IF(OROOM(I).EQ.(PNUMB*HFACTR)) 508: & CALL NEWSTA(I,0,CELL,0,0) 509: 17100 CONTINUE 510: C 511: OFLAG2(ODOOR)=and(OFLAG2(ODOOR), not(OPENBT)) 512: OFLAG2(CDOOR)=and(OFLAG2(CDOOR), not(OPENBT)) 513: OFLAG1(ODOOR)=and(OFLAG1(ODOOR), not(VISIBT)) 514: IF(PNUMB.EQ.4) OFLAG1(ODOOR)=or(OFLAG1(ODOOR),VISIBT) 515: C 516: IF(AROOM(PLAYER).NE.CELL) GO TO 17400 517: C !PLAYER IN CELL? 518: IF(LCELL.NE.4) GO TO 17200 519: C !IN RIGHT CELL? 520: OFLAG1(ODOOR)=or(OFLAG1(ODOOR), VISIBT) 521: F=MOVETO(NCELL,PLAYER) 522: C !YES, MOVETO NCELL. 523: GO TO 17400 524: 17200 F=MOVETO(PCELL,PLAYER) 525: C !NO, MOVETO PCELL. 526: C 527: 17400 LCELL=PNUMB 528: RETURN 529: C NOBJS, PAGE 10 530: C 531: C O49-- DIAL INDICATOR 532: C 533: 18000 IF(PRSA.NE.SPINW) GO TO 18100 534: C !SPIN? 535: PNUMB=RND(8)+1 536: C !WHEE 537: C ! 538: CALL RSPSUB(797,712+PNUMB) 539: RETURN 540: C 541: 18100 IF((PRSA.NE.MOVEW).AND.(PRSA.NE.PUTW).AND. 542: & (PRSA.NE.TRNTOW)) GO TO 10 543: IF(PRSI.NE.0) GO TO 18200 544: C !TURN DIAL TO X? 545: CALL RSPEAK(806) 546: C !MUST SPECIFY. 547: RETURN 548: C 549: 18200 IF((PRSI.GE.NUM1).AND.(PRSI.LE.NUM8)) GO TO 18300 550: CALL RSPEAK(807) 551: C !MUST BE DIGIT. 552: RETURN 553: C 554: 18300 PNUMB=PRSI-NUM1+1 555: C !SET UP NEW. 556: CALL RSPSUB(808,712+PNUMB) 557: RETURN 558: C 559: C O50-- GLOBAL MIRROR 560: C 561: 19000 NOBJS=MIRPAN(832,.FALSE.) 562: RETURN 563: C 564: C O51-- GLOBAL PANEL 565: C 566: 20000 IF(HERE.NE.FDOOR) GO TO 20100 567: C !AT FRONT DOOR? 568: IF((PRSA.NE.OPENW).AND.(PRSA.NE.CLOSEW)) GO TO 10 569: CALL RSPEAK(843) 570: C !PANEL IN DOOR, NOGO. 571: RETURN 572: C 573: 20100 NOBJS=MIRPAN(838,.TRUE.) 574: RETURN 575: C 576: C O52-- PUZZLE ROOM SLIT 577: C 578: 21000 IF((PRSA.NE.PUTW).OR.(PRSI.NE.CSLIT)) GO TO 10 579: IF(PRSO.NE.GCARD) GO TO 21100 580: C !PUT CARD IN SLIT? 581: CALL NEWSTA(PRSO,863,0,0,0) 582: C !KILL CARD. 583: CPOUTF=.TRUE. 584: C !OPEN DOOR. 585: OFLAG1(STLDR)=and(OFLAG1(STLDR),not(VISIBT)) 586: RETURN 587: C 588: 21100 IF((and(OFLAG1(PRSO),VICTBT).EQ.0).AND. 589: & (and(OFLAG2(PRSO),VILLBT).EQ.0)) GO TO 21200 590: CALL RSPEAK(RND(5)+552) 591: C !JOKE FOR VILL, VICT. 592: RETURN 593: C 594: 21200 CALL NEWSTA(PRSO,0,0,0,0) 595: C !KILL OBJECT. 596: CALL RSPSUB(864,ODO2) 597: C !DESCRIBE. 598: RETURN 599: C 600: END 601: C MIRPAN-- PROCESSOR FOR GLOBAL MIRROR/PANEL 602: C 603: C DECLARATIONS 604: C 605: LOGICAL FUNCTION MIRPAN(ST,PNF) 606: IMPLICIT INTEGER(A-Z) 607: LOGICAL PNF 608: #include "gamestate.h" 609: #include "parser.h" 610: #include "verbs.h" 611: #include "flags.h" 612: C MIRPAN, PAGE 2 613: C 614: MIRPAN=.TRUE. 615: NUM=MRHERE(HERE) 616: C !GET MIRROR NUM. 617: IF(NUM.NE.0) GO TO 100 618: C !ANY HERE? 619: CALL RSPEAK(ST) 620: C !NO, LOSE. 621: RETURN 622: C 623: 100 MRBF=0 624: C !ASSUME MIRROR OK. 625: IF(((NUM.EQ.1).AND..NOT.MR1F).OR. 626: & ((NUM.EQ.2).AND..NOT.MR2F)) MRBF=1 627: IF((PRSA.NE.MOVEW).AND.(PRSA.NE.OPENW)) GO TO 200 628: CALL RSPEAK(ST+1) 629: C !CANT OPEN OR MOVE. 630: RETURN 631: C 632: 200 IF(PNF.OR.((PRSA.NE.LOOKIW).AND.(PRSA.NE.EXAMIW).AND. 633: & (PRSA.NE.LOOKW))) GO TO 300 634: CALL RSPEAK(844+MRBF) 635: C !LOOK IN MIRROR. 636: RETURN 637: C 638: 300 IF(PRSA.NE.MUNGW) GO TO 400 639: C !BREAK? 640: CALL RSPEAK(ST+2+MRBF) 641: C !DO IT. 642: IF((NUM.EQ.1).AND..NOT.PNF) MR1F=.FALSE. 643: IF((NUM.EQ.2).AND..NOT.PNF) MR2F=.FALSE. 644: RETURN 645: C 646: 400 IF(PNF.OR.(MRBF.EQ.0)) GO TO 500 647: C !BROKEN MIRROR? 648: CALL RSPEAK(846) 649: RETURN 650: C 651: 500 IF(PRSA.NE.PUSHW) GO TO 600 652: C !PUSH? 653: CALL RSPEAK(ST+3+NUM) 654: RETURN 655: C 656: 600 MIRPAN=.FALSE. 657: C !CANT HANDLE IT. 658: RETURN 659: C 660: END
|
Last modified: 1988-10-21
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 1994 |
|