A start to my first scar script (please tell me how i can make it any better)

Here is my first start to a scar script if there is any way i can inprove on it please do show me!

Code:

program EssenceMiner;

var
x,y: integer;

Const
minimapbankcolor=9894907;
minimapanvilcolor=7233630;
minimaprunecolor=5457075;

procedure StartAtBank;
 begin
 repeat
 if(findcolor(x,y, minimaprunecolor,0,0,759,501))then
  begin
  movemousesmooth(x,y);
  wait(500+random(500));
  clickmouse(x,y, true);
  end else
  if(findcolor(x,y,minimapanvilcolor,0,0,759,501))then
   begin
   movemousesmooth(x,y)
   wait(500+random(500))
   clickmouse(x,y, true)
   wait(3000)
  end;
  until(FindColor(x,y,minimaprunecolor,0,0,759,501))
  movemousesmooth(x,y)
  wait(200)
  clickmouse(x,y, true)
 end;

Procedure Wait1;
 begin
 wait(1000+random(500))
 end;

begin
StartAtBank;
wait1;
end.

 

You should really use SRL. Here's a tutorial that might help you: http://www.srl-forums.com/forum/pf10-using-srl-t9130.html.

Regular mouse and keyboard functions are detectable. SRL functions are not detectable.

 

Lulz, good, but SCAR scripts are easy and fail. Try RSBawt.