home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 1
/
AU_CD1.iso
/
demos
/
s_to_z
/
twilight
/
_twilightd
/
_run
< prev
next >
Wrap
Text File
|
1992-01-23
|
900b
|
20 lines
| Run the Twilight control program demo
IconSprites <Obey$Dir>.!Sprites
Set TwilightD$Dir <Obey$Dir>
RMensure ColourTrans 0.00 if "<System$Path>" = "" then RMload <TwilightD$Dir>.Colours else RMload System:Modules.Colours
Run <TwilightD$Dir>.Resources.HourOn
Run <TwilightD$Dir>.Resources.AddToPath TwEffects$Path <Obey$Dir>.Effects.
Run <TwilightD$Dir>.Resources.PFilter TwEffects$Path
if "<TwEffects$Path>" = "" then Error 0 No effect directories
Set File$Type_3C1 TwEffect
Set Alias$@RunType_3C1 Error Please install this effect with the control program|M
RMensure InterfaceManager 1.25 RMload <TwilightD$Dir>.Interface
RMensure InterfaceManager 1.25 Error Couldn't load Interface module
RMensure Twilight 0.00 RMload <TwilightD$Dir>.Twilight
RMensure Twilight 0.00 Error Couldn't load Twilight module
WimpSlot -min 32k -max 32k
IconSprites <TwilightD$Dir>.Sprites
Run <TwilightD$Dir>.!RunImage