|		!Run file for Tremor2
|		 Giles RC Morant
Set CurrentApp$Dir <Obey$Dir>
|	Compilation alias
|Set Alias$LogIt2 Tremor2:Stuff.Logger2
|	SA-enabled compilation:
|Alias SACache "Cache Off"
|RMEnsure UtilityModule 3.70 Alias SACache "Cache On"

|	General path
Set Tremor2$Path <Obey$Dir>.

Set Tremor2Levels$Path Tremor2:Data.Levels.

|	Load the wimp sprites
IconSprites Tremor2:!Sprites

|	Check for -boot flag from !Boot, and for RISC OS < 3.50
If "%*0" = "-Boot" Then Obey
RMEnsure UtilityModule 3.50 Error 0 Tremor2 is only for use with RISC OS 3.5 or above
If "<Wimp$ScrapDir>" = "" Then Error 0 Tremor2 needs a !Scrap directory
If "<Wimp$Scrap>" = "" Then Error 0 Tremor2 needs a !Scrap directory (and file)

Set Tremor2$Keymap Tremor2:Data.Keymaps.T2
Set Tremor2SoundFX$Path Tremor2:Data.SoundFX.
|Set Tremor2SoundFX$Path <Wimp$ScrapDir>.T2SoundFX.,Tremor2:Data.SoundFX.
Set Tremor2Graphics$Path Tremor2:Data.Graphics.
|RMEnsure UtilityModule 3.71 Set Tremor2Graphics$Path RAM::RamDisc0.$.,Tremor2:Data.Graphics.
Set Tremor2$DebugFile Tremor2:DebugFile

|	Stasis stuff:
RMLoad Tremor2:Stuff.Stasis
RMLoad Tremor2:Stuff.StasisDVox
Set Alias$@RunType_112 RMEnsure Stasis 0.41 Run Stasis:Stasis|mStasisLoad 1 %%0|mStasisSound 1 1 &7f &4555
Set Alias$@LoadType_112 RMEnsure Stasis 0.41 Run Stasis:Stasis|mStasisLoad 1 %%0|m
Set File$Type_112 Stasis
|FX 212 128
|FX 213 68

|	WimpSlot
WimpSlot -min 4072K -max 4072K
|WimpSlot -min 8000K -max 8000K

| Nice message:
Echo ************
Echo * Tremor 2 *  Giles RC Morant 1994 - 1998
Echo ************ Graphics  Laurie Cheers
Echo 
|Echo -- Development Version -- Development Version --
|Echo
|Echo                 This version dated:
|Echo
|Type Tremor2:Stuff.Time
|Echo
|Echo -- Development Version -- Development Version --
|Echo
Echo -- Please wait:  L O A D I N G  :tiaw esaelP --

|	Sound System
Echo Sound...
Echo <11>Voices >   <
StasisLoad 0 Tremor2SoundFX:EXPLO
StasisLoad 1 Tremor2SoundFX:ELsiren
Echo <11>Voices >.  <
StasisLoad 2 Tremor2SoundFX:ELwoosh
StasisLoad 3 Tremor2SoundFX:GONG/WAV
Echo <11>Voices >.. <
StasisLoad 4 Tremor2SoundFX:boom
StasisLoad 5 Tremor2SoundFX:click
Echo <11>Voices >...<
StasisLoad 6 Tremor2SoundFX:death
Echo <11>Linking...   
StasisLink 1 0
StasisLink 2 1
StasisLink 3 2
StasisLink 4 3
StasisLink 5 4
StasisLink 6 5
StasisLink 7 6
ChannelVoice 1 Stasis
ChannelVoice 2 Stasis
ChannelVoice 3 Stasis
ChannelVoice 4 Stasis
ChannelVoice 5 Stasis
ChannelVoice 6 Stasis
ChannelVoice 7 Stasis
Tremor2:Stuff.Voices8
|RMEnsure ELexplode  0 RMLoad Tremor2SoundFX:Original.ELexplode
|RMEnsure ELwoosh    0 RMLoad Tremor2SoundFX:Original.ELwoosh
|RMEnsure ELsiren    0 RMLoad Tremor2SoundFX:Original.ELsiren
|RMEnsure ELlaser    0 RMLoad Tremor2SoundFX:Original.ELlaser
|Echo <11>Waveforms...
|RMEnsure T2Chimes   0 RMLoad Tremor2SoundFX:T2Chimes
|RMEnsure T2Chord    0 RMLoad Tremor2SoundFX:T2Chord
|RMEnsure T2Dead     0 RMLoad Tremor2SoundFX:T2Dead
|RMEnsure T2Ding     0 RMLoad Tremor2SoundFX:T2Ding
|RMEnsure T2Flamer   0 RMLoad Tremor2SoundFX:T2Flamer
|RMEnsure T2Applause 0 RMLoad Tremor2SoundFX:T2Applause
|RMEnsure T2Gong     0 RMLoad Tremor2SoundFX:T2Gong

|ChannelVoice 1 ELexplode
|ChannelVoice 2 ELwoosh
|ChannelVoice 3 ELsiren
|ChannelVoice 4 ELlaser
|Tuning -&3000

|Tremor2:Stuff.SetupSound

| Clear kbd buffer
FX 15

|	Run Tremor2
Echo <11>Running Game Code
WimpSlot -min 2500K -max 2500K
Tremor2:!RunImage
Echo Please wait: saving screen image to !Scrap area
|	Reset everything
Unset Tremor2$KeyMap
Tremor2:Stuff.Voices1
ChannelVoice 1 1
Tuning 0
FX 15

|Set T2$ScreenShot Tremor2:T2ScrnShot
Set T2$ScreenShot <Wimp$ScrapDir>.T2ScrnShot
Screensave <T2$ScreenShot>
|Echo   
|Echo    Tremor 2
|Echo    ~~~~~~ ~
|Echo    Please note that this is
|Echo    a development version of
|Echo    Tremor 2.  Please read
|Echo    the conditions of use in
|Echo    the !Help file.
|Echo    Giles RC Morant.
|Echo   
|Echo     Giles RC Morant 1995,1996,1997
|Echo     Graphics  LR Cheers
If "<Alias$DTMode>" <> "" Then DTMode
Set Alias$T2_Backdrop *BackDrop <T2$ScreenShot> -Scale
If "<Giles>" <> "" Then T2_Backdrop