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

C AAPPLI- APPLICABLES FOR ADVENTURERS
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 AAPPLI(RI)
	IMPLICIT INTEGER (A-Z)
	LOGICAL F,MOVETO
#include "parser.h"
#include "gamestate.h"
#include "rooms.h"
#include "rflag.h"
#include "rindex.h"
#include "xsrch.h"
#include "objects.h"
#include "oflags.h"
#include "oindex.h"
#include "clock.h"
#include "advers.h"
#include "verbs.h"
#include "flags.h"
C AAPPLI, PAGE 2
C
	IF(RI.EQ.0) GO TO 10
C						!IF ZERO, NO APP.
	AAPPLI=.TRUE.
C						!ASSUME WINS.
	GO TO (1000,2000),RI
C						!BRANCH ON ADV.
	CALL BUG(11,RI)
C
C COMMON FALSE RETURN.
C
10	AAPPLI=.FALSE.
	RETURN
C
C A1--	ROBOT.  PROCESS MOST COMMANDS GIVEN TO ROBOT.
C
1000	IF((PRSA.NE.RAISEW).OR.(PRSO.NE.RCAGE)) GO TO 1200
	CFLAG(CEVSPH)=.FALSE.
C						!ROBOT RAISED CAGE.
	WINNER=PLAYER
C						!RESET FOR PLAYER.
	F=MOVETO(CAGER,WINNER)
C						!MOVE TO NEW ROOM.
	CALL NEWSTA(CAGE,567,CAGER,0,0)
C						!INSTALL CAGE IN ROOM.
	CALL NEWSTA(ROBOT,0,CAGER,0,0)
C						!INSTALL ROBOT IN ROOM.
	AROOM(AROBOT)=CAGER
C						!ALSO MOVE ROBOT/ADV.
	CAGESF=.TRUE.
C						!CAGE SOLVED.
	OFLAG1(ROBOT)=and(OFLAG1(ROBOT),not(NDSCBT))
	OFLAG1(SPHER)=or(OFLAG1(SPHER),TAKEBT)
	RETURN
C
1200	IF((PRSA.NE.DRINKW).AND.(PRSA.NE.EATW)) GO TO 1300
	CALL RSPEAK(568)
C						!EAT OR DRINK, JOKE.
	RETURN
C
1300	IF(PRSA.NE.READW) GO TO 1400
C						!READ,
	CALL RSPEAK(569)
C						!JOKE.
	RETURN
C
1400	IF((PRSA.EQ.WALKW).OR.(PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW)
&	 .OR.(PRSA.EQ.PUTW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.THROWW)
&	 .OR.(PRSA.EQ.TURNW).OR.(PRSA.EQ.LEAPW)) GO TO 10
	CALL RSPEAK(570)
C						!JOKE.
	RETURN
C AAPPLI, PAGE 3
C
C A2--	MASTER.  PROCESS MOST COMMANDS GIVEN TO MASTER.
C
2000	IF(and(OFLAG2(QDOOR),OPENBT).NE.0) GO TO 2100
	CALL RSPEAK(783)
C						!NO MASTER YET.
	RETURN
C
2100	IF(PRSA.NE.WALKW) GO TO 2200
C						!WALK?
	I=784
C						!ASSUME WONT.
	IF(((HERE.EQ.SCORR).AND.
&		((PRSO.EQ.XNORTH).OR.(PRSO.EQ.XENTER))).OR.
&	  ((HERE.EQ.NCORR).AND.
&		((PRSO.EQ.XSOUTH).OR.(PRSO.EQ.XENTER))))
&		I=785
	CALL RSPEAK(I)
	RETURN
C
2200	IF((PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW).OR.(PRSA.EQ.PUTW).OR.
&	  (PRSA.EQ.THROWW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.TURNW).OR.
&	  (PRSA.EQ.SPINW).OR.(PRSA.EQ.TRNTOW).OR.(PRSA.EQ.FOLLOW).OR.
&	  (PRSA.EQ.STAYW).OR.(PRSA.EQ.OPENW).OR.(PRSA.EQ.CLOSEW).OR.
&	  (PRSA.EQ.KILLW)) GO TO 10
	CALL RSPEAK(786)
C						!MASTER CANT DO IT.
	RETURN
C
	END
C THIEFD-	INTERMOVE THIEF DEMON
C
C DECLARATIONS
C
	SUBROUTINE THIEFD
	IMPLICIT INTEGER (A-Z)
	LOGICAL ONCE,PROB,QHERE,QSTILL,LIT,WINNIN
