home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / ibiiv16 / deferun.scr < prev    next >
Encoding:
Text File  |  1993-02-27  |  1.7 KB  |  79 lines
  1. script
  2. define b
  3. define path
  4. define in
  5. define where
  6. define time1
  7. define time2
  8. define dummy1
  9. define dummy2
  10. define keyit
  11. define dummy3
  12. define rc
  13.  
  14. time1 = &33
  15. dummy3 = time1
  16.  
  17. b = &29
  18. ; Edit the line below this one!!!!
  19. path = 'D:\EXPRESS\DEFENSE\' 
  20. open('[path]DEFEINFO.TXT',INPUT)
  21. finput dummy2 6
  22. finput dummy1 2
  23. close
  24. if command_level(32) then
  25.   clear screen
  26.  printe 'SYSOP MENU'
  27.  printe 'Which do you want to enter?'
  28.   printe '1. Iron Bomber II: The Defense Game'
  29.   printe '2. Iron Bomber II: The Utility (Reset the High score tables)'
  30.   keyit = get_key
  31.   if keyit = '2' then
  32.   ttp ('[path]RESETDEF.TTP','[path]')
  33.   exit
  34.   endif
  35. endif
  36.  
  37.  
  38.  
  39. if dummy2 = 'y' then
  40.   dummy2 = 'Y'
  41. endif
  42. if dummy2 = 'Y' then
  43.   open('[dummy1]',APPEND)
  44.   fprinte '---------------------Entered IRON Bomber II: The Defense'
  45.   close
  46. endif
  47. clear screen
  48. printe 'Entering Iron Bomber II: The Defense...... Please wait. '
  49. tos ('[path]DEFENSE.TTP','EXPRESS [path] [b] [dummy3]')
  50.  
  51. open('[path]DEFEINFO.TXT',INPUT)
  52. finput dummy2 6
  53. finput dummy1 2
  54. close
  55. if dummy2 = 'y' then
  56.   dummy2 = 'Y'
  57. endif
  58. if dummy2 = 'Y' then
  59.   open('[dummy1]',APPEND)
  60.   fprinte '---------------------Exitted IRON Bomber II: The Defense'
  61.   close
  62. endif
  63. ;
  64. ;  At the end, here you may want to execute the games menu again and/or
  65. ;  change the current path back to the directory containing the
  66. ;  EXPRESS files.
  67. ;  An example of changing the directory back would be something like
  68. ;
  69. ;  rc = file_chgdir ('D:\EXPRESS\')
  70. ;
  71. ;  An example of executing the games menu would be
  72. ;
  73. ;  execute ('D:\EXPRESS\MENUS_80\GAMES.HLP')
  74. ;
  75. ;  Remember: These statements are not read by the script editor because
  76. ;  of the semicolon in front of them.
  77. ;
  78.  
  79.