I am working on a catherby yew chopper and I can't seem quite not to get my ddtm working!
It doesn't click on the mini map, it goes onto other procedures.
Here is the code:
SCAR Code:
function RDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..4] of TDTMPointDef;
i : Integer;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 578;
dtmMainPoint.y := 146;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 2240307;
dtmMainPoint.Tolerance := 50;
dtmSubPoints[0].x := 578;
dtmSubPoints[0].y := 146;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 2240307;
dtmSubPoints[0].Tolerance := 50;
dtmSubPoints[1].x := 571;
dtmSubPoints[1].y := 138;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 1;
dtmSubPoints[1].Color := 4279889;
dtmSubPoints[1].Tolerance := 50;
dtmSubPoints[2].x := 582;
dtmSubPoints[2].y := 158;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 1;
dtmSubPoints[2].Color := 4279889;
dtmSubPoints[2].Tolerance := 50;
dtmSubPoints[3].x := 568;
dtmSubPoints[3].y := 156;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 1;
dtmSubPoints[3].Color := 1318948;
dtmSubPoints[3].Tolerance := 50;
dtmSubPoints[4].x := 588;
dtmSubPoints[4].y := 147;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 1;
dtmSubPoints[4].Color := 1318948;
dtmSubPoints[4].Tolerance := 50;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function WalkToYews: TPointArray; //BuumBlee- Parts of Script
var
DDTM, x, y, i: integer;
TreeAngle: Extended;
begin
DDTM := RDDTM;
RadialWalk(FindRoadColor, 234, 180, 66, -1, 0);
RadialWalk(FindRoadColor, 289, 360, 74, -1, 0);
if FindDTMRotated(DDTM, X, Y, 664, 29, 689, 58, -pi, pi, 0.2,
TreeAngle) then
begin
Mouse(X, Y, 5, 5, True);
Flag;
AntiRandoms;
FreeDTM(DDTM);
end;
end;
Basically it would click on the rocks near the yews.