I try to do DDTM walking procedure but when i run my script SCAR says:
SCAR Code:
[Runtime Error] : Exception: Access violation at address 006D87FE in module 'scar.exe'. Read of address 00000000 in line 43 in script C:\SCAR 3.15\Scripts\probaDDTM.scar
here is script:
SCAR Code:
program New;
{.include SRL/SRL.scar}
Var
My1DTM,x, y: Integer;
WhichAngle: Extended;
Procedure SetMy1DDTM;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..2] of TDTMPointDef;
My1DDTM: TDTM;
begin
dtmMainPoint.x := 27;
dtmMainPoint.y := 5;
dtmMainPoint.AreaSize := 1;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 6531265;
dtmMainPoint.Tolerance := 255;
dtmSubPoints[0].x := 12;
dtmSubPoints[0].y := 11;
dtmSubPoints[0].AreaSize := 1;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 1914478;
dtmSubPoints[0].Tolerance := 30;
dtmSubPoints[1].x := 28;
dtmSubPoints[1].y := 31;
dtmSubPoints[1].AreaSize := 1;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 2777408;
dtmSubPoints[1].Tolerance := 30;
My1DDTM.MainPoint := dtmMainPoint;
My1DDTM.SubPoints := dtmSubPoints;
My1DTM := AddDTM(My1DDTM);
end;
begin
SetUpSRL;
if FindDtmRotated(My1DTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi / 2, Pi / 2, 0.1, WhichAngle)then
begin
Mouse(x,y,1,1,True);
end else writeLN('kpjpjp');
TerminateScript;
end.
Plz Help.