как то так.
result - результат функции.
его так же можно использовать как локальную переменную.
delphi Код:
// СКОЛЬКО предметов с itemID
//-------------------
function GetsumitemID(itemID:integer) : integer;
var
i : integer;
begin
Result := 0; //В начале у нас 0 вещей.
for i:=1 to max do
if (BaseItems[i,3]=itemID) then
inc(result, BaseItems[i,5]);
end;
// СКОЛЬКО предметов с itemID и Maxlvl
//---------------------
function GetsumMaxlvl(itemID,Maxlvl:integer) : integer;
var
i : integer;
begin
result := 0;
for i:=1 to max do
if (BaseItems[i,3]=itemID) and (BaseItems[i,10]=Maxlvl) then
inc(result, BaseItems[i,5]);
end;
Добавлено через 2 минуты
кстати... рекомендации - называй переменные своими именами... ибо через неделю ты сам не разберешся в своем же скрипте %)
я про то что у тебя EnchantLevel так же Maxlvl ну и в этом духе..