Const
StartPlayer = 0;
NumberOfUsers = 4; // How many players are you using?
YourSRLID = '6013'; // Must be a string!
YourSRLPass = '*******'; // Must be a string!
RemoteControlMasterNickName = 'PMLoads';
MinutesPerLoad = 20; // Max minutes per load.
VEMLoads = 4;
LSMLoads = 2;
PMLoads = 10;
SmartPrefix = 'world123';
{$IFDEF Voice}Voice = 'Microsoft Sam'; {$ENDIF}
VersionNumber = '0.03';
WizzyDebug = True;
{--------------------------------------------------------
Setup Player Names, Passes and NickNames here.
--------------------------------------------------------}
Procedure DeclarePlayers;
Begin
NumberOfPlayers( NumberOfUsers );1
CurrentPlayer := StartPlayer;
Players[0].Name :='*******';
Players[0].Pass :='********';
Players[0].Nick :='****';
Players[0].Active:=True;
Players[0].Loc := 'Bank';
Players[0].Strings[0] := 'Iron';
Players[0].Strings[1] := '';
Players[0].Strings[2] := '';
Players[0].Booleans[0] := True; // Is The Pick Equipped?
Players[0].Booleans[1] := True; // False for brightness Check Once.
Players[0].Strings[3] := 'PMVEM'; // 'VEM', 'LSM', PMRMM, PMVEM
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
SetPlayerNameTPAs;
End;