#include "gamestate.h"
C
#include "debug.h"
#include "rooms.h"
#include "rflag.h"
#include "rindex.h"
#include "objects.h"
#include "oflags.h"
#include "oindex.h"
#include "villians.h"
#include "flags.h"
C
C FUNCTIONS AND DATA
C
	QSTILL(R)=(QHERE(STILL,R).OR.(OADV(STILL).EQ.-THIEF))
C THIEFD, PAGE 2
C
#ifdef debug
	DFLAG=and(PRSFLG, 32768).NE.0
#endif debug
C						!SET UP DETAIL FLAG.
	ONCE=.FALSE.
C						!INIT FLAG.
1025	RHERE=OROOM(THIEF)
C						!VISIBLE POS.
	IF(RHERE.NE.0) THFPOS=RHERE
C
	IF(THFPOS.EQ.HERE) GO TO 1100
C						!THIEF IN WIN RM?
	IF(THFPOS.NE.TREAS) GO TO 1400
C						!THIEF NOT IN TREAS?
C
C THIEF IS IN TREASURE ROOM, AND WINNER IS NOT.
C
#ifdef debug
	IF(DFLAG) PRINT 10
#ifdef NOCC
10	FORMAT('THIEFD-- IN TREASURE ROOM')
#else NOCC
10	FORMAT(' THIEFD-- IN TREASURE ROOM')
#endif
#endif debug
	IF(RHERE.EQ.0) GO TO 1050
C						!VISIBLE?
	CALL NEWSTA(THIEF,0,0,0,0)
C						!YES, VANISH.
	RHERE=0
	IF(QSTILL(TREAS)) CALL NEWSTA(STILL,0,0,THIEF,0)
1050	I=ROBADV(-THIEF,THFPOS,0,0)
C						!DROP VALUABLES.
	IF(QHERE(EGG,THFPOS)) OFLAG2(EGG)=or(OFLAG2(EGG),OPENBT)
	GO TO 1700
C
C THIEF AND WINNER IN SAME ROOM.
C
1100	IF(THFPOS.EQ.TREAS) GO TO 1700
C						!IF TREAS ROOM, NOTHING.
	IF(and(RFLAG(THFPOS),RLIGHT).NE.0) GO TO 1400
#ifdef debug
	IF(DFLAG) PRINT 20
#ifdef NOCC
20	FORMAT('THIEFD-- IN ADV ROOM')
#else NOCC
20	FORMAT(' THIEFD-- IN ADV ROOM')
#endif NOCC
#endif debug
	IF(THFFLG) GO TO 1300
C						!THIEF ANNOUNCED?
	IF((RHERE.NE.0).OR.PROB(70,70)) GO TO 1150
C						!IF INVIS AND 30%.
	IF(OCAN(STILL).NE.THIEF) GO TO 1700
C						!ABORT IF NO STILLETTO.
	CALL NEWSTA(THIEF,583,THFPOS,0,0)
C						!INSERT THIEF INTO ROOM.
	THFFLG=.TRUE.
C						!THIEF IS ANNOUNCED.
	RETURN
C
1150	IF((RHERE.EQ.0).OR.(and(OFLAG2(THIEF),FITEBT).EQ.0))
&		GO TO 1200
	IF(WINNIN(THIEF,WINNER)) GO TO 1175
C						!WINNING?
	CALL NEWSTA(THIEF,584,0,0,0)
C						!NO, VANISH THIEF.
	OFLAG2(THIEF)=and(OFLAG2(THIEF), not(FITEBT))
	IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
	RETURN
C
1175	IF(PROB(90,90)) GO TO 1700
C						!90% CHANCE TO STAY.
C
1200	IF((RHERE.EQ.0).OR.PROB(70,70)) GO TO 1250
C						!IF VISIBLE AND 30%
	CALL NEWSTA(THIEF,585,0,0,0)
C						!VANISH THIEF.
	IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
	RETURN
C
1300	IF(RHERE.EQ.0) GO TO 1700
C						!ANNOUNCED.  VISIBLE?
1250	IF(PROB(70,70)) RETURN
C						!70% CHANCE TO DO NOTHING.
	THFFLG=.TRUE.
	NR=ROBRM(THFPOS,100,0,0,-THIEF)+ROBADV(WINNER,0,0,-THIEF)
	I=586
C						!ROBBED EM.
	IF(RHERE.NE.0) I=588
