Heres a bit faster, safer for sure.
SCAR Code:
Function Eat: Boolean;
Var
T, I, X, Y, Hp: Integer;
Color: String;
Begin
Repeat
Hp := GetMMLevels('hp', Color);
If(Color = 'Orange')Or(Color = 'Yellow')Or(Color = 'Red')Then
Begin
For I:= 1 To 28 Do
Begin
MMouseItem(I);
Wait(50);
If(IsUpText('Eat'))Then
Begin
Getmousepos( X, Y );
Mouse(X, Y, 0, 0, True);
Wait(500+Random(300));
Break;
End;
End;
End;
If(I = 28)Then Exit; //This means .. No food..
If(Not Loggedin)Then Exit;
Until(Color = 'Green');
Result := True;
End;
Returns true when it has green HP.