![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rooms.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 rooms.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 ! root 1: C RAPPL1- SPECIAL PURPOSE ROOM ROUTINES, PART 1 ! 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 RAPPL1(RI) ! 10: IMPLICIT INTEGER (A-Z) ! 11: LOGICAL QOPEN,QON,QHERE,PROB,F ! 12: LOGICAL MOVETO,LIT ! 13: #include "parser.h" ! 14: #include "gamestate.h" ! 15: #include "state.h" ! 16: C ! 17: C SCREEN OF LIGHT ! 18: C ! 19: COMMON /SCREEN/ FROMDR,SCOLRM,SCOLAC ! 20: COMMON /SCREEN/ SCOLDR(8),SCOLWL(12) ! 21: C ! 22: C MISCELLANEOUS VARIABLES ! 23: C ! 24: COMMON /BATS/ BATDRP(9) ! 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: #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: QON(R)=and(OFLAG1(R),ONBT).NE.0 ! 41: C RAPPL1, PAGE 2 ! 42: C ! 43: RAPPL1=.TRUE. ! 44: C !USUALLY IGNORED. ! 45: IF(RI.EQ.0) RETURN ! 46: C !RETURN IF NAUGHT. ! 47: C ! 48: C !SET TO FALSE FOR ! 49: C ! 50: C !NEW DESC NEEDED. ! 51: GO TO (1000,2000,3000,4000,5000,6000,7000,8000,9000,10000, ! 52: & 11000,12000,13000,14000,15000,16000,17000,18000,19000,20000, ! 53: & 21000,22000,23000,24000,25000,26000,27000,28000,29000,30000, ! 54: & 31000,32000,33000,34000,35000,36000,37000),RI ! 55: CALL BUG(1,RI) ! 56: C ! 57: C R1-- EAST OF HOUSE. DESCRIPTION DEPENDS ON STATE OF WINDOW ! 58: C ! 59: 1000 IF(PRSA.NE.LOOKW) RETURN ! 60: C !LOOK? ! 61: I=13 ! 62: C !ASSUME CLOSED. ! 63: IF(QOPEN(WINDO)) I=12 ! 64: C !IF OPEN, AJAR. ! 65: CALL RSPSUB(11,I) ! 66: C !DESCRIBE. ! 67: RETURN ! 68: C ! 69: C R2-- KITCHEN. SAME VIEW FROM INSIDE. ! 70: C ! 71: 2000 IF(PRSA.NE.LOOKW) RETURN ! 72: C !LOOK? ! 73: I=13 ! 74: C !ASSUME CLOSED. ! 75: IF(QOPEN(WINDO)) I=12 ! 76: C !IF OPEN, AJAR. ! 77: CALL RSPSUB(14,I) ! 78: C !DESCRIBE. ! 79: RETURN ! 80: C ! 81: C R3-- LIVING ROOM. DESCRIPTION DEPENDS ON MAGICF (STATE OF ! 82: C DOOR TO CYCLOPS ROOM), RUG (MOVED OR NOT), DOOR (OPEN OR CLOSED) ! 83: C ! 84: 3000 IF(PRSA.NE.LOOKW) GO TO 3500 ! 85: C !LOOK? ! 86: I=15 ! 87: C !ASSUME NO HOLE. ! 88: IF(MAGICF) I=16 ! 89: C !IF MAGICF, CYCLOPS HOLE. ! 90: CALL RSPEAK(I) ! 91: C !DESCRIBE. ! 92: I=17+ORRUG ! 93: C !ASSUME INITIAL STATE. ! 94: IF(QOPEN(DOOR)) I=I+2 ! 95: C !DOOR OPEN? ! 96: CALL RSPEAK(I) ! 97: C !DESCRIBE. ! 98: RETURN ! 99: C ! 100: C NOT A LOOK WORD. REEVALUATE TROPHY CASE. ! 101: C ! 102: 3500 IF((PRSA.NE.TAKEW).AND.((PRSA.NE.PUTW).OR.(PRSI.NE.TCASE))) ! 103: & RETURN ! 104: ASCORE(WINNER)=RWSCOR ! 105: C !SCORE TROPHY CASE. ! 106: DO 3600 I=1,OLNT ! 107: C !RETAIN RAW SCORE AS WELL. ! 108: J=I ! 109: C !FIND OUT IF IN CASE. ! 110: 3550 J=OCAN(J) ! 111: C !TRACE OWNERSHIP. ! 112: IF(J.EQ.0) GO TO 3600 ! 113: IF(J.NE.TCASE) GO TO 3550 ! 114: C !DO ALL LEVELS. ! 115: ASCORE(WINNER)=ASCORE(WINNER)+OTVAL(I) ! 116: 3600 CONTINUE ! 117: CALL SCRUPD(0) ! 118: C !SEE IF ENDGAME TRIG. ! 119: RETURN ! 120: C RAPPL1, PAGE 3 ! 121: C ! 122: C R4-- CELLAR. SHUT DOOR AND BAR IT IF HE JUST WALKED IN. ! 123: C ! 124: 4000 IF(PRSA.NE.LOOKW) GO TO 4500 ! 125: C !LOOK? ! 126: CALL RSPEAK(21) ! 127: C !DESCRIBE CELLAR. ! 128: RETURN ! 129: C ! 130: 4500 IF(PRSA.NE.WALKIW) RETURN ! 131: C !WALKIN? ! 132: IF(and(OFLAG2(DOOR),(OPENBT+TCHBT)).NE.OPENBT) RETURN ! 133: OFLAG2(DOOR)=and( or(OFLAG2(DOOR),TCHBT), not(OPENBT)) ! 134: CALL RSPEAK(22) ! 135: C !SLAM AND BOLT DOOR. ! 136: RETURN ! 137: C ! 138: C R5-- MAZE11. DESCRIBE STATE OF GRATING. ! 139: C ! 140: 5000 IF(PRSA.NE.LOOKW) RETURN ! 141: C !LOOK? ! 142: CALL RSPEAK(23) ! 143: C !DESCRIBE. ! 144: I=24 ! 145: C !ASSUME LOCKED. ! 146: IF(GRUNLF) I=26 ! 147: C !UNLOCKED? ! 148: IF(QOPEN(GRATE)) I=25 ! 149: C !OPEN? ! 150: CALL RSPEAK(I) ! 151: C !DESCRIBE GRATE. ! 152: RETURN ! 153: C ! 154: C R6-- CLEARING. DESCRIBE CLEARING, MOVE LEAVES. ! 155: C ! 156: 6000 IF(PRSA.NE.LOOKW) GO TO 6500 ! 157: C !LOOK? ! 158: CALL RSPEAK(27) ! 159: C !DESCRIBE. ! 160: IF(RVCLR.EQ.0) RETURN ! 161: C !LEAVES MOVED? ! 162: I=28 ! 163: C !YES, ASSUME GRATE CLOSED. ! 164: IF(QOPEN(GRATE)) I=29 ! 165: C !OPEN? ! 166: CALL RSPEAK(I) ! 167: C !DESCRIBE GRATE. ! 168: RETURN ! 169: C ! 170: 6500 IF((RVCLR.NE.0).OR.(QHERE(LEAVE,CLEAR).AND. ! 171: & ((PRSA.NE.MOVEW).OR.(PRSO.NE.LEAVE)))) RETURN ! 172: CALL RSPEAK(30) ! 173: C !MOVE LEAVES, REVEAL GRATE. ! 174: RVCLR=1 ! 175: C !INDICATE LEAVES MOVED. ! 176: RETURN ! 177: C RAPPL1, PAGE 4 ! 178: C ! 179: C R7-- RESERVOIR SOUTH. DESCRIPTION DEPENDS ON LOW TIDE FLAG. ! 180: C ! 181: 7000 IF(PRSA.NE.LOOKW) RETURN ! 182: C !LOOK? ! 183: I=31 ! 184: C !ASSUME FULL. ! 185: IF(LWTIDF) I=32 ! 186: C !IF LOW TIDE, EMPTY. ! 187: CALL RSPEAK(I) ! 188: C !DESCRIBE. ! 189: CALL RSPEAK(33) ! 190: C !DESCRIBE EXITS. ! 191: RETURN ! 192: C ! 193: C R8-- RESERVOIR. STATE DEPENDS ON LOW TIDE FLAG. ! 194: C ! 195: 8000 IF(PRSA.NE.LOOKW) RETURN ! 196: C !LOOK? ! 197: I=34 ! 198: C !ASSUME FULL. ! 199: IF(LWTIDF) I=35 ! 200: C !IF LOW TIDE, EMTPY. ! 201: CALL RSPEAK(I) ! 202: C !DESCRIBE. ! 203: RETURN ! 204: C ! 205: C R9-- RESERVOIR NORTH. ALSO DEPENDS ON LOW TIDE FLAG. ! 206: C ! 207: 9000 IF(PRSA.NE.LOOKW) RETURN ! 208: C !LOOK? ! 209: I=36 ! 210: C !YOU GET THE IDEA. ! 211: IF(LWTIDF) I=37 ! 212: CALL RSPEAK(I) ! 213: CALL RSPEAK(38) ! 214: RETURN ! 215: C ! 216: C R10-- GLACIER ROOM. STATE DEPENDS ON MELTED, VANISHED FLAGS. ! 217: C ! 218: 10000 IF(PRSA.NE.LOOKW) RETURN ! 219: C !LOOK? ! 220: CALL RSPEAK(39) ! 221: C !BASIC DESCRIPTION. ! 222: I=0 ! 223: C !ASSUME NO CHANGES. ! 224: IF(GLACMF) I=40 ! 225: C !PARTIAL MELT? ! 226: IF(GLACRF) I=41 ! 227: C !COMPLETE MELT? ! 228: CALL RSPEAK(I) ! 229: C !DESCRIBE. ! 230: RETURN ! 231: C ! 232: C R11-- FOREST ROOM ! 233: C ! 234: 11000 IF(PRSA.EQ.WALKIW) CFLAG(CEVFOR)=.TRUE. ! 235: C !IF WALK IN, BIRDIE. ! 236: RETURN ! 237: C ! 238: C R12-- MIRROR ROOM. STATE DEPENDS ON MIRROR INTACT. ! 239: C ! 240: 12000 IF(PRSA.NE.LOOKW) RETURN ! 241: C !LOOK? ! 242: CALL RSPEAK(42) ! 243: C !DESCRIBE. ! 244: IF(MIRRMF) CALL RSPEAK(43) ! 245: C !IF BROKEN, NASTY REMARK. ! 246: RETURN ! 247: C RAPPL1, PAGE 5 ! 248: C ! 249: C R13-- CAVE2 ROOM. BLOW OUT CANDLES WITH 50% PROBABILITY. ! 250: C ! 251: 13000 IF(PRSA.NE.WALKIW) RETURN ! 252: C !WALKIN? ! 253: IF(PROB(50,50).OR.(OADV(CANDL).NE.WINNER).OR. ! 254: & .NOT.QON(CANDL)) RETURN ! 255: OFLAG1(CANDL)=and(OFLAG1(CANDL), not(ONBT)) ! 256: CALL RSPEAK(47) ! 257: C !TELL OF WINDS. ! 258: CFLAG(CEVCND)=.FALSE. ! 259: C !HALT CANDLE COUNTDOWN. ! 260: RETURN ! 261: C ! 262: C R14-- BOOM ROOM. BLOW HIM UP IF CARRYING FLAMING OBJECT. ! 263: C ! 264: 14000 J=ODESC2(CANDL) ! 265: C !ASSUME CANDLE. ! 266: IF((OADV(CANDL).EQ.WINNER).AND.QON(CANDL)) GO TO 14100 ! 267: J=ODESC2(TORCH) ! 268: C !ASSUME TORCH. ! 269: IF((OADV(TORCH).EQ.WINNER).AND.QON(TORCH)) GO TO 14100 ! 270: J=ODESC2(MATCH) ! 271: IF((OADV(MATCH).EQ.WINNER).AND.QON(MATCH)) GO TO 14100 ! 272: RETURN ! 273: C !SAFE ! 274: C ! 275: 14100 IF(PRSA.NE.TRNONW) GO TO 14200 ! 276: C !TURN ON? ! 277: CALL RSPSUB(294,J) ! 278: C !BOOM ! 279: C ! ! 280: CALL JIGSUP(44) ! 281: RETURN ! 282: C ! 283: 14200 IF(PRSA.NE.WALKIW) RETURN ! 284: C !WALKIN? ! 285: CALL RSPSUB(295,J) ! 286: C !BOOM ! 287: C ! ! 288: CALL JIGSUP(44) ! 289: RETURN ! 290: C ! 291: C R15-- NO-OBJS. SEE IF EMPTY HANDED, SCORE LIGHT SHAFT. ! 292: C ! 293: 15000 EMPTHF=.TRUE. ! 294: C !ASSUME TRUE. ! 295: DO 15100 I=1,OLNT ! 296: C !SEE IF CARRYING. ! 297: IF(OADV(I).EQ.WINNER) EMPTHF=.FALSE. ! 298: 15100 CONTINUE ! 299: C ! 300: IF((HERE.NE.BSHAF).OR.(.NOT.LIT(HERE))) RETURN ! 301: CALL SCRUPD(LTSHFT) ! 302: C !SCORE LIGHT SHAFT. ! 303: LTSHFT=0 ! 304: C !NEVER AGAIN. ! 305: RETURN ! 306: C RAPPL1, PAGE 6 ! 307: C ! 308: C R16-- MACHINE ROOM. DESCRIBE MACHINE. ! 309: C ! 310: 16000 IF(PRSA.NE.LOOKW) RETURN ! 311: C !LOOK? ! 312: I=46 ! 313: C !ASSUME LID CLOSED. ! 314: IF(QOPEN(MACHI)) I=12 ! 315: C !IF OPEN, OPEN. ! 316: CALL RSPSUB(45,I) ! 317: C !DESCRIBE. ! 318: RETURN ! 319: C ! 320: C R17-- BAT ROOM. UNLESS CARRYING GARLIC, FLY AWAY WITH ME... ! 321: C ! 322: 17000 IF(PRSA.NE.LOOKW) GO TO 17500 ! 323: C !LOOK? ! 324: CALL RSPEAK(48) ! 325: C !DESCRIBE ROOM. ! 326: IF(OADV(GARLI).EQ.WINNER) CALL RSPEAK(49) ! 327: C !BAT HOLDS NOSE. ! 328: RETURN ! 329: C ! 330: 17500 IF((PRSA.NE.WALKIW).OR.(OADV(GARLI).EQ.WINNER)) RETURN ! 331: CALL RSPEAK(50) ! 332: C !TIME TO FLY, JACK. ! 333: F=MOVETO(BATDRP(RND(9)+1),WINNER) ! 334: C !SELECT RANDOM DEST. ! 335: RAPPL1=.FALSE. ! 336: C !INDICATE NEW DESC NEEDED. ! 337: RETURN ! 338: C ! 339: C R18-- DOME ROOM. STATE DEPENDS ON WHETHER ROPE TIED TO RAILING. ! 340: C ! 341: 18000 IF(PRSA.NE.LOOKW) GO TO 18500 ! 342: C !LOOK? ! 343: CALL RSPEAK(51) ! 344: C !DESCRIBE. ! 345: IF(DOMEF) CALL RSPEAK(52) ! 346: C !IF ROPE, DESCRIBE. ! 347: RETURN ! 348: C ! 349: 18500 IF(PRSA.EQ.LEAPW) CALL JIGSUP(53) ! 350: C !DID HE JUMP??? ! 351: RETURN ! 352: C ! 353: C R19-- TORCH ROOM. ALSO DEPENDS ON WHETHER ROPE TIED TO RAILING. ! 354: C ! 355: 19000 IF(PRSA.NE.LOOKW) RETURN ! 356: C !LOOK? ! 357: CALL RSPEAK(54) ! 358: C !DESCRIBE. ! 359: IF(DOMEF) CALL RSPEAK(55) ! 360: C !IF ROPE, DESCRIBE. ! 361: RETURN ! 362: C ! 363: C R20-- CAROUSEL ROOM. SPIN HIM OR KILL HIM. ! 364: C ! 365: 20000 IF(PRSA.NE.LOOKW) GO TO 20500 ! 366: C !LOOK? ! 367: CALL RSPEAK(56) ! 368: C !DESCRIBE. ! 369: IF(.NOT.CAROFF) CALL RSPEAK(57) ! 370: C !IF NOT FLIPPED, SPIN. ! 371: RETURN ! 372: C ! 373: 20500 IF((PRSA.EQ.WALKIW).AND.CAROZF) CALL JIGSUP(58) ! 374: C !WALKED IN. ! 375: RETURN ! 376: C RAPPL1, PAGE 7 ! 377: C ! 378: C R21-- LLD ROOM. HANDLE EXORCISE, DESCRIPTIONS. ! 379: C ! 380: 21000 IF(PRSA.NE.LOOKW) GO TO 21500 ! 381: C !LOOK? ! 382: CALL RSPEAK(59) ! 383: C !DESCRIBE. ! 384: IF(.NOT.LLDF) CALL RSPEAK(60) ! 385: C !IF NOT VANISHED, GHOSTS. ! 386: RETURN ! 387: C ! 388: 21500 IF(PRSA.NE.EXORCW) RETURN ! 389: C !EXORCISE? ! 390: IF((OADV(BELL).EQ.WINNER).AND.(OADV(BOOK).EQ.WINNER).AND. ! 391: & (OADV(CANDL).EQ.WINNER).AND.QON(CANDL)) GO TO 21600 ! 392: CALL RSPEAK(62) ! 393: C !NOT EQUIPPED. ! 394: RETURN ! 395: C ! 396: 21600 IF(QHERE(GHOST,HERE)) GO TO 21700 ! 397: C !GHOST HERE? ! 398: CALL JIGSUP(61) ! 399: C !NOPE, EXORCISE YOU. ! 400: RETURN ! 401: C ! 402: 21700 CALL NEWSTA(GHOST,63,0,0,0) ! 403: C !VANISH GHOST. ! 404: LLDF=.TRUE. ! 405: C !OPEN GATE. ! 406: RETURN ! 407: C ! 408: C R22-- LLD2-ROOM. IS HIS HEAD ON A POLE? ! 409: C ! 410: 22000 IF(PRSA.NE.LOOKW) RETURN ! 411: C !LOOK? ! 412: CALL RSPEAK(64) ! 413: C !DESCRIBE. ! 414: IF(ONPOLF) CALL RSPEAK(65) ! 415: C !ON POLE? ! 416: RETURN ! 417: C ! 418: C R23-- DAM ROOM. DESCRIBE RESERVOIR, PANEL. ! 419: C ! 420: 23000 IF(PRSA.NE.LOOKW) RETURN ! 421: C !LOOK? ! 422: CALL RSPEAK(66) ! 423: C !DESCRIBE. ! 424: I=67 ! 425: IF(LWTIDF) I=68 ! 426: CALL RSPEAK(I) ! 427: C !DESCRIBE RESERVOIR. ! 428: CALL RSPEAK(69) ! 429: C !DESCRIBE PANEL. ! 430: IF(GATEF) CALL RSPEAK(70) ! 431: C !BUBBLE IS GLOWING. ! 432: RETURN ! 433: C ! 434: C R24-- TREE ROOM ! 435: C ! 436: 24000 IF(PRSA.NE.LOOKW) RETURN ! 437: C !LOOK? ! 438: CALL RSPEAK(660) ! 439: C !DESCRIBE. ! 440: I=661 ! 441: C !SET FLAG FOR BELOW. ! 442: DO 24200 J=1,OLNT ! 443: C !DESCRIBE OBJ IN FORE3. ! 444: IF(.NOT.QHERE(J,FORE3).OR.(J.EQ.FTREE)) GO TO 24200 ! 445: CALL RSPEAK(I) ! 446: C !SET STAGE, ! 447: I=0 ! 448: CALL RSPSUB(502,ODESC2(J)) ! 449: C !DESCRIBE. ! 450: 24200 CONTINUE ! 451: RETURN ! 452: C RAPPL1, PAGE 8 ! 453: C ! 454: C R25-- CYCLOPS-ROOM. DEPENDS ON CYCLOPS STATE, ASLEEP FLAG, MAGIC FLAG. ! 455: C ! 456: 25000 IF(PRSA.NE.LOOKW) RETURN ! 457: C !LOOK? ! 458: CALL RSPEAK(606) ! 459: C !DESCRIBE. ! 460: I=607 ! 461: C !ASSUME BASIC STATE. ! 462: IF(RVCYC.GT.0) I=608 ! 463: C !>0? HUNGRY. ! 464: IF(RVCYC.LT.0) I=609 ! 465: C !<0? THIRSTY. ! 466: IF(CYCLOF) I=610 ! 467: C !ASLEEP? ! 468: IF(MAGICF) I=611 ! 469: C !GONE? ! 470: CALL RSPEAK(I) ! 471: C !DESCRIBE. ! 472: IF(.NOT.CYCLOF .AND.(RVCYC.NE.0)) ! 473: & CALL RSPEAK(193+IABS(RVCYC)) ! 474: RETURN ! 475: C ! 476: C R26-- BANK BOX ROOM. ! 477: C ! 478: 26000 IF(PRSA.NE.WALKIW) RETURN ! 479: C !SURPRISE HIM. ! 480: DO 26100 I=1,8,2 ! 481: C !SCOLRM DEPENDS ON ! 482: IF(FROMDR.EQ.SCOLDR(I)) SCOLRM=SCOLDR(I+1) ! 483: 26100 CONTINUE ! 484: C !ENTRY DIRECTION. ! 485: RETURN ! 486: C ! 487: C R27-- TREASURE ROOM. ! 488: C ! 489: 27000 IF((PRSA.NE.WALKIW).OR. .NOT.THFACT) ! 490: & RETURN ! 491: IF(OROOM(THIEF).NE.HERE) ! 492: & CALL NEWSTA(THIEF,82,HERE,0,0) ! 493: THFPOS=HERE ! 494: C !RESET SEARCH PATTERN. ! 495: OFLAG2(THIEF)=or(OFLAG2(THIEF),FITEBT) ! 496: IF(OROOM(CHALI).EQ.HERE) ! 497: & OFLAG1(CHALI)=and(OFLAG1(CHALI),not(TAKEBT)) ! 498: C ! 499: C VANISH EVERYTHING IN ROOM ! 500: C ! 501: J=0 ! 502: C !ASSUME NOTHING TO VANISH. ! 503: DO 27200 I=1,OLNT ! 504: IF((I.EQ.CHALI).OR.(I.EQ.THIEF).OR..NOT.QHERE(I,HERE)) ! 505: & GO TO 27200 ! 506: J=83 ! 507: C !FLAG BYEBYE. ! 508: OFLAG1(I)=and(OFLAG1(I),not(VISIBT)) ! 509: 27200 CONTINUE ! 510: CALL RSPEAK(J) ! 511: C !DESCRIBE. ! 512: RETURN ! 513: C ! 514: C R28-- CLIFF FUNCTION. SEE IF CARRYING INFLATED BOAT. ! 515: C ! 516: 28000 DEFLAF=OADV(RBOAT).NE.WINNER ! 517: C !TRUE IF NOT CARRYING. ! 518: RETURN ! 519: C RAPPL1, PAGE 9 ! 520: C ! 521: C R29-- RIVR4 ROOM. PLAY WITH BUOY. ! 522: C ! 523: 29000 IF(.NOT.BUOYF.OR.(OADV(BUOY).NE.WINNER)) RETURN ! 524: CALL RSPEAK(84) ! 525: C !GIVE HINT, ! 526: BUOYF=.FALSE. ! 527: C !THEN DISABLE. ! 528: RETURN ! 529: C ! 530: C R30-- OVERFALLS. DOOM. ! 531: C ! 532: 30000 IF(PRSA.NE.LOOKW) CALL JIGSUP(85) ! 533: C !OVER YOU GO. ! 534: RETURN ! 535: C ! 536: C R31-- BEACH ROOM. DIG A HOLE. ! 537: C ! 538: 31000 IF((PRSA.NE.DIGW).OR.(PRSO.NE.SHOVE)) RETURN ! 539: RVSND=RVSND+1 ! 540: C !INCREMENT DIG STATE. ! 541: GO TO (31100,31100,31100,31400,31500),RVSND ! 542: C !PROCESS STATE. ! 543: CALL BUG(2,RVSND) ! 544: C ! 545: 31100 CALL RSPEAK(85+RVSND) ! 546: C !1-3... DISCOURAGE HIM. ! 547: RETURN ! 548: C ! 549: 31400 I=89 ! 550: C !ASSUME DISCOVERY. ! 551: IF(and(OFLAG1(STATU),VISIBT).NE.0) I=88 ! 552: CALL RSPEAK(I) ! 553: OFLAG1(STATU)=or(OFLAG1(STATU),VISIBT) ! 554: RETURN ! 555: C ! 556: 31500 RVSND=0 ! 557: C !5... SAND COLLAPSES ! 558: CALL JIGSUP(90) ! 559: C !AND SO DOES HE. ! 560: RETURN ! 561: C ! 562: C R32-- TCAVE ROOM. DIG A HOLE IN GUANO. ! 563: C ! 564: 32000 IF((PRSA.NE.DIGW).OR.(PRSO.NE.SHOVE)) RETURN ! 565: I=91 ! 566: C !ASSUME NO GUANO. ! 567: IF(.NOT. QHERE(GUANO,HERE)) GO TO 32100 ! 568: C !IS IT HERE? ! 569: RVGUA=MIN0(4,RVGUA+1) ! 570: C !YES, SET NEW STATE. ! 571: I=91+RVGUA ! 572: C !GET NASTY REMARK. ! 573: 32100 CALL RSPEAK(I) ! 574: C !DESCRIBE. ! 575: RETURN ! 576: C ! 577: C R33-- FALLS ROOM ! 578: C ! 579: 33000 IF(PRSA.NE.LOOKW) RETURN ! 580: C !LOOK? ! 581: CALL RSPEAK(96) ! 582: C !DESCRIBE. ! 583: I=97 ! 584: C !ASSUME NO RAINBOW. ! 585: IF(RAINBF) I=98 ! 586: C !GOT ONE? ! 587: CALL RSPEAK(I) ! 588: C !DESCRIBE. ! 589: RETURN ! 590: C RAPPL1, PAGE 10 ! 591: C ! 592: C R34-- LEDGE FUNCTION. LEDGE CAN COLLAPSE. ! 593: C ! 594: 34000 IF(PRSA.NE.LOOKW) RETURN ! 595: C !LOOK? ! 596: CALL RSPEAK(100) ! 597: C !DESCRIBE. ! 598: I=102 ! 599: C !ASSUME SAFE ROOM OK. ! 600: IF(and(RFLAG(MSAFE),RMUNG).NE.0) I=101 ! 601: CALL RSPEAK(I) ! 602: C !DESCRIBE. ! 603: RETURN ! 604: C ! 605: C R35-- SAFE ROOM. STATE DEPENDS ON WHETHER SAFE BLOWN. ! 606: C ! 607: 35000 IF(PRSA.NE.LOOKW) RETURN ! 608: C !LOOK? ! 609: CALL RSPEAK(104) ! 610: C !DESCRIBE. ! 611: I=105 ! 612: C !ASSUME OK. ! 613: IF(SAFEF) I=106 ! 614: C !BLOWN? ! 615: CALL RSPEAK(I) ! 616: C !DESCRIBE. ! 617: RETURN ! 618: C ! 619: C R36-- MAGNET ROOM. DESCRIBE, CHECK FOR SPINDIZZY DOOM. ! 620: C ! 621: 36000 IF(PRSA.NE.LOOKW) GO TO 36500 ! 622: C !LOOK? ! 623: CALL RSPEAK(107) ! 624: C !DESCRIBE. ! 625: RETURN ! 626: C ! 627: 36500 IF((PRSA.NE.WALKIW).OR. .NOT.CAROFF) RETURN ! 628: C !WALKIN ON FLIPPED? ! 629: IF(CAROZF) GO TO 36600 ! 630: C !ZOOM? ! 631: CALL RSPEAK(108) ! 632: C !NO, SPIN HIS COMPASS. ! 633: RETURN ! 634: C ! 635: 36600 I=58 ! 636: C !SPIN HIS INSIDES. ! 637: IF(WINNER.NE.PLAYER) I=99 ! 638: C !SPIN ROBOT. ! 639: CALL JIGSUP(I) ! 640: C !DEAD. ! 641: RETURN ! 642: C ! 643: C R37-- CAGE ROOM. IF SOLVED CAGE, MOVE TO OTHER CAGE ROOM. ! 644: C ! 645: 37000 IF(CAGESF) F=MOVETO(CAGER,WINNER) ! 646: C !IF SOLVED, MOVE. ! 647: RETURN ! 648: C ! 649: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.