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

C FIGHTD- INTERMOVE FIGHT DEMON
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
	SUBROUTINE FIGHTD
	IMPLICIT INTEGER (A-Z)
	LOGICAL PROB,OAPPLI
#include "parser.h"
#include "gamestate.h"
#include "objects.h"
#include "oflags.h"
#include "oindex.h"
#include "villians.h"
#include "advers.h"
#include "verbs.h"
#include "flags.h"
C
	LOGICAL F
C
C FUNCTIONS AND DATA
C
	DATA ROUT/1/
C FIGHTD, PAGE 2
C
	DO 2400 I=1,VLNT
C						!LOOP THRU VILLAINS.
	  VOPPS(I)=0
C						!CLEAR OPPONENT SLOT.
	  OBJ=VILLNS(I)
C						!GET OBJECT NO.
	  RA=OACTIO(OBJ)
C						!GET HIS ACTION.
	  IF(HERE.NE.OROOM(OBJ)) GO TO 2200
C						!ADVENTURER STILL HERE?
	  IF((OBJ.EQ.THIEF).AND.THFENF) GO TO 2400
C						!THIEF ENGROSSED?
	  IF(OCAPAC(OBJ).GE.0) GO TO 2050
C						!YES, VILL AWAKE?
	  IF((VPROB(I).EQ.0).OR..NOT.PROB(VPROB(I),VPROB(I)))
&		GO TO 2025
	  OCAPAC(OBJ)=IABS(OCAPAC(OBJ))
	  VPROB(I)=0
	  IF(RA.EQ.0) GO TO 2400
C						!ANYTHING TO DO?
	  PRSA=INXW
C						!YES, WAKE HIM UP.
	  F=OAPPLI(RA,0)
	  GO TO 2400
C						!NOTHING ELSE HAPPENS.
C
2025	  VPROB(I)=VPROB(I)+10
C						!INCREASE WAKEUP PROB.
	  GO TO 2400
C						!NOTHING ELSE.
C
2050	  IF((and(OFLAG2(OBJ),FITEBT)).EQ.0) GO TO 2100
	  VOPPS(I)=OBJ
C						!FIGHTING, SET UP OPP.
	  GO TO 2400
C
2100	  IF(RA.EQ.0) GO TO 2400
C						!NOT FIGHTING,
	  PRSA=FRSTQW
C						!SET UP PROBABILITY
	  IF(.NOT.OAPPLI(RA,0)) GO TO 2400
C						!OF FIGHTING.
	  OFLAG2(OBJ)=or(OFLAG2(OBJ),FITEBT)
	  VOPPS(I)=OBJ
C						!SET UP OPP.
	  GO TO 2400
C
2200	  IF((and(OFLAG2(OBJ),FITEBT).EQ.0).OR.(RA.EQ.0))
&		GO TO 2300
	  PRSA=FIGHTW
C						!HAVE A FIGHT.
	  F=OAPPLI(RA,0)
2300	  IF(OBJ.EQ.THIEF) THFENF=.FALSE.
C						!TURN OFF ENGROSSED.
	  AFLAG(PLAYER)=and(AFLAG(PLAYER), not(ASTAG))
	  OFLAG2(OBJ)=and(OFLAG2(OBJ), not(STAGBT+FITEBT))
	  IF((OCAPAC(OBJ).GE.0).OR.(RA.EQ.0))
&		GO TO 2400
	  PRSA=INXW
C						!WAKE HIM UP.
	  F=OAPPLI(RA,0)
	  OCAPAC(OBJ)=IABS(OCAPAC(OBJ))
2400	CONTINUE
C FIGHTD, PAGE 3
C
C NOW DO ACTUAL COUNTERBLOWS.
C
	OUT=0
C						!ASSUME HERO OK.
2600	DO 2700 I=1,VLNT
C						!LOOP THRU OPPS.
	  J=VOPPS(I)
	  IF(J.EQ.0) GO TO 2700
C						!SLOT EMPTY?
	  PRSCON=1
C						!STOP CMD STREAM.
	  RA=OACTIO(J)
	  IF(RA.EQ.0) GO TO 2650
C						!VILLAIN ACTION?
	  PRSA=FIGHTW
C						!SEE IF
	  IF(OAPPLI(RA,0)) GO TO 2700
C						!SPECIAL ACTION.
2650	  RES=BLOW(PLAYER,J,VMELEE(I),.FALSE.,OUT)
C						!STRIKE BLOW.
	  IF(RES.LT.0) RETURN
C						!IF HERO DEAD, EXIT.
	  IF(RES.EQ.ROUT) OUT=2+RND(3)
C						!IF HERO OUT, SET FLG.
2700	CONTINUE
	OUT=OUT-1
