home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / !TexturGdn / !Run < prev    next >
Encoding:
Text File  |  1996-12-01  |  1.5 KB  |  34 lines
  1. |
  2. | > !Run for !TextureGdn
  3. |
  4. If "<TextureGdnRes$Dir>" = "" THEN Set TextureGdnRes$Dir <Obey$Dir>.Resources
  5. Run <Obey$Dir>.Library.Utilities.Check
  6. |
  7. IF "<TextureGdnRunning$Flag>" <> "" THEN Error Texture Garden is already running
  8. |
  9. Unset TextureGdnRunning$Flag
  10. |
  11. RMEnsure ColourTrans 1.07 If "<System$Path>" = "" Then Error System resources could not be found (ColourTrans module required).
  12. RMEnsure ColourTrans 1.07 If "<System$Path>" <> "" Then RMLoad System:Modules.Colours
  13. RMEnsure ColourTrans 1.07 Error Please update your copy of !System to one containing ColourTrans (Colours) 1.07 or later
  14. |
  15. RMEnsure MessageTrans 0.06 If "<System$Path>" = "" Then Error System resources could not be found (MessageTrans module required).
  16. RMEnsure MessageTrans 0.06 If "<System$Path>" <> "" Then RMLoad System:Modules.MsgTrans
  17. RMEnsure MessageTrans 0.06 Error Please update your copy of !System to one containing MessageTrans (MsgTrans) 0.06 or later
  18. |
  19. RMEnsure SpriteExtend 0.46 Error Unable to find SpriteExtension Module 0.46 or later
  20. |
  21. If "<Wimp$Scrap>" = "" Then Error !Scrap needs to have been seen by the filer for this program to work properly.
  22. |
  23. IconSprites <Obey$Dir>.!Sprites
  24. |
  25. Set TextureGdn$Dir <Obey$Dir>
  26. Set TextureGdnRes$Dir <TextureGdn$Dir>.Resources
  27. Set TextureGdnPalette$Dir <TextureGdn$Dir>.Textures.Palette
  28. Set TextureGdnAnimation$Dir <TextureGdn$Dir>.Animations
  29. Set TextureGdnRMStore$Dir <TextureGdn$Dir>.RMStore
  30. Set TextureGdnChangeFSI$Mem 300
  31. |
  32. WimpSlot -min 224k -max 224k
  33. |
  34. Run <Obey$Dir>.!RunImage %*0