This Runtime error prevents me from running a script for a sufficent amount of time (5HRs) Its a access violation error, and happens in SRL itslsef (mining.scar) can anyone fix it?
SRL: 4.0
SCAR: 3.12
ERROR: [Runtime Error] : Exception: Access violation at address 00728DB9 in module 'scar.exe'. Read of address 0354FF5C in line 131 in script \includes\SRL/SRL/skill/mining.scar
Heres the function error line is pointed out
SCAR Code:
function GasFound(fx, fy : Integer) : Boolean;
var
Color : array [1..2] of integer;
CountData : array of Integer;
i, Gx, Gy, count, n, FindTimes : Integer;
begin
Color[1] := 8296866;
Color[2] := 8951705;
Gx := fx;
Gy := fy;
FindTimes := 3;
for i := 1 to 2 do
begin
if (FindColorSpiralTolerance(Gx, Gy, Color[i], fx - 30, fy - 30,
fx + 30, fy + 30, 20)) then
begin
SetArrayLength(CountData, FindTimes);
while (n < FindTimes) do
begin
CountData[n] := CountColorTolerance(Color[i], Gx - 20, Gy - 20, Gx + 20, Gy + 20, 20); //ERROR LINE
n := n + 1;
if (n = FindTimes) then Break; // No need to Wait(100) again...
Wait(100);
end;
BubbleSort(CountData);
Count := iAbs(CountData[Length(CountData)-1] - CountData[0]);
if (Count > 40) then
begin
Result := FindGas(gx, gy);
if (Result) then
Writeln('** Found Gas ** Pixel Count Change is [' + inttostr(Count) + ']' );
end;
Gx := fx;
Gy := fy;
end;
end;
end;
Thanks.
I didn't post it in the Script makers Thread becuase its to do the SRL Include.