SCAR Code:
Function LumbyStairsDDTM: Integer;
var
StairsMP: TDTMPointDef;
StairsSP: array of TDTMPointDef;
StairsDDTM: TDTM;
DDTM, X, Y : Integer;
WhichAngle : Extended;
begin
SetArrayLength(StairsSP, 3);
StairsMP.Areashape := 0;
StairsMP.Areasize := 1;
StairsMP.Color := 8226182;
StairsMP.Tolerance := 20;
StairsMP.x := 625;
StairsMP.y := 77;
StairsSP[0].x := 616;
StairsSP[0].y := 65;
StairsSP[0].areasize := 1;
StairsSP[0].areashape := 0;
StairsSP[0].color := 65536;
StairsSP[0].tolerance := 20;
StairsSP[1].x := 625;
StairsSP[1].y := 53;
StairsSP[1].areasize := 1;
StairsSP[1].areashape := 0;
StairsSP[1].color := 8226182;
StairsSP[1].tolerance := 20;
StairsSP[2].x := 633;
StairsSP[2].y := 52;
StairsSP[2].areasize := 1;
StairsSP[2].areashape := 0;
StairsSP[2].color := 8226182;
StairsSP[2].tolerance := 20;
StairsDDTM.MainPoint := StairsMP;
StairsDDTM.SubPoints := StairsSP;
DDTM := AddDTM(StairsDDTM); // Changed Result To DDTM
// I Added this
// VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
WriteLn('DTM Loaded');
If FindDtmRotated(DDTM, X, Y, MMX1, MMY1, MMX2, MMY2, Radians(-35), Radians(35), 0.05,
WhichAngle) Then
Begin
Mouse(X, Y, 0, 0, True);
Wait(250 + Random(250));
FFlag(0);
End;
FreeDTM(DDTM);
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
end;