home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / zip2000_1 / !Zip2000_!Run < prev    next >
Encoding:
Text File  |  1995-11-28  |  1.9 KB  |  54 lines
  1. Set Zip$Dir <Obey$Dir>
  2. IconSprites <Zip$Dir>.!Sprites
  3. Set File$Type_061 Z-Code1
  4. Set File$Type_062 Z-Code2
  5. Set File$Type_063 Z-Code3
  6. Set File$Type_064 Z-Code4
  7. Set File$Type_065 Z-Code5
  8. Set File$Type_066 Z-Code6
  9. Set File$Type_067 Z-Code7
  10. Set File$Type_068 Z-Code8
  11. Set File$Type_11A Z-Code
  12. Set Alias$@RunType_061 /<Zip$Dir> 
  13. Set Alias$@RunType_062 /<Zip$Dir> 
  14. Set Alias$@RunType_063 /<Zip$Dir> 
  15. Set Alias$@RunType_064 /<Zip$Dir> 
  16. Set Alias$@RunType_065 /<Zip$Dir> 
  17. Set Alias$@RunType_067 /<Zip$Dir> 
  18. Set Alias$@RunType_068 /<Zip$Dir> 
  19. Set Alias$@RunType_11A /<Zip$Dir> 
  20.  
  21. IF "%0"="" THEN Error To use Zip 2000, double-click on a story file
  22.  
  23. Set ZipSave$Path <Zip$Dir>.Resources.SavedGames.
  24. Set Zip$ChoicesFile <Zip$Dir>.Choices
  25.  
  26. Set System$Path_Message System resources cannot be found
  27.  
  28. RMEnsure Toolbox 1.36 RMLoad System:Modules.Toolbox.Toolbox
  29. RMEnsure Toolbox 1.36 Error You need Toolbox 1.36 or later to run Zip 2000
  30.  
  31. RMEnsure Window 1.30 RMLoad System:Modules.Toolbox.Window
  32. RMEnsure Window 1.30 Error You need Window Object 1.30 or later to run Zip 2000
  33.  
  34. RMEnsure Menu 0.23 RMLoad System:Modules.Toolbox.Menu
  35. RMEnsure Menu 0.23 Error You need Menu 0.23 or later to run Zip 2000
  36.  
  37. RMEnsure ProgInfo 0.09 RMLoad System:Modules.Toolbox.ProgInfo
  38. RMEnsure ProgInfo 0.09 Error You need ProgInfo 0.09 or later to run Zip 2000
  39.  
  40. RMEnsure Iconbar 1.11 RMLoad System:Modules.Toolbox.IconBar
  41. RMEnsure Iconbar 1.11 Error You need Iconbar 1.11 or later to run Zip 2000
  42.  
  43. RMEnsure FileInfo 0.14 RMLoad System:Modules.Toolbox.FileInfo
  44. RMEnsure FileInfo 0.14 Error You need FileInfo 0.14 or later to run Zip 2000
  45.  
  46. RMEnsure DCS 1.06 RMLoad System:Modules.Toolbox.DCS_Quit
  47. RMEnsure DCS 1.06 Error You need DCS Object 1.06 or later to run Zip 2000
  48.  
  49. IF "<Font$Bold>"="" THEN Set Font$Bold "Bold Demi ExtraBold Ultra Heavy"
  50. IF "<Font$Italic>"="" THEN Set Font$Italic "Italic Oblique Slant"
  51.  
  52. WimpSlot 128k 128k
  53. Run <Zip$Dir>.!RunImage %*0
  54.