Im trying to load multiple ddtm's but keep failingheres what i want to do:
SCAR Code:function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array[0..3] of TDTMPointDef;
TempTDTM: TDTM;
RoadColour, RockColour : Integer;
begin
case WalkNumber of
1: begin
RoadColour := FindVarrockRoadColor;
RockColour := FindRockColor;
dtmMainPoint.x := 1024;
dtmMainPoint.y := 299;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := RoadColour;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 1024;
dtmSubPoints[0].y := 299;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := RoadColour;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 1012;
dtmSubPoints[1].y := 298;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := RockColour; //rock
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 1007;
dtmSubPoints[2].y := 303;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := RockColour; //rock
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 1027;
dtmSubPoints[3].y := 309;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := RoadColour;
dtmSubPoints[3].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
end;
end;
i want to load the one above and:
SCAR Code:function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array[0..3] of TDTMPointDef;
TempTDTM: TDTM;
RoadColour : Integer;
begin
case WalkNumber of
1: begin
RoadColour := FindVarrockRoadColor;
dtmMainPoint.x := 1114;
dtmMainPoint.y := 328;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := RoadColour;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 1114;
dtmSubPoints[0].y := 328;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := RoadColour;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 1123;
dtmSubPoints[1].y := 293;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := RoadColour;
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 1134;
dtmSubPoints[2].y := 360;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := RoadColour;
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 1082;
dtmSubPoints[3].y := 330;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := RoadColour;
dtmSubPoints[3].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
end;
end;
but i keep getting errors.. i tried this:
SCAR Code:function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array[0..3] of TDTMPointDef;
TempTDTM: TDTM;
RoadColour, RockColour : Integer;
begin
case WalkNumber of
1: begin
RoadColour := FindVarrockRoadColor;
RockColour := FindRockColor;
dtmMainPoint.x := 1024;
dtmMainPoint.y := 299;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := RoadColour;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 1024;
dtmSubPoints[0].y := 299;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := RoadColour;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 1012;
dtmSubPoints[1].y := 298;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := RockColour; //rock
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 1007;
dtmSubPoints[2].y := 303;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := RockColour; //rock
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 1027;
dtmSubPoints[3].y := 309;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := RoadColour;
dtmSubPoints[3].Tolerance := 5;
2: begin
dtmMainPoint.x := 1114;
dtmMainPoint.y := 328;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := RoadColour;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 1114;
dtmSubPoints[0].y := 328;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := RoadColour;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 1123;
dtmSubPoints[1].y := 293;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := RoadColour;
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 1134;
dtmSubPoints[2].y := 360;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := RoadColour;
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 1082;
dtmSubPoints[3].y := 330;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := RoadColour;
dtmSubPoints[3].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
end;
end;
but that didnt workany pointers?


heres what i want to do:
Reply With Quote



i just needed to load the other under the first end; 









but just one more question.. how can i make it walk all my ddtms? heres the funtion i use to walk to them
