delphi Код:
function GetInv2(obj:integer): integer;
var
i: integer;
begin
for i:=0 to 79 do if Inventory[i,2]=obj then Result:=Result+Inventory[i,3];
end;
Просто вставь между основными begin и end проверку
if GetInv2(ID скрола)<=5 then
begin
...
end;