home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / quest137 / quest.hlp next >
Encoding:
Text File  |  1989-04-23  |  2.9 KB  |  157 lines
  1. Script
  2.  
  3.  abort off
  4.  printe ' Press ? for menu'
  5.  
  6. SETUP:
  7.  clear variables
  8.   
  9. define bbs_log = 'f:\logs\logfile.dat' ;location of callers log
  10. define bbs_path = 'e\aardvark.inn\' ; location of BBS.PRG
  11. define quest_path = 'e:\aardvark.inn\quest\' ; Quest pathname
  12. define docfile = 'e:\aardvark.inn\quest\quest.txt' Quest Doc pathname
  13. define cutoff = 5 ; check to see if the user has at least 5 min. to play
  14.  
  15. define %0
  16. define pause
  17. define access
  18. define user_log
  19. define cd
  20. define prompt
  21. define option
  22. define time_used_call
  23. define time_left_call
  24. define time_used_day
  25. define time_left_day
  26. define time_on
  27. define time_ok
  28. define time_per_call = '&13'
  29. define time_per_day = '&14'
  30. define time_before = '&15'
  31. define time_date = '&24'
  32. define id = '31'
  33. define player
  34. define calls = '&27'
  35.  
  36.  
  37. TOP:
  38.  prompt = '\r\iQuest v1.37\o\b\v\{PD-GX?\}:\v' center
  39.  option = 'QUEST'
  40.  
  41. ;HIACCESS:
  42. ; if command_level (2)
  43. ; access = Y
  44. ;  else
  45. ;   printe
  46. ;   printe 'You\"re access level is not high\v enough to play this game'
  47. ; access = N
  48. ;  endif
  49. ;   return
  50.    
  51. COMMAND:
  52.  abort off
  53.   printe
  54.   print '\b\o(&32 min.) [prompt]'
  55.  if time_exceeded
  56.   printe
  57.  exit
  58.   endif
  59.    get_key %0
  60.    goto [option]
  61.    
  62. INVALID:
  63.  printe 'Enter ? for Menu....'
  64.  goto command
  65.  
  66. LOGPRINT:
  67.  open '[bbs_log]'
  68.  fprint ' &23 [user_log]'
  69.   close
  70.  return
  71.  
  72. DOCPRINT:
  73.  printe
  74.  printe '<Control-S to Pause,\v Control-X to abort>'
  75.  printe
  76.  view '[docfile]'
  77.  gosub command
  78. return
  79.  
  80. QUEST:
  81.  
  82.  if %0 = P
  83.   printe 'Playing Quest!'
  84.   goto playquest
  85.   
  86.  ef %0 = D
  87.   goto docprint
  88.   
  89.  ef %0 = x
  90.   printe 'Exit to BBS'
  91.  exit
  92.  
  93.  ef %0 = G
  94.   printe 'Return to Game Menu'         
  95.   execute 'e:\bbs\menus_80\game.scr' ;where game menu is located
  96.  
  97.  ef %0 = '?'
  98.   printe 'Help!'
  99.   goto menu
  100.  endif
  101.  
  102.  
  103.           
  104.  
  105. PLAYQUEST:
  106.  
  107. ;gosub hiaccess
  108.  if access = N
  109. goto command
  110.  endif
  111.  if &11 = 40
  112. goto invalid
  113.  endif
  114. printe 'Play Quest v.137? \{y,N\}'
  115.   get_key %0
  116.  if %0 # Y
  117. printe 'No'
  118.   goto command
  119.  endif
  120. print 'Yes'
  121.  cd = file_chgdir '[quest_path]'
  122. printe 
  123. printe ' Only Atari ST\"s should answer yes to color monitor questions'
  124. view '[quest_path]quest1.txt'
  125. ;user_log = 'Enters Quest'
  126. ;gosub logprint
  127. open 'ex.nam', output
  128. fprinte '&01'
  129. close
  130. if command_level (32)
  131.  gem '[quest_path]quest137.tos', 'local'
  132. else
  133.  gem '[quest_path]quest137.tos'
  134. endif
  135. cd = file_chgdir '[bbs_path]'
  136. view '[quest_path]quest2.txt'
  137.  goto command
  138.           
  139. MENU:
  140.  clear screen
  141.  
  142. printe
  143. printe '    Aardvark Inn BBS  ' center ; change to your BBS anme
  144. printe '      Quest v1.37     ' center
  145. printe '    ----------------  ' center
  146. printe '          &23         ' center
  147. printe 
  148. printe ' \r\{P\}\b Play Quest ' center
  149. printe ' \r\{D\}\b Quest Docs ' center
  150. printe
  151. printe ' \r\{G\}\b Game Menu  ' center
  152. printe ' \r\{X\}\b Exit to BBS' center
  153. printe ' \r\{?\}\b This Menu  ' center
  154. printe
  155.  goto command
  156.  
  157.