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