home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / EFPHSR.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  2.4 KB  |  37 lines
  1.  
  2.       SUBROUTINE EFPHSR                                                 1222
  3.  
  4. c    include 'tcommon.for'
  5.     %include tcommon.for
  6.  
  7. C     ...E FIRES P. HITS INSTANTANEOUS. AFFECTS ONLY R,K.               1245
  8.       CALL CHEKDG(4,IR)                                                 1246
  9.       IF(IR.EQ.1)GO TO 2350                                             1247
  10.       EFP(1)=0.                                                         1248
  11. C     ...STRENGTH DEPENDENT ON ANGLE AND DIST**2.                       1249
  12.       IF(KLNGNS.EQ.0)GO TO 2320                                         1250
  13. C     ...HIT ON KLINGONS                                                1251
  14.       DO 2310 J=1,KLNGNS                                                1252
  15.       IF(XKL(J,1).EQ.0.)GO TO 2310                                      1253
  16.       IF(J.GT.KLNGNS)GO TO 2320                                         1254
  17.       IF(ICNTL(J+1).EQ.1)GO TO 2310                                     1255
  18.       CALL EPHIT(XKL(J,1),XKL(J,2),XKL(J,7),XKLHIT,3,J)                 1256
  19. 2310  CONTINUE                                                          1257
  20. 2320  IF(NROM.EQ.0)GO TO 2340                                           1258
  21. C     ...HIT ON ROMULANS                                                1259
  22.       DO 2330 J=1,NROM                                                  1260
  23.       IF(XROM(J,1).EQ.0.)GO TO 2330                                     1261
  24.       IF(ICNTL(J+10).EQ.1)GO TO 2330                                    1262
  25.       CALL EPHIT(XROM(J,1),XROM(J,2),XROM(J,3),XRMHIT,4,J)              1263
  26. 2330  CONTINUE                                                          1264
  27.       GO TO 2340                                                        1265
  28. C     ...DAMAGE CONTROL FOR P. DELETE REQUESTED FIRING.                 1266
  29. 2350  EFP(1)=0.                                                         1267
  30.       PNRGY=0.                                                          1268
  31.       GO TO 2400                                                        1269
  32. 2340  ENERGY=ENERGY-EFP(3)                                              1270
  33.       PNRGY=0.                                                          1271
  34.       IF(ENERGY.LE.0.)CALL RATING(2)                                    1272
  35. 2400  RETURN                                                            1273
  36.       END                                                               1274
  37.