Опять я

[wimax]

Const
Name='1234';
itemid=1234;

procedure Init; //Вызывается при включении скрипта
begin
buf:=#$14;
SendToServerEx(Name);
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure ItemList;
var
i:integer;
ID:integer;
begin
for i := 0 to 100 do
begin
if readd(i) = itemid then
begin
ID := readd(i - 8);
exit;
end;
if readd(i) <> itemid then
i := i + 64;
end;

end;

procedure UseSoe;
var
ID:integer;
begin
buf:=#$19;
WriteD(ID);
WriteD(0);
SendToServerEx(Name);
end;

begin
if FromServer and (ConnectName=Name)
then
case pck[1] of
#$11: ItemList;
#$62:
begin
if (ReadD(2)=924) then
UseSoe;
end;
end;
end.

хроники freya
когда юзает итем
buf:=#$19;
WriteD(ID);
WriteD(0);

id ето objid пишет 0
хули не пашыт скрипт ?)

[supernewbie]

потому что это чушь

procedure ItemList;
var
i:integer;
ID:integer;
begin
for i := 0 to 100 do
begin
if readd(i) = itemid then
begin
ID := readd(i - 8);
exit;
end;
if readd(i) <> itemid then
i := i + 64;
end;

end;

[wimax]

Const
Name='';
itemid=5644;

procedure Init; //Вызывается при включении скрипта
begin
buf:=#$14;
SendToServerEx(Name);
SetLength(Inventory,0);
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure ItemList;
var
i:integer;
v:variant;
begin
SetLength(Inventory,0);
if ReadH(4)<1 then exit;
for i:=0 to ReadH(4)-1 do
begin
v:=[0,1,2];
v[0]:=ReadD(i*offset+6); //0 - OID
v[1]:=ReadD(i*offset+10); //1 - ItemID
v[2]:=ReadQ(i*offset+18); //2 - Count
SetLength(Inventory,length(Inventory)+1);
Inventory[length(Inventory)-1]:=v;
end;
end;


procedure UseSoe;
var
ID:integer;
begin
buf:=#$19;
WriteD(ID);
WriteD(0);
SendToServerEx(Name);
end;

begin
if FromServer and (ConnectName=Name)
then
case pck[1] of
#$11: ItemList;
#$62:
begin
if (ReadD(2)=924) then
UseSoe;
end;
end;
end.



Помоги написать функцию между procedure ItemList; и procedure usesoe; которя будет считывать objid с itemid который сверху

[wimax]

procedure ItemList;
begin
for i:=0 to 100 do
begin
Invertory[i,1]:=0;
Invertory[i,2]:=0;
end;
for i:=0 to 100 do
begin
Invertory[i,1]:=ReadD(i*68+6);
Invertory[i,2]:=ReadD(i*68+10);
if Invertory[i,2]=itemid then ObjId:=Invertory[i,1];
end;

end;

procedure UseSoe;
begin
if (ReadD(2)=924) then
begin
buf:=#$19;
WriteD(ObjId20);
WriteD(0);
SendToServerEx(Name);
end;
end;

begin
if FromServer and (ConnectName=Name) then
case pck[1] of
#$11: ItemList;
#$62: UseSoe;
end;


зделол вот так мб можна было проще но зато свое =) и работает_)

[J-Fobos]

Стоит добавить одну модификацию во втором цикле for i:=0 to Count do, где Count это количество занятых слотов в инвентаре (узнается из того же пакета). Такое желательно сделать чтобы не выходить за рамки пакета в цикле :)