home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / imagemap2 / !ImageMap2 / !Run < prev    next >
Encoding:
Text File  |  1998-07-22  |  2.1 KB  |  66 lines
  1. | !ImageMap.!Run
  2. | (C) David McCormack
  3. | Load the main !ImageMap software
  4.  
  5. IconSprites <Obey$Dir>.!Sprites
  6.  
  7. Set ImageMap$Path <Obey$dir>.
  8. Set ImageMap$Dir  <Obey$dir>
  9.  
  10. | Set up file names
  11. |
  12. Set File$Type_B09 ImageMap
  13. If "<File$Type_FAF>" = "" then Set File$Type_FAF HTML
  14. If "<File$Type_695>" = "" then Set File$Type_695 GIF
  15. If "<File$Type_1BC>" = "" then Set File$Type_1BC Imagen
  16. If "<File$Type_259>" = "" then Set File$Type_259 Server
  17. If "<File$Type_FF1>" = "" then Set File$Type_FF1 RawData
  18.  
  19. | Set up double click actions
  20. |
  21. Set Alias$@RunType_B09 Run ImageMap:!Run -load %%*0
  22. Set Alias$@RunType_259 Run ImageMap:!Run -load %%*0
  23. If "<Alias$@RunType_1BC>" = "" then Set Alias$@RunType_1BC Run ImageMap:!Run -load %%*0
  24.  
  25. | Relevent Dosmap commands
  26. |
  27. DosMap MAP  &259
  28. DosMap GIF  &695
  29. DosMap HTM  &FAF
  30.  
  31. | Check for support system variables
  32. |
  33. If "<Wimp$Scrap>"    = "" then Error ImageMap requires a !Scrap directory to have been setup.
  34. If "<ChangeFSI$Dir>" = "" then Error ImageMap requires !ChangeFSI to have been seen by the filing system.
  35.  
  36. | Check for BorderUtil support module
  37. |
  38. RMEnsure UtilityModule 3.50 RMEnsure BorderUtils 0.02 RMload System:Modules.BorderUtil
  39. RMEnsure UtilityModule 3.50 RMEnsure BorderUtils 0.02 BorderUtils module is too old or is not available. You must upgrade before running ImageMap.
  40.  
  41. | Check for ColourPicker support module
  42. |
  43. RMEnsure ColourPicker 0.31 RMload System:Modules.Picker
  44. RMEnsure ColourPicker 0.31 ColourPicker module is too old or is not available. You must upgrade before running ImageMap.
  45.  
  46. | Check for Imagen support module
  47. |
  48. RMEnsure Imagen 1.00 RMload ImageMap:RMStore.Imagen
  49. RMEnsure Imagen 1.00 Imagen module is too old and must be updated.
  50.  
  51. | Check for Jpeg support modules
  52. |
  53. RMEnsure UtilityModule 3.60 RMEnsure SpriteExtend 0.98 Run ImageMap:Scripts.!JpegLoad 
  54.  
  55. | PCA support
  56. |
  57. If "<PCAResources$Dir>"<> "" Then RMEnsure PCASupport 0.00 UnSet ImageMap$PCABoot   
  58. If "<PCAResources$Dir>" = "" Then Set ImageMap$PCABoot Not_Available
  59. If "<ImageMap$PCABoot>" = "" then WimpTask <Obey$Dir>.Scripts.!PCABoot
  60.  
  61. | Run main code
  62. |
  63. WimpSlot -min  256K -max 256K
  64. WimpSlot -min  172K -max 172K
  65. /ImageMap:!RunImage %*0
  66.