EvilmanK
01-15-2012, 09:30 AM
Yay! First script time! This script is for: CURVE BALL! (http://www.addictinggames.com/sports-games/curveball.jsp)
Here's the code:
program CurveBall;
procedure PlayPong;
var
x,y: integer;
begin
if
FindColorSpiralTolerance(x, y, 15728626, 47, 52, 612, 428, 0)
then
//above finds the color of the ball to find coords to move mouse to
begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
end;
end;
begin
MoveMouse(333, 223); //move mouse to the "start game" button
ClickMouse(333, 223, 1); //click "start game"
wait(2000); //waits 2 seconds to account for "level one"
repeat
PlayPong;
until(IsKeyDown(VK_DOWN));
end.
Or, you can find it in the .simba attached below!
Press the down arrow on your keyboard to stop the script. Thanks to Kyle Undefined for that :)
Here's the code:
program CurveBall;
procedure PlayPong;
var
x,y: integer;
begin
if
FindColorSpiralTolerance(x, y, 15728626, 47, 52, 612, 428, 0)
then
//above finds the color of the ball to find coords to move mouse to
begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
end;
end;
begin
MoveMouse(333, 223); //move mouse to the "start game" button
ClickMouse(333, 223, 1); //click "start game"
wait(2000); //waits 2 seconds to account for "level one"
repeat
PlayPong;
until(IsKeyDown(VK_DOWN));
end.
Or, you can find it in the .simba attached below!
Press the down arrow on your keyboard to stop the script. Thanks to Kyle Undefined for that :)