Hello all, Particles(Flash Game)

Hi, in case you don't know me(which you probably don't because I just joined), my name is Tubutas, . I originally had joined kaitneiks 2 years ago, right before it closed, by then i had learned how to use scar pretty decently. Recently I've joined kongregate(flash game site with badges--http://kongregate.com), and i was stuck on this one tough game particles. I booted up scar and made a proggie for it .
-Phew-

Now that you have my life story, heres the code

Code:

//http://www.kongregate.com/games/Ragdollsoft/particles
program New;
var
x,y:integer;
procedure aviod;
begin;
repeat
if findcolor(x,y,2434498,0,404,59,449)then
   clickmouse(449,449,true);
if findcolor(x,y,2434498,0,404,59,449)=false then
   clickmouse(0,449,true);
until(findcolor(x,y,2434498,0,0,124,111)=false)
clickmouse(0,0,true)
end;

//MAIN

begin
clickmouse(0,0,true)
repeat
if findcolor(x,y,2434498,0,0,124,111) then
   aviod;
until(false)
end.

 

heres the fixed version

Code:

//http://www.kongregate.com/games/Ragdollsoft/particles
var
x,y:integer;
procedure aviod;
begin;
 if findcolor(x,y,2434498,0,404,59,449)then
  clickmouse(x,y,true);
   if findcolor(x,y,2434498,0,404,59,449)=false then
  clickmouse(x,y,true);
end;

begin
repeat
  aviod;
 until(false)
end.

 

Nice Nice I Like 2nd Posttt! Leechers Ftw Lol Jk