need help with autothiever

[Disturbed]

program autothieve;
var a,b,c,d,e,f,g :integer;
const
color1=3691600; //color of thing to thieve
food=6317177; //color of food to eat

Procedure mouse(x, y : Integer; left : Boolean);
Begin
movemousesmoothex(x,y,1,5,5,5,5);
wait(150)
clickmouse(x,y,left)
wait(50)
wait(250+random(250))
End;

procedure thieve;
begin
if(findcolortolerance(e,f,color1,148,107,358,255,5))then
begin
mouse(e,f,false)
mouse(e,f+60,true)
a:= a + 1;
wait(3000)
end;
if(not(findcolortolerance(a,b,color1,1,1,515,335,5)))then
begin
wait(5000)
end;
end;

procedure eat;
begin
if(a = 3)then
begin
sendkeys('lol')
writeln('lol')
repeat
b:= b + 1;
findcolortolerance(c,d,food,563,217,725,454,5)
mouse(c,d,true)
until(b = 3)
end;
a:=0;
b:=0;
end;


begin
repeat
thieve;
eat;
until(false)
end.







it skips the eat function for some reason, i think im having probbies with the variables.

any help is appreciated.

 

[Macroman]

This script is really simple, does it function properly other than the eat function?

if(a = 3)then

so it means that it thieves 3 times then eats. because A = theiving.

it should eat every 3 times...

( LOL at my rubbish)

 

[Disturbed]

uuuuhhh if you try it, it DOESNT EAT AT ALL

i need help with that, thats hwy its here and not in the working scripts.