[unix-history] / usr / src / contrib / dungeon / sobjs.F

C SOBJS-	SIMPLE OBJECTS PROCESSOR
C	OBJECTS IN THIS MODULE CANNOT CALL RMINFO, JIGSUP,
C	MAJOR VERBS, OR OTHER NON-RESIDENT SUBROUTINES
C
C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142
C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
C WRITTEN BY R. M. SUPNIK
C
C DECLARATIONS
C
	LOGICAL FUNCTION SOBJS(RI,ARG)
	IMPLICIT INTEGER (A-Z)
	LOGICAL QOPEN
	LOGICAL MOVETO,OPNCLS,LIT
	LOGICAL QHERE,F
#include "parser.h"
#include "gamestate.h"
#include "state.h"
#include "rooms.h"
#include "rflag.h"
#include "rindex.h"
#include "objects.h"
#include "oflags.h"
#include "oindex.h"
#include "clock.h"

#include "villians.h"
#include "advers.h"
#include "verbs.h"
#include "flags.h"
C
C FUNCTIONS AND DATA
C
	QOPEN(R)=and(OFLAG2(R),OPENBT).NE.0
C SOBJS, PAGE 2
C
	IF(PRSO.GT.220) GO TO 5
	IF(PRSO.NE.0) ODO2=ODESC2(PRSO)
5	IF(PRSI.NE.0) ODI2=ODESC2(PRSI)
	AV=AVEHIC(WINNER)
	SOBJS=.TRUE.
C
	GO TO (1000,3000,4000,6000,7000,8000,9000,
&	 13000,14000,16000,17000,
&	 21000,23000,24000,27000,28000,29000,30000,
&	 31000,33000,34000,36000,37000,38000,
&	 41000,42000,43000,44000,46000,
&	 53000,56000)
&		RI
	CALL BUG(6,RI)
C
C RETURN HERE TO DECLARE FALSE RESULT
C
10	SOBJS=.FALSE.
	RETURN
C SOBJS, PAGE 3
C
C O1--	GUNK FUNCTION
C
1000	IF(OCAN(GUNK).EQ.0) GO TO 10
C						!NOT INSIDE? F
	CALL NEWSTA(GUNK,122,0,0,0)
C						!FALLS APART.
	RETURN
C
C O2--	TROPHY CASE
C
3000	IF(PRSA.NE.TAKEW) GO TO 10
C						!TAKE?
	CALL RSPEAK(128)
C						!CANT.
	RETURN
C
C O3--	BOTTLE FUNCTION
C
4000	IF(PRSA.NE.THROWW) GO TO 4100
C						!THROW?
	CALL NEWSTA(PRSO,129,0,0,0)
C						!BREAKS.
	RETURN
C
4100	IF(PRSA.NE.MUNGW) GO TO 10
C						!MUNG?
	CALL NEWSTA(PRSO,131,0,0,0)
C						!BREAKS.
	RETURN
C SOBJS, PAGE 4
C
C O4--	ROPE FUNCTION
C
6000	IF(HERE.EQ.DOME) GO TO 6100
C						!IN DOME?
	DOMEF=.FALSE.
C						!NO,
	IF(PRSA.NE.UNTIEW) GO TO 6050
C						!UNTIE?
	CALL RSPEAK(134)
C						!CANT
	RETURN
C
6050	IF(PRSA.NE.TIEW) GO TO 10
C						!TIE?
	CALL RSPEAK(135)
C						!CANT TIE
	RETURN
C
6100	IF((PRSA.NE.TIEW).OR.(PRSI.NE.RAILI)) GO TO 6200
	IF(DOMEF) GO TO 6150
C						!ALREADY TIED?
	DOMEF=.TRUE.
C						!NO, TIE IT.
	OFLAG1(ROPE)=or(OFLAG1(ROPE),NDSCBT)
	OFLAG2(ROPE)=or(OFLAG2(ROPE),CLMBBT)
	CALL NEWSTA(ROPE,137,DOME,0,0)
	RETURN
C
6150	CALL RSPEAK(136)
C						!DUMMY.
	RETURN
C
6200	IF(PRSA.NE.UNTIEW) GO TO 6300
C						!UNTIE?
	IF(DOMEF) GO TO 6250
