home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / galempsc / arcade.scr next >
Text File  |  1988-03-09  |  2KB  |  153 lines
  1. SCRIPT
  2.  
  3. ;This script file will check to see if the user has played the game today
  4. ;and load the game if they have not played today yet. You must first run
  5. ;GALEMP.SCR to create the userlog for the game.
  6. ;by Eric Crofut 3/6/88
  7. ;Atari Outpost BBS 816-966-8188
  8.  
  9.  
  10. abort off
  11. clear
  12. define cd
  13. define user
  14. define id
  15. id = &31
  16. define last_play_date
  17. define today
  18. today = &24
  19. define date
  20. define choice
  21. define dummy
  22.  
  23. OPEN:
  24.  
  25. open 'c:\galemp\galemp.usr',input ;check userlog if played today
  26.  finput last_play_date id
  27. user = note
  28. decrease user 4
  29. close
  30.  
  31. date = copy today,4,2
  32.  
  33.  
  34. MENU:
  35.  
  36. clear screen
  37. printe
  38. printe 'Atari Outpost' center
  39. printe 'Game Room' center
  40. printe
  41. printe ' \{A\} Play Galactic Empire v1.0'
  42. printe ' \{B\} Galactic Empire News'
  43. printe ' \{C\} Galactic Empire Scores'
  44. printe ' \{D\} Doc for Galactic Empire'
  45. printe
  46. print 'Enter Selection, <Return> To Exit: '
  47.  
  48.  
  49. GET_CHOICE:
  50.  
  51. if time_exceeded
  52. exit
  53. endif
  54.  
  55. get_key choice
  56.  
  57. if choice = 'a'
  58. printe choice
  59. goto check_level
  60.  
  61. ef choice = 'b'
  62. printe choice
  63. view 'c:\galemp\galemp.nws'
  64.  
  65.  
  66. ef choice = 'c'
  67. printe choice
  68. view 'c:\galemp\galemp.sor'
  69.  
  70. ef choice = 'd'
  71. printe choice
  72. view 'c:\galemp\galdoc.dat'
  73.  
  74. ef choice = '$'
  75. goto log
  76.  
  77. ef choice = ''
  78. exit
  79.  
  80. else 
  81. goto get_choice
  82.  
  83. endif
  84.  
  85. printe
  86. print 'Press Any Key To Continue...'
  87. get_key dummy
  88. goto menu
  89.  
  90.  
  91. CHECK_LEVEL:
  92.  
  93. if command_level 1
  94.  goto check_date
  95. else
  96.  printe
  97.  printe 'Sorry You Are Not Authorized Yet!'
  98.  printe
  99.  print 'Press Any Key To Continue...'
  100.  get_key dummy
  101.  goto menu
  102. endif
  103.  
  104.  
  105. CHECK_DATE:
  106.  
  107. if date = last_play_date
  108.  printe
  109.  printe 'Sorry but you can only play once a day!'
  110.  printe 
  111.  print 'Press Any Key To Continue...'
  112.  get_key dummy
  113.  goto menu
  114. endif
  115.  
  116.  
  117. ;if you want it to print out if they played the game that out the ';'
  118. ;and change the drive path name.
  119. ;open 'c:\bbs.log',append
  120. ; fprint 'Played Galactic Empire'
  121. ;close
  122.  
  123. open 'c:\galemp\galemp.usr',append ;save last played date.
  124.  point user
  125.  fprint date
  126. close
  127.  
  128.  
  129. GALEMP:
  130.  
  131. cd = file_chgdir 'c:\galemp\'
  132. GEM 'C:\GALEMP\GALEMP.TOS'
  133. cd = file_chgdir 'c:\'
  134.  
  135. goto open
  136.  
  137.  
  138. LOG:
  139.  
  140. if command_level 32
  141.  view 'c:\galemp\galemp.log'
  142.  
  143. else
  144.  goto menu
  145.  
  146. endif
  147.  
  148. printe
  149. print 'Press Any Key To Continue...'
  150. get_key dummy
  151. goto menu
  152.  
  153.