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

C VAPPLI- MAIN VERB PROCESSING ROUTINE
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 VAPPLI(RI)
	IMPLICIT INTEGER (A-Z)
	LOGICAL LIT,OBJACT
	LOGICAL QEMPTY,RMDESC,CLOCKD
	LOGICAL QOPEN,EDIBLE,DRKBLE
	LOGICAL TAKE,PUT,DROP,WALK
	LOGICAL QHERE,SVERBS,FINDXT,OAPPLI,F
#include "parser.h"
#include "gamestate.h"
#include "state.h"
C
	COMMON /STAR/ MBASE,STRBIT
#include "rooms.h"
#include "rflag.h"
#include "rindex.h"
#include "xsrch.h"
#include "objects.h"
#include "oflags.h"
#include "oindex.h"
#include "advers.h"
#include "verbs.h"
C
C FUNCTIONS AND DATA
C
	QOPEN(R)=and(OFLAG2(R),OPENBT).NE.0
	EDIBLE(R)=and(OFLAG1(R),FOODBT).NE.0
	DRKBLE(R)=and(OFLAG1(R),DRNKBT).NE.0
	DATA MXNOP/39/,MXSMP/99/
C VAPPLI, PAGE 2
C
	VAPPLI=.TRUE.
C						!ASSUME WINS.
C
	IF(PRSO.GT.220) GO TO 5
C
	IF(PRSO.NE.0) ODO2=ODESC2(PRSO)
C						!SET UP DESCRIPTORS.
5	IF(PRSI.NE.0) ODI2=ODESC2(PRSI)
	AV=AVEHIC(WINNER)
	RMK=372+RND(6)
C						!REMARK FOR HACK-HACKS.
C
	IF(RI.EQ.0) GO TO 10
C						!ZERO IS FALSE.
	IF(RI.LE.MXNOP) RETURN
C						!NOP?
	IF(RI.LE.MXSMP) GO TO 100
C						!SIMPLE VERB?
	GO TO (18000,20000,
&	       22000,23000,24000,25000,26000,27000,28000,29000,30000,
&	 31000,32000,33000,34000,35000,36000,      38000,39000,40000,
&	 41000,42000,43000,44000,45000,46000,47000,48000,49000,50000,
&	 51000,52000,53000,      55000,56000,      58000,59000,60000,
&	             63000,64000,65000,66000,      68000,69000,70000,
&	 71000,72000,73000,74000,            77000,78000,
&	 80000,81000,82000,83000,84000,85000,86000,87000,88000),
&		(RI-MXSMP)
	CALL BUG(7,RI)
C
C ALL VERB PROCESSORS RETURN HERE TO DECLARE FAILURE.
C
10	VAPPLI=.FALSE.
C						!LOSE.
	RETURN
C
C SIMPLE VERBS ARE HANDLED EXTERNALLY.
C
100	VAPPLI=SVERBS(RI)
	RETURN
C VAPPLI, PAGE 3
C
C V100--	READ.  OUR FIRST REAL VERB.
C
18000	IF(LIT(HERE)) GO TO 18100
C						!ROOM LIT?
	CALL RSPEAK(356)
C						!NO, CANT READ.
	RETURN
C
18100	IF(PRSI.EQ.0) GO TO 18200
C						!READ THROUGH OBJ?
	IF(and(OFLAG1(PRSI),TRANBT).NE.0) GO TO 18200
	CALL RSPSUB(357,ODI2)
C						!NOT TRANSPARENT.
	RETURN
C
18200	IF(and(OFLAG1(PRSO),READBT).NE.0) GO TO 18300
	CALL RSPSUB(358,ODO2)
C						!NOT READABLE.
	RETURN
C
18300	IF(.NOT.OBJACT(X)) CALL RSPEAK(OREAD(PRSO))
	RETURN
C
C V101--	MELT.  UNLESS OBJECT HANDLES, JOKE.
C
20000	IF(.NOT.OBJACT(X)) CALL RSPSUB(361,ODO2)
	RETURN
C
C V102--	INFLATE.  WORKS ONLY WITH BOATS.
C
22000	IF(.NOT.OBJACT(X)) CALL RSPEAK(368)
C						!OBJ HANDLE?
	RETURN
C
C V103--	DEFLATE.
C
23000	IF(.NOT.OBJACT(X)) CALL RSPEAK(369)
C						!OBJ HANDLE?
	RETURN
C VAPPLI, PAGE 4
C
C V104--	ALARM.  IF SLEEPING, WAKE HIM UP.
C
24000	IF(and(OFLAG2(PRSO),SLEPBT).EQ.0) GO TO 24100
	VAPPLI=OBJACT(X)
C						!SLEEPING, LET OBJ DO.
	RETURN
C
24100	CALL RSPSUB(370,ODO2)
C						!JOKE.
	RETURN
C
C V105--	EXORCISE.  OBJECTS HANDLE.
C
25000	F=OBJACT(X)
C						!OBJECTS HANDLE.
	RETURN
C
C V106--	PLUG.  LET OBJECTS HANDLE.
C
26000	IF(.NOT.OBJACT(X)) CALL RSPEAK(371)
	RETURN
C
C V107--	KICK.  IF OBJECT IGNORES, JOKE.
C
27000	IF(.NOT.OBJACT(X)) CALL RSPSB2(378,ODO2,RMK)
	RETURN
C
C V108--	WAVE.  SAME.
C
28000	IF(.NOT.OBJACT(X)) CALL RSPSB2(379,ODO2,RMK)
	RETURN
C
C V109,V110--	RAISE, LOWER.  SAME.
C
29000	CONTINUE
30000	IF(.NOT.OBJACT(X)) CALL RSPSB2(380,ODO2,RMK)
	RETURN
C
C V111--	RUB.  SAME.
C
31000	IF(.NOT.OBJACT(X)) CALL RSPSB2(381,ODO2,RMK)
	RETURN
C
C V112--	PUSH.  SAME.
C
32000	IF(.NOT.OBJACT(X)) CALL RSPSB2(382,ODO2,RMK)
	RETURN
C VAPPLI, PAGE 5
C
C V113--	UNTIE.  IF OBJECT IGNORES, JOKE.
C
33000	IF(OBJACT(X)) RETURN
C						!OBJECT HANDLE?
	I=383
C						!NO, NOT TIED.
	IF(and(OFLAG2(PRSO),TIEBT).EQ.0) I=384
	CALL RSPEAK(I)
	RETURN
C
C V114--	TIE.  NEVER REALLY WORKS.
C
34000	IF(and(OFLAG2(PRSO),TIEBT).NE.0) GO TO 34100
	CALL RSPEAK(385)
C						!NOT TIEABLE.
	RETURN
C
34100	IF(.NOT.OBJACT(X)) CALL RSPSUB(386,ODO2)
C						!JOKE.
	RETURN
C
C V115--	TIE UP.  NEVER REALLY WORKS.
C
35000	IF(and(OFLAG2(PRSI),TIEBT).NE.0) GO TO 35100
	CALL RSPSUB(387,ODO2)
C						!NOT TIEABLE.
	RETURN
C
35100	I=388
C						!ASSUME VILLAIN.
	IF(and(OFLAG2(PRSO),VILLBT).EQ.0) I=389
	CALL RSPSUB(I,ODO2)
C						!JOKE.
	RETURN
C
C V116--	TURN.  OBJECT MUST HANDLE.
C
36000	IF(and(OFLAG1(PRSO),TURNBT).NE.0) GO TO 36100
	CALL RSPEAK(390)
C						!NOT TURNABLE.
	RETURN
C
36100	IF(and(OFLAG1(PRSI),TOOLBT).NE.0) GO TO 36200
	CALL RSPSUB(391,ODI2)
C						!NOT A TOOL.
	RETURN
C
36200	VAPPLI=OBJACT(X)
C						!LET OBJECT HANDLE.
	RETURN
C
C V117--	BREATHE.  BECOMES INFLATE WITH LUNGS.
C
38000	PRSA=INFLAW
	PRSI=LUNGS
	GO TO 22000
C						!HANDLE LIKE INFLATE.
C
C V118--	KNOCK.  MOSTLY JOKE.
C
39000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	I=394
C						!JOKE FOR DOOR.
	IF(and(OFLAG1(PRSO),DOORBT).EQ.0) I=395
	CALL RSPSUB(I,ODO2)
