Hey, its me, Dervish.
I already posted this, but since the script worked the second time I ran it, I deleted the thread.
Now that i get the error again I re-posted.
Error :
Code:
[Runtime Error] : Out Of Range in line 220 in script C:\Program Files\SCAR 3.15b\Scripts\Clay Softener.scar
Lines 200-240 (DDTM Stuff) :
SCAR Code:
dtmSubPoints[2].y := 320;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 8555405;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 778;
dtmSubPoints[3].y := 313;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8555405;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 761;
dtmSubPoints[4].y := 318;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8555405;
dtmSubPoints[4].Tolerance := 0;
dtmSubPoints[5].x := 755;
dtmSubPoints[5].y := 317;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 8555405;
dtmSubPoints[5].Tolerance := 0;
dtmSubPoints[6].x := 768;
dtmSubPoints[6].y := 341;
dtmSubPoints[6].AreaSize := 0;
dtmSubPoints[6].AreaShape := 0;
dtmSubPoints[6].Color := 8555405;
dtmSubPoints[6].Tolerance := 0;
dtmSubPoints[7].x := 780;
dtmSubPoints[7].y := 317;
dtmSubPoints[7].AreaSize := 0;
dtmSubPoints[7].AreaShape := 0;
dtmSubPoints[7].Color := 8555405;
dtmSubPoints[7].Tolerance := 0;
And for the sake of it, heres everything for that :
SCAR Code:
function SetDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..7] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 766;
dtmMainPoint.y := 320;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8555405;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 766;
dtmSubPoints[0].y := 320;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8555405;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 766;
dtmSubPoints[1].y := 337;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 8555405;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 770;
dtmSubPoints[2].y := 320;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 8555405;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 778;
dtmSubPoints[3].y := 313;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8555405;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 761;
dtmSubPoints[4].y := 318;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8555405;
dtmSubPoints[4].Tolerance := 0;
dtmSubPoints[5].x := 755;
dtmSubPoints[5].y := 317;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 8555405;
dtmSubPoints[5].Tolerance := 0;
dtmSubPoints[6].x := 768;
dtmSubPoints[6].y := 341;
dtmSubPoints[6].AreaSize := 0;
dtmSubPoints[6].AreaShape := 0;
dtmSubPoints[6].Color := 8555405;
dtmSubPoints[6].Tolerance := 0;
dtmSubPoints[7].x := 780;
dtmSubPoints[7].y := 317;
dtmSubPoints[7].AreaSize := 0;
dtmSubPoints[7].AreaShape := 0;
dtmSubPoints[7].Color := 8555405;
dtmSubPoints[7].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function LoadAllDTMWalks(WalkNumber: Integer): Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: array[0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
case WalkNumber of
1: begin
dtmMainPoint.x := 766;
dtmMainPoint.y := 320;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8555405;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 766;
dtmSubPoints[0].y := 320;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8555405;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 766;
dtmSubPoints[1].y := 337;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 8555405;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 770;
dtmSubPoints[2].y := 320;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 8555405;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 778;
dtmSubPoints[3].y := 313;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8555405;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 761;
dtmSubPoints[4].y := 318;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8555405;
dtmSubPoints[4].Tolerance := 0;
dtmSubPoints[5].x := 755;
dtmSubPoints[5].y := 317;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 8555405;
dtmSubPoints[5].Tolerance := 0;
dtmSubPoints[6].x := 768;
dtmSubPoints[6].y := 341;
dtmSubPoints[6].AreaSize := 0;
dtmSubPoints[6].AreaShape := 0;
dtmSubPoints[6].Color := 8555405;
dtmSubPoints[6].Tolerance := 0;
dtmSubPoints[7].x := 780;
dtmSubPoints[7].y := 317;
dtmSubPoints[7].AreaSize := 0;
dtmSubPoints[7].AreaShape := 0;
dtmSubPoints[7].Color := 8555405;
dtmSubPoints[7].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
end;
end;
Don't worry, I call the use later on but the out of range is the line :
SCAR Code:
dtmSubPoints[5].x := 755;
It is MY script.
Help me please