SUBROUTINE CLOAKC(WHO,L,COMMND) C C CLOAKING FOR PLAYER 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'/ CHARACTER*2 COMMND C C IF (COMMND(1:1).EQ.'A') GOTO 10213 CALL CPOS(L) IF (CLON(WHO)) GO TO 10215 CLOAK(WHO)=.TRUE. CLON(WHO)=.TRUE. WRITE (5,10200) CLRIT 10200 FORMAT (' Cloaking device coming on now, captain',2A1) GO TO 10221 C 10215 WRITE (5,10201) CLRIT 10201 FORMAT (' But captain we are already cloaked ?!',2A1) GO TO 10221 C 10213 CALL CPOS(L) IF (.NOT.CLON(WHO)) GO TO 10220 CLOAK(WHO)=.FALSE. CLON(WHO)=.FALSE. WRITE (5,10214) CLRIT 10214 FORMAT (' Cloaking device deactivated',2A1) GO TO 10221 C 10220 WRITE (5,10222) CLRIT 10222 FORMAT (' But captain we are not cloaked !',2A1) C 10221 RETURN END