C						!JOKE FOR NONDOORS TOO.
	RETURN
C
C V119--	LOOK.
C
40000	IF(PRSO.NE.0) GO TO 41500
C						!SOMETHING TO LOOK AT?
	VAPPLI=RMDESC(3)
C						!HANDLED BY RMDESC.
	RETURN
C
C V120--	EXAMINE.
C
41000	IF(PRSO.NE.0) GO TO 41500
C						!SOMETHING TO EXAMINE?
	VAPPLI=RMDESC(0)
C						!HANDLED BY RMDESC.
	RETURN
C
41500	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	I=OREAD(PRSO)
C						!GET READING MATERIAL.
	IF(I.NE.0) CALL RSPEAK(I)
C						!OUTPUT IF THERE,
	IF(I.EQ.0) CALL RSPSUB(429,ODO2)
C						!OTHERWISE DEFAULT.
	PRSA=FOOW
C						!DEFUSE ROOM PROCESSORS.
	RETURN
C
C V121--	SHAKE.  IF HOLLOW OBJECT, SOME ACTION.
C
42000	IF(OBJACT(X)) RETURN
C						!OBJECT HANDLE?
	IF(and(OFLAG2(PRSO),VILLBT).EQ.0) GO TO 42100
	CALL RSPEAK(371)
C						!JOKE FOR VILLAINS.
	RETURN
C
42100	IF(QEMPTY(PRSO).OR.(and(OFLAG1(PRSO),TAKEBT).EQ.0))
&		GO TO 10
	IF(QOPEN(PRSO)) GO TO 42300
C						!OPEN?  SPILL.
	CALL RSPSUB(396,ODO2)
C						!NO, DESCRIBE NOISE.
	RETURN
C
42300	CALL RSPSUB(397,ODO2)
C						!SPILL THE WORKS.
	DO 42500 I=1,OLNT
C						!SPILL CONTENTS.
	  IF(OCAN(I).NE.PRSO) GO TO 42500
C						!INSIDE?
	  OFLAG2(I)=or(OFLAG2(I),TCHBT)
	  IF(AV.EQ.0) GO TO 42400
C						!IN VEHICLE?
	  CALL NEWSTA(I,0,0,AV,0)
C						!YES, SPILL IN THERE.
	  GO TO 42500
C
42400	  CALL NEWSTA(I,0,HERE,0,0)
C						!NO, SPILL ON FLOOR,
	  IF(I.EQ.WATER) CALL NEWSTA(I,133,0,0,0)
C						!BUT WATER DISAPPEARS.
42500	CONTINUE
	RETURN
C
C V122--	MOVE.  MOSTLY JOKES.
C
43000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	I=398
C						!ASSUME NOT HERE.
	IF(QHERE(PRSO,HERE)) I=399
	CALL RSPSUB(I,ODO2)
C						!JOKE.
	RETURN
C VAPPLI, PAGE 6
C
C V123--	TURN ON.
C
44000	F=LIT(HERE)
C						!RECORD IF LIT.
	IF(OBJACT(X)) GO TO 44300
C						!OBJ HANDLE?
	IF((and(OFLAG1(PRSO),LITEBT).NE.0).AND.
&		(OADV(PRSO).EQ.WINNER)) GO TO 44100
	CALL RSPEAK(400)
C						!CANT DO IT.
	RETURN
C
44100	IF(and(OFLAG1(PRSO),ONBT).EQ.0) GO TO 44200
	CALL RSPEAK(401)
C						!ALREADY ON.
	RETURN
C
44200	OFLAG1(PRSO)=or(OFLAG1(PRSO),ONBT)
	CALL RSPSUB(404,ODO2)
44300	IF(.NOT.F .AND.LIT(HERE)) F=RMDESC(0)
C						!ROOM NEWLY LIT.
	RETURN
C
C V124--	TURN OFF.
C
45000	IF(OBJACT(X)) GO TO 45300
C						!OBJ HANDLE?
	IF((and(OFLAG1(PRSO),LITEBT).NE.0).AND.
&		(OADV(PRSO).EQ.WINNER)) GO TO 45100
	CALL RSPEAK(402)
C						!CANT DO IT.
	RETURN
C
45100	IF(and(OFLAG1(PRSO),ONBT).NE.0) GO TO 45200
	CALL RSPEAK(403)
C						!ALREADY OFF.
	RETURN
C
45200	OFLAG1(PRSO)=and(OFLAG1(PRSO), not(ONBT))
	CALL RSPSUB(405,ODO2)
45300	IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
C						!MAY BE DARK.
	RETURN
C
C V125--	OPEN.  A FINE MESS.
C
46000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(and(OFLAG1(PRSO),CONTBT).NE.0) GO TO 46100
46050	CALL RSPSUB(407,ODO2)
C						!NOT OPENABLE.
	RETURN
C
46100	IF(OCAPAC(PRSO).NE.0) GO TO 46200
	CALL RSPSUB(408,ODO2)
C						!NOT OPENABLE.
	RETURN
C
46200	IF(.NOT.QOPEN(PRSO)) GO TO 46225
	CALL RSPEAK(412)
C						!ALREADY OPEN.
	RETURN
C
46225	OFLAG2(PRSO)=or(OFLAG2(PRSO),OPENBT)
	IF((and(OFLAG1(PRSO),TRANBT).NE.0).OR.QEMPTY(PRSO))
&		GO TO 46300
	CALL PRINCO(PRSO,410)
C						!PRINT CONTENTS.
	RETURN
C
46300	CALL RSPEAK(409)
C						!DONE
	RETURN
C
C V126--	CLOSE.
C
47000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(and(OFLAG1(PRSO),CONTBT).EQ.0) GO TO 46050
	IF(OCAPAC(PRSO).NE.0) GO TO 47100
	CALL RSPSUB(411,ODO2)
C						!NOT CLOSABLE.
	RETURN
C
47100	IF(QOPEN(PRSO)) GO TO 47200
C						!OPEN?
	CALL RSPEAK(413)
C						!NO, JOKE.
	RETURN
C
47200	OFLAG2(PRSO)=and(OFLAG2(PRSO), not(OPENBT))
	CALL RSPEAK(414)
C						!DONE.
	RETURN
C VAPPLI, PAGE 7
C
C V127--	FIND.  BIG MEGILLA.
C
48000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	I=415
C						!DEFAULT CASE.
	IF(QHERE(PRSO,HERE)) GO TO 48300
C						!IN ROOM?
	IF(OADV(PRSO).EQ.WINNER) GO TO 48200
C						!ON WINNER?
	J=OCAN(PRSO)
C						!DOWN ONE LEVEL.
	IF(J.EQ.0) GO TO 10
	IF(((and(OFLAG1(J),TRANBT).EQ.0).AND.
&	 (.NOT.QOPEN(J).OR.(and(OFLAG1(J),(DOORBT+CONTBT)).EQ.0))))
&		GO TO 10
	I=417
C						!ASSUME IN ROOM.
	IF(QHERE(J,HERE)) GO TO 48100
	IF(OADV(J).NE.WINNER) GO TO 10
C						!NOT HERE OR ON PERSON.
	I=418
48100	CALL RSPSUB(I,ODESC2(J))
C						!DESCRIBE FINDINGS.
	RETURN
C
48200	I=416
48300	CALL RSPSUB(I,ODO2)
C						!DESCRIBE FINDINGS.
	RETURN
C
C V128--	WAIT.  RUN CLOCK DEMON.
C
49000	CALL RSPEAK(419)
C						!TIME PASSES.
	DO 49100 I=1,3
	  IF(CLOCKD(X)) RETURN
49100	CONTINUE
	RETURN
C
C V129--	SPIN.
C V159--	TURN TO.
C
50000	CONTINUE
88000	IF(.NOT.OBJACT(X)) CALL RSPEAK(663)
C						!IF NOT OBJ, JOKE.
	RETURN
C
C V130--	BOARD.  WORKS WITH VEHICLES.
C
51000	IF(and(OFLAG2(PRSO),VEHBT).NE.0) GO TO 51100
	CALL RSPSUB(421,ODO2)
C						!NOT VEHICLE, JOKE.
	RETURN
