Replace
SCAR Code:
procedure setupplayer;
begin
HowManyPlayers:=1;
Players[0].name := ('UserNameHere');
Players[0].pass := ('PassWordHere');
end;
with
SCAR Code:
procedure setupplayer;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].name := ('UserNameHere');
Players[0].pass := ('PassWordHere');
end;
And
replace
SCAR Code:
begin
DisguiseScar('Microsoft Word - Document 1');
ClearDebug;
SetupSRL;
ActivateClient;
LoadMyStuff;
BenMouse := false;
MouseSpeed := 8;
with:
SCAR Code:
begin
DisguiseScar('Microsoft Word - Document 1');
ClearDebug;
SetupSRL;
SETUPPLAYER; //<---
ActivateClient;
LoadMyStuff;
BenMouse := false;
MouseSpeed := 8;