procedure EventLoop();
var
  justCrafted: boolean;

begin

  if (tabBackpack.count() = 28) then
    justCrafted := false;


  if ((tabBackpack.count() = 5) and (not justCrafted)) then
  begin
    crafted += getItemAmount(tabBackpack.getSlotBox(2));
    justCrafted := true;
  end;

  ProgRep();
  wait(1000);
end;