Special Ed
2007-08-21 00:07:57
Well I was running a script and it was looking for randoms then all of a sudden it comes up with this error and stops, I don't know if the Devs knew this already or what but I thought I'd might as well post it.
Debug Box…
[PHP]Found a box, solving…
Found a box, solving…
Question is:
Which shape has number 2
[Runtime Error] : Exception: Access violation at address 01CD3B0C in module 'BoxPlugin.dll'. Write of address 456AA14C in line 212 in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Core/AntiRandoms/Box.scar[/PHP]
and the the lines of Box.scar…
Debug Box…
[PHP]Found a box, solving…
Found a box, solving…
Question is:
Which shape has number 2
[Runtime Error] : Exception: Access violation at address 01CD3B0C in module 'BoxPlugin.dll'. Write of address 456AA14C in line 212 in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Core/AntiRandoms/Box.scar[/PHP]
and the the lines of Box.scar…
function SolveBox: Boolean;{187}
var
side, st2: Integer;
shapeQ, shape, ans: string;
numQ, num: Integer;
x, y: Integer;
c: TCanvas;
begin
while OpenBox do
begin
WriteLn('Found a box, solving...');
Wait(1000);
GetQuestion(numQ, shapeQ);
if (shapeQ = '') and (numQ = 10) then
continue;
WriteLn('Question is:');
if shapeQ = '' then
WriteLn('Which shape has number ' + IntToStr(numQ))
else
WriteLn('What number is the ' + shapeQ);
st2 := GetSystemTime;
repeat
side := GetBoxSide;
c := GetBitmapCanvas(side);
if (ScreenShots) then
{212} SaveBitmap(side, ScriptPath + 'box_debug.bmp');
ProcessPicture(c, shape, num, 0);
FreeBitmap(side);
if (num = numQ) or (shape = shapeQ) then
begin
if num = numQ then
ans := shape
else
ans := IntToStr(num);
WriteLn('Answer is ' + ans);
TakeScreen('Solved box answer - '+Ans);
if FindText(x, y, ans, upchars, 116, 286, 183, 311) then
Mouse(120, 290, 30, 10, True);
if FindText(x, y, ans, upchars, 235, 286, 302, 311) then
Mouse(240, 290, 30, 10, True);
if FindText(x, y, ans, upchars, 350, 286, 417, 311) then
Mouse(355, 290, 30, 10, True);
NewBoxes := NewBoxes + 1;
WriteLn('******** SOLVED BOX RANDOM ********');
WriteFileString(TheFile, '******** SOLVED BOX RANDOM ********' +
Chr(13));
Result := True;
Break;
end;
until GetSystemTime > st2 + 12000;
Wait(1500 + Random(1000));
end;
end; {239}