Simba Code:procedure MiddlePoint;
var
mpx,mpy:integer;
ax,ay: Tpoint;
begin
mpx := ax.x;
mpy := ay.y;
mpx := ((606 + 649)/2);
writeln('mp X' + ToStr(mpx));
if mpx > 0 then writeln('yay') else writeln('boo');
mpy := ((15 + 15)/2);
writeln('mp Y' +ToStr(mpy));
MMouse(ax.x,ay.y,0,0); // or MMouse(mpx, mpy, 0, 0) Both move to top left
end;
begin
SetupSRL;
MiddlePoint;
When I do this it just moves the mouse to the top left. Not sure why?




Reply With Quote

