Exevo Pan se nao tiver Food

Const

FoodList =
[3595,3577,3578,3579,3582,3583,3584,3600,3584,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3598,3599,3601,3602,3607,3725]

procedure CheckAndMakeFood;
begin
updateworld;
for i := 0 to self.containers.count -1 do
begin
if i >= Self.Containers.Count then break;
for g := 0 to Self.Containers.Container.Count -1 do
begin
if g >= Self.Containers.Container.Count then break;
for x := LoW(FoodList) to High(FoodList) do
begin
if Self.Containers.Container.Item[g].ID = FoodList[x] then exit;
sleep(10);
end;
end;
end;
if Self.Mana >= 120 then
Self.Say('exevo pan');
end;

while not terminated do
begin
UpdateWorld;
CheckAndMakeFood;
sleep(100);