something is still not working....
if anyone could help that'd be great... thanks so far RM!!! you t3h shiz 
SCAR Code:
program New;
{.include srl/srl.scar}
var
I, x, y, z :integer;
function GetAngle(xc, yc, x2, y2: integer): Extended;
begin
Result:= (ArcTan2(y2 - yc, x2 - xc) * (180 / Pi)) + 90;
if Result < 0.0 then
Result:= Result + 360.0;
end;
procedure CalcAngle(hx, hy: integer);
var
angle: extended;
lm, ln, im: integer;
pnt: tpoint;
begin
angle := Radians(GetAngle(hx, hy, mscx, mscy));
pnt := IntToPoint(hx, hy);
pnt := RotatePoint(pnt, angle, mmcx, mmcy);
MoveMouse(pnt.x, pnt.y);
Writeln(IntToStr(pnt.x)+' '+ inttostr(pnt.y));
Writeln(FloatToStr(degrees(angle)));
end;
begin
setupSRL;
x := mmcx;
y := mmcy;
FindColorSpiral(x, y, FindLadderColor, mmx1, mmy1, mmx2, mmy2);
CalcAngle(x, y);
//writeln(inttostr(x)+' '+ Inttostr(y));
//Writeln(InttoStr(distance(x, y, mmcx, mmcy)));
end.
it moves the mouse to the mm point lol...
it moves the mouse to hx, hy