SCAR Code:
procedure EatFood;
begin
if (not (LoggedIn)) then exit;
if (eat = 'Yes') then
begin
repeat
if (gethp < Eathp) then
begin
Gametab(4); //Forgot a ';'
if FindColorTolerance(x, y, Foodcolor, MIX1, MIY1, MIX2, MIY2, 4) //Added an 'if' statement
then
begin
if isuptext(foodname) then //No ';' in 'if' statement!
begin
Mouse(x, y, 5, 5, true);
end else//Moved this, and 'Else' alone wont work, u need an 'end', WITHOUT ';' OR '.'!
begin //Try to add begins and ends after 'if's
WriteLn('could not find food'); //';' Added!
end;//Try to add begins and ends after 'if's
end;
end;
until ((gethp > eathp) or (not (LoggedIn))); //Messed up some '('s AND,
// all begins within this
// repeat must also have ends within this repeat
end;
end;
This compiles for me