Author Topic: Zurroball Released Oct 28 2009  (Read 550 times)

Offline uncfan1119

  • Leecher
  • Posts: 4
  • Rep: 0
    • View Profile
    • Email
Zurroball Released Oct 28 2009
« on: October 28, 2009, 01:55:17 pm »
Not much, but it's gotten me 2 trophies.

Directions: High game quality, 840x560 game. Works with any ball, I used the eyeball. :D

[scar]program New;
var x,y,ballcolor:Integer;
begin
ballcolor:=getColor(324,91);
repeat
findColor(x,y,ballcolor,5,4,631,449);
clickMouse(x,y,true);
wait(5+random(10));
until(x=50993594396666666666666666666666666666666666666666666666666666666666668);
end.[/scar]
« Last Edit: October 28, 2009, 01:57:25 pm by uncfan1119 »

Freddy1990.com

Zurroball Released Oct 28 2009
« on: October 28, 2009, 01:55:17 pm »

Offline Freddy

  • Owner
  • *****
  • Posts: 2614
  • Rep: 19
    • MSN Messenger - freddy1990@gmail.com
    • AOL Instant Messenger - Freddy199O
    • View Profile
    • Email
Re: Zurroball Released Oct 28 2009
« Reply #1 on: October 28, 2009, 04:22:08 pm »
Looks ok, probably gets the job done...

2 remarks though:
 - You should replace the until (x=...) with until False, you're obviously trying to create an infinite loop, though your method works, I suppose, it requires a lot more processing power, which means more time to execute, which means it slows down the script... The until loop, loops until the statement validates as True, so while it's False, it will keep looping, simply putting False therefor suffices to make it loop.
 - Also, try to keep in mind coding conventions, format your code with indentations and use proper capitalization for the functions

[scar]var
  x, y, ballcolor: Integer;
begin
  ballcolor := GetColor(324,91);
  repeat
    FindColor(x, y, ballcolor, 5, 4, 631, 449);
    ClickMouse(x, y, True);
    Wait(5 + Random(10));
  until False;
end.[/scar]

Freddy1990.com

Re: Zurroball Released Oct 28 2009
« Reply #1 on: October 28, 2009, 04:22:08 pm »