C						!TIED?
	CALL RSPEAK(134)
C						!NO, DUMMY.
	RETURN
C
6250	DOMEF=.FALSE.
C						!YES, UNTIE IT.
	OFLAG1(ROPE)=and(OFLAG1(ROPE), not(NDSCBT))
	OFLAG2(ROPE)=and(OFLAG2(ROPE), not(CLMBBT))
	CALL RSPEAK(139)
	RETURN
C
6300	IF(DOMEF.OR.(PRSA.NE.DROPW)) GO TO 6400
C						!DROP & UNTIED?
	CALL NEWSTA(ROPE,140,MTORC,0,0)
C						!YES, DROP.
	RETURN
C
6400	IF((PRSA.NE.TAKEW).OR. .NOT.DOMEF) GO TO 10
	CALL RSPEAK(141)
C						!TAKE & TIED.
	RETURN
C
C O5--	SWORD FUNCTION
C
7000	IF((PRSA.EQ.TAKEW).AND.(WINNER.EQ.PLAYER))
&		SWDACT=.TRUE.
	GO TO 10
C
C O6--	LANTERN
C
8000	IF(PRSA.NE.THROWW) GO TO 8100
C						!THROW?
	CALL NEWSTA(LAMP,0,0,0,0)
C						!KILL LAMP,
	CALL NEWSTA(BLAMP,142,HERE,0,0)
C						!REPLACE WITH BROKEN.
	RETURN
C
8100	IF(PRSA.EQ.TRNONW) CFLAG(CEVLNT)=.TRUE.
	IF(PRSA.EQ.TRNOFW) CFLAG(CEVLNT)=.FALSE.
	GO TO 10
C
C O7--	RUG FUNCTION
C
9000	IF(PRSA.NE.RAISEW) GO TO 9100
C						!RAISE?
	CALL RSPEAK(143)
C						!CANT
	RETURN
C
9100	IF(PRSA.NE.TAKEW) GO TO 9200
C						!TAKE?
	CALL RSPEAK(144)
C						!CANT
	RETURN
C
9200	IF(PRSA.NE.MOVEW) GO TO 9300
C						!MOVE?
	CALL RSPEAK(145+ORRUG)
	ORRUG=1
	OFLAG1(DOOR)=or(OFLAG1(DOOR),VISIBT)
	RETURN
C
9300	IF((PRSA.NE.LOOKUW).OR.(ORRUG.NE.0).OR.
&		QOPEN(DOOR)) GO TO 10
	CALL RSPEAK(345)
	RETURN
C SOBJS, PAGE 5
C
C O8--	SKELETON
C
13000	I=ROBRM(HERE,100,LLD2,0,0)+ROBADV(WINNER,LLD2,0,0)
	IF(I.NE.0) CALL RSPEAK(162)
C						!IF ROBBED, SAY SO.
	RETURN
C
C O9--	MIRROR
C
14000	IF(MIRRMF.OR.(PRSA.NE.RUBW)) GO TO 14500
	MROOM=xor(HERE,1)
	DO 14100 I=1,OLNT
C						!INTERCHANGE OBJS.
	  IF(OROOM(I).EQ.HERE) OROOM(I)=-1
	  IF(OROOM(I).EQ.MROOM) OROOM(I)=HERE
	  IF(OROOM(I).EQ.-1) OROOM(I)=MROOM
14100	CONTINUE
	F=MOVETO(MROOM,WINNER)
	CALL RSPEAK(163)
C						!SHAKE WORLD.
	RETURN
C
14500	IF((PRSA.NE.LOOKW).AND.(PRSA.NE.LOOKIW).AND.
&		(PRSA.NE.EXAMIW)) GO TO 14600
	I=164
C						!MIRROR OK.
	IF(MIRRMF) I=165
C						!MIRROR DEAD.
	CALL RSPEAK(I)
	RETURN
C
14600	IF(PRSA.NE.TAKEW) GO TO 14700
C						!TAKE?
	CALL RSPEAK(166)
C						!JOKE.
	RETURN
C
14700	IF((PRSA.NE.MUNGW).AND.(PRSA.NE.THROWW)) GO TO 10
	I=167
C						!MIRROR BREAKS.
	IF(MIRRMF) I=168
