SRL Archive - Other Scripts

Some one please test this, it works great for me :)

{.Script Info:
# ScriptName  = Break Out Breaker
# Author      = Icefire908
# Description = Automates play in Break Out
# Version     = 1.0
# Date        = Friday, May 25th 2007
# Comments    = For use at [url]http://seven-forums.com/index.php?autocom=arcade&code=play&g=8[/url]
/Script Info}
{Drag Cross hairs over to game, Silent mouse can be used.}

program BreakOutPlayer;

const
  BallColor = 16777215;
  BallColorTolerance = 100;
  
var
  x, y, i, aX, bX: Integer;

procedure MoveTabToBall;
begin
  if (FindColorSpiralTolerance(x, y, BallColor, 1, 53, 381, 379, BallColorTolerance)) then
  begin
  aX := x - 15;
  bX := x + 10;
    i := Random(10)
      case i of
      0: MoveMouse(aX, 344);
      1: MoveMouse(bX, 344);
      2: MoveMouse(aX, 344);
      3: MoveMouse(bX, 344);
      4: MoveMouse(aX, 344);
      5: MoveMouse(bX, 344);
      6: MoveMouse(aX, 344);
      7: MoveMouse(bX, 344);
      8: MoveMouse(aX, 344);
      9: MoveMouse(bX, 344);
    end;
  end;
end;

begin
  ActivateClient;
  Wait(1000);
  ClickMouse(113, 230, true);
  Wait(300);
  repeat
    MoveTabToBall;
  until (false);
end.

I need help with when there's multiple balls flying around because it doesn't affect the script running time but the efficiency could be a lot better.