Searched defs:FIGHTD (Results 1 – 1 of 1) sorted by relevance
9 SUBROUTINE FIGHTD subroutine27 C FIGHTD, PAGE 2 argument55 2025 VPROB(I)=VPROB(I)+1060 2050 IF((and(OFLAG2(OBJ),FITEBT)).EQ.0) GO TO 210065 2100 IF(RA.EQ.0) GO TO 240092 C FIGHTD, PAGE 3 argument98 2600 DO 2700 I=1,VLNT112 2650 RES=BLOW(PLAYER,J,VMELEE(I),.FALSE.,OUT)118 2700 CONTINUE