home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / twenty.ftn < prev    next >
Text File  |  1990-04-02  |  2KB  |  86 lines
  1.     SUBROUTINE TWENTY(INTMSG)
  2. C
  3. C    Display messages from zip
  4. C
  5. C    The bottom of the uses screen is broken up into 5 lines
  6. C    of 4 fields, i.e. 20 fields total. The possible messages
  7. C    are broken up into classes and are displayed and then
  8. C    cleared up later by the blanks entry point.
  9. C
  10. C    The absolute cursor positions are stored in two arrays
  11. C    which are subscripted with the field number, which goes
  12. C    from 1 to 20.
  13. C
  14. C    Layout for messages on screen bottom
  15. C
  16. C     1     4     3     2
  17. C     7     5    12    11
  18. C    15     8    10    14
  19. C     9    16    17    18
  20. C    13     6        19
  21. C
  22.     INTEGER*2 INTMSG
  23.  
  24.     GOTO (11001,11002,10001,11004,11005,11006,11007,11008,11009,
  25.      $    11010,11011,11012,11013,11014,10001,10001,11017,11018,11019,
  26.      $    11020,11021,11022,11023,11024,11025,11026,11027,11028,11029,
  27.      $    10001,11031,11032)INTMSG
  28.  
  29. 11001    CALL WRTMSG(1,'We are docked.     ')
  30.     GOTO 10001
  31. 11002    CALL WRTMSG(1,'* We hit a star!   ')
  32.     GOTO 10001
  33. 11004    CALL WRTMSG(2,'* Hit by torpedo!')
  34.     GOTO 10001
  35. 11005    CALL WRTMSG(3,'Torpedo hit alien.')
  36.     GOTO 10001
  37. 11006    CALL WRTMSG(4,'Phaser hit alien.')
  38.     GOTO 10001
  39. 11007    CALL WRTMSG(5,'Phaser hit torpedo.')
  40.     GOTO 10001
  41. 11008    CALL WRTMSG(6,'Phaser missed.')
  42.     GOTO 10001
  43. 11009    CALL WRTMSG(1,'* We rammed a ship!')
  44.     GOTO 10001
  45. 11010    CALL WRTMSG(7,'* Alien rammed us!')
  46.     GOTO 10001
  47. 11011    CALL WRTMSG(8,'Phaser hit on star.')
  48.     GOTO 10001
  49. 11012    CALL WRTMSG(9,'* Hit on star base!')
  50.     GOTO 10001
  51. 11013    CALL WRTMSG(10,'Torpedo hit star.')
  52.     GOTO 10001
  53. 11014    CALL WRTMSG(11,'* Phaser hit shield')
  54.     GOTO 10001
  55. 11017    CALL WRTMSG(1,'Hyperspace entered.')
  56.     GOTO 10001
  57. 11018    CALL WRTMSG(1,'Hyperspace blocked.')
  58.     GOTO 10001
  59. 11019    CALL WRTMSG(1,'Hit a space warp!  ')
  60.     GOTO 10001
  61. 11020    CALL WRTMSG(12,'Torpedo on torpedo.')
  62.     GOTO 10001
  63. 11021    CALL WRTMSG(13,'Hit on ghost ship.')
  64.     GOTO 10001
  65. 11022    CALL WRTMSG(14,'* Alien destroyed!')
  66.     GOTO 10001
  67. 11023    CALL WRTMSG(15,'Launch blocked.   ')
  68.     GOTO 10001
  69. 11024    CALL WRTMSG(15,'Pod was destroyed.')
  70.     GOTO 10001
  71. 11025    CALL WRTMSG(16,'Phaser hit on pod.')
  72.     GOTO 10001
  73. 11026    CALL WRTMSG(17,'Torpedo hit pod.')
  74.     GOTO 10001
  75. 11027    CALL WRTMSG(1,'* We rammed a pod! ')
  76.     GOTO 10001
  77. 11028    CALL WRTMSG(15,'Pod launched.     ')
  78.     GOTO 10001
  79. 11029    CALL WRTMSG(15,'Pod detonated.    ')
  80.     GOTO 10001
  81. 11031    CALL WRTMSG(18,'IIEEEEEE!')
  82.     GOTO 10001
  83. 11032    CALL WRTMSG(19,'* Hit our torpedo!')
  84. 10001    RETURN
  85.     END
  86.