ДОБАВЬТЕ !!!!!!!!!!!!!!!!
delphi Код:
const
max=80;
itemID=142;
Maxlvl=10;
var
BaseItems:array[1..max,1..10] of integer;
Amount:integer;
enchantLevel:integer;
sumitemID:integer;
sumMaxlvl:integer;
sumitemIDOID:integer;
sumMaxlvlOID:integer;
//...................
procedure ItemList;
var
i, j, k: integer;
ListSize: integer;
begin
j:=4;
ListSize:=ReadH(j);
for i:=1 to ListSize do
if (i<=ListSize) then begin
BaseItems[i,1]:=ReadH(j);
BaseItems[i,2]:=ReadD(j);
BaseItems[i,3]:=ReadD(j); //ItemID
BaseItems[i,4]:=ReadD(j);
BaseItems[i,5]:=ReadD(j); //Amount:
j:=j+4;
BaseItems[i,6]:=ReadH(j);
BaseItems[i,7]:=ReadH(j);
BaseItems[i,8]:=ReadH(j);
BaseItems[i,9]:=ReadD(j);
BaseItems[i,10]:=ReadH(j);//EnchantLevel
inc(j,30);// ФИНАЛ
end else for k:=1 to 10 do BaseItems[i,k]:=0;
sumitemIDOID:=GetsumitemID(itemID);// сколько предметов
end;
// СЧИТАЕМ ПРЕДМЕТЫ
//...................
procedure Resultenchant;
begin
sumMaxlvlOID:=GetsumMaxlvl(itemID,Maxlvl);// сколько предметов с itemID и Maxlvl=10
end;
// сколько предметов с itemID
//-------------------
function GetsumitemID(itemID:integer) : integer;
var
i : integer;
begin
for i:=1 to max do
if (BaseItems[i,3]=itemID) then begin
Amount:=BaseItems[i,5];
sumitemID:=sumitemID+ BaseItems[i,5];
//<<<<<=== ЧТО ТО НАДО
end;
end;
// сколько предметов с itemID и Maxlvl=10
//---------------------
function GetsumMaxlvl(itemID,Maxlvl:integer) : integer;
var
i : integer;
begin
for i:=1 to max do
if (BaseItems[i,3]=itemID) and (BaseItems[i,10]=Maxlvl) then begin
enchantLevel:=BaseItems[i,10];
sumMaxlvl:=sumMaxlvl+BaseItems[i,5];
//<<<<<=== ЧТО ТО НАДО
end;
end;
// при равенстве предметов с itemID и предметов сitemID и Maxlvl=10
//---------------------
//<<<<<=== ЧТО ТО НАДО
//========================
далее не важно