| !Run file for !QServer
| An internet Quake helping hand ...
| By Allan J. Eagle
| Version 1.12 (16th January 1998)

Set QServer$Dir <Obey$Dir>
Set QServer$Path <Obey$Dir>.
Set QServerChoices$Path <Obey$Dir>.Choices.

Iconsprites <QServer$Dir>.!Sprites

| Check for copy of Quake
Set QuakeSeen 0
If "<Quake$Dir>" <> "" Then Set QuakeSeen 1
If "<ArcQuake$Dir>" <> "" Then Set QuakeSeen 1
If "<QuakeSeen>" = "0" Then Error Quake needs to be seen by the filer before running this program ...

If "<Quake$Dir>" = "" Then Set Quake$Dir <ArcQuake$Dir>

%Set Alias$IfRM SetEval Test$Eval 1|M RMEnsure %%0 0 SetEval Test$Eval 0|MIf Test$Eval Then %%1 %%2 %%3 %%4 %%5 %%6 %%7|M Unset Test$Eval

If "<QServer$Running>" = "" Then Set QServer$Running 0
Run QServer:Sounds.LoadSounds

Wimpslot -min 400k -max 400k
Wimpslot -min 320k -max 320k

Run QServer:!RunImage
If "<QServer$Running>" = "0" Then Run QServer:Sounds.KillSounds
If "<QServer$Running>" = "0" Then Unset QServer$Running