C						!MIRROR ALREADY BROKEN.
	MIRRMF=.TRUE.
	BADLKF=.TRUE.
	CALL RSPEAK(I)
	RETURN
C SOBJS, PAGE 6
C
C O10--	DUMBWAITER
C
16000	IF(PRSA.NE.RAISEW) GO TO 16100
C						!RAISE?
	IF(CAGETF) GO TO 16400
C						!ALREADY AT TOP?
	CALL NEWSTA(TBASK,175,TSHAF,0,0)
C						!NO, RAISE BASKET.
	CALL NEWSTA(FBASK,0,BSHAF,0,0)
	CAGETF=.TRUE.
C						!AT TOP.
	RETURN
C
16100	IF(PRSA.NE.LOWERW) GO TO 16200
C						!LOWER?
	IF(.NOT.CAGETF) GO TO 16400
C						!ALREADY AT BOTTOM?
	CALL NEWSTA(TBASK,176,BSHAF,0,0)
C						!NO, LOWER BASKET.
	CALL NEWSTA(FBASK,0,TSHAF,0,0)
	CAGETF=.FALSE.
	IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
C						!IF DARK, DIE.
	RETURN
C
16200	IF((PRSO.NE.FBASK).AND.(PRSI.NE.FBASK)) GO TO 16300
	CALL RSPEAK(130)
C						!WRONG BASKET.
	RETURN
C
16300	IF(PRSA.NE.TAKEW) GO TO 10
C						!TAKE?
	CALL RSPEAK(177)
C						!JOKE.
	RETURN
C
16400	CALL RSPEAK(125+RND(3))
C						!DUMMY.
	RETURN
C
C O11--	GHOST FUNCTION
C
17000	I=178
C						!ASSUME DIRECT.
	IF(PRSO.NE.GHOST) I=179
C						!IF NOT, INDIRECT.
	CALL RSPEAK(I)
	RETURN
C						!SPEAK AND EXIT.
C SOBJS, PAGE 7
C
C O12--	TUBE
C
21000	IF((PRSA.NE.PUTW).OR.(PRSI.NE.TUBE)) GO TO 10
	CALL RSPEAK(186)
C						!CANT PUT BACK IN.
	RETURN
C
C O13--	CHALICE
C
23000	IF((PRSA.NE.TAKEW).OR.(OCAN(PRSO).NE.0).OR.
&		(OROOM(PRSO).NE.TREAS).OR.(OROOM(THIEF).NE.TREAS).OR.
&		(and(OFLAG2(THIEF),FITEBT).EQ.0).OR.
&		.NOT. THFACT) GO TO 10
	CALL RSPEAK(204)
C						!CANT TAKE.
	RETURN
C
C O14--	PAINTING
C
24000	IF(PRSA.NE.MUNGW) GO TO 10
C						!MUNG?
	CALL RSPEAK(205)
C						!DESTROY PAINTING.
	OFVAL(PRSO)=0
	OTVAL(PRSO)=0
	ODESC1(PRSO)=207
	ODESC2(PRSO)=206
	RETURN
C SOBJS, PAGE 8
C
C O15--	BOLT
C
27000	IF(PRSA.NE.TURNW) GO TO 10
C						!TURN BOLT?
	IF(PRSI.NE.WRENC) GO TO 27500
C						!WITH WRENCH?
	IF(GATEF) GO TO 27100
C						!PROPER BUTTON PUSHED?
	CALL RSPEAK(210)
C						!NO, LOSE.
	RETURN
C
27100	IF(LWTIDF) GO TO 27200
C						!LOW TIDE NOW?
	LWTIDF=.TRUE.
C						!NO, EMPTY DAM.
	CALL RSPEAK(211)
	OFLAG2(COFFI)=and(OFLAG2(COFFI), not(SCRDBT))
	OFLAG1(TRUNK)=or(OFLAG1(TRUNK),VISIBT)
	RFLAG(RESER)=and(or(RFLAG(RESER),RLAND)
&		,not(RWATER+RSEEN))
	RETURN
C
27200	LWTIDF=.FALSE.
C						!YES, FILL DAM.
	CALL RSPEAK(212)
	IF(QHERE(TRUNK,RESER))
