One step all plays zurroball script

[jameshibb]

This is a rather effective script that clicks 60 times (acording to scar actually between 50-55 in zurroball) and then immediatly sends score, for full 1k neopoints, then it goes again! set the const to the plays remaining for you, and hit start its that simple enjoy forum readers!

[scar]{select the window, set the times to play, and then click start it will go as
many times as you set sending score each time, enjoy folks!}

program ZurroBall;
var x, y, ballcolor, played, clicks:integer;
const
timestoplay=3;
procedure begingame;
begin
if(findcolor(x, y, 16727871, 33, 158, 254, 376)) then
   begin
   clickmouse(x, y, true);
   end else
   begin
   clickmouse(299, 199, true);
   end;
end;

begin
repeat
   game
   wait(1000)
   ballcolor := GetColor(245, 89);
   repeat
      repeat
         wait(25)
      until(findcolortolerance(x, y, ballcolor, 5, 150, 449, 264, 20))
      clickmouse(x, y, true)
      clicks:=clicks+1
      writeln('clicked for time number' + inttostr(clicks))
   until(clicks=60)
   clicks:=0
   clickmouse(562, 380, true)
   played:=played+1
   wait(3000)
   clickmouse(303, 293, true)
   wait(2000)
until(played=timestoplay)
end.
[/scar]

[Freddy1990]

Looks ok, but try to keep some decent scripting standards, you should place more semicolons and indent better... Also, you could replace "var := var + 1;" with "Inc(var);":
[scar]{select the window, set the times to play, and then click start it will go as
many times as you set sending score each time, enjoy folks!}

program ZurroBall;

var
  x, y, ballcolor, played, clicks: Integer;

const
  timestoplay = 3;

procedure BeginGame;
begin
  if FindColor(x, y, 16727871, 33, 158, 254, 376) then
    ClickMouse(x, y, True)
  else
    ClickMouse(299, 199, True);
end;

begin
  repeat
    clicks := 0;
    BeginGame;
    Wait(1000);
    ballcolor := GetColor(245, 89);
    repeat
      repeat
        Wait(25);
      until FindColorTolerance(x, y, ballcolor, 5, 150, 449, 264, 20);
      ClickMouse(x, y, True);
      Inc(clicks);
      WriteLn('clicked for time number ' + IntToStr(clicks))
    until (clicks = 60);
    ClickMouse(562, 380, True);
    Inc(played);
    Wait(3000);
    ClickMouse(303, 293, True);
    Wait(2000);
  until (played = timestoplay);
end.[/scar]

[jameshibb]

thanks for that, havent had much scripting experience, and haven't seen the inc() function, so thanks for that