  '                   Eamon-QB
  '
  '        Adventure #11 - Tomb of Molinar
  '
  '               by Donald Brown
  '
  '        Converted to IBM-PC by John Nelson
  '
    KEY OFF
    DIM WA%(5), SA%(4)
REM $$INCL:'\EAMON\COPY\COLORRTN.BAS'
     ON ERROR GOTO NoColors
     OPEN "EAMCOLOR" FOR INPUT AS #1
     INPUT #1, fgc%
     INPUT #1, bgc%
     INPUT #1, hfg%
     INPUT #1, hbg%
     CLOSE
In.BW:
     ON ERROR GOTO 0
     COLOR fgc%, bgc%
     GOTO Colorset
NoColors:
      fgc% = 7
      bgc% = 0
      hfg% = 0
      hbg% = 7
      RESUME In.BW
Colorset:

    '------- (end of include file) -------    
 ' 
    OPEN Path$ + "MEAT" FOR INPUT AS #1
    INPUT #1, Nbr
    INPUT #1, REC
    INPUT #1, n$
    INPUT #1, HD
    INPUT #1, AG
    INPUT #1, CH
    FOR X = 1 TO 4
    INPUT #1, SA%(X)
    NEXT
    FOR W = 1 TO 5
    INPUT #1, WA%(W)
    NEXT
    INPUT #1, SEX$
    CLOSE 1
' -------------------------------------------------------------------------
'                   Print Description of Adventure Here
' -------------------------------------------------------------------------
    CLS
    COLOR hfg%, hbg%
    PRINT SPC(30); "The Tomb of Molinar"; SPACE$(31);
    COLOR fgc%, bgc%
    LOCATE 3, 1
    PRINT "'Molinar was', the King told you,  'The last of the great Wizard-Kings. He ruled"
    PRINT "wisely for centuries,  until he finally grew weary of this life. He prepared for"
    PRINT "himself a special chamber  to sleep the endless rest in. However, he still loved"
    PRINT "the land he had ruled for so long,  and built his tomb so that a worthy soul and"
    PRINT "valiant hero could call him forth again.'"
    GOSUB GET.KEY
    PRINT "'"; n$; ", our need is great.'":
    PRINT
    PRINT
    PRINT
    PRINT "'Our enemy has summoned forth a being of great power.  If the being is unchecked"
    PRINT "our kingdom is certainly doomed, possibly all on this globe as well. None of our"
    PRINT "people alive can stop the creature. Our only hope is to call upon our great past"
    PRINT "leader.  You must find the tomb,  enter it, and bring back our savior.'": GOSUB GET.KEY
    PRINT "So the king ordered you,  and so you set out. After weeks of searching, you have"
    PRINT "found the tomb. The magical paper tells you that things are desperate. You can't"
    PRINT "go  for help.  You must enter  the tomb alone.  Good Luck! "
    GOSUB GET.KEY
    RUN "MAINPGM"
' ------------------------------------------------------------------------
GET.KEY:
    LOCATE 24, 1
    PRINT STRING$(26, "="); " Press Any Key to Continue "; STRING$(26, "=");
    A$ = ""
    WHILE A$ = ""
    A$ = INKEY$
    WEND
    CLS
    COLOR hfg%, hbg%
    PRINT SPC(30); "The Tomb of Molinar"; SPACE$(31);
    COLOR fgc%, bgc%
    LOCATE 3, 1
    RETURN