&		OFLAG1(TRUNK)=and(OFLAG1(TRUNK), not(VISIBT))
	RFLAG(RESER)=and(or(RFLAG(RESER),RWATER) ,not(RLAND))
	RETURN
C
27500	CALL RSPSUB(299,ODI2)
C						!NOT WITH THAT.
	RETURN
C
C O16--	GRATING
C
28000	IF((PRSA.NE.OPENW).AND.(PRSA.NE.CLOSEW)) GO TO 10
	IF(GRUNLF) GO TO 28200
C						!UNLOCKED?
	CALL RSPEAK(214)
C						!NO, LOCKED.
	RETURN
C
28200	I=215
C						!UNLOCKED, VIEW FRM CLR.
	IF(HERE.NE.CLEAR) I=216
C						!VIEW FROM BELOW.
	SOBJS=OPNCLS(GRATE,I,885)
C						!OPEN/CLOSE.
	RFLAG(MGRAT)=and(RFLAG(MGRAT), not(RLIGHT))
	IF(QOPEN(GRATE)) RFLAG(MGRAT)=or(RFLAG(MGRAT),RLIGHT)
	IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
C						!IF DARK, DIE.
	RETURN
C
C O17--	TRAP DOOR
C
29000	IF(HERE.NE.LROOM) GO TO 29100
C						!FROM LIVING ROOM?
	SOBJS=OPNCLS(DOOR,218,219)
C						!OPEN/CLOSE.
	RETURN
C
29100	IF(HERE.NE.CELLA) GO TO 10
C						!FROM CELLAR?
	IF((PRSA.NE.OPENW).OR.QOPEN(DOOR)) GO TO 29200
	CALL RSPEAK(220)
C						!CANT OPEN CLOSED DOOR.
	RETURN
C
29200	SOBJS=OPNCLS(DOOR,0,22)
C						!NORMAL OPEN/CLOSE.
	RETURN
C
C O18--	DURABLE DOOR
C
30000	I=0
C						!ASSUME NO APPL.
	IF(PRSA.EQ.OPENW) I=221
C						!OPEN?
	IF(PRSA.EQ.BURNW) I=222
C						!BURN?
	IF(PRSA.EQ.MUNGW) I=223+RND(3)
C						!MUNG?
	IF(I.EQ.0) GO TO 10
	CALL RSPEAK(I)
	RETURN
C
C O19--	MASTER SWITCH
C
31000	IF(PRSA.NE.TURNW) GO TO 10
C						!TURN?
	IF(PRSI.NE.SCREW) GO TO 31500
C						!WITH SCREWDRIVER?
	IF(QOPEN(MACHI)) GO TO 31600
C						!LID UP?
	CALL RSPEAK(226)
C						!NO, ACTIVATE.
	IF(OCAN(COAL).NE.MACHI) GO TO 31400
C						!COAL INSIDE?
	CALL NEWSTA(COAL,0,0,0,0)
C						!KILL COAL,
	CALL NEWSTA(DIAMO,0,0,MACHI,0)
C						!REPLACE WITH DIAMOND.
	RETURN
C
31400	DO 31450 I=1,OLNT
C						!KILL NONCOAL OBJECTS.
	  IF(OCAN(I).NE.MACHI) GO TO 31450
C						!INSIDE MACHINE?
	  CALL NEWSTA(I,0,0,0,0)
C						!KILL OBJECT AND CONTENTS.
	  CALL NEWSTA(GUNK,0,0,MACHI,0)
C						!REDUCE TO GUNK.
31450	CONTINUE
	RETURN
C
31500	CALL RSPSUB(300,ODI2)
C						!CANT TURN WITH THAT.
	RETURN
C
31600	CALL RSPEAK(227)
C						!LID IS UP.
	RETURN
C SOBJS, PAGE 9
C
C O20--	LEAK
C
33000	IF((PRSO.NE.LEAK).OR.(PRSA.NE.PLUGW).OR.(RVMNT.LE.0))
&		GO TO 10
	IF(PRSI.NE.PUTTY) GO TO 33100
C						!WITH PUTTY?
	RVMNT=-1
C						!DISABLE LEAK.
	CTICK(CEVMNT)=0
	CALL RSPEAK(577)
	RETURN