C						!WAS HE VISIBLE?
	IF(NR.NE.0) I=I+1
C						!DID HE GET ANYTHING?
	CALL NEWSTA(THIEF,I,0,0,0)
C						!VANISH THIEF.
	IF(QSTILL(THFPOS))
&		CALL NEWSTA(STILL,0,0,THIEF,0)
	IF((NR.NE.0).AND..NOT.LIT(THFPOS)) CALL RSPEAK(406)
	RHERE=0
	GO TO 1700
C						!ONWARD.
C
C NOT IN ADVENTURERS ROOM.
C
1400	CALL NEWSTA(THIEF,0,0,0,0)
C						!VANISH.
	RHERE=0
#ifdef debug
	IF(DFLAG) PRINT 30,THFPOS
#ifdef NOCC
30	FORMAT('THIEFD-- IN ROOM ',I4)
#else NOCC
30	FORMAT(' THIEFD-- IN ROOM ',I4)
#endif NOCC
#endif debug
	IF(QSTILL(THFPOS))
&		CALL NEWSTA(STILL,0,0,THIEF,0)
	IF(and(RFLAG(THFPOS),RSEEN).EQ.0) GO TO 1700
	I=ROBRM(THFPOS,75,0,0,-THIEF)
C						!ROB ROOM 75%.
	IF((THFPOS.LT.MAZE1).OR.(THFPOS.GT.MAZ15).OR.
&		(HERE.LT.MAZE1).OR.(HERE.GT.MAZ15)) GO TO 1500
	DO 1450 I=1,OLNT
