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 / blonger.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. C    CALL FLUSH
  42. C    CALL YESNO(OK,VALID)        ! *** Robot time...
  43. C    CALL FILL(EOL,2)
  44. C    CALL FILL(EOL,2)
  45. C    IF(.NOT.OK)GOTO 14003
  46. C    CALL FILL('         Good!')
  47. C    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.