home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / conquest / express / conquest.scr < prev    next >
Text File  |  1985-11-21  |  3KB  |  143 lines
  1. SCRIPT
  2.  
  3. ; CONQUEST SCRIPT FILE
  4. ; BY CHRIS GREGORY
  5. ; 11/15/88
  6. ; Wargamers BBS (816)-966-8188
  7. ; Set Up Menu
  8.  
  9. define %0
  10. define prompt
  11.  
  12. Menu:
  13.  clear screen
  14.  printe
  15.  printe'        &23 '
  16.  printe'     
  17.  printe'\I****************************'
  18.  printe'*\o         \I\RCONQUEST\O\B         \i*'
  19.  printe'\i****************************'
  20.  printe'*\o \g\{D\}   D\bocumentation      \i*' 
  21.  printe'*\o \g\{H\}   H\ball of Champions  \i*'
  22.  printe'*\o \g\{N\}   N\bews of Attacks    \i*'
  23.  printe'*\o \g\{O\}   O\bld News           \i*'
  24.  printe'*\o \g\{P\}   P\blay conquest      \i*'
  25.  printe'*\o \g\{S\}\b   See \gS\bcores         \i*'
  26.  printe'*\o \g\{Y\}\b   \gY\bour Stats         \i*'
  27.  printe'****************************\i'
  28.  printe'*\o \r\{I\}   I\bntermediate menu  \i*'
  29.  printe'****************************'
  30.  printe'*\o \g\{X\}\b   \iE\o\gx\b\iit to BBS\o        \i*'
  31.  printe'*\o \g\{?\}\b   List the Menu      \i*'
  32.  printe'****************************\o'
  33.  printe
  34.  
  35.   abort off
  36.  
  37. Get_Choice:
  38.  
  39.  
  40.  if time_exceeded
  41.   printe ' Sorry but your out of time!'
  42.   exit
  43.  endif
  44.  
  45.  prompt = 'Enter Selection >'
  46.  
  47.  
  48.   print '[prompt]'
  49.   get_key %0
  50.  
  51.  if %0 = D
  52.   clear screen
  53.   Printe 'Read the docs.'
  54.   View 'D:\conquest\conquest.doc'
  55.  
  56.  ef %0 = H
  57.   clear screen
  58.   Printe 'Hall of Champions'
  59.   View 'D:\conquest\champions.txt'
  60.  
  61.  ef %0 = N
  62.   clear screen
  63.   Printe 'Conquest Combat News'
  64.   printe 
  65.   printe 'Hit a ? to return to menu'
  66.   printe
  67.   view 'D:\conquest\Conquest.nws'
  68.  
  69.  ef %0 = O
  70.   clear screen
  71.   Printe 'Yesterdays News'
  72.   printe 
  73.   printe 'Hit a ? to return to menu'
  74.   printe
  75.   view 'D:\conquest\Oldnews.txt'
  76.  
  77.  ef %0 = S
  78.   clear screen
  79.   printe 'Conquest Empires'
  80.   printe
  81.   printe 'Hit a ? to return to Menu'
  82.   printe
  83.   view 'D:\conquest\plpath.plr'
  84.  
  85. ; ef %0 = Y
  86. ;  Printe 'Your Stats'
  87.  
  88.  ef %0 = I
  89.   clear screen
  90.   printe 'Teleporting to Intermediate Level'
  91.   execute [G:inter.com]
  92.  
  93.  ef %0 = X
  94.   clear screen
  95.   printe 'Exiting to BBS.'
  96.   Exit
  97.  
  98.  ef %0 = '?'
  99.   clear screen
  100.   printe 'Whats going on Here'
  101.   goto menu
  102.  
  103.  ef %0 = P
  104.   clear screen
  105.   Play Conquest!
  106.   goto playit
  107.  
  108.  else
  109.  
  110.   printe 'Enter ? for Help'
  111.   goto Get_Choice
  112. endif
  113.  
  114. goto Get_Choice
  115.  
  116.  
  117. Playit:
  118. ; ok on the next line change the 30 to what level you want it to be!
  119.  
  120.  if command_level (30)
  121.   else
  122.   printe ' Your user level does not permit it'
  123.   goto menu
  124.  endif
  125.  
  126.   printe 'Play Conquest'
  127.  
  128. ; on the next few change the paths to your own taste
  129.   
  130. OPEN ('D:\CONQUEST\PLAYER.DAT', OUTPUT)
  131. FPRINTE '&1'
  132. CLOSE
  133.  
  134. OPEN ('D:\CONQUEST\todaydat.TIM',OUTPUT)
  135. FPRINTE '&24'
  136. CLOSE
  137.  
  138. GEM 'D:\CONQUEST\CONQUEST.PRG'
  139.  
  140.  
  141. goto menu
  142.  
  143.