SCRIPT

; CONQUEST SCRIPT FILE
; BY CHRIS GREGORY
; 11/15/88
; Wargamers BBS (816)-966-8188
; Set Up Menu

define %0
define prompt

Menu:
 clear screen
 printe
 printe'        &23 '
 printe'     
 printe'\I****************************'
 printe'*\o         \I\RCONQUEST\O\B         \i*'
 printe'\i****************************'
 printe'*\o \g\{D\}   D\bocumentation      \i*' 
 printe'*\o \g\{H\}   H\ball of Champions  \i*'
 printe'*\o \g\{N\}   N\bews of Attacks    \i*'
 printe'*\o \g\{O\}   O\bld News           \i*'
 printe'*\o \g\{P\}   P\blay conquest      \i*'
 printe'*\o \g\{S\}\b   See \gS\bcores         \i*'
 printe'*\o \g\{Y\}\b   \gY\bour Stats         \i*'
 printe'****************************\i'
 printe'*\o \r\{I\}   I\bntermediate menu  \i*'
 printe'****************************'
 printe'*\o \g\{X\}\b   \iE\o\gx\b\iit to BBS\o        \i*'
 printe'*\o \g\{?\}\b   List the Menu      \i*'
 printe'****************************\o'
 printe

  abort off
 
Get_Choice:


 if time_exceeded
  printe ' Sorry but your out of time!'
  exit
 endif

 prompt = 'Enter Selection >'


  print '[prompt]'
  get_key %0

 if %0 = D
  clear screen
  Printe 'Read the docs.'
  View 'D:\conquest\conquest.doc'

 ef %0 = H
  clear screen
  Printe 'Hall of Champions'
  View 'D:\conquest\champions.txt'

 ef %0 = N
  clear screen
  Printe 'Conquest Combat News'
  printe 
  printe 'Hit a ? to return to menu'
  printe
  view 'D:\conquest\Conquest.nws'

 ef %0 = O
  clear screen
  Printe 'Yesterdays News'
  printe 
  printe 'Hit a ? to return to menu'
  printe
  view 'D:\conquest\Oldnews.txt'

 ef %0 = S
  clear screen
  printe 'Conquest Empires'
  printe
  printe 'Hit a ? to return to Menu'
  printe
  view 'D:\conquest\plpath.plr'

; ef %0 = Y
;  Printe 'Your Stats'

 ef %0 = I
  clear screen
  printe 'Teleporting to Intermediate Level'
  execute [G:inter.com]

 ef %0 = X
  clear screen
  printe 'Exiting to BBS.'
  Exit

 ef %0 = '?'
  clear screen
  printe 'Whats going on Here'
  goto menu

 ef %0 = P
  clear screen
  Play Conquest!
  goto playit
 
 else

  printe 'Enter ? for Help'
  goto Get_Choice
endif

goto Get_Choice


Playit:
; ok on the next line change the 30 to what level you want it to be!

 if command_level (30)
  else
  printe ' Your user level does not permit it'
  goto menu
 endif

  printe 'Play Conquest'

; on the next few change the paths to your own taste
  
OPEN ('D:\CONQUEST\PLAYER.DAT', OUTPUT)
FPRINTE '&1'
CLOSE

OPEN ('D:\CONQUEST\todaydat.TIM',OUTPUT)
FPRINTE '&24'
CLOSE

GEM 'D:\CONQUEST\CONQUEST.PRG'


goto menu