if GetItem(57,2,3)>2000000000 then begin
Вот я понел getitem и 57 ето ид
2
3 что ето?
j:=4; ну у нас есть что j =4
ListCount:=ReadH(j); а лист коунт ето ReadH(j)
j:=8; и знов
for i:=1 to ListCount do begin
itemBase[1,i]:=ReadD(j); //OID
itemBase[2,i]:=ReadD(j); //ItemID
itemBase[3,i]:=ReadD(j); //кол-во
inc(j,10); а нафига его увеличивать на 10
itemBase[4,i]:=ReadH(j);//EnchantLevel и что за [4,i] где мы взяли 4
inc(j,12); и нафиг его увеличивать на 12
end;
end;
ну я понел что I ето инвентарь вроде
и обесните
function GetItem(ID, FieldIn, FieldOut : integer) : integer;
var
i : integer;
begin
for i:=1 to max do
if ItemBase[FieldIn,i]=ID then begin
result:=ItemBase[FieldOut,i]; // itemOID
exit;
end;
result:=0;
end;
что такое FieldIn FieldOut
|