home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / conquest / conquest.scr < prev    next >
Encoding:
Text File  |  1989-07-16  |  3.3 KB  |  178 lines
  1. SCRIPT
  2.  
  3. ; CONQUEST SCRIPT FILE
  4. ; BY CHRIS GREGORY
  5. ; 1/29/89
  6.  
  7. ; Set Up Menu
  8.  
  9. define %0
  10. define prompt
  11. define cutoff
  12. define time_left_call
  13. define time_used_call
  14. define time_used_day
  15. define time_left_day
  16. define time_on
  17. define time_ok
  18. define time_per_call = '&13'
  19. define time_per_day = '&14'
  20. define time_before = '&15'
  21.  
  22. Menu:
  23.  clear screen
  24.  printe
  25.  printe'        &23 '
  26.  printe'     
  27.  printe'\I****************************'
  28.  printe'*\o         \I\RCONQUEST\O\B         \i*'
  29.  printe'\i****************************'
  30.  printe'*\o \g\{D\}   D\bocumentation      \i*' 
  31.  printe'*\o \g\{H\}   H\ball of Champions  \i*'
  32.  printe'*\o \g\{N\}   N\bews of Attacks    \i*'
  33.  printe'*\o \g\{O\}   O\bld News           \i*'
  34.  printe'*\o \g\{P\}   P\blay conquest      \i*'
  35.  printe'*\o \g\{S\}\b   See \gS\bcores         \i*'
  36.  printe'*\o \g\{Y\}\b   \gY\bour Stats         \i*'
  37.  printe'****************************\i'
  38.  printe'*\o \r\{I\}   I\bntermediate menu  \i*'
  39.  printe'****************************'
  40.  printe'*\o \g\{X\}\b   \iE\o\gx\b\iit to BBS\o        \i*'
  41.  printe'*\o \g\{?\}\b   List the Menu      \i*'
  42.  printe'****************************\o'
  43.  printe
  44.  
  45.   abort off
  46.  
  47. Get_Choice:
  48.  
  49.  
  50.  if time_exceeded
  51.   printe ' Sorry but your out of time!'
  52.   exit
  53.  endif
  54.  
  55.  prompt = 'Enter Selection >'
  56.  
  57.  
  58.   print '[prompt]'
  59.   get_key %0
  60.  
  61.  if %0 = D
  62.   clear screen
  63.   Printe 'Read the docs.'
  64.   View 'D:\conquest\conquest.doc'
  65.  
  66.  ef %0 = H
  67.   clear screen
  68.   Printe 'Hall of Champions'
  69.   View 'D:\conquest\champions.txt'
  70.  
  71.  ef %0 = N
  72.   clear screen
  73.   Printe 'Conquest Combat News'
  74.   printe 
  75.   printe 'Hit a ? to return to menu'
  76.   printe
  77.   view 'D:\conquest\Conquest.nws'
  78.  
  79.  ef %0 = O
  80.   clear screen
  81.   Printe 'Yesterdays News'
  82.   printe 
  83.   printe 'Hit a ? to return to menu'
  84.   printe
  85.   view 'D:\conquest\Oldnews.txt'
  86.  
  87.  ef %0 = S
  88.   clear screen
  89.   printe 'Conquest Empires'
  90.   printe
  91.   printe 'Hit a ? to return to Menu'
  92.   printe
  93.   view 'D:\conquest\conquest.sco'
  94.  
  95. ; ef %0 = Y
  96. ;  Printe 'Your Stats'
  97.  
  98.  ef %0 = I
  99.   clear screen
  100.   printe 'Teleporting to Intermediate Level'
  101.   execute [G:inter.com]
  102.  
  103. ; ef %0 = C
  104. ;  clear screen
  105. ;  printe 'Warping to Championship Level'
  106. ;  execute [G:champs.com]
  107.  
  108.  ef %0 = X
  109.   clear screen
  110.   printe 'Exiting to BBS.'
  111.   Exit
  112.  
  113.  ef %0 = '?'
  114.   clear screen
  115.   printe 'Whats going on Here'
  116.   goto menu
  117.  
  118.  ef %0 = P
  119.   clear screen
  120.   Play Conquest!
  121.   goto playit
  122.  
  123.  else
  124.  
  125.   printe 'Enter ? for Help'
  126.   goto Get_Choice
  127. endif
  128.  
  129. goto Get_Choice
  130.  
  131.  
  132. Playit:
  133.  
  134.  if command_level (14)
  135.   else
  136.   printe ' Your user level does not permit it'
  137.   goto menu
  138.  endif
  139.  
  140.  increase cutoff
  141.  if &29 = 300
  142.  cutoff = [cutoff] +7
  143.  endif
  144.  
  145.  time_ok = Y
  146.  time_on = &32
  147.  time_left_call = [time_per_call] - [time_on]
  148.   if time_left_call < cutoff
  149.    printe '\n Not enough time left to play !' 
  150.    time_ok = N
  151.   endif
  152.  time_used_day = [time_per_call] - [time_on]
  153.  time_left_day = [time_per_day] - [time_used_day]
  154.   if time_left_day < cutoff
  155.    printe '\n Not enough time left to play !'
  156.    time_ok = N
  157.   endif
  158.  
  159.   if time_ok = N
  160.    goto Menu
  161.   endif
  162.  
  163.   printe 'Play Conquest'
  164.   
  165. OPEN ('D:\CONQUEST\PLAYER.DAT', OUTPUT)
  166. FPRINTE '&1'
  167. CLOSE
  168.  
  169. OPEN ('D:\CONQUEST\todaydat.TIM',OUTPUT)
  170. FPRINTE '&24'
  171. CLOSE
  172.  
  173. GEM 'D:\CONQUEST\CONQUEST.PRG'
  174.  
  175.  
  176. goto menu
  177.  
  178.