C						!BOTH IN MAZE.
	  IF(.NOT.QHERE(I,THFPOS).OR.PROB(60,60).OR.
&		(and(OFLAG1(I),(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT)))
&		GO TO 1450
	  CALL RSPSUB(590,ODESC2(I))
C						!TAKE OBJECT.
	  IF(PROB(40,20)) GO TO 1700
	  CALL NEWSTA(I,0,0,0,-THIEF)
C						!MOST OF THE TIME.
	  OFLAG2(I)=or(OFLAG2(I),TCHBT)
	  GO TO 1700
1450	CONTINUE
	GO TO 1700
C
1500	DO 1550 I=1,OLNT
C						!NOT IN MAZE.
	  IF(.NOT.QHERE(I,THFPOS).OR.(OTVAL(I).NE.0).OR.PROB(80,60).OR.
&		(and(OFLAG1(I),(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT)))
&		GO TO 1550
	  CALL NEWSTA(I,0,0,0,-THIEF)
	  OFLAG2(I)=or(OFLAG2(I),TCHBT)
	  GO TO 1700
1550	CONTINUE
C
C NOW MOVE TO NEW ROOM.
C
1700	IF(OADV(ROPE).EQ.-THIEF) DOMEF=.FALSE.
	IF(ONCE) GO TO 1800
	ONCE=.NOT.ONCE
1750	THFPOS=THFPOS-1
C						!NEXT ROOM.
	IF(THFPOS.LE.0) THFPOS=RLNT
	IF(and(RFLAG(THFPOS),(RLAND+RSACRD+REND)).NE.RLAND)
&		GO TO 1750
	THFFLG=.FALSE.
C						!NOT ANNOUNCED.
	GO TO 1025
C						!ONCE MORE.
C
C ALL DONE.
C
1800	IF(THFPOS.EQ.TREAS) RETURN
C						!IN TREASURE ROOM?
	J=591
C						!NO, DROP STUFF.
	IF(THFPOS.NE.HERE) J=0
	DO 1850 I=1,OLNT
	  IF((OADV(I).NE.-THIEF).OR.PROB(70,70).OR.
&		(OTVAL(I).GT.0)) GO TO 1850
	  CALL NEWSTA(I,J,THFPOS,0,0)
	  J=0
1850	CONTINUE
	RETURN
C
	END
Commit	Line	Data
8b22683c KB	1	C AAPPLI- APPLICABLES FOR ADVENTURERS
	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 AAPPLI(RI)
	10	IMPLICIT INTEGER (A-Z)
	11	LOGICAL F,MOVETO
	12	#include "parser.h"
	13	#include "gamestate.h"
	14	#include "rooms.h"
	15	#include "rflag.h"
	16	#include "rindex.h"
	17	#include "xsrch.h"
	18	#include "objects.h"
	19	#include "oflags.h"
	20	#include "oindex.h"
	21	#include "clock.h"
	22	#include "advers.h"
	23	#include "verbs.h"
	24	#include "flags.h"
	25	C AAPPLI, PAGE 2
	26	C
	27	IF(RI.EQ.0) GO TO 10
	28	C !IF ZERO, NO APP.
	29	AAPPLI=.TRUE.
	30	C !ASSUME WINS.
	31	GO TO (1000,2000),RI
	32	C !BRANCH ON ADV.
	33	CALL BUG(11,RI)
	34	C
	35	C COMMON FALSE RETURN.
	36	C
	37	10 AAPPLI=.FALSE.
	38	RETURN
	39	C
	40	C A1-- ROBOT. PROCESS MOST COMMANDS GIVEN TO ROBOT.
	41	C
	42	1000 IF((PRSA.NE.RAISEW).OR.(PRSO.NE.RCAGE)) GO TO 1200
	43	CFLAG(CEVSPH)=.FALSE.
	44	C !ROBOT RAISED CAGE.
	45	WINNER=PLAYER
	46	C !RESET FOR PLAYER.
	47	F=MOVETO(CAGER,WINNER)
	48	C !MOVE TO NEW ROOM.
	49	CALL NEWSTA(CAGE,567,CAGER,0,0)
	50	C !INSTALL CAGE IN ROOM.
	51	CALL NEWSTA(ROBOT,0,CAGER,0,0)
	52	C !INSTALL ROBOT IN ROOM.
	53	AROOM(AROBOT)=CAGER
	54	C !ALSO MOVE ROBOT/ADV.
	55	CAGESF=.TRUE.
	56	C !CAGE SOLVED.
	57	OFLAG1(ROBOT)=and(OFLAG1(ROBOT),not(NDSCBT))
	58	OFLAG1(SPHER)=or(OFLAG1(SPHER),TAKEBT)
	59	RETURN
	60	C
	61	1200 IF((PRSA.NE.DRINKW).AND.(PRSA.NE.EATW)) GO TO 1300
	62	CALL RSPEAK(568)
	63	C !EAT OR DRINK, JOKE.
	64	RETURN
65	C
66	1300 IF(PRSA.NE.READW) GO TO 1400
67	C !READ,
68	CALL RSPEAK(569)
69	C !JOKE.
70	RETURN
71	C
72	1400 IF((PRSA.EQ.WALKW).OR.(PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW)
73	& .OR.(PRSA.EQ.PUTW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.THROWW)
74	& .OR.(PRSA.EQ.TURNW).OR.(PRSA.EQ.LEAPW)) GO TO 10
75	CALL RSPEAK(570)
76	C !JOKE.
77	RETURN
78	C AAPPLI, PAGE 3
79	C
80	C A2-- MASTER. PROCESS MOST COMMANDS GIVEN TO MASTER.
81	C
82	2000 IF(and(OFLAG2(QDOOR),OPENBT).NE.0) GO TO 2100
83	CALL RSPEAK(783)
84	C !NO MASTER YET.
85	RETURN
86	C
87	2100 IF(PRSA.NE.WALKW) GO TO 2200
88	C !WALK?
89	I=784
90	C !ASSUME WONT.
91	IF(((HERE.EQ.SCORR).AND.
92	& ((PRSO.EQ.XNORTH).OR.(PRSO.EQ.XENTER))).OR.
93	& ((HERE.EQ.NCORR).AND.
94	& ((PRSO.EQ.XSOUTH).OR.(PRSO.EQ.XENTER))))
95	& I=785
96	CALL RSPEAK(I)
97	RETURN
98	C
99	2200 IF((PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW).OR.(PRSA.EQ.PUTW).OR.
100	& (PRSA.EQ.THROWW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.TURNW).OR.
101	& (PRSA.EQ.SPINW).OR.(PRSA.EQ.TRNTOW).OR.(PRSA.EQ.FOLLOW).OR.
102	& (PRSA.EQ.STAYW).OR.(PRSA.EQ.OPENW).OR.(PRSA.EQ.CLOSEW).OR.
103	& (PRSA.EQ.KILLW)) GO TO 10
104	CALL RSPEAK(786)
105	C !MASTER CANT DO IT.
106	RETURN
107	C
108	END
109	C THIEFD- INTERMOVE THIEF DEMON
110	C
111	C DECLARATIONS
112	C
113	SUBROUTINE THIEFD
114	IMPLICIT INTEGER (A-Z)
115	LOGICAL ONCE,PROB,QHERE,QSTILL,LIT,WINNIN
116	#include "gamestate.h"
117	C
118	#include "debug.h"
119	#include "rooms.h"
120	#include "rflag.h"
121	#include "rindex.h"
122	#include "objects.h"
123	#include "oflags.h"
124	#include "oindex.h"
125	#include "villians.h"
126	#include "flags.h"
127	C
128	C FUNCTIONS AND DATA
129	C
130	QSTILL(R)=(QHERE(STILL,R).OR.(OADV(STILL).EQ.-THIEF))
131	C THIEFD, PAGE 2
132	C
133	#ifdef debug
134	DFLAG=and(PRSFLG, 32768).NE.0
135	#endif debug
136	C !SET UP DETAIL FLAG.
137	ONCE=.FALSE.
138	C !INIT FLAG.
139	1025 RHERE=OROOM(THIEF)
140	C !VISIBLE POS.
141	IF(RHERE.NE.0) THFPOS=RHERE
142	C
143	IF(THFPOS.EQ.HERE) GO TO 1100
144	C !THIEF IN WIN RM?
145	IF(THFPOS.NE.TREAS) GO TO 1400
146	C !THIEF NOT IN TREAS?
147	C
148	C THIEF IS IN TREASURE ROOM, AND WINNER IS NOT.
149	C
150	#ifdef debug
151	IF(DFLAG) PRINT 10
152	#ifdef NOCC
153	10 FORMAT('THIEFD-- IN TREASURE ROOM')
154	#else NOCC
155	10 FORMAT(' THIEFD-- IN TREASURE ROOM')
156	#endif
157	#endif debug
158	IF(RHERE.EQ.0) GO TO 1050
159	C !VISIBLE?
160	CALL NEWSTA(THIEF,0,0,0,0)
161	C !YES, VANISH.
162	RHERE=0
163	IF(QSTILL(TREAS)) CALL NEWSTA(STILL,0,0,THIEF,0)
164	1050 I=ROBADV(-THIEF,THFPOS,0,0)
165	C !DROP VALUABLES.
166	IF(QHERE(EGG,THFPOS)) OFLAG2(EGG)=or(OFLAG2(EGG),OPENBT)
167	GO TO 1700
168	C
169	C THIEF AND WINNER IN SAME ROOM.
170	C
171	1100 IF(THFPOS.EQ.TREAS) GO TO 1700
172	C !IF TREAS ROOM, NOTHING.
173	IF(and(RFLAG(THFPOS),RLIGHT).NE.0) GO TO 1400
174	#ifdef debug
175	IF(DFLAG) PRINT 20
176	#ifdef NOCC
177	20 FORMAT('THIEFD-- IN ADV ROOM')
178	#else NOCC
179	20 FORMAT(' THIEFD-- IN ADV ROOM')
180	#endif NOCC
181	#endif debug
182	IF(THFFLG) GO TO 1300
183	C !THIEF ANNOUNCED?
184	IF((RHERE.NE.0).OR.PROB(70,70)) GO TO 1150
185	C !IF INVIS AND 30%.
186	IF(OCAN(STILL).NE.THIEF) GO TO 1700
187	C !ABORT IF NO STILLETTO.
188	CALL NEWSTA(THIEF,583,THFPOS,0,0)
189	C !INSERT THIEF INTO ROOM.
190	THFFLG=.TRUE.
191	C !THIEF IS ANNOUNCED.
192	RETURN
193	C
194	1150 IF((RHERE.EQ.0).OR.(and(OFLAG2(THIEF),FITEBT).EQ.0))
195	& GO TO 1200
196	IF(WINNIN(THIEF,WINNER)) GO TO 1175
197	C !WINNING?
198	CALL NEWSTA(THIEF,584,0,0,0)
199	C !NO, VANISH THIEF.
200	OFLAG2(THIEF)=and(OFLAG2(THIEF), not(FITEBT))
201	IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
202	RETURN
203	C
204	1175 IF(PROB(90,90)) GO TO 1700
205	C !90% CHANCE TO STAY.
206	C
207	1200 IF((RHERE.EQ.0).OR.PROB(70,70)) GO TO 1250
208	C !IF VISIBLE AND 30%
209	CALL NEWSTA(THIEF,585,0,0,0)
210	C !VANISH THIEF.
211	IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
212	RETURN
213	C
214	1300 IF(RHERE.EQ.0) GO TO 1700
215	C !ANNOUNCED. VISIBLE?
216	1250 IF(PROB(70,70)) RETURN
217	C !70% CHANCE TO DO NOTHING.
218	THFFLG=.TRUE.
219	NR=ROBRM(THFPOS,100,0,0,-THIEF)+ROBADV(WINNER,0,0,-THIEF)
220	I=586
221	C !ROBBED EM.
222	IF(RHERE.NE.0) I=588
223	C !WAS HE VISIBLE?
224	IF(NR.NE.0) I=I+1
225	C !DID HE GET ANYTHING?
226	CALL NEWSTA(THIEF,I,0,0,0)
227	C !VANISH THIEF.
228	IF(QSTILL(THFPOS))
229	& CALL NEWSTA(STILL,0,0,THIEF,0)
230	IF((NR.NE.0).AND..NOT.LIT(THFPOS)) CALL RSPEAK(406)
231	RHERE=0
232	GO TO 1700
233	C !ONWARD.
234	C
235	C NOT IN ADVENTURERS ROOM.
236	C
237	1400 CALL NEWSTA(THIEF,0,0,0,0)
238	C !VANISH.
239	RHERE=0
240	#ifdef debug
241	IF(DFLAG) PRINT 30,THFPOS
242	#ifdef NOCC
243	30 FORMAT('THIEFD-- IN ROOM ',I4)
244	#else NOCC
245	30 FORMAT(' THIEFD-- IN ROOM ',I4)
246	#endif NOCC
247	#endif debug
248	IF(QSTILL(THFPOS))
249	& CALL NEWSTA(STILL,0,0,THIEF,0)
250	IF(and(RFLAG(THFPOS),RSEEN).EQ.0) GO TO 1700
251	I=ROBRM(THFPOS,75,0,0,-THIEF)
252	C !ROB ROOM 75%.
253	IF((THFPOS.LT.MAZE1).OR.(THFPOS.GT.MAZ15).OR.
254	& (HERE.LT.MAZE1).OR.(HERE.GT.MAZ15)) GO TO 1500
255	DO 1450 I=1,OLNT
256	C !BOTH IN MAZE.
257	IF(.NOT.QHERE(I,THFPOS).OR.PROB(60,60).OR.
258	& (and(OFLAG1(I),(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT)))
259	& GO TO 1450
260	CALL RSPSUB(590,ODESC2(I))
261	C !TAKE OBJECT.
262	IF(PROB(40,20)) GO TO 1700
263	CALL NEWSTA(I,0,0,0,-THIEF)
264	C !MOST OF THE TIME.
265	OFLAG2(I)=or(OFLAG2(I),TCHBT)
266	GO TO 1700
267	1450 CONTINUE
268	GO TO 1700
269	C
270	1500 DO 1550 I=1,OLNT
271	C !NOT IN MAZE.
272	IF(.NOT.QHERE(I,THFPOS).OR.(OTVAL(I).NE.0).OR.PROB(80,60).OR.
273	& (and(OFLAG1(I),(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT)))
274	& GO TO 1550
275	CALL NEWSTA(I,0,0,0,-THIEF)
276	OFLAG2(I)=or(OFLAG2(I),TCHBT)
277	GO TO 1700
278	1550 CONTINUE
279	C
280	C NOW MOVE TO NEW ROOM.
281	C
282	1700 IF(OADV(ROPE).EQ.-THIEF) DOMEF=.FALSE.
283	IF(ONCE) GO TO 1800
284	ONCE=.NOT.ONCE
285	1750 THFPOS=THFPOS-1
286	C !NEXT ROOM.
287	IF(THFPOS.LE.0) THFPOS=RLNT
288	IF(and(RFLAG(THFPOS),(RLAND+RSACRD+REND)).NE.RLAND)
289	& GO TO 1750
290	THFFLG=.FALSE.
291	C !NOT ANNOUNCED.
292	GO TO 1025
293	C !ONCE MORE.
294	C
295	C ALL DONE.
296	C
297	1800 IF(THFPOS.EQ.TREAS) RETURN
298	C !IN TREASURE ROOM?
299	J=591
300	C !NO, DROP STUFF.
301	IF(THFPOS.NE.HERE) J=0
302	DO 1850 I=1,OLNT
303	IF((OADV(I).NE.-THIEF).OR.PROB(70,70).OR.
304	& (OTVAL(I).GT.0)) GO TO 1850
305	CALL NEWSTA(I,J,THFPOS,0,0)
306	J=0
307	1850 CONTINUE
308	RETURN
309	C
310	END