C						!DECREMENT OUT COUNT.
	IF(OUT.GT.0) GO TO 2600
C						!IF STILL OUT, GO AGAIN.
	RETURN
C
	END
C BLOW- STRIKE BLOW
C
C DECLARATIONS
C
	INTEGER FUNCTION BLOW(H,V,RMK,HFLG,OUT)
	IMPLICIT INTEGER (A-Z)
	LOGICAL HFLG,OAPPLI,PROB
	INTEGER DEF1R(3),DEF2R(4),DEF3R(5)
	INTEGER RVECTR(66),RSTATE(45)
#include "gamestate.h"
#include "debug.h"
C
C PARSE VECTOR
C
	LOGICAL PRSWON
#include "parser.h"
C
C MISCELLANEOUS VARIABLES
C
	COMMON /STAR/ MBASE,STRBIT
#include "objects.h"
#include "oflags.h"
C
#include "clock.h"

#include "advers.h"
#include "verbs.h"
C
	LOGICAL F
C
C FUNCTIONS AND DATA
C
	DATA RMISS/0/,ROUT/1/,RKILL/2/,RLIGHT/3/
	DATA RSER/4/,RSTAG/5/,RLOSE/6/,RHES/7/,RSIT/8/
	DATA DEF1R/1,2,3/
	DATA DEF2R/13,23,24,25/
	DATA DEF3R/35,36,46,47,57/
C
	DATA RVECTR/0,0,0,0,5,5,1,1,2,2,2,2,
&		0,0,0,0,0,5,5,3,3,1,
&		0,0,0,5,5,3,3,3,1,2,2,2,
&		0,0,0,0,0,5,5,3,3,4,4,
&		0,0,0,5,5,3,3,3,4,4,4,
&		0,5,5,3,3,3,3,4,4,4/
	DATA RSTATE/5000,3005,3008,4011,3015,3018,1021,0,0,
&		5022,3027,3030,4033,3037,3040,1043,0,0,
&		4044,2048,4050,4054,5058,4063,4067,3071,1074,
&		4075,1079,4080,4084,4088,4092,4096,4100,1104,
&		4105,2109,4111,4115,4119,4123,4127,3131,3134/
C BLOW, PAGE 3
C
	RA=OACTIO(V)
C						!GET VILLAIN ACTION,
	DV=ODESC2(V)
C						!DESCRIPTION.
	BLOW=RMISS
C						!ASSUME NO RESULT.
#ifdef debug
	IF(DFLAG) PRINT 10,H,V,RMK,HFLG,OUT
#ifdef NOCC
10	FORMAT('BLOW 10-- ',3I7,L7,I7)
#else NOCC
10	FORMAT(' BLOW 10-- ',3I7,L7,I7)
#endif NOCC
#endif debug
	IF(.NOT.HFLG) GO TO 1000
C						!HERO STRIKING BLOW?
C
C HERO IS ATTACKER, VILLAIN IS DEFENDER.
C
	PBLOSE=10
C						!BAD LK PROB.
	OFLAG2(V)=or(OFLAG2(V),FITEBT)
	IF(and(AFLAG(H),ASTAG).EQ.0) GO TO 100
	CALL RSPEAK(591)
C						!YES, CANT FIGHT.
	AFLAG(H)=and(AFLAG(H), not(ASTAG))
	RETURN
C
100	ATT=FIGHTS(H,.TRUE.)
C						!GET HIS STRENGTH.
	OA=ATT
	DEF=VILSTR(V)
C						!GET VILL STRENGTH.
	OD=DEF
	DWEAP=0
C						!ASSUME NO WEAPON.
	DO 200 I=1,OLNT
C						!SEARCH VILLAIN.
	  IF((OCAN(I).EQ.V).AND.(and(OFLAG2(I),WEAPBT).NE.0))
&		DWEAP=I
200	CONTINUE
	IF(V.EQ.AOBJ(PLAYER)) GO TO 300
C						!KILLING SELF?
	IF(DEF.NE.0) GO TO 2000
C						!DEFENDER ALIVE?
	CALL RSPSUB(592,DV)
C						!VILLAIN DEAD.
	RETURN
C
300	CALL JIGSUP(593)
C						!KILLING SELF.
	RETURN
C
C VILLAIN IS ATTACKER, HERO IS DEFENDER.
C
1000	PBLOSE=50
C						!BAD LK PROB.
	AFLAG(H)=and(AFLAG(H),not(ASTAG))
	IF(and(OFLAG2(V),STAGBT).EQ.0) GO TO 1200
	OFLAG2(V)=and(OFLAG2(V), not(STAGBT))
	CALL RSPSUB(594,DV)
