delphi Код:
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
хули не пашыт скрипт ?)