Код:
uses
SysUtils, Classes;
procedure dellItem(iname: integer);
var
itemTemp: tl2item;
begin
if Inventory.user.ByID(iname, itemTemp) and (itemTemp.count >= 1) then
Engine.DestroyItem(itemTemp.Name, itemTemp.count);
end;
procedure dellarrow;
var
i: integer;
itemTemp: tl2item;
begin
Inventory.user.ByID(1345, itemTemp);
while (itemTemp.count > 9) do
begin
dellItem(1345);
end;
end;
begin
//delay(-1);
end.
вроде все написано верно,должен удалять стреы S из инвентаря,но почему скрипт тупит и не хочет работать....