C						!DESCRIBE.
	RETURN
C
1200	ATT=VILSTR(V)
C						!SET UP ATT, DEF.
	OA=ATT
	DEF=FIGHTS(H,.TRUE.)
	IF(DEF.LE.0) RETURN
C						!DONT ALLOW DEAD DEF.
	OD=FIGHTS(H,.FALSE.)
	DWEAP=IABS(FWIM(0,WEAPBT,0,0,H,.TRUE.))
C						!FIND A WEAPON.
C BLOW, PAGE 4
C
C PARTIES ARE NOW EQUIPPED.  DEF CANNOT BE ZERO.
C ATT MUST BE > 0.
C
2000	CONTINUE
#ifdef debug
	IF(DFLAG) PRINT 2050,ATT,OA,DEF,OD,DWEAP
#ifdef NOCC
2050	FORMAT('BLOW 2050-- ',5I7)
#else NOCC
2050	FORMAT(' BLOW 2050-- ',5I7)
#endif NOCC
#endif debug
	IF(DEF.GT.0) GO TO 2100
C						!DEF ALIVE?
	RES=RKILL
	IF(HFLG) CALL RSPSUB(595,DV)
C						!DEADER.
	GO TO 3000
C
2100	IF(DEF-2) 2200,2300,2400
C						!DEF <2,=2,>2
2200	ATT=MIN0(ATT,3)
C						!SCALE ATT.
	TBL=DEF1R(ATT)
C						!CHOOSE TABLE.
	GO TO 2500
C
2300	ATT=MIN0(ATT,4)
C						!SCALE ATT.
	TBL=DEF2R(ATT)
C						!CHOOSE TABLE.
	GO TO 2500
C
2400	ATT=ATT-DEF
C						!SCALE ATT.
	ATT=MIN0(2,MAX0(-2,ATT))+3
	TBL=DEF3R(ATT)
C
2500	RES=RVECTR(TBL+RND(10))
C						!GET RESULT.
	IF(OUT.EQ.0) GO TO 2600
C						!WAS HE OUT?
	IF(RES.EQ.RSTAG) GO TO 2550
C						!YES, STAG--> HES.
	RES=RSIT
C						!OTHERWISE, SITTING.
	GO TO 2600
2550	RES=RHES
2600	IF((RES.EQ.RSTAG).AND.(DWEAP.NE.0).AND.PROB(25,PBLOSE))
&		RES=RLOSE
C
	MI=RSTATE(((RMK-1)*9)+RES+1)
C						!CHOOSE TABLE ENTRY.
	IF(MI.EQ.0) GO TO 3000
	I=(MOD(MI,1000)+RND(MI/1000))+MBASE+1
	J=DV
	IF(.NOT.HFLG .AND.(DWEAP.NE.0)) J=ODESC2(DWEAP)
#ifdef debug
	IF(DFLAG) PRINT 2650,RES,MI,I,J,MBASE
#ifdef NOCC
2650	FORMAT('BLOW 2650-- ',5I7)
#else NOCC
2650	FORMAT(' BLOW 2650-- ',5I7)
#endif NOCC
#endif debug
	CALL RSPSUB(I,J)
C						!PRESENT RESULT.
C BLOW, PAGE 5
C
C NOW APPLY RESULT
C
3000	GO TO (4000,3100,3200,3300,3400,3500,3600,4000,3200),RES+1
C
3100	IF(HFLG) DEF=-DEF
C						!UNCONSCIOUS.
	GO TO 4000
C
3200	DEF=0
C						!KILLED OR SITTING DUCK.
	GO TO 4000
C
3300	DEF=MAX0(0,DEF-1)
C						!LIGHT WOUND.
	GO TO 4000
C
3400	DEF=MAX0(0,DEF-2)
C						!SERIOUS WOUND.
	GO TO 4000
C
3500	IF(HFLG) GO TO 3550
C						!STAGGERED.
	AFLAG(H)=or(AFLAG(H),ASTAG)
	GO TO 4000
C
3550	OFLAG2(V)=or(OFLAG2(V),STAGBT)
	GO TO 4000
C
3600	CALL NEWSTA(DWEAP,0,HERE,0,0)
C						!LOSE WEAPON.
	DWEAP=0
	IF(HFLG) GO TO 4000
C						!IF HERO, DONE.
	DWEAP=IABS(FWIM(0,WEAPBT,0,0,H,.TRUE.))
C						!GET NEW.
	IF(DWEAP.NE.0) CALL RSPSUB(605,ODESC2(DWEAP))
C BLOW, PAGE 6
C
4000	BLOW=RES
C						!RETURN RESULT.
	IF(.NOT.HFLG) GO TO 4500
