Curveball script help

[Footy]

Hey guys, I decided to make a curveball script out of boredom, but It doesent work well... At all... I decided to use pixelshift to figure out when the round was over, but the mouse is uber jumpy and slow at getting to the ball. Can someone show me what I;m doing wrong?

program Curveball;
{$i srl/srl.simba}

Procedure StartGame;
begin
Mouse(330, 225, 3, 3, 1);
wait(randomrange(1000,2000));
end;

Procedure Ingame;
var
x, y:integer;
PBox:TBox;
begin
PBox := IntToBox(0, 0, 616, 413);
repeat
findcolorspiraltolerance(x, y, 10485682, 0, 0, 616, 431, 10);
Movemouse(x, y);
until(pixelshift(Pbox, 10) = 0)
end;

procedure StartRound;
var
x, y:integer;
PBox: TBox;


begin
PBox := IntToBox(0, 0, 616, 413);
if pixelshift(Pbox, 20) < 10 then
begin
findcolorspiraltolerance(x, y, 10485682, 0, 0, 616, 431, 3)
Mouse(x, y, 5, 5, 1);
end else
Ingame;
end;

begin
SetupSRL
StartGame
repeat
StartRound
Ingame
until(false);

end.

Game = http://www.addictinggames.com/sports-games/curveball.jsp

[Main]

You don't need pixel shift.
Because ball is always green when you are suppost to block it. You don't need to worry about round over.

Because all then you gotta do is

Begin
If Findcolortolerance( X, Y, GreenCol, XS, YS, XE,YE, GreenTol) Then
MoveMouse( X, Y);
End;

No need for pixel shift.

Allow me to finish 1 round of the game.

EDIT: How the hell do you restart after you finish the game? Do you have to refresh the browser?

[Footy]

but at the end of a round, you have to click the ball to start the next round, So I used pixelshift to determine when the round was over. I guess I could just spamclick the ball, :D
Begin
If Findcolortolerance( X, Y, GreenCol, XS, YS, XE,YE, GreenTol) Then
MoveMouse( X, Y);
Clickmouse(x, y);
End;

[Main]

Program CurveBall;
{$i SRL\SRL.simba}
Var
WT: Integer;
OldTP, TP, CD: TPoint;
TPA: TPointArray;
ATPA: array of TPointArray;

Var
OldDB: String;

Procedure SDB( S: String);
Begin
If S = OldDB Then
Exit;
Writeln( S);
OldDB := S;
End;

Function TPEqual( TP1, TP2: TPoint):Boolean;
Begin
Result := (round( abs(TP1.X - TP2.X)) < 10) and (round( abs(TP1.X - TP2.X)) < 10);
End;

Function CoordToStr( TP: TPoint): String;
Begin
Result := '( ' + IntToStr( TP.X) + ', ' + IntToStr( TP.Y) + ')';
End;

Begin
Setupsrl;
MarkTime( WT);
GetClientDImensions( CD.X, CD.Y);
Mousespeed:=99999;
Repeat
If FindColorsTolerance( TPA, 6684547, 1, 1, CD.X - 1, CD.Y - 1, 3) and MiddleTPAEx( TPA, TP.X, TP.Y) Then
Begin
MoveMouse( TP.X, TP.Y);
If Not TPEqual( TP, OLDTP) Then
Begin
MarkTime( WT);
OLDTP := TP;
End Else
If TimeFromMark( WT) > 500 Then
ClickMouse( TP.X, TP.y, 1);
End;
Until False;
End.

That should do the trick :)

So what I did was have a TPEqual function to tell the script whether or not the current position is same as the previous position. And if the ball's position didn't change significantly in the previous 500ms then it clicks on the ball.

[Footy]

I understand bits of it, but I really have to idea what TPA's are yet, other then Tpoint is a co-ordinate. Thanks! works well!

[Main]

Heres the much simpler and slightly faster one. Am sure it can be faster with a better logic, and maybe use count color change in the score box rather than clicking it any time.

Program CurveBall;
{$i SRL\SRL.simba}
Var
TP: TPoint;

Begin
Setupsrl;
Repeat
If FindColorTolerance( TP.X, TP.Y, 52427367, 85, 75, 500, 350, 74) Then
MoveMouse( TP.X, TP.Y);
If ( GetColor(551, 220) = 16580471) Then
ClickMouse2( true);
Until False;
End.

[Footy]

This one makes a little more sence, but do we have to use tpoints? couldnt it be done with x and y instead?
And at your other edit, yes, you have to refresh the game every time, which is likely why it has sooo many hits.

[Main]

i can't seems to go to lvl 10. But if you wanna do half legit half bot, its very very very easy. (So just restart yourself).

[Footy]

Looking at comments on other bots, It appears no-one really gets much farther then 8-9. Playing legit I think I got to 10 once, Its insane! Is there any advantage to using Tpoints rather then x and y integers?

[Main]

shorter line
What I mean is if you restart the script yourself then you can probably get pretty high lvls