| RISC OS Loader for !Snake
| Written by Paul Vigay (C) 1993-2002
|
Set Snake$Dir <Obey$Dir>
IconSprites <Snake$Dir>.!Sprites
|
If "<System$Path>" = "" then Error 0 System resources have not been seen yet.

if "<SuperSnake$Running>" <> "" then error SuperSnake is already running.
|
RMEnsure ABCLibrary 4.14 RMLoad System:modules.ABCLib
RMEnsure ABCLibrary 4.14 Error SuperSnake requires ABCLib version 4.14 or later.

| Check audio gubbins
RMEnsure WaveSynth 0 RMReInit WaveSynth
ChannelVoice 1 WaveSynth-Beep
Audio Off
RMEnsure Munch 0 RMLoad <Snake$Dir>.Samples.Munch
RMEnsure Piano 0 RMLoad <Snake$Dir>.Samples.Piano
RMEnsure Pop 0 RMLoad <Snake$Dir>.Samples.Pop
RMEnsure Slide 0 RMLoad <Snake$Dir>.Samples.Slide
RMEnsure WarbDoing 0 RMLoad <Snake$Dir>.Samples.WarbDoing
RMEnsure Whoosh1 0 RMLoad <Snake$Dir>.Samples.Whoosh1
Audio On
| OK, so now run the game
WimpSlot -min 448k -max 448k
Run "<Snake$Dir>.!RunImage" %*0