C
51100	IF(QHERE(PRSO,HERE)) GO TO 51200
C						!HERE?
	CALL RSPSUB(420,ODO2)
C						!NO, JOKE.
	RETURN
C
51200	IF(AV.EQ.0) GO TO 51300
C						!ALREADY GOT ONE?
	CALL RSPSUB(422,ODO2)
C						!YES, JOKE.
	RETURN
C
51300	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	CALL RSPSUB(423,ODO2)
C						!DESCRIBE.
	AVEHIC(WINNER)=PRSO
	IF(WINNER.NE.PLAYER) OCAN(AOBJ(WINNER))=PRSO
	RETURN
C
C V131--	DISEMBARK.
C
52000	IF(AV.EQ.PRSO) GO TO 52100
C						!FROM VEHICLE?
	CALL RSPEAK(424)
C						!NO, JOKE.
	RETURN
C
52100	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(and(RFLAG(HERE),RLAND).NE.0) GO TO 52200
	CALL RSPEAK(425)
C						!NOT ON LAND.
	RETURN
C
52200	AVEHIC(WINNER)=0
	CALL RSPEAK(426)
	IF(WINNER.NE.PLAYER) CALL NEWSTA(AOBJ(WINNER),0,HERE,0,0)
	RETURN
C
C V132--	TAKE.  HANDLED EXTERNALLY.
C
53000	VAPPLI=TAKE(.TRUE.)
	RETURN
C
C V133--	INVENTORY.  PROCESSED EXTERNALLY.
C
55000	CALL INVENT(WINNER)
	RETURN
C VAPPLI, PAGE 8
C
C V134--	FILL.  STRANGE DOINGS WITH WATER.
C
56000	IF(PRSI.NE.0) GO TO 56050
C						!ANY OBJ SPECIFIED?
	IF(and(RFLAG(HERE),(RWATER+RFILL)).NE.0) GO TO 56025
	CALL RSPEAK(516)
C						!NOTHING TO FILL WITH.
	PRSWON=.FALSE.
C						!YOU LOSE.
	RETURN
C
56025	PRSI=GWATE
C						!USE GLOBAL WATER.
56050	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF((PRSI.NE.GWATE).AND.(PRSI.NE.WATER))
&		CALL RSPSB2(444,ODI2,ODO2)
	RETURN
C
C V135,V136--	EAT/DRINK
C
58000	CONTINUE
59000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(PRSO.EQ.GWATE) GO TO 59500
C						!DRINK GLOBAL WATER?
	IF(.NOT.EDIBLE(PRSO)) GO TO 59400
C						!EDIBLE?
	IF(OADV(PRSO).EQ.WINNER) GO TO 59200
C						!YES, ON WINNER?
59100	CALL RSPSUB(454,ODO2)
C						!NOT ACCESSIBLE.
	RETURN
C
59200	IF(PRSA.EQ.DRINKW) GO TO 59300
C						!DRINK FOOD?
	CALL NEWSTA(PRSO,455,0,0,0)
C						!NO, IT DISAPPEARS.
	RETURN
C
59300	CALL RSPEAK(456)
C						!YES, JOKE.
	RETURN
C
59400	IF(.NOT.DRKBLE(PRSO)) GO TO 59600
C						!DRINKABLE?
	IF(OCAN(PRSO).EQ.0) GO TO 59100
C						!YES, IN SOMETHING?
	IF(OADV(OCAN(PRSO)).NE.WINNER) GO TO 59100
	IF(QOPEN(OCAN(PRSO))) GO TO 59500
C						!CONT OPEN?
	CALL RSPEAK(457)
C						!NO, JOKE.
	RETURN
C
59500	CALL NEWSTA(PRSO,458,0,0,0)
C						!GONE.
	RETURN
C
59600	CALL RSPSUB(453,ODO2)
C						!NOT FOOD OR DRINK.
	RETURN
C
C V137--	BURN.  COMPLICATED.
C
60000	IF(and(OFLAG1(PRSI),(FLAMBT+LITEBT+ONBT)).NE.
&		(FLAMBT+LITEBT+ONBT)) GO TO 60400
	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(OCAN(PRSO).NE.RECEP) GO TO 60050
C						!BALLOON?
	IF(OAPPLI(OACTIO(BALLO),0)) RETURN
C						!DID IT HANDLE?
60050	IF(and(OFLAG1(PRSO),BURNBT).EQ.0) GO TO 60300
	IF(OADV(PRSO).NE.WINNER) GO TO 60100
C						!CARRYING IT?
	CALL RSPSUB(459,ODO2)
	CALL JIGSUP(460)
	RETURN
C
60100	J=OCAN(PRSO)
C						!GET CONTAINER.
	IF(QHERE(PRSO,HERE).OR. ((AV.NE.0).AND.(J.EQ.AV)))
&		GO TO 60200
	IF(J.EQ.0) GO TO 60150
C						!INSIDE?
	IF(.NOT.QOPEN(J)) GO TO 60150
C						!OPEN?
	IF(QHERE(J,HERE).OR.((AV.NE.0).AND.(OCAN(J).EQ.AV)))
&		GO TO 60200
60150	CALL RSPEAK(461)
C						!CANT REACH IT.
	RETURN
C
60200	CALL RSPSUB(462,ODO2)
C						!BURN IT.
	CALL NEWSTA(PRSO,0,0,0,0)
	RETURN
C
60300	CALL RSPSUB(463,ODO2)
C						!CANT BURN IT.
	RETURN
C
60400	CALL RSPSUB(301,ODI2)
C						!CANT BURN IT WITH THAT.
	RETURN
C VAPPLI, PAGE 9
C
C V138--	MUNG.  GO TO COMMON ATTACK CODE.
C
63000	I=466
C						!CHOOSE PHRASE.
	IF(and(OFLAG2(PRSO),VILLBT).NE.0) GO TO 66100
	IF(.NOT.OBJACT(X)) CALL RSPSB2(466,ODO2,RMK)
	RETURN
C
C V139--	KILL.  GO TO COMMON ATTACK CODE.
C
64000	I=467
C						!CHOOSE PHRASE.
	GO TO 66100
C
C V140--	SWING.  INVERT OBJECTS, FALL THRU TO ATTACK.
C
65000	J=PRSO
C						!INVERT.
	PRSO=PRSI
	PRSI=J
	J=ODO2
	ODO2=ODI2
	ODI2=J
	PRSA=ATTACW
C						!FOR OBJACT.
C
C V141--	ATTACK.  FALL THRU TO ATTACK CODE.
C
66000	I=468
C
C COMMON MUNG/ATTACK/SWING/KILL CODE.
C
66100	IF(PRSO.NE.0) GO TO 66200
C						!ANYTHING?
	CALL RSPEAK(469)
C						!NO, JOKE.
	RETURN
C
66200	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(and(OFLAG2(PRSO),VILLBT).NE.0) GO TO 66300
	IF(and(OFLAG1(PRSO),VICTBT).EQ.0)
&		CALL RSPSUB(470,ODO2)
	RETURN
C
66300	J=471
C						!ASSUME NO WEAPON.
	IF(PRSI.EQ.0) GO TO 66500
	IF(and(OFLAG2(PRSI),WEAPBT).EQ.0) GO TO 66400
	MELEE=1
C						!ASSUME SWORD.
	IF(PRSI.NE.SWORD) MELEE=2
C						!MUST BE KNIFE.
	I=BLOW(PLAYER,PRSO,MELEE,.TRUE.,0)
C						!STRIKE BLOW.
	RETURN
C
66400	J=472
C						!NOT A WEAPON.
66500	CALL RSPSB2(I,ODO2,J)
C						!JOKE.
	RETURN
C VAPPLI, PAGE 10
C
C V142--	WALK.  PROCESSED EXTERNALLY.
C
68000	VAPPLI=WALK(X)
	RETURN
C
C V143--	TELL.  PROCESSED IN GAME.
C
69000	CALL RSPEAK(603)
	RETURN
C
C V144--	PUT.  PROCESSED EXTERNALLY.
C
70000	VAPPLI=PUT(.TRUE.)
	RETURN
C
C V145,V146,V147,V148--	DROP/GIVE/POUR/THROW
C
71000	CONTINUE
72000	CONTINUE
73000	CONTINUE
74000	VAPPLI=DROP(.FALSE.)
	RETURN
