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
Last modified: 1988-10-21
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 574
Valid CSS Valid XHTML 1.0 Strict