C						!HERO?
	OCAPAC(V)=DEF
C						!STORE NEW CAPACITY.
	IF(DEF.NE.0) GO TO 4100
C						!DEAD?
	OFLAG2(V)=and(OFLAG2(V), not(FITEBT))
	CALL RSPSUB(572,DV)
C						!HE DIES.
	CALL NEWSTA(V,0,0,0,0)
C						!MAKE HIM DISAPPEAR.
	IF(RA.EQ.0) RETURN
C						!IF NX TO DO, EXIT.
	PRSA=DEADXW
C						!LET HIM KNOW.
	F=OAPPLI(RA,0)
	RETURN
C
4100	IF((RES.NE.ROUT).OR.(RA.EQ.0)) RETURN
	PRSA=OUTXW
C						!LET HIM BE OUT.
	F=OAPPLI(RA,0)
	RETURN
C
4500	ASTREN(H)=-10000
C						!ASSUME DEAD.
	IF(DEF.NE.0) ASTREN(H)=DEF-OD
	IF(DEF.GE.OD) GO TO 4600
	CTICK(CEVCUR)=30
	CFLAG(CEVCUR)=.TRUE.
4600	IF(FIGHTS(H,.TRUE.).GT.0) RETURN
	ASTREN(H)=1-FIGHTS(H,.FALSE.)
C						!HE'S DEAD.
	CALL JIGSUP(596)
	BLOW=-1
	RETURN
C
	END
C SWORDD- SWORD INTERMOVE DEMON
C
C DECLARATIONS
C
	SUBROUTINE SWORDD
	IMPLICIT INTEGER(A-Z)
	LOGICAL INFEST,FINDXT
#include "gamestate.h"
#include "curxt.h"
#include "xsrch.h"
#include "objects.h"
#include "oindex.h"
#include "villians.h"
#include "advers.h"
C SWORDD, PAGE 2
C
	IF(OADV(SWORD).NE.PLAYER) GO TO 500
C						!HOLDING SWORD?
	NG=2
C						!ASSUME VILL CLOSE.
	IF(INFEST(HERE)) GO TO 300
C						!VILL HERE?
	NG=1
	DO 200 I=XMIN,XMAX,XMIN
C						!NO, SEARCH ROOMS.
	  IF(.NOT.FINDXT(I,HERE)) GO TO 200
C						!ROOM THAT WAY?
	  GO TO (50,200,50,50),XTYPE
C						!SEE IF ROOM AT ALL.
50	  IF(INFEST(XROOM1)) GO TO 300
C						!CHECK ROOM.
200	CONTINUE
	NG=0
C						!NO GLOW.
C
300	IF(NG.EQ.SWDSTA) RETURN
C						!ANY STATE CHANGE?
	CALL RSPEAK(NG+495)
C						!YES, TELL NEW STATE.
	SWDSTA=NG
	RETURN
C
500	SWDACT=.FALSE.
C						!DROPPED SWORD,
	RETURN
C						!DISABLE DEMON.
	END
C INFEST-	SUBROUTINE TO TEST FOR INFESTED ROOM
C
C DECLARATIONS
C
	LOGICAL FUNCTION INFEST(R)
	IMPLICIT INTEGER(A-Z)
C
C ROOMS
#include "rindex.h"
#include "objects.h"
#include "oindex.h"
#include "villians.h"
#include "flags.h"
C
	IF(.NOT.ENDGMF) INFEST=(OROOM(CYCLO).EQ.R).OR.
&		(OROOM(TROLL).EQ.R).OR.
&		((OROOM(THIEF).EQ.R).AND.THFACT)
	IF(ENDGMF) INFEST=(R.EQ.MRG).OR.(R.EQ.MRGE).OR.
&		(R.EQ.MRGW).OR.
&		((R.EQ.INMIR).AND.(MLOC.EQ.MRG))
	RETURN
	END
