Simba Code:
program new;
Procedure StartGame;
Begin
MoveMouse(331, 222);
ClickMouse(331, 222, 1);
End;
Procedure HitBall;
Var
x, y:Integer;
Begin
if FindColorSpiralTolerance(x, y, 10944439, 50, 56, 611, 426, 20) then
MoveMouse(x, y)
End;
Procedure Click;
Var
x, y, Ball:Integer;
Begin
Ball := DTMFromString('mwQAAAHic42RgYJAFYn0gZgNiTiA2BGJpBgiQAmJzKM0BxDpAzA7EulBxSag6EP3q/1OGff/XMbj+l2So+B8BxOEMfv9VGIL/azEs+t/DsPz/JAZiACMRGA4AE6oTew==');
If FindDTM(Ball, X, Y, 1429, 564, 1483, 611) Then
ClickMouse(X, Y, 1);
FreeDTM(Ball);
end;
begin
StartGame;
Click;
Repeat
Hitball;
until(false);
end.
By the way, Im just fooling around with the game "curve ball" on addictinggames.com