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 / longer.ftn < prev    next >
Text File  |  1990-04-02  |  2KB  |  86 lines
  1.     SUBROUTINE LONGER(INTMSG)
  2. C
  3. C    Output some of the longer messages
  4. C
  5.     INCLUDE 'LEDFOR.COM/-LI'
  6.     INCLUDE 'PLAYER.COM/-LI'
  7.     INCLUDE 'BUFFER.COM/-LI'
  8.     BYTE VALID,BANG(12),EOL(2)
  9.     DATA EOL/"15,"12/
  10.     DATA BANG/12*"12/
  11.  
  12.     IF((INTMSG.LE.0).OR.(INTMSG.GT.32))GOTO 10005
  13.     IF(INTMSG.EQ.3)GOTO 11003
  14.     CALL WRITE(24,1,0)
  15.     CALL FILL(7,1)
  16.     IF(INTMSG.EQ.15)GOTO 11015
  17.     IF(INTMSG.EQ.16)GOTO 11016
  18.     IF(INTMSG.EQ.30)GOTO 11030
  19. C
  20. C    Bad message number
  21. C
  22. 10005    CALL WRITE(24,21,0)
  23.     CALL FILL(7,1)
  24.     ENCODE(20,10010,IBUF)INTMSG
  25. 10010    FORMAT('Message number',I5,'.')
  26.     CALL FILL(IBUF,20)
  27.     GOTO 10000
  28. C
  29. C    Message 3: BOOM
  30. C
  31. 11003    DO 12003 I=1,3
  32.     CALL CLEAR
  33.     CALL FILL(BANG,12)
  34.     CALL FILL('                         *** BOOM ***')
  35.     CALL FLUSH
  36. 12003    CONTINUE
  37.     CALL WRITE(16,10,'You have been destroyed.')
  38.     CALL WRITE(18,10,'Fortunately you escaped with your life.')
  39.     CALL WRITE(19,10,'Unfortunately, you have been given a new command.')
  40.     CALL WRITE(21,10,'Are you ready to accept this assignment ? ')
  41.     CALL FLUSH
  42.     CALL YESNO(OK,VALID)
  43.     CALL FILL(EOL,2)
  44.     CALL FILL(EOL,2)
  45.     IF(.NOT.OK)GOTO 14003
  46.     CALL FILL('         Good!')
  47.     GOTO 17003
  48. 14003    CALL FILL('         Tough luck, but you get it anyway.')
  49. 17003    CALL FLUSH
  50.     CALL MARK(24,60,1)
  51.     CALL WFLOR(24,25)
  52.     ALIVE(WHO)=.TRUE.
  53.     CLOAK(WHO)=.FALSE.
  54.     RESET=.TRUE.
  55.     GOTO 10000
  56. C
  57. C    Message 15: Snagged by the black hole
  58. C
  59. 11015    CALL FILL('Spock here Captain.')
  60.     CALL FILL(EOL,2)
  61.     CALL FILL('We are being drawn into some sort of black hole,')
  62.     CALL FILL(EOL,2)
  63.     CALL FILL('it is unlike anything I have ever encountered.')
  64.     CALL FILL(EOL,2)
  65.     CALL FILL('Fascinating.')
  66.     GOTO 10001
  67. C
  68. C    Message 16: Lack of ship energy
  69. C
  70. 11016    CALL FILL('Scott here captain.')
  71.     CALL FILL(EOL,2)
  72.     CALL FILL('Our dylithium crystals are gone. Life support is')
  73.     CALL FILL(EOL,2)
  74.     CALL FILL('failing ...!')
  75.     GOTO 10001
  76. C
  77. C    Message 30: Vaporized by anti-matter
  78. C
  79. 11030    CALL FILL('We are caught in an anti-matter explosion!')
  80. 10001    CALL FILL(EOL,2)
  81.     CALL FLUSH
  82.     CALL MARK(24,120,1)
  83.     CALL WFLOR(24,25)
  84. 10000    RETURN
  85.     END
  86.