![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nobjs.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 nobjs.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 ! root 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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.