Could somebody please help me? I am getting this error:
SCAR Code:
[Runtime Error] : Exception: Access violation at address 006D72AA in module 'scar.exe'. Read of address 00000000 in line 31 in script C:\Program Files\SCAR 3.15\Scripts\ess.scar
for this script:
SCAR Code:
program essMiner;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
var
x, y, paxe: Integer;
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name :='pureguy304';
Players[0].Pass :='';
Players[0].Nick :='regu';
Players[0].Active:=True;
end;
procedure DTM;
begin
paxe := DTMFromString('78DA6314656460980FC448C0D9CE8E4107280' +
'412FD0F048C1C40D616543510591809A45931CDC150230C64CD22' +
'A04601C85A46408D241176F101597308A8E107B296506E17000ED' +
'90B69');
end;
procedure WieldAxe;
begin
Status('Wielding pickaxe');
if (FindDTM(paxe, x, y, MIX1, MIY1, MIX2, MIY2)) then Mouse(x, y, 8, 8, true) else
begin
GameTab(5);
if (FindDTM(paxe, x, y, MIX1, MIY1, MIX2, MIY2)) then Exit else
begin
Writeln('Could not find pickaxe. Exiting.');
LogOut;
TerminateScript;
end;
end;
FindPickHeadColor;
end;
begin
SmartSetup('world108', True, True, False);
SetTargetDC(SmartGetDC);
SetupSRL;
ActivateClient;
DeclarePlayers;
Status('Logging in player');
if not LoggedIn then LoginPlayer;
WieldAxe;
MakeCompass('N');
end.
Thankyou.