Commit	Line	Data
8b22683c KB	1	C FIGHTD- INTERMOVE FIGHT DEMON
	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	SUBROUTINE FIGHTD
	10	IMPLICIT INTEGER (A-Z)
	11	LOGICAL PROB,OAPPLI
	12	#include "parser.h"
	13	#include "gamestate.h"
	14	#include "objects.h"
	15	#include "oflags.h"
	16	#include "oindex.h"
	17	#include "villians.h"
	18	#include "advers.h"
	19	#include "verbs.h"
	20	#include "flags.h"
	21	C
	22	LOGICAL F
	23	C
	24	C FUNCTIONS AND DATA
	25	C
	26	DATA ROUT/1/
	27	C FIGHTD, PAGE 2
	28	C
	29	DO 2400 I=1,VLNT
	30	C !LOOP THRU VILLAINS.
	31	VOPPS(I)=0
	32	C !CLEAR OPPONENT SLOT.
	33	OBJ=VILLNS(I)
	34	C !GET OBJECT NO.
	35	RA=OACTIO(OBJ)
	36	C !GET HIS ACTION.
	37	IF(HERE.NE.OROOM(OBJ)) GO TO 2200
	38	C !ADVENTURER STILL HERE?
	39	IF((OBJ.EQ.THIEF).AND.THFENF) GO TO 2400
	40	C !THIEF ENGROSSED?
	41	IF(OCAPAC(OBJ).GE.0) GO TO 2050
	42	C !YES, VILL AWAKE?
	43	IF((VPROB(I).EQ.0).OR..NOT.PROB(VPROB(I),VPROB(I)))
	44	& GO TO 2025
	45	OCAPAC(OBJ)=IABS(OCAPAC(OBJ))
	46	VPROB(I)=0
	47	IF(RA.EQ.0) GO TO 2400
	48	C !ANYTHING TO DO?
	49	PRSA=INXW
	50	C !YES, WAKE HIM UP.
	51	F=OAPPLI(RA,0)
	52	GO TO 2400
	53	C !NOTHING ELSE HAPPENS.
	54	C
	55	2025 VPROB(I)=VPROB(I)+10
	56	C !INCREASE WAKEUP PROB.
	57	GO TO 2400
	58	C !NOTHING ELSE.
	59	C
	60	2050 IF((and(OFLAG2(OBJ),FITEBT)).EQ.0) GO TO 2100
	61	VOPPS(I)=OBJ
	62	C !FIGHTING, SET UP OPP.
	63	GO TO 2400
	64	C
