seeing as no one else seems to want to help....
nearly all of my DDTM's are just clicking on the edge of the MM. here's everything....
SCAR Code:
RockDTM:Integer;
TempDDTM:TDTM;
WhichAngle:Extended;
SCAR Code:
procedure SetRockDDTM;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..3] of TDTMPointDef;
begin
dtmMainPoint.x := 251;
dtmMainPoint.y := 130;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 1;
dtmMainPoint.Color := 7831424;//Road
dtmMainPoint.Tolerance := 10;
dtmSubPoints[0].x := 231;
dtmSubPoints[0].y := 120;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 1;
dtmSubPoints[0].Color := 4938579;//Rock
dtmSubPoints[0].Tolerance := 10;
dtmSubPoints[1].x := 227;
dtmSubPoints[1].y := 113;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 1;
dtmSubPoints[1].Color := 4938579;
dtmSubPoints[1].Tolerance := 10;
dtmSubPoints[2].x := 222;
dtmSubPoints[2].y := 117;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 1;
dtmSubPoints[2].Color := 4938579;
dtmSubPoints[2].Tolerance := 10;
dtmSubPoints[3].x := 222;
dtmSubPoints[3].y := 123;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 1;
dtmSubPoints[3].Color := 4938579;
dtmSubPoints[3].Tolerance := 10;
TempDDTM.MainPoint := dtmMainPoint;
TempDDTM.SubPoints := dtmSubPoints;
RockDTM := AddDTM(TempDDTM);
end;
SCAR Code:
Function FindRocks:Integer;
var
xx, yy:Integer;
begin
SetRockDDTM;
if FindDtmRotated(RockDTM, xx, yy, MMX1, MMY1, MMX2, MMY2, -PI*2, PI*2, 0.2,
WhichAngle) then
begin
Result:=GetColor(xx,yy)
Writeln('Rock Colour is:'+(IntToStr(GetColor(xx,yy)) ))
Mouse(xx,yy,2,2,true)
Flag;
end;
end;
-RK
Edit: it turns out for some reason all it does is click on the road, even if the rocks aren't anywhere near it...wacked out >.<