C
33100	CALL RSPSUB(301,ODI2)
C						!CANT WITH THAT.
	RETURN
C
C O21--	DROWNING BUTTONS
C
34000	IF(PRSA.NE.PUSHW) GO TO 10
C						!PUSH?
	GO TO (34100,34200,34300,34400),(PRSO-RBUTT+1)
	GO TO 10
C						!NOT A BUTTON.
C
34100	RFLAG(HERE)=xor(RFLAG(HERE),RLIGHT)
	I=230
	IF(and(RFLAG(HERE),RLIGHT).NE.0) I=231
	CALL RSPEAK(I)
	RETURN
C
34200	GATEF=.TRUE.
C						!RELEASE GATE.
	CALL RSPEAK(232)
	RETURN
C
34300	GATEF=.FALSE.
C						!INTERLOCK GATE.
	CALL RSPEAK(232)
	RETURN
C
34400	IF(RVMNT.NE.0) GO TO 34500
C						!LEAK ALREADY STARTED?
	CALL RSPEAK(233)
C						!NO, START LEAK.
	RVMNT=1
	CTICK(CEVMNT)=-1
	RETURN
C
34500	CALL RSPEAK(234)
C						!BUTTON JAMMED.
	RETURN
C
C O22--	INFLATABLE BOAT
C
36000	IF(PRSA.NE.INFLAW) GO TO 10
C						!INFLATE?
	IF(OROOM(IBOAT).NE.0) GO TO 36100
C						!IN ROOM?
	CALL RSPEAK(235)
C						!NO, JOKE.
	RETURN
C
36100	IF(PRSI.NE.PUMP) GO TO 36200
C						!WITH PUMP?
	CALL NEWSTA(IBOAT,0,0,0,0)
C						!KILL DEFL BOAT,
	CALL NEWSTA(RBOAT,236,HERE,0,0)
C						!REPL WITH INF.
	DEFLAF=.FALSE.
	RETURN
C
36200	I=237
C						!JOKES.
	IF(PRSI.NE.LUNGS) I=303
	CALL RSPSUB(I,ODI2)
	RETURN
C
C O23--	DEFLATED BOAT
C
37000	IF(PRSA.NE.INFLAW) GO TO 37100
C						!INFLATE?
	CALL RSPEAK(238)
C						!JOKE.
	RETURN
C
37100	IF(PRSA.NE.PLUGW) GO TO 10
C						!PLUG?
	IF(PRSI.NE.PUTTY) GO TO 33100
C						!WITH PUTTY?
	CALL NEWSTA(IBOAT,239,OROOM(DBOAT),OCAN(DBOAT),OADV(DBOAT))
	CALL NEWSTA(DBOAT,0,0,0,0)
C						!KILL DEFL BOAT, REPL.
	RETURN
C SOBJS, PAGE 10
C
C O24--	RUBBER BOAT
C
38000	IF(ARG.NE.0) GO TO 10
C						!DISMISS READIN, OUT.
	IF((PRSA.NE.BOARDW).OR.(OADV(STICK).NE.WINNER)) GO TO 38100
	CALL NEWSTA(RBOAT,0,0,0,0)
C						!KILL INFL BOAT,
	CALL NEWSTA(DBOAT,240,HERE,0,0)
C						!REPL WITH DEAD.
	DEFLAF=.TRUE.
	RETURN
C
38100	IF(PRSA.NE.INFLAW) GO TO 38200
C						!INFLATE?
	CALL RSPEAK(367)
C						!YES, JOKE.
	RETURN
C
38200	IF(PRSA.NE.DEFLAW) GO TO 10
C						!DEFLATE?
	IF(AV.EQ.RBOAT) GO TO 38300
C						!IN BOAT?
	IF(OROOM(RBOAT).EQ.0) GO TO 38400
C						!ON GROUND?
	CALL NEWSTA(RBOAT,0,0,0,0)
C						!KILL INFL BOAT,
	CALL NEWSTA(IBOAT,241,HERE,0,0)
C						!REPL WITH DEFL.
	DEFLAF=.TRUE.
	RETURN
C
38300	CALL RSPEAK(242)
C						!IN BOAT.
	RETURN
C
38400	CALL RSPEAK(243)
C						!NOT ON GROUND.
	RETURN
