SUBROUTINE TORP (WHO,L)
C
C      TORPEDO HANDLING FOR MTREK
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,OK,FBASE
	BYTE MESSAG,INITLS,CLRIT(2)
	DATA CLRIT/"33,'K'/
C
C
	CALL CPOS(L)
	IF (DOCKED(WHO)) GOTO 10130
	IF (IDAMGE(WHO,2).GT.0) WRITE (5,19000) CLRIT
19000	FORMAT (' Torpedoes out of operation',2A1)
	IF (IDAMGE(WHO,2).GT.0) RETURN
	IF (LAUNCH(WHO).GE.0) GO TO 10134
	IF (TORPS(WHO).LE.0) GO TO 10137
	WRITE(5,10140) CLRIT
10140	FORMAT ('$Torpedo ready, course ? ',2A1)
	CALL GETREL(VALUE,OK,0.,12.)
	IF (.NOT.OK) GO TO 10141
	IF (VALUE.LT.3) GO TO 10144
	VALUE=(15.-VALUE)*30.
	GO TO  10145
10144	VALUE=(3.-VALUE)*30.
10145	IF (CLON(WHO)) CLOAK(WHO)=.FALSE.
	LAUNCH(WHO)=VALUE
	TORPS(WHO)=TORPS(WHO)-1
	IF (TORPS(WHO).NE.0) GO TO 10147
	CALL CPOS(L)
	WRITE(5,10150) CLRIT
10150	FORMAT (' Torpedo room to bridge.',2A1)
	WRITE(5,10151) CLRIT
10151	FORMAT (20X,'This is our last torpedo sir.',2A1)
10147	CONTINUE
10141	CONTINUE
	GO TO  10138
10137	CONTINUE
	WRITE(5,10152) CLRIT
10152	FORMAT (' Captain, we are out of torpedoes',2A1)
10138	CONTINUE
	GO TO  10135
10134	CONTINUE
	WRITE(5,10153) CLRIT
10153	FORMAT (' Torpedo tubes not ready yet, Captain!',2A1)
	GOTO 10135
10130	WRITE (5,10131) CLRIT
10131	FORMAT (' We cannot fire while docked, sir',2A1)
10135	RETURN
	END