65	2100 IF(RA.EQ.0) GO TO 2400
66	C !NOT FIGHTING,
67	PRSA=FRSTQW
68	C !SET UP PROBABILITY
69	IF(.NOT.OAPPLI(RA,0)) GO TO 2400
70	C !OF FIGHTING.
71	OFLAG2(OBJ)=or(OFLAG2(OBJ),FITEBT)
72	VOPPS(I)=OBJ
73	C !SET UP OPP.
74	GO TO 2400
75	C
76	2200 IF((and(OFLAG2(OBJ),FITEBT).EQ.0).OR.(RA.EQ.0))
77	& GO TO 2300
78	PRSA=FIGHTW
79	C !HAVE A FIGHT.
80	F=OAPPLI(RA,0)
81	2300 IF(OBJ.EQ.THIEF) THFENF=.FALSE.
82	C !TURN OFF ENGROSSED.
83	AFLAG(PLAYER)=and(AFLAG(PLAYER), not(ASTAG))
84	OFLAG2(OBJ)=and(OFLAG2(OBJ), not(STAGBT+FITEBT))
85	IF((OCAPAC(OBJ).GE.0).OR.(RA.EQ.0))
86	& GO TO 2400
87	PRSA=INXW
88	C !WAKE HIM UP.
89	F=OAPPLI(RA,0)
90	OCAPAC(OBJ)=IABS(OCAPAC(OBJ))
91	2400 CONTINUE
92	C FIGHTD, PAGE 3
93	C
94	C NOW DO ACTUAL COUNTERBLOWS.
95	C
96	OUT=0
97	C !ASSUME HERO OK.
98	2600 DO 2700 I=1,VLNT
99	C !LOOP THRU OPPS.
100	J=VOPPS(I)
101	IF(J.EQ.0) GO TO 2700
102	C !SLOT EMPTY?
103	PRSCON=1
104	C !STOP CMD STREAM.
105	RA=OACTIO(J)
106	IF(RA.EQ.0) GO TO 2650
107	C !VILLAIN ACTION?
108	PRSA=FIGHTW
109	C !SEE IF
110	IF(OAPPLI(RA,0)) GO TO 2700
111	C !SPECIAL ACTION.
112	2650 RES=BLOW(PLAYER,J,VMELEE(I),.FALSE.,OUT)
113	C !STRIKE BLOW.
114	IF(RES.LT.0) RETURN
115	C !IF HERO DEAD, EXIT.
116	IF(RES.EQ.ROUT) OUT=2+RND(3)
117	C !IF HERO OUT, SET FLG.
118	2700 CONTINUE
119	OUT=OUT-1
120	C !DECREMENT OUT COUNT.
121	IF(OUT.GT.0) GO TO 2600
122	C !IF STILL OUT, GO AGAIN.
123	RETURN
124	C
125	END
126	C BLOW- STRIKE BLOW
127	C
128	C DECLARATIONS
129	C
130	INTEGER FUNCTION BLOW(H,V,RMK,HFLG,OUT)
131	IMPLICIT INTEGER (A-Z)
132	LOGICAL HFLG,OAPPLI,PROB
133	INTEGER DEF1R(3),DEF2R(4),DEF3R(5)
134	INTEGER RVECTR(66),RSTATE(45)
135	#include "gamestate.h"
136	#include "debug.h"
137	C
138	C PARSE VECTOR
139	C
140	LOGICAL PRSWON
141	#include "parser.h"
142	C
143	C MISCELLANEOUS VARIABLES
144	C
145	COMMON /STAR/ MBASE,STRBIT
146	#include "objects.h"
147	#include "oflags.h"
148	C
149	#include "clock.h"
150
151	#include "advers.h"
152	#include "verbs.h"
153	C
154	LOGICAL F
155	C
156	C FUNCTIONS AND DATA
157	C
158	DATA RMISS/0/,ROUT/1/,RKILL/2/,RLIGHT/3/
159	DATA RSER/4/,RSTAG/5/,RLOSE/6/,RHES/7/,RSIT/8/
160	DATA DEF1R/1,2,3/
161	DATA DEF2R/13,23,24,25/
162	DATA DEF3R/35,36,46,47,57/
163	C
164	DATA RVECTR/0,0,0,0,5,5,1,1,2,2,2,2,
165	& 0,0,0,0,0,5,5,3,3,1,
166	& 0,0,0,5,5,3,3,3,1,2,2,2,
167	& 0,0,0,0,0,5,5,3,3,4,4,
168	& 0,0,0,5,5,3,3,3,4,4,4,
169	& 0,5,5,3,3,3,3,4,4,4/
170	DATA RSTATE/5000,3005,3008,4011,3015,3018,1021,0,0,
171	& 5022,3027,3030,4033,3037,3040,1043,0,0,
172	& 4044,2048,4050,4054,5058,4063,4067,3071,1074,
173	& 4075,1079,4080,4084,4088,4092,4096,4100,1104,
174	& 4105,2109,4111,4115,4119,4123,4127,3131,3134/
175	C BLOW, PAGE 3
176	C
177	RA=OACTIO(V)
178	C !GET VILLAIN ACTION,
179	DV=ODESC2(V)
180	C !DESCRIPTION.
181	BLOW=RMISS
182	C !ASSUME NO RESULT.
183	#ifdef debug
184	IF(DFLAG) PRINT 10,H,V,RMK,HFLG,OUT
185	#ifdef NOCC
186	10 FORMAT('BLOW 10-- ',3I7,L7,I7)
187	#else NOCC
188	10 FORMAT(' BLOW 10-- ',3I7,L7,I7)
189	#endif NOCC
190	#endif debug
191	IF(.NOT.HFLG) GO TO 1000
192	C !HERO STRIKING BLOW?
193	C
194	C HERO IS ATTACKER, VILLAIN IS DEFENDER.
195	C
196	PBLOSE=10
197	C !BAD LK PROB.
198	OFLAG2(V)=or(OFLAG2(V),FITEBT)
199	IF(and(AFLAG(H),ASTAG).EQ.0) GO TO 100
200	CALL RSPEAK(591)
201	C !YES, CANT FIGHT.
202	AFLAG(H)=and(AFLAG(H), not(ASTAG))
203	RETURN
204	C
205	100 ATT=FIGHTS(H,.TRUE.)
206	C !GET HIS STRENGTH.
207	OA=ATT
208	DEF=VILSTR(V)
209	C !GET VILL STRENGTH.
210	OD=DEF
211	DWEAP=0
212	C !ASSUME NO WEAPON.
213	DO 200 I=1,OLNT
214	C !SEARCH VILLAIN.
215	IF((OCAN(I).EQ.V).AND.(and(OFLAG2(I),WEAPBT).NE.0))
216	& DWEAP=I
217	200 CONTINUE
218	IF(V.EQ.AOBJ(PLAYER)) GO TO 300
219	C !KILLING SELF?
220	IF(DEF.NE.0) GO TO 2000
221	C !DEFENDER ALIVE?
222	CALL RSPSUB(592,DV)
223	C !VILLAIN DEAD.
224	RETURN
225	C
226	300 CALL JIGSUP(593)
227	C !KILLING SELF.
228	RETURN
229	C
230	C VILLAIN IS ATTACKER, HERO IS DEFENDER.
231	C
232	1000 PBLOSE=50
233	C !BAD LK PROB.
234	AFLAG(H)=and(AFLAG(H),not(ASTAG))
235	IF(and(OFLAG2(V),STAGBT).EQ.0) GO TO 1200
236	OFLAG2(V)=and(OFLAG2(V), not(STAGBT))
237	CALL RSPSUB(594,DV)
238	C !DESCRIBE.
239	RETURN
240	C
241	1200 ATT=VILSTR(V)
242	C !SET UP ATT, DEF.
243	OA=ATT
244	DEF=FIGHTS(H,.TRUE.)
245	IF(DEF.LE.0) RETURN
246	C !DONT ALLOW DEAD DEF.
247	OD=FIGHTS(H,.FALSE.)
248	DWEAP=IABS(FWIM(0,WEAPBT,0,0,H,.TRUE.))
249	C !FIND A WEAPON.
250	C BLOW, PAGE 4
251	C
252	C PARTIES ARE NOW EQUIPPED. DEF CANNOT BE ZERO.
253	C ATT MUST BE > 0.
254	C
255	2000 CONTINUE
256	#ifdef debug
257	IF(DFLAG) PRINT 2050,ATT,OA,DEF,OD,DWEAP
258	#ifdef NOCC
259	2050 FORMAT('BLOW 2050-- ',5I7)
260	#else NOCC
261	2050 FORMAT(' BLOW 2050-- ',5I7)
262	#endif NOCC
263	#endif debug
264	IF(DEF.GT.0) GO TO 2100
265	C !DEF ALIVE?
266	RES=RKILL
267	IF(HFLG) CALL RSPSUB(595,DV)
268	C !DEADER.
269	GO TO 3000
270	C
271	2100 IF(DEF-2) 2200,2300,2400
272	C !DEF <2,=2,>2
273	2200 ATT=MIN0(ATT,3)
274	C !SCALE ATT.
275	TBL=DEF1R(ATT)
276	C !CHOOSE TABLE.
277	GO TO 2500
278	C
279	2300 ATT=MIN0(ATT,4)
280	C !SCALE ATT.
281	TBL=DEF2R(ATT)
282	C !CHOOSE TABLE.
283	GO TO 2500
284	C
285	2400 ATT=ATT-DEF
286	C !SCALE ATT.
287	ATT=MIN0(2,MAX0(-2,ATT))+3
288	TBL=DEF3R(ATT)
289	C
290	2500 RES=RVECTR(TBL+RND(10))
291	C !GET RESULT.
292	IF(OUT.EQ.0) GO TO 2600
293	C !WAS HE OUT?
294	IF(RES.EQ.RSTAG) GO TO 2550
295	C !YES, STAG--> HES.
296	RES=RSIT
297	C !OTHERWISE, SITTING.
298	GO TO 2600
299	2550 RES=RHES
300	2600 IF((RES.EQ.RSTAG).AND.(DWEAP.NE.0).AND.PROB(25,PBLOSE))
301	& RES=RLOSE
302	C
303	MI=RSTATE(((RMK-1)*9)+RES+1)
304	C !CHOOSE TABLE ENTRY.
305	IF(MI.EQ.0) GO TO 3000
306	I=(MOD(MI,1000)+RND(MI/1000))+MBASE+1
307	J=DV
308	IF(.NOT.HFLG .AND.(DWEAP.NE.0)) J=ODESC2(DWEAP)
309	#ifdef debug
310	IF(DFLAG) PRINT 2650,RES,MI,I,J,MBASE
311	#ifdef NOCC
312	2650 FORMAT('BLOW 2650-- ',5I7)
313	#else NOCC
314	2650 FORMAT(' BLOW 2650-- ',5I7)
315	#endif NOCC
316	#endif debug
317	CALL RSPSUB(I,J)
318	C !PRESENT RESULT.
319	C BLOW, PAGE 5
320	C
321	C NOW APPLY RESULT
322	C
323	3000 GO TO (4000,3100,3200,3300,3400,3500,3600,4000,3200),RES+1
324	C
325	3100 IF(HFLG) DEF=-DEF
326	C !UNCONSCIOUS.
327	GO TO 4000
328	C
329	3200 DEF=0
330	C !KILLED OR SITTING DUCK.
331	GO TO 4000
332	C
333	3300 DEF=MAX0(0,DEF-1)
334	C !LIGHT WOUND.
335	GO TO 4000
336	C
337	3400 DEF=MAX0(0,DEF-2)
338	C !SERIOUS WOUND.
339	GO TO 4000
340	C
341	3500 IF(HFLG) GO TO 3550
342	C !STAGGERED.
343	AFLAG(H)=or(AFLAG(H),ASTAG)
344	GO TO 4000
345	C
346	3550 OFLAG2(V)=or(OFLAG2(V),STAGBT)
347	GO TO 4000
348	C
349	3600 CALL NEWSTA(DWEAP,0,HERE,0,0)
350	C !LOSE WEAPON.
351	DWEAP=0
352	IF(HFLG) GO TO 4000
353	C !IF HERO, DONE.
354	DWEAP=IABS(FWIM(0,WEAPBT,0,0,H,.TRUE.))
355	C !GET NEW.
356	IF(DWEAP.NE.0) CALL RSPSUB(605,ODESC2(DWEAP))
357	C BLOW, PAGE 6
358	C
359	4000 BLOW=RES
360	C !RETURN RESULT.
361	IF(.NOT.HFLG) GO TO 4500
362	C !HERO?
363	OCAPAC(V)=DEF
364	C !STORE NEW CAPACITY.
365	IF(DEF.NE.0) GO TO 4100
366	C !DEAD?
367	OFLAG2(V)=and(OFLAG2(V), not(FITEBT))
368	CALL RSPSUB(572,DV)
369	C !HE DIES.
370	CALL NEWSTA(V,0,0,0,0)
371	C !MAKE HIM DISAPPEAR.
372	IF(RA.EQ.0) RETURN
373	C !IF NX TO DO, EXIT.
374	PRSA=DEADXW
375	C !LET HIM KNOW.
376	F=OAPPLI(RA,0)
377	RETURN
378	C
379	4100 IF((RES.NE.ROUT).OR.(RA.EQ.0)) RETURN
380	PRSA=OUTXW
381	C !LET HIM BE OUT.
382	F=OAPPLI(RA,0)
383	RETURN
384	C
385	4500 ASTREN(H)=-10000
386	C !ASSUME DEAD.
387	IF(DEF.NE.0) ASTREN(H)=DEF-OD
388	IF(DEF.GE.OD) GO TO 4600
389	CTICK(CEVCUR)=30
390	CFLAG(CEVCUR)=.TRUE.
391	4600 IF(FIGHTS(H,.TRUE.).GT.0) RETURN
392	ASTREN(H)=1-FIGHTS(H,.FALSE.)
393	C !HE'S DEAD.
394	CALL JIGSUP(596)
395	BLOW=-1
396	RETURN
397	C
398	END
399	C SWORDD- SWORD INTERMOVE DEMON
400	C
401	C DECLARATIONS
402	C
403	SUBROUTINE SWORDD
404	IMPLICIT INTEGER(A-Z)
405	LOGICAL INFEST,FINDXT
406	#include "gamestate.h"
407	#include "curxt.h"
408	#include "xsrch.h"
409	#include "objects.h"
410	#include "oindex.h"
411	#include "villians.h"
412	#include "advers.h"
413	C SWORDD, PAGE 2
414	C
415	IF(OADV(SWORD).NE.PLAYER) GO TO 500
416	C !HOLDING SWORD?
417	NG=2
418	C !ASSUME VILL CLOSE.
419	IF(INFEST(HERE)) GO TO 300
420	C !VILL HERE?
421	NG=1
422	DO 200 I=XMIN,XMAX,XMIN
423	C !NO, SEARCH ROOMS.
424	IF(.NOT.FINDXT(I,HERE)) GO TO 200
425	C !ROOM THAT WAY?
426	GO TO (50,200,50,50),XTYPE
427	C !SEE IF ROOM AT ALL.
428	50 IF(INFEST(XROOM1)) GO TO 300
429	C !CHECK ROOM.
430	200 CONTINUE
431	NG=0
432	C !NO GLOW.
433	C
434	300 IF(NG.EQ.SWDSTA) RETURN
435	C !ANY STATE CHANGE?
436	CALL RSPEAK(NG+495)
437	C !YES, TELL NEW STATE.
438	SWDSTA=NG
439	RETURN
440	C
441	500 SWDACT=.FALSE.
442	C !DROPPED SWORD,
443	RETURN
444	C !DISABLE DEMON.
445	END
446	C INFEST- SUBROUTINE TO TEST FOR INFESTED ROOM
447	C
448	C DECLARATIONS
449	C
450	LOGICAL FUNCTION INFEST(R)
451	IMPLICIT INTEGER(A-Z)
452	C
453	C ROOMS
454	#include "rindex.h"
455	#include "objects.h"
456	#include "oindex.h"
457	#include "villians.h"
458	#include "flags.h"
459	C
460	IF(.NOT.ENDGMF) INFEST=(OROOM(CYCLO).EQ.R).OR.
461	& (OROOM(TROLL).EQ.R).OR.
462	& ((OROOM(THIEF).EQ.R).AND.THFACT)
463	IF(ENDGMF) INFEST=(R.EQ.MRG).OR.(R.EQ.MRGE).OR.
464	& (R.EQ.MRGW).OR.
465	& ((R.EQ.INMIR).AND.(MLOC.EQ.MRG))
466	RETURN
467	END