Hey all it's been awhile, im throwing togeater a quick script to help me farm rare mystery seeds for my rally on potfarm, a addictive facebook game I've been stuck on. I've been able to work through all of the "random events" and the script its self works great but once in a blue moon the game glitches and the screen scrolls way down which hides the "farm plots" from my bot because its too far up the screen
long story short im trying to click the screen and drag it up when ever a bitmap is detected, I've already handled the detection and the procedure call my only problem is when I try use holdmouse and move it x, y + 250 it teleports the mouse without it really dragging the mouse up. As you can tell im painfully old school and my question is simple is there something like movemousesmooth(x, y); like in scar that I can use for my application without need of SRL or includes?
Thanks for your help
this is the problematic procedure
Code:
procedure DetectGlitch;
var Glitch, X, Y, a, b: Integer;
begin
Glitch := BitmapFromString(11, 3, 'meJyzjSkTvvCU4d1//pN3baZtCay' +
'a61sy1TIsHyiiseUckG0bXeZXNsMlvdU6qtgzrxco4pnfZxleYJ9Q' +
'DVFsF1vhUzTZt3SaTXQpUByo1yqi0C6uCigFUQAAzH0q9g==');
if (FindBitmapIn(Glitch, X, Y, 488, 366, 541, 409)) Then
begin
writeln('Glitch detected');
MoveMouse(711, 356);
GetMousePos(a, b);
wait(400);
HoldMouse(a, b, mouse_Left);
wait(400);
MoveMouse(a, b + 250);
GetMousePos(a, b);
ReleaseMouse(a, b, mouse_Left);
wait(200);
end else
writeln('no glitch');
FreeBitmap(Glitch);
wait(200);
end;