|
| !Run file for !CineWorks
|
| 1995 Oregan Software Developments
|
Set CineWorks$Dir <Obey$Dir>

If "<Alias$@RunType_B79>"= "" Then Set Alias$@RunType_B79 Run <CineWorks$Dir>.!Run -load %%*0
Set File$Type_B79 Cine
Set File$Type_BF8 MPEG
Set File$Type_B9F FLI

RMEnsure ProSound 0.29 RMLoad <CineWorks$Dir>.Resources.ProSound
RMEnsure ProSound 0.29 Error You need the ProSound module to run CineWorks

RMEnsure FontManager 2.89 Error You need the RISC OS 3 font manager to run CineWorks

RMEnsure ColourTrans 1.61 RMLoad System:Modules.Colours
RMEnsure ColourTrans 1.61 Error You need a version of ColourTrans with 15bpp capabilities to run CineWorks

RMEnsure SpriteExtend 0.61 RMLoad System:Modules.SprExtend
RMEnsure SpriteExtend 0.61 Error You need a version of SpriteExtend with 15bpp capabilities to run CineWorks

RMEnsure DrawFile 1.20 RMLoad System:Modules.DrawFile
RMEnsure DrawFile 1.20 Error You need the DrawFile module to run CineWorks

RMEnsure ColourPicker 0.15 RMLoad System:Modules.Picker
RMEnsure ColourPicker 0.15 Error You need the ColourPicker module to run CineWorks

Set RISCOS%Version 3.50
RMEnsure UtilityModule 3.50 Set RISCOS%Version 3.10

If "<ARMovie$Dir>" = "" Then Error Unable to locate the ARMovie directory.
If "<ARWork$Dir>" = "" Then Error Unable to locate the Replay Work directory.

CDir <ARWork$Dir>.^.Work
CDIR <ARWork$Dir>.CineWorks
CDir <CineWorks$Dir>.Filters1
CDir <CineWorks$Dir>.Filters2
CDir <CineWorks$Dir>.Filters3
CDir <CineWorks$Dir>.Transition.1
CDir <CineWorks$Dir>.Transition.2
CDir <CineWorks$Dir>.Transition.3
CDir <CineWorks$Dir>.Transition.4
CDir <CineWorks$Dir>.Library.Audio0
CDir <CineWorks$Dir>.Library.Audio1
CDir <CineWorks$Dir>.Library.Video0
CDir <CineWorks$Dir>.Library.Video1

IconSprites <CineWorks$Dir>.!Sprites
IconSprites <CineWorks$Dir>.Sprites

WimpSlot -min 32k -max 32k

Run <CineWorks$Dir>.CheckRun -taskname CineWorks -sysvar CineWorks%Running

WimpSlot -min 720K -max 720K
If "<CineWorks%Running>" <> "0" Then Error You cannot run two copies of CineWorks simultaneously

Run <CineWorks$Dir>.TidyAreas
If "<CineWorks%Running>" = "0" Then Run <CineWorks$Dir>.Resources.!Intro
| If "<CineWorks%Running>" = "0" Then Run <CineWorks$Dir>.!RI-Demo %*0
If "<CineWorks%Running>" = "0" Then Run <CineWorks$Dir>.!RunImage %*0
