home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Internet / Demos / Oregano / demo / !Oregano / !Run < prev    next >
Text File  |  2000-05-17  |  4KB  |  111 lines
  1. Set Oregano$Dir <Obey$Dir>
  2. Set OreganoDir$Path <Obey$Dir>.
  3. Setmacro Alias$OreganoPath If "<Oregano$Path>" = "" Then Set Oregano$Path %%0 Else Set Oregano$Path <Oregano$Path>,%%0
  4.  
  5. UnSet Oregano$Path
  6. OreganoPath OreganoDir:Skins.Demo.
  7. IfThere Choices:Oregano.Skin Then Obey -c Choices:Oregano.Skin
  8. |OreganoPath OreganoDir:Skins.Xavier.
  9. |OreganoPath OreganoDir:Skins.NetTV.
  10. OreganoPath OreganoDir:Skins.Desktop.
  11. OreganoPath OreganoDir:
  12.  
  13. IconSprites Oregano:!Sprites
  14.  
  15. | Make sure we've got access to a scrap directory
  16. If "<Wimp$ScrapDir>" = "" Then Error No scrap directory set!
  17. CDir <Wimp$ScrapDir>
  18.  
  19. If "<System$Path>" = "" Then Error System resources cannot be found
  20.  
  21. RMEnsure WindowManager 3.98 Error Oregano requires the nested window manager
  22.  
  23. | Make sure we've got access to a choices directory
  24. If "<Choices$Write>" = "" Then Set Choices$Write <Oregano$Dir>
  25. IF "<Choices$Write>" <> "<Oregano$Dir>" Then Set OreganoChoices$Dir <Choices$Write>.Oregano
  26. IF "<Choices$Write>" <> "<Oregano$Dir>" Then CDir <OreganoChoices$Dir>
  27. IF "<Choices$Write>" <> "<Oregano$Dir>" Then Set OreganoChoices$Path <OreganoChoices$Dir>. Else Set OreganoChoices$Path <Oregano$Path>
  28.  
  29.  
  30. | Make sure we've got access to the proprietary modules
  31. If "<OreganMods$Path>" = "" Then Run <Obey$Dir>.^.!OreganRes.!Boot
  32. If "<OreganMods$Path>" = "" Then Error Could not find OreganMods - !OreganRes has not been seen?
  33.  
  34. | Make sure we've got access to the fonts
  35. If "<TrueTypeFont$Path>" = "" Then Error Could not find fonts - !OreganRes has not been seen?
  36.  
  37. | Check if we need CallASWI
  38. | We don't want to Load it for RISC OS 3.7, 3.8 or 4.0, but do for 3.1, 3.5, 3.6 and 4.5
  39.  
  40. RMEnsure UtilityModule 4.50 Set CallASWI$NC Yes
  41. RMEnsure UtilityModule 3.70 Set CallASWI$RiscPC Yes
  42.  
  43. If "<CallASWI$RiscPC>"<>"Yes" AND "<CallASWI$NC>"="Yes" Then Unset CallASWI$NC
  44. If "<CallASWI$NC>"="Yes" OR "<CallASWI$RiscPC>"="Yes" Then RMLoad OreganMods:CallASWI
  45.  
  46. Unset CallASWI$NC
  47. Unset CallASWI$RiscPC
  48.  
  49. | Load the sound effects
  50. | Make sure we've got access to the sound effect modules
  51. If "<SoundMods$Path>" = "" Then Error Could not find sound mods - !OreganRes has not been seen?
  52. RMEnsure ButtonClick 0.00 RMLoad SoundMods:BtnClick
  53. RMEnsure SlideIn 0.00 RMLoad SoundMods:SlideIn
  54. RMEnsure SlideOut 0.00 RMLoad SoundMods:SlideOut
  55.  
  56. | Load Pointers
  57. IconSprites Oregano:Pointers
  58.  
  59. | Set HTTPStream timeout
  60. Set HTTPStream$Timeout 120
  61.  
  62. | Set Cookie stuff
  63. Set HTTPStream$MaxCookies 200
  64. Set HTTPStream$CookiePath OreganoChoices:Cookies
  65.  
  66. | Modules Needed
  67. RMEnsure MemoryAllocator 1.17 RMLoad OreganMods:MAlloc
  68. RMEnsure MemoryAllocator 1.17 Error Oregano requires MemoryAllocator 1.17 or later
  69. RMEnsure XTTFont 3.14 RMLoad OreganMods:XTTFont -e
  70. RMEnsure XTTFont 3.14 Error Oregano requires XTTFont 3.14 or later
  71. RMEnsure Resolver 0.43 RMLoad System:Modules.Network.Resolver
  72. RMEnsure Resolver 0.43 Error Oregano requires Resolver 0.43 or later
  73.  
  74. If "<InetDBase$Path>" = "" then Error Inet databases can not be found
  75. If "<Inet$MimeMappings>" = "" Then Set Inet$MimeMappings InetDBase:MimeMap
  76. RMEnsure MimeMap 0.10 RMLoad System:Modules.Network.MimeMap
  77. RMEnsure MimeMap 0.10 Error Oregano required MimeMap 0.10 or later
  78.  
  79. | Load HTTPStream
  80. |RMEnsure HTTPStream 0.72 IfThere OreganMods:HTTPStr128 Then RMLoad OreganMods:HTTPStr128 -file $.stdout -debug 1 Else RMLoad OreganMods:HTTPStrm -file $.stdout -debug 1
  81. RMEnsure HTTPStream 0.72 IfThere OreganMods:HTTPStr128 Then RMLoad OreganMods:HTTPStr128 Else RMLoad OreganMods:HTTPStrm
  82. RMEnsure HTTPStream 0.72 Error Oregano requires HTTPStream 0.72
  83.  
  84. | Load AcornURI if we can find it
  85. IfThere System:Modules.Network.URI Then Obey <Oregano$Dir>.AcornURI
  86.  
  87. | URI/URL handler support
  88. Set Alias$Open_URI_http <Oregano$Dir>.!Run -nowindow
  89. Set Alias$Open_URI_file <Oregano$Dir>.!Run -nowindow
  90.  
  91. Set Alias$URLOpen_http  <Oregano$Dir>.!Run -url %%*0
  92. Set Alias$URLOpen_file  <Oregano$Dir>.!Run -url %%*0
  93.  
  94. Set Alias$@RunType_FAF <Oregano$Dir>.!Run -file %%*0
  95.  
  96. | Set the Bookmarks file
  97. Set Oregano$Bookmarks OreganoChoices:Bookmarks
  98.  
  99. | Set the User Options file
  100. Set Oregano$UserOpts OreganoChoices:UserOpts
  101.  
  102. Wimpslot -min 1024K -max 1024K
  103.  
  104. |initstore &deadbeef { > null: }
  105.  
  106. |RMEnsure socketfs 0 RMLoad OreganMods:socketfs
  107. |Run <Oregano$Dir>.Oregano %*0 2> Oregano:Debug
  108. |Run <Oregano$Dir>.Oregano %*0 2> socketfs#IPv4::tcp.$.ncserver\9000
  109. |If "<Oregano$DebugOut>"="" Then Set Oregano$DebugOut <Oregano$Dir>.stderr
  110. Run <Oregano$Dir>.Oregano %*0
  111.