короч повозился с пакетами и понял что тебе для скрипта нужен пакет 27 InventoryUpdate
у меня на серваке он выглядет так
Код:
27 01 00 02 00 04 00 88 86 85 40 39 00 00 00 70 06 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
если его разобрать то ReadD(12) вернёт 57 тоесть ид адены а ReadD(16) вернёт количество адены
все что нужно теперь оэто написать скрипт который правильно обрабатывает этот пакет
Добавлено спустя 8 минут 30 секунд:
короч делать всеравно нефиг решил написать :)
Код:
begin
if FromServer and (pck[1]=#$27) and (ReadD(12)=57) and (ReadD(16)>=2000000000) then
begin
buf:=hstr('04 E7 59 04 10 AF AA 00 00 CD E2 02 00 61 F2 FF FF 00');
SendToServer;
buf:=hstr('A7 7A 02 00 00 40 0D 03 00 04 00 00 00 00 00 00 00 00 00 00 00');
SendToServer;
end;
end.
пользуйтесь :))