C
C O25--	BRAIDED ROPE
C
41000	IF((PRSA.NE.TIEW).OR.(PRSO.NE.BROPE).OR.
&		((PRSI.NE.HOOK1).AND.(PRSI.NE.HOOK2)))
&		GO TO 41500
	BTIEF=PRSI
C						!RECORD LOCATION.
	CFLAG(CEVBAL)=.FALSE.
C						!STALL ASCENT.
	CALL RSPEAK(248)
	RETURN
C
41500	IF((PRSA.NE.UNTIEW).OR.(PRSO.NE.BROPE)) GO TO 10
	IF(BTIEF.NE.0) GO TO 41600
C						!TIED UP?
	CALL RSPEAK(249)
C						!NO, JOKE.
	RETURN
C
41600	CALL RSPEAK(250)
	BTIEF=0
C						!UNTIE.
	CTICK(CEVBAL)=3
C						!RESTART CLOCK.
	CFLAG(CEVBAL)=.TRUE.
	RETURN
C
C O26--	SAFE
C
42000	I=0
C						!ASSUME UNPROCESSED.
	IF(PRSA.EQ.TAKEW) I=251
C						!TAKE?
	IF((PRSA.EQ.OPENW).AND.SAFEF) I=253
C						!OPEN AFTER BLAST?
	IF((PRSA.EQ.OPENW).AND..NOT.SAFEF) I=254
C						!OPEN BEFORE BLAST?
	IF((PRSA.EQ.CLOSEW).AND.SAFEF) I=253
C						!CLOSE AFTER?
	IF((PRSA.EQ.CLOSEW).AND..NOT.SAFEF) I=255
	IF(I.EQ.0) GO TO 10
	CALL RSPEAK(I)
	RETURN
C
C O27--	FUSE
C
43000	IF(PRSA.NE.BURNW) GO TO 10
C						!BURN?
	CALL RSPEAK(256)
	CTICK(CEVFUS)=2
C						!START COUNTDOWN.
	RETURN
C
C O28--	GNOME
C
44000	IF((PRSA.NE.GIVEW).AND.(PRSA.NE.THROWW)) GO TO 44500
	IF(OTVAL(PRSO).EQ.0) GO TO 44100
C						!TREASURE?
	CALL RSPSUB(257,ODO2)
C						!YES, GET DOOR.
	CALL NEWSTA(PRSO,0,0,0,0)
	CALL NEWSTA(GNOME,0,0,0,0)
C						!VANISH GNOME.
	GNODRF=.TRUE.
	RETURN
C
44100	CALL RSPSUB(258,ODO2)
C						!NO, LOSE OBJECT.
	CALL NEWSTA(PRSO,0,0,0,0)
	RETURN
C
44500	CALL RSPEAK(259)
C						!NERVOUS GNOME.
	IF(.NOT.GNOMEF) CTICK(CEVGNO)=5
C						!SCHEDULE BYEBYE.
	GNOMEF=.TRUE.
	RETURN
C
C O29--	COKE BOTTLES
C
46000	IF((PRSA.NE.THROWW).AND.(PRSA.NE.MUNGW)) GO TO 10
	CALL NEWSTA(PRSO,262,0,0,0)
C						!MUNG BOTTLES.
	RETURN
C SOBJS, PAGE 11
C
C
C O30--	ROBOT
C
53000	IF(PRSA.NE.GIVEW) GO TO 53200
C						!GIVE?
	CALL NEWSTA(PRSO,0,0,0,AROBOT)
C						!PUT ON ROBOT.
	CALL RSPSUB(302,ODO2)
	RETURN
C
53200	IF((PRSA.NE.MUNGW).AND.(PRSA.NE.THROWW)) GO TO 10
	CALL NEWSTA(ROBOT,285,0,0,0)
C						!KILL ROBOT.
	RETURN
C
C O31--	GRUE
C
56000	IF(PRSA.NE.EXAMIW) GO TO 56100
C						!EXAMINE?
	CALL RSPEAK(288)
	RETURN
C
56100	IF(PRSA.NE.FINDW) GO TO 10
C						!FIND?
	CALL RSPEAK(289)
	RETURN
C
	END
Commit	Line	Data
8b22683c KB	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