Ok so im trying to make my script walk from the willows to the bank in draynor so i did a DDTM of the bankers in the bank set the parent point tolerance to 225 and the sub points to 5. Heres the walk to bank script and the DeclareDTMs script:
WalkToBank:
SCAR Code:
function WalkToBank: boolean;
var
Tries, BankDTM: Integer;
begin
BankDTM := DeclareDTMs(2);
repeat
if DTMRotated(BankDTM, x, y, MMx1, MMy1, MMx2, MMy2) then
begin
Result := True;
MakeCompass('N')
Mouse(x, y, 5, 5, True)
writeln('Walking to Bank')
FFlag(0);
end else
Result := False;
Tries := Tries + 1;
writeln('Could not find BankDTM Tries: '+IntToStr(Tries))
until(Result = True) or (Tries = 25)
FreeDTM(BankDTM);
end;
and the Declare DTMs function the bank is the second case:
SCAR Code:
function DeclareDTMs(WalkNumber: Integer): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array[0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
case WalkNumber of
1: begin
dtmMainPoint.x := 746;
dtmMainPoint.y := 220;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 3244424;
dtmMainPoint.Tolerance := 255;
dtmSubPoints[0].x := 737;
dtmSubPoints[0].y := 219;
dtmSubPoints[0].AreaSize := 4;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 3240840;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 751;
dtmSubPoints[1].y := 216;
dtmSubPoints[1].AreaSize := 4;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 3310731;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 747;
dtmSubPoints[2].y := 227;
dtmSubPoints[2].AreaSize := 4;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 3244424;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 740;
dtmSubPoints[3].y := 224;
dtmSubPoints[3].AreaSize := 4;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 3242632;
dtmSubPoints[3].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
2: Begin
dtmMainPoint.x := 778;
dtmMainPoint.y := 310;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 283232;
dtmMainPoint.Tolerance := 255;
dtmSubPoints[0].x := 769;
dtmSubPoints[0].y := 291;
dtmSubPoints[0].AreaSize := 4;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 7040116;
dtmSubPoints[0].Tolerance := 7;
dtmSubPoints[1].x := 785;
dtmSubPoints[1].y := 297;
dtmSubPoints[1].AreaSize := 4;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 4342599;
dtmSubPoints[1].Tolerance := 10;
dtmSubPoints[2].x := 785;
dtmSubPoints[2].y := 316;
dtmSubPoints[2].AreaSize := 4;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 4342599;
dtmSubPoints[2].Tolerance := 27;
dtmSubPoints[3].x := 769;
dtmSubPoints[3].y := 317;
dtmSubPoints[3].AreaSize := 4;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 4342599;
dtmSubPoints[3].Tolerance := 255;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
end;
end;