C
C V149--	SAVE
C
77000	IF(and(RFLAG(TSTRS),RSEEN).EQ.0) GO TO 77100
	CALL RSPEAK(828)
C						!NO SAVES IN ENDGAME.
	RETURN
C
77100	CALL SAVEGM
	RETURN
C
C V150--	RESTORE
C
#ifdef PDP
78000	call restor
#else
78000	IF(and(RFLAG(TSTRS),RSEEN).EQ.0) GO TO 78100
	CALL RSPEAK(829)
C						!NO RESTORES IN ENDGAME.
 	RETURN
C
78100	CALL RSTRGM
#endif PDP
	RETURN
C VAPPLI, PAGE 11
C
C V151--	HELLO
C
80000	IF(PRSO.NE.0) GO TO 80100
C						!ANY OBJ?
	CALL RSPEAK(346+RND(4))
C						!NO, VANILLA HELLO.
	RETURN
C
80100	IF(PRSO.NE.AVIAT) GO TO 80200
C						!HELLO AVIATOR?
	CALL RSPEAK(350)
C						!NOTHING HAPPENS.
	RETURN
C
80200	IF(PRSO.NE.SAILO) GO TO 80300
C						!HELLO SAILOR?
	HS=HS+1
C						!COUNT.
	I=351
C						!GIVE NORMAL OR
	IF(MOD(HS,10).EQ.0) I=352
C						!RANDOM MESSAGE.
	IF(MOD(HS,20).EQ.0) I=353
	CALL RSPEAK(I)
C						!SPEAK UP.
	RETURN
C
80300	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	I=354
C						!ASSUME VILLAIN.
	IF(and(OFLAG2(PRSO),(VILLBT+ACTRBT)).EQ.0) I=355
	CALL RSPSUB(I,ODO2)
C						!HELLO THERE
C						!
	RETURN
C
C V152--	LOOK INTO
C
81000	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	IF(and(OFLAG1(PRSO),DOORBT).EQ.0) GO TO 81300
	IF(.NOT.QOPEN(PRSO)) GO TO 81200
C						!OPEN?
	CALL RSPSUB(628,ODO2)
C						!OPEN DOOR- UNINTERESTING.
	RETURN
C
81200	CALL RSPSUB(525,ODO2)
C						!CLOSED DOOR- CANT SEE.
	RETURN
C
81300	IF(and(OFLAG2(PRSO),VEHBT).NE.0) GO TO 81400
	IF(QOPEN(PRSO).OR.(and(OFLAG1(PRSO),TRANBT).NE.0))
&		GO TO 81400
	IF(and(OFLAG1(PRSO),CONTBT).NE.0) GO TO 81200
	CALL RSPSUB(630,ODO2)
C						!CANT LOOK INSIDE.
	RETURN
C
81400	IF(QEMPTY(PRSO)) GO TO 81500
C						!VEH OR SEE IN.  EMPTY?
	CALL PRINCO(PRSO,573)
C						!NO, LIST CONTENTS.
	RETURN
C
81500	CALL RSPSUB(629,ODO2)
C						!EMPTY.
	RETURN
C
C V153--	LOOK UNDER
C
82000	IF(.NOT.OBJACT(X)) CALL RSPEAK(631)
C						!OBJECT HANDLE?
	RETURN
C VAPPLI, PAGE 12
C
C V154--	PUMP
C
83000	IF((OROOM(PUMP).EQ.HERE).OR.(OADV(PUMP).EQ.WINNER))
&		GO TO 83100
	CALL RSPEAK(632)
C						!NO.
	RETURN
C
83100	PRSI=PUMP
C						!BECOMES INFLATE
	PRSA=INFLAW
C						!X WITH PUMP.
	GO TO 22000
C						!DONE.
C
C V155--	WIND
C
84000	IF(.NOT.OBJACT(X)) CALL RSPSUB(634,ODO2)
C						!OBJ HANDLE?
	RETURN
C
C V156--	CLIMB
C V157--	CLIMB UP
C V158--	CLIMB DOWN
C
85000	CONTINUE
86000	CONTINUE
87000	I=XUP
C						!ASSUME UP.
	IF(PRSA.EQ.CLMBDW) I=XDOWN
C						!UNLESS CLIMB DN.
	F=(and(OFLAG2(PRSO),CLMBBT)).NE.0
	IF(F.AND.FINDXT(I,HERE)) GO TO 87500
C						!ANYTHING TO CLIMB?
	IF(OBJACT(X)) RETURN
C						!OBJ HANDLE?
	I=657
	IF(F) I=524
C						!VARIETY OF JOKES.
	IF(.NOT.F .AND.((PRSO.EQ.WALL).OR.
&		((PRSO.GE.WNORT).AND.(PRSO.LE.WNORT+3))))
&		I=656
	CALL RSPEAK(I)
C						!JOKE.
	RETURN
C
87500	PRSA=WALKW
C						!WALK
	PRSO=I
C						!IN SPECIFIED DIR.
	VAPPLI=WALK(X)
	RETURN
C
	END
C CLOCKD- CLOCK DEMON FOR INTERMOVE CLOCK EVENTS
C
C DECLARATIONS
C
	LOGICAL FUNCTION CLOCKD(X)
	IMPLICIT INTEGER (A-Z)
C
C CLOCK INTERRUPTS
C
#include "clock.h"
C
	CLOCKD=.FALSE.
C						!ASSUME NO ACTION.
	DO 100 I=1,CLNT
	  IF(.NOT.CFLAG(I) .OR.(CTICK(I).EQ.0)) GO TO 100
	  IF(CTICK(I).LT.0) GO TO 50
C						!PERMANENT ENTRY?
	  CTICK(I)=CTICK(I)-1
	  IF(CTICK(I).NE.0) GO TO 100
C						!TIMER EXPIRED?
50	  CLOCKD=.TRUE.
	  CALL CEVAPP(CACTIO(I))
C						!DO ACTION.
100	CONTINUE
	RETURN
C
	END
Commit	Line	Data
8b22683c KB	1	C VAPPLI- MAIN VERB PROCESSING ROUTINE
	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 VAPPLI(RI)
	10	IMPLICIT INTEGER (A-Z)
	11	LOGICAL LIT,OBJACT
	12	LOGICAL QEMPTY,RMDESC,CLOCKD
	13	LOGICAL QOPEN,EDIBLE,DRKBLE
	14	LOGICAL TAKE,PUT,DROP,WALK
	15	LOGICAL QHERE,SVERBS,FINDXT,OAPPLI,F
	16	#include "parser.h"
	17	#include "gamestate.h"
	18	#include "state.h"
	19	C
	20	COMMON /STAR/ MBASE,STRBIT
	21	#include "rooms.h"
	22	#include "rflag.h"
	23	#include "rindex.h"
	24	#include "xsrch.h"
	25	#include "objects.h"
	26	#include "oflags.h"
	27	#include "oindex.h"
	28	#include "advers.h"
	29	#include "verbs.h"
	30	C
	31	C FUNCTIONS AND DATA
	32	C
	33	QOPEN(R)=and(OFLAG2(R),OPENBT).NE.0
	34	EDIBLE(R)=and(OFLAG1(R),FOODBT).NE.0
	35	DRKBLE(R)=and(OFLAG1(R),DRNKBT).NE.0
	36	DATA MXNOP/39/,MXSMP/99/
	37	C VAPPLI, PAGE 2
	38	C
	39	VAPPLI=.TRUE.
	40	C !ASSUME WINS.
	41	C
	42	IF(PRSO.GT.220) GO TO 5
	43	C
	44	IF(PRSO.NE.0) ODO2=ODESC2(PRSO)
	45	C !SET UP DESCRIPTORS.
	46	5 IF(PRSI.NE.0) ODI2=ODESC2(PRSI)
	47	AV=AVEHIC(WINNER)
	48	RMK=372+RND(6)
	49	C !REMARK FOR HACK-HACKS.
	50	C
	51	IF(RI.EQ.0) GO TO 10
	52	C !ZERO IS FALSE.
	53	IF(RI.LE.MXNOP) RETURN
	54	C !NOP?
	55	IF(RI.LE.MXSMP) GO TO 100
	56	C !SIMPLE VERB?
	57	GO TO (18000,20000,
	58	& 22000,23000,24000,25000,26000,27000,28000,29000,30000,
	59	& 31000,32000,33000,34000,35000,36000, 38000,39000,40000,
	60	& 41000,42000,43000,44000,45000,46000,47000,48000,49000,50000,
	61	& 51000,52000,53000, 55000,56000, 58000,59000,60000,
	62	& 63000,64000,65000,66000, 68000,69000,70000,
	63	& 71000,72000,73000,74000, 77000,78000,
	64	& 80000,81000,82000,83000,84000,85000,86000,87000,88000),
65	& (RI-MXSMP)
66	CALL BUG(7,RI)
67	C
68	C ALL VERB PROCESSORS RETURN HERE TO DECLARE FAILURE.
69	C
70	10 VAPPLI=.FALSE.
71	C !LOSE.
72	RETURN
73	C
74	C SIMPLE VERBS ARE HANDLED EXTERNALLY.
75	C
76	100 VAPPLI=SVERBS(RI)
77	RETURN
78	C VAPPLI, PAGE 3
79	C
80	C V100-- READ. OUR FIRST REAL VERB.
81	C
82	18000 IF(LIT(HERE)) GO TO 18100
83	C !ROOM LIT?
84	CALL RSPEAK(356)
85	C !NO, CANT READ.
86	RETURN
87	C
88	18100 IF(PRSI.EQ.0) GO TO 18200
89	C !READ THROUGH OBJ?
90	IF(and(OFLAG1(PRSI),TRANBT).NE.0) GO TO 18200
91	CALL RSPSUB(357,ODI2)
92	C !NOT TRANSPARENT.
93	RETURN
94	C
95	18200 IF(and(OFLAG1(PRSO),READBT).NE.0) GO TO 18300
96	CALL RSPSUB(358,ODO2)
97	C !NOT READABLE.
98	RETURN
99	C
100	18300 IF(.NOT.OBJACT(X)) CALL RSPEAK(OREAD(PRSO))
101	RETURN
102	C
103	C V101-- MELT. UNLESS OBJECT HANDLES, JOKE.
104	C
105	20000 IF(.NOT.OBJACT(X)) CALL RSPSUB(361,ODO2)
106	RETURN
107	C
108	C V102-- INFLATE. WORKS ONLY WITH BOATS.
109	C
110	22000 IF(.NOT.OBJACT(X)) CALL RSPEAK(368)
111	C !OBJ HANDLE?
112	RETURN
113	C
114	C V103-- DEFLATE.
115	C
116	23000 IF(.NOT.OBJACT(X)) CALL RSPEAK(369)
117	C !OBJ HANDLE?
118	RETURN
119	C VAPPLI, PAGE 4
120	C
121	C V104-- ALARM. IF SLEEPING, WAKE HIM UP.
122	C
123	24000 IF(and(OFLAG2(PRSO),SLEPBT).EQ.0) GO TO 24100
124	VAPPLI=OBJACT(X)
125	C !SLEEPING, LET OBJ DO.
126	RETURN
127	C
128	24100 CALL RSPSUB(370,ODO2)
129	C !JOKE.
130	RETURN
131	C
132	C V105-- EXORCISE. OBJECTS HANDLE.
133	C
134	25000 F=OBJACT(X)
135	C !OBJECTS HANDLE.
136	RETURN
137	C
138	C V106-- PLUG. LET OBJECTS HANDLE.
139	C
140	26000 IF(.NOT.OBJACT(X)) CALL RSPEAK(371)
141	RETURN
142	C
143	C V107-- KICK. IF OBJECT IGNORES, JOKE.
144	C
145	27000 IF(.NOT.OBJACT(X)) CALL RSPSB2(378,ODO2,RMK)
146	RETURN
147	C
148	C V108-- WAVE. SAME.
149	C
150	28000 IF(.NOT.OBJACT(X)) CALL RSPSB2(379,ODO2,RMK)
151	RETURN
152	C
153	C V109,V110-- RAISE, LOWER. SAME.
154	C
155	29000 CONTINUE
156	30000 IF(.NOT.OBJACT(X)) CALL RSPSB2(380,ODO2,RMK)
157	RETURN
158	C
159	C V111-- RUB. SAME.
160	C
161	31000 IF(.NOT.OBJACT(X)) CALL RSPSB2(381,ODO2,RMK)
162	RETURN
163	C
164	C V112-- PUSH. SAME.
165	C
166	32000 IF(.NOT.OBJACT(X)) CALL RSPSB2(382,ODO2,RMK)
167	RETURN
168	C VAPPLI, PAGE 5
169	C
170	C V113-- UNTIE. IF OBJECT IGNORES, JOKE.
171	C
172	33000 IF(OBJACT(X)) RETURN
173	C !OBJECT HANDLE?
174	I=383
175	C !NO, NOT TIED.
176	IF(and(OFLAG2(PRSO),TIEBT).EQ.0) I=384
177	CALL RSPEAK(I)
178	RETURN
179	C
180	C V114-- TIE. NEVER REALLY WORKS.
181	C
182	34000 IF(and(OFLAG2(PRSO),TIEBT).NE.0) GO TO 34100
183	CALL RSPEAK(385)
184	C !NOT TIEABLE.
185	RETURN
186	C
187	34100 IF(.NOT.OBJACT(X)) CALL RSPSUB(386,ODO2)
188	C !JOKE.
189	RETURN
190	C
191	C V115-- TIE UP. NEVER REALLY WORKS.
192	C
193	35000 IF(and(OFLAG2(PRSI),TIEBT).NE.0) GO TO 35100
194	CALL RSPSUB(387,ODO2)
195	C !NOT TIEABLE.
196	RETURN
197	C
198	35100 I=388
199	C !ASSUME VILLAIN.
200	IF(and(OFLAG2(PRSO),VILLBT).EQ.0) I=389
201	CALL RSPSUB(I,ODO2)
202	C !JOKE.
203	RETURN
204	C
205	C V116-- TURN. OBJECT MUST HANDLE.
206	C
207	36000 IF(and(OFLAG1(PRSO),TURNBT).NE.0) GO TO 36100
208	CALL RSPEAK(390)
209	C !NOT TURNABLE.
210	RETURN
211	C
212	36100 IF(and(OFLAG1(PRSI),TOOLBT).NE.0) GO TO 36200
213	CALL RSPSUB(391,ODI2)
214	C !NOT A TOOL.
215	RETURN
216	C
217	36200 VAPPLI=OBJACT(X)
218	C !LET OBJECT HANDLE.
219	RETURN
220	C
221	C V117-- BREATHE. BECOMES INFLATE WITH LUNGS.
222	C
223	38000 PRSA=INFLAW
224	PRSI=LUNGS
225	GO TO 22000
226	C !HANDLE LIKE INFLATE.
227	C
228	C V118-- KNOCK. MOSTLY JOKE.
229	C
230	39000 IF(OBJACT(X)) RETURN
231	C !OBJ HANDLE?
232	I=394
233	C !JOKE FOR DOOR.
234	IF(and(OFLAG1(PRSO),DOORBT).EQ.0) I=395
235	CALL RSPSUB(I,ODO2)
236	C !JOKE FOR NONDOORS TOO.
237	RETURN
238	C
239	C V119-- LOOK.
240	C
241	40000 IF(PRSO.NE.0) GO TO 41500
242	C !SOMETHING TO LOOK AT?
243	VAPPLI=RMDESC(3)
244	C !HANDLED BY RMDESC.
245	RETURN
246	C
247	C V120-- EXAMINE.
248	C
249	41000 IF(PRSO.NE.0) GO TO 41500
250	C !SOMETHING TO EXAMINE?
251	VAPPLI=RMDESC(0)
252	C !HANDLED BY RMDESC.
253	RETURN
254	C
255	41500 IF(OBJACT(X)) RETURN
256	C !OBJ HANDLE?
257	I=OREAD(PRSO)
258	C !GET READING MATERIAL.
259	IF(I.NE.0) CALL RSPEAK(I)
260	C !OUTPUT IF THERE,
261	IF(I.EQ.0) CALL RSPSUB(429,ODO2)
262	C !OTHERWISE DEFAULT.
263	PRSA=FOOW
264	C !DEFUSE ROOM PROCESSORS.
265	RETURN
266	C
267	C V121-- SHAKE. IF HOLLOW OBJECT, SOME ACTION.
268	C
269	42000 IF(OBJACT(X)) RETURN
270	C !OBJECT HANDLE?
271	IF(and(OFLAG2(PRSO),VILLBT).EQ.0) GO TO 42100
272	CALL RSPEAK(371)
273	C !JOKE FOR VILLAINS.
274	RETURN
275	C
276	42100 IF(QEMPTY(PRSO).OR.(and(OFLAG1(PRSO),TAKEBT).EQ.0))
277	& GO TO 10
278	IF(QOPEN(PRSO)) GO TO 42300
279	C !OPEN? SPILL.
280	CALL RSPSUB(396,ODO2)
281	C !NO, DESCRIBE NOISE.
282	RETURN
283	C
284	42300 CALL RSPSUB(397,ODO2)
285	C !SPILL THE WORKS.
286	DO 42500 I=1,OLNT
287	C !SPILL CONTENTS.
288	IF(OCAN(I).NE.PRSO) GO TO 42500
289	C !INSIDE?
290	OFLAG2(I)=or(OFLAG2(I),TCHBT)
291	IF(AV.EQ.0) GO TO 42400
292	C !IN VEHICLE?
293	CALL NEWSTA(I,0,0,AV,0)
294	C !YES, SPILL IN THERE.
295	GO TO 42500
296	C
297	42400 CALL NEWSTA(I,0,HERE,0,0)
298	C !NO, SPILL ON FLOOR,
299	IF(I.EQ.WATER) CALL NEWSTA(I,133,0,0,0)
300	C !BUT WATER DISAPPEARS.
301	42500 CONTINUE
302	RETURN
303	C
304	C V122-- MOVE. MOSTLY JOKES.
305	C
306	43000 IF(OBJACT(X)) RETURN
307	C !OBJ HANDLE?
308	I=398
309	C !ASSUME NOT HERE.
310	IF(QHERE(PRSO,HERE)) I=399
311	CALL RSPSUB(I,ODO2)
312	C !JOKE.
313	RETURN
314	C VAPPLI, PAGE 6
315	C
316	C V123-- TURN ON.
317	C
318	44000 F=LIT(HERE)
319	C !RECORD IF LIT.
320	IF(OBJACT(X)) GO TO 44300
321	C !OBJ HANDLE?
322	IF((and(OFLAG1(PRSO),LITEBT).NE.0).AND.
323	& (OADV(PRSO).EQ.WINNER)) GO TO 44100
324	CALL RSPEAK(400)
325	C !CANT DO IT.
326	RETURN
327	C
328	44100 IF(and(OFLAG1(PRSO),ONBT).EQ.0) GO TO 44200
329	CALL RSPEAK(401)
330	C !ALREADY ON.
331	RETURN
332	C
333	44200 OFLAG1(PRSO)=or(OFLAG1(PRSO),ONBT)
334	CALL RSPSUB(404,ODO2)
335	44300 IF(.NOT.F .AND.LIT(HERE)) F=RMDESC(0)
336	C !ROOM NEWLY LIT.
337	RETURN
338	C
339	C V124-- TURN OFF.
340	C
341	45000 IF(OBJACT(X)) GO TO 45300
342	C !OBJ HANDLE?
343	IF((and(OFLAG1(PRSO),LITEBT).NE.0).AND.
344	& (OADV(PRSO).EQ.WINNER)) GO TO 45100
345	CALL RSPEAK(402)
346	C !CANT DO IT.
347	RETURN
348	C
349	45100 IF(and(OFLAG1(PRSO),ONBT).NE.0) GO TO 45200
350	CALL RSPEAK(403)
351	C !ALREADY OFF.
352	RETURN
353	C
354	45200 OFLAG1(PRSO)=and(OFLAG1(PRSO), not(ONBT))
355	CALL RSPSUB(405,ODO2)
356	45300 IF(.NOT.LIT(HERE)) CALL RSPEAK(406)
357	C !MAY BE DARK.
358	RETURN
359	C
360	C V125-- OPEN. A FINE MESS.
361	C
362	46000 IF(OBJACT(X)) RETURN
363	C !OBJ HANDLE?
364	IF(and(OFLAG1(PRSO),CONTBT).NE.0) GO TO 46100
365	46050 CALL RSPSUB(407,ODO2)
366	C !NOT OPENABLE.
367	RETURN
368	C
369	46100 IF(OCAPAC(PRSO).NE.0) GO TO 46200
370	CALL RSPSUB(408,ODO2)
371	C !NOT OPENABLE.
372	RETURN
373	C
374	46200 IF(.NOT.QOPEN(PRSO)) GO TO 46225
375	CALL RSPEAK(412)
376	C !ALREADY OPEN.
377	RETURN
378	C
379	46225 OFLAG2(PRSO)=or(OFLAG2(PRSO),OPENBT)
380	IF((and(OFLAG1(PRSO),TRANBT).NE.0).OR.QEMPTY(PRSO))
381	& GO TO 46300
382	CALL PRINCO(PRSO,410)
383	C !PRINT CONTENTS.
384	RETURN
385	C
386	46300 CALL RSPEAK(409)
387	C !DONE
388	RETURN
389	C
390	C V126-- CLOSE.
391	C
392	47000 IF(OBJACT(X)) RETURN
393	C !OBJ HANDLE?
394	IF(and(OFLAG1(PRSO),CONTBT).EQ.0) GO TO 46050
395	IF(OCAPAC(PRSO).NE.0) GO TO 47100
396	CALL RSPSUB(411,ODO2)
397	C !NOT CLOSABLE.
398	RETURN
399	C
400	47100 IF(QOPEN(PRSO)) GO TO 47200
401	C !OPEN?
402	CALL RSPEAK(413)
403	C !NO, JOKE.
404	RETURN
405	C
406	47200 OFLAG2(PRSO)=and(OFLAG2(PRSO), not(OPENBT))
407	CALL RSPEAK(414)
408	C !DONE.
409	RETURN
410	C VAPPLI, PAGE 7
411	C
412	C V127-- FIND. BIG MEGILLA.
413	C
414	48000 IF(OBJACT(X)) RETURN
415	C !OBJ HANDLE?
416	I=415
417	C !DEFAULT CASE.
418	IF(QHERE(PRSO,HERE)) GO TO 48300
419	C !IN ROOM?
420	IF(OADV(PRSO).EQ.WINNER) GO TO 48200
421	C !ON WINNER?
422	J=OCAN(PRSO)
423	C !DOWN ONE LEVEL.
424	IF(J.EQ.0) GO TO 10
425	IF(((and(OFLAG1(J),TRANBT).EQ.0).AND.
426	& (.NOT.QOPEN(J).OR.(and(OFLAG1(J),(DOORBT+CONTBT)).EQ.0))))
427	& GO TO 10
428	I=417
429	C !ASSUME IN ROOM.
430	IF(QHERE(J,HERE)) GO TO 48100
431	IF(OADV(J).NE.WINNER) GO TO 10
432	C !NOT HERE OR ON PERSON.
433	I=418
434	48100 CALL RSPSUB(I,ODESC2(J))
435	C !DESCRIBE FINDINGS.
436	RETURN
437	C
438	48200 I=416
439	48300 CALL RSPSUB(I,ODO2)
440	C !DESCRIBE FINDINGS.
441	RETURN
442	C
443	C V128-- WAIT. RUN CLOCK DEMON.
444	C
445	49000 CALL RSPEAK(419)
446	C !TIME PASSES.
447	DO 49100 I=1,3
448	IF(CLOCKD(X)) RETURN
449	49100 CONTINUE
450	RETURN
451	C
452	C V129-- SPIN.
453	C V159-- TURN TO.
454	C
455	50000 CONTINUE
456	88000 IF(.NOT.OBJACT(X)) CALL RSPEAK(663)
457	C !IF NOT OBJ, JOKE.
458	RETURN
459	C
460	C V130-- BOARD. WORKS WITH VEHICLES.
461	C
462	51000 IF(and(OFLAG2(PRSO),VEHBT).NE.0) GO TO 51100
463	CALL RSPSUB(421,ODO2)
464	C !NOT VEHICLE, JOKE.
465	RETURN
466	C
467	51100 IF(QHERE(PRSO,HERE)) GO TO 51200
468	C !HERE?
469	CALL RSPSUB(420,ODO2)
470	C !NO, JOKE.
471	RETURN
472	C
473	51200 IF(AV.EQ.0) GO TO 51300
474	C !ALREADY GOT ONE?
475	CALL RSPSUB(422,ODO2)
476	C !YES, JOKE.
477	RETURN
478	C
479	51300 IF(OBJACT(X)) RETURN
480	C !OBJ HANDLE?
481	CALL RSPSUB(423,ODO2)
482	C !DESCRIBE.
483	AVEHIC(WINNER)=PRSO
484	IF(WINNER.NE.PLAYER) OCAN(AOBJ(WINNER))=PRSO
485	RETURN
486	C
487	C V131-- DISEMBARK.
488	C
489	52000 IF(AV.EQ.PRSO) GO TO 52100
490	C !FROM VEHICLE?
491	CALL RSPEAK(424)
492	C !NO, JOKE.
493	RETURN
494	C
495	52100 IF(OBJACT(X)) RETURN
496	C !OBJ HANDLE?
497	IF(and(RFLAG(HERE),RLAND).NE.0) GO TO 52200
498	CALL RSPEAK(425)
499	C !NOT ON LAND.
500	RETURN
501	C
502	52200 AVEHIC(WINNER)=0
503	CALL RSPEAK(426)
504	IF(WINNER.NE.PLAYER) CALL NEWSTA(AOBJ(WINNER),0,HERE,0,0)
505	RETURN
506	C
507	C V132-- TAKE. HANDLED EXTERNALLY.
508	C
509	53000 VAPPLI=TAKE(.TRUE.)
510	RETURN
511	C
512	C V133-- INVENTORY. PROCESSED EXTERNALLY.
513	C
514	55000 CALL INVENT(WINNER)
515	RETURN
516	C VAPPLI, PAGE 8
517	C
518	C V134-- FILL. STRANGE DOINGS WITH WATER.
519	C
520	56000 IF(PRSI.NE.0) GO TO 56050
521	C !ANY OBJ SPECIFIED?
522	IF(and(RFLAG(HERE),(RWATER+RFILL)).NE.0) GO TO 56025
523	CALL RSPEAK(516)
524	C !NOTHING TO FILL WITH.
525	PRSWON=.FALSE.
526	C !YOU LOSE.
527	RETURN
528	C
529	56025 PRSI=GWATE
530	C !USE GLOBAL WATER.
531	56050 IF(OBJACT(X)) RETURN
532	C !OBJ HANDLE?
533	IF((PRSI.NE.GWATE).AND.(PRSI.NE.WATER))
534	& CALL RSPSB2(444,ODI2,ODO2)
535	RETURN
536	C
537	C V135,V136-- EAT/DRINK
538	C
539	58000 CONTINUE
540	59000 IF(OBJACT(X)) RETURN
541	C !OBJ HANDLE?
542	IF(PRSO.EQ.GWATE) GO TO 59500
543	C !DRINK GLOBAL WATER?
544	IF(.NOT.EDIBLE(PRSO)) GO TO 59400
545	C !EDIBLE?
546	IF(OADV(PRSO).EQ.WINNER) GO TO 59200
547	C !YES, ON WINNER?
548	59100 CALL RSPSUB(454,ODO2)
549	C !NOT ACCESSIBLE.
550	RETURN
551	C
552	59200 IF(PRSA.EQ.DRINKW) GO TO 59300
553	C !DRINK FOOD?
554	CALL NEWSTA(PRSO,455,0,0,0)
555	C !NO, IT DISAPPEARS.
556	RETURN
557	C
558	59300 CALL RSPEAK(456)
559	C !YES, JOKE.
560	RETURN
561	C
562	59400 IF(.NOT.DRKBLE(PRSO)) GO TO 59600
563	C !DRINKABLE?
564	IF(OCAN(PRSO).EQ.0) GO TO 59100
565	C !YES, IN SOMETHING?
566	IF(OADV(OCAN(PRSO)).NE.WINNER) GO TO 59100
567	IF(QOPEN(OCAN(PRSO))) GO TO 59500
568	C !CONT OPEN?
569	CALL RSPEAK(457)
570	C !NO, JOKE.
571	RETURN
572	C
573	59500 CALL NEWSTA(PRSO,458,0,0,0)
574	C !GONE.
575	RETURN
576	C
577	59600 CALL RSPSUB(453,ODO2)
578	C !NOT FOOD OR DRINK.
579	RETURN
580	C
581	C V137-- BURN. COMPLICATED.
582	C
583	60000 IF(and(OFLAG1(PRSI),(FLAMBT+LITEBT+ONBT)).NE.
584	& (FLAMBT+LITEBT+ONBT)) GO TO 60400
585	IF(OBJACT(X)) RETURN
586	C !OBJ HANDLE?
587	IF(OCAN(PRSO).NE.RECEP) GO TO 60050
588	C !BALLOON?
589	IF(OAPPLI(OACTIO(BALLO),0)) RETURN
590	C !DID IT HANDLE?
591	60050 IF(and(OFLAG1(PRSO),BURNBT).EQ.0) GO TO 60300
592	IF(OADV(PRSO).NE.WINNER) GO TO 60100
593	C !CARRYING IT?
594	CALL RSPSUB(459,ODO2)
595	CALL JIGSUP(460)
596	RETURN
597	C
598	60100 J=OCAN(PRSO)
599	C !GET CONTAINER.
600	IF(QHERE(PRSO,HERE).OR. ((AV.NE.0).AND.(J.EQ.AV)))
601	& GO TO 60200
602	IF(J.EQ.0) GO TO 60150
603	C !INSIDE?
604	IF(.NOT.QOPEN(J)) GO TO 60150
605	C !OPEN?
606	IF(QHERE(J,HERE).OR.((AV.NE.0).AND.(OCAN(J).EQ.AV)))
607	& GO TO 60200
608	60150 CALL RSPEAK(461)
609	C !CANT REACH IT.
610	RETURN
611	C
612	60200 CALL RSPSUB(462,ODO2)
613	C !BURN IT.
614	CALL NEWSTA(PRSO,0,0,0,0)
615	RETURN
616	C
617	60300 CALL RSPSUB(463,ODO2)
618	C !CANT BURN IT.
619	RETURN
620	C
621	60400 CALL RSPSUB(301,ODI2)
622	C !CANT BURN IT WITH THAT.
623	RETURN
624	C VAPPLI, PAGE 9
625	C
626	C V138-- MUNG. GO TO COMMON ATTACK CODE.
627	C
628	63000 I=466
629	C !CHOOSE PHRASE.
630	IF(and(OFLAG2(PRSO),VILLBT).NE.0) GO TO 66100
631	IF(.NOT.OBJACT(X)) CALL RSPSB2(466,ODO2,RMK)
632	RETURN
633	C
634	C V139-- KILL. GO TO COMMON ATTACK CODE.
635	C
636	64000 I=467
637	C !CHOOSE PHRASE.
638	GO TO 66100
639	C
640	C V140-- SWING. INVERT OBJECTS, FALL THRU TO ATTACK.
641	C
642	65000 J=PRSO
643	C !INVERT.
644	PRSO=PRSI
645	PRSI=J
646	J=ODO2
647	ODO2=ODI2
648	ODI2=J
649	PRSA=ATTACW
650	C !FOR OBJACT.
651	C
652	C V141-- ATTACK. FALL THRU TO ATTACK CODE.
653	C
654	66000 I=468
655	C
656	C COMMON MUNG/ATTACK/SWING/KILL CODE.
657	C
658	66100 IF(PRSO.NE.0) GO TO 66200
659	C !ANYTHING?
660	CALL RSPEAK(469)
661	C !NO, JOKE.
662	RETURN
663	C
664	66200 IF(OBJACT(X)) RETURN
665	C !OBJ HANDLE?
666	IF(and(OFLAG2(PRSO),VILLBT).NE.0) GO TO 66300
667	IF(and(OFLAG1(PRSO),VICTBT).EQ.0)
668	& CALL RSPSUB(470,ODO2)
669	RETURN
670	C
671	66300 J=471
672	C !ASSUME NO WEAPON.
673	IF(PRSI.EQ.0) GO TO 66500
674	IF(and(OFLAG2(PRSI),WEAPBT).EQ.0) GO TO 66400
675	MELEE=1
676	C !ASSUME SWORD.
677	IF(PRSI.NE.SWORD) MELEE=2
678	C !MUST BE KNIFE.
679	I=BLOW(PLAYER,PRSO,MELEE,.TRUE.,0)
680	C !STRIKE BLOW.
681	RETURN
682	C
683	66400 J=472
684	C !NOT A WEAPON.
685	66500 CALL RSPSB2(I,ODO2,J)
686	C !JOKE.
687	RETURN
688	C VAPPLI, PAGE 10
689	C
690	C V142-- WALK. PROCESSED EXTERNALLY.
691	C
692	68000 VAPPLI=WALK(X)
693	RETURN
694	C
695	C V143-- TELL. PROCESSED IN GAME.
696	C
697	69000 CALL RSPEAK(603)
698	RETURN
699	C
700	C V144-- PUT. PROCESSED EXTERNALLY.
701	C
702	70000 VAPPLI=PUT(.TRUE.)
703	RETURN
704	C
705	C V145,V146,V147,V148-- DROP/GIVE/POUR/THROW
706	C
707	71000 CONTINUE
708	72000 CONTINUE
709	73000 CONTINUE
710	74000 VAPPLI=DROP(.FALSE.)
711	RETURN
712	C
713	C V149-- SAVE
714	C
715	77000 IF(and(RFLAG(TSTRS),RSEEN).EQ.0) GO TO 77100
716	CALL RSPEAK(828)
717	C !NO SAVES IN ENDGAME.
718	RETURN
719	C
720	77100 CALL SAVEGM
721	RETURN
722	C
723	C V150-- RESTORE
724	C
725	#ifdef PDP
726	78000 call restor
727	#else
728	78000 IF(and(RFLAG(TSTRS),RSEEN).EQ.0) GO TO 78100
729	CALL RSPEAK(829)
730	C !NO RESTORES IN ENDGAME.
731	RETURN
732	C
733	78100 CALL RSTRGM
734	#endif PDP
735	RETURN
736	C VAPPLI, PAGE 11
737	C
738	C V151-- HELLO
739	C
740	80000 IF(PRSO.NE.0) GO TO 80100
741	C !ANY OBJ?
742	CALL RSPEAK(346+RND(4))
743	C !NO, VANILLA HELLO.
744	RETURN
745	C
746	80100 IF(PRSO.NE.AVIAT) GO TO 80200
747	C !HELLO AVIATOR?
748	CALL RSPEAK(350)
749	C !NOTHING HAPPENS.
750	RETURN
751	C
752	80200 IF(PRSO.NE.SAILO) GO TO 80300
753	C !HELLO SAILOR?
754	HS=HS+1
755	C !COUNT.
756	I=351
757	C !GIVE NORMAL OR
758	IF(MOD(HS,10).EQ.0) I=352
759	C !RANDOM MESSAGE.
760	IF(MOD(HS,20).EQ.0) I=353
761	CALL RSPEAK(I)
762	C !SPEAK UP.
763	RETURN
764	C
765	80300 IF(OBJACT(X)) RETURN
766	C !OBJ HANDLE?
767	I=354
768	C !ASSUME VILLAIN.
769	IF(and(OFLAG2(PRSO),(VILLBT+ACTRBT)).EQ.0) I=355
770	CALL RSPSUB(I,ODO2)
771	C !HELLO THERE
772	C !
773	RETURN
774	C
775	C V152-- LOOK INTO
776	C
777	81000 IF(OBJACT(X)) RETURN
778	C !OBJ HANDLE?
779	IF(and(OFLAG1(PRSO),DOORBT).EQ.0) GO TO 81300
780	IF(.NOT.QOPEN(PRSO)) GO TO 81200
781	C !OPEN?
782	CALL RSPSUB(628,ODO2)
783	C !OPEN DOOR- UNINTERESTING.
784	RETURN
785	C
786	81200 CALL RSPSUB(525,ODO2)
787	C !CLOSED DOOR- CANT SEE.
788	RETURN
789	C
790	81300 IF(and(OFLAG2(PRSO),VEHBT).NE.0) GO TO 81400
791	IF(QOPEN(PRSO).OR.(and(OFLAG1(PRSO),TRANBT).NE.0))
792	& GO TO 81400
793	IF(and(OFLAG1(PRSO),CONTBT).NE.0) GO TO 81200
794	CALL RSPSUB(630,ODO2)
795	C !CANT LOOK INSIDE.
796	RETURN
797	C
798	81400 IF(QEMPTY(PRSO)) GO TO 81500
799	C !VEH OR SEE IN. EMPTY?
800	CALL PRINCO(PRSO,573)
801	C !NO, LIST CONTENTS.
802	RETURN
803	C
804	81500 CALL RSPSUB(629,ODO2)
805	C !EMPTY.
806	RETURN
807	C
808	C V153-- LOOK UNDER
809	C
810	82000 IF(.NOT.OBJACT(X)) CALL RSPEAK(631)
811	C !OBJECT HANDLE?
812	RETURN
813	C VAPPLI, PAGE 12
814	C
815	C V154-- PUMP
816	C
817	83000 IF((OROOM(PUMP).EQ.HERE).OR.(OADV(PUMP).EQ.WINNER))
818	& GO TO 83100
819	CALL RSPEAK(632)
820	C !NO.
821	RETURN
822	C
823	83100 PRSI=PUMP
824	C !BECOMES INFLATE
825	PRSA=INFLAW
826	C !X WITH PUMP.
827	GO TO 22000
828	C !DONE.
829	C
830	C V155-- WIND
831	C
832	84000 IF(.NOT.OBJACT(X)) CALL RSPSUB(634,ODO2)
833	C !OBJ HANDLE?
834	RETURN
835	C
836	C V156-- CLIMB
837	C V157-- CLIMB UP
838	C V158-- CLIMB DOWN
839	C
840	85000 CONTINUE
841	86000 CONTINUE
842	87000 I=XUP
843	C !ASSUME UP.
844	IF(PRSA.EQ.CLMBDW) I=XDOWN
845	C !UNLESS CLIMB DN.
846	F=(and(OFLAG2(PRSO),CLMBBT)).NE.0
847	IF(F.AND.FINDXT(I,HERE)) GO TO 87500
848	C !ANYTHING TO CLIMB?
849	IF(OBJACT(X)) RETURN
850	C !OBJ HANDLE?
851	I=657
852	IF(F) I=524
853	C !VARIETY OF JOKES.
854	IF(.NOT.F .AND.((PRSO.EQ.WALL).OR.
855	& ((PRSO.GE.WNORT).AND.(PRSO.LE.WNORT+3))))
856	& I=656
857	CALL RSPEAK(I)
858	C !JOKE.
859	RETURN
860	C
861	87500 PRSA=WALKW
862	C !WALK
863	PRSO=I
864	C !IN SPECIFIED DIR.
865	VAPPLI=WALK(X)
866	RETURN
867	C
868	END
869	C CLOCKD- CLOCK DEMON FOR INTERMOVE CLOCK EVENTS
870	C
871	C DECLARATIONS
872	C
873	LOGICAL FUNCTION CLOCKD(X)
874	IMPLICIT INTEGER (A-Z)
875	C
876	C CLOCK INTERRUPTS
877	C
878	#include "clock.h"
879	C
880	CLOCKD=.FALSE.
881	C !ASSUME NO ACTION.
882	DO 100 I=1,CLNT
883	IF(.NOT.CFLAG(I) .OR.(CTICK(I).EQ.0)) GO TO 100
884	IF(CTICK(I).LT.0) GO TO 50
885	C !PERMANENT ENTRY?
886	CTICK(I)=CTICK(I)-1
887	IF(CTICK(I).NE.0) GO TO 100
888	C !TIMER EXPIRED?
889	50 CLOCKD=.TRUE.
890	CALL CEVAPP(CACTIO(I))
891	C !DO ACTION.
892	100 CONTINUE
893	RETURN
894	C
895	END