Нужен небольшой скрипт

[Go0fy]

Доброго времяни суток всем!
Вообщем играю на пвп интерлюд и кода набиваю деньги надоедает бегать к ГМ шопу, чтоб поменять их на КоЛы.
Селал пакеты на это дело, но тоже не совсем удобно каждый раз переключаться в ПакетХак, чтоб отправить эти пакеты.
Собственно нужен скрипт, чтоб кода набирается 2ккк, клиент отправлял 2 пакета.

[QaK]

клиент отправлял 2 пакета.
Какие именно?

[Go0fy]

04 E7 59 04 10 AF AA 00 00 CD E2 02 00 61 F2 FF FF 00
A7 7A 02 00 00 40 0D 03 00 04 00 00 00 00 00 00 00 00 00 00 00

[PanAm]

Повесь на социалки.

[Go0fy]

Повесь на социалки.
Идея хорошая, но я хотел полностью автоматизировать это дело... :Yahoo!:

[skymanrus]

короч повозился с пакетами и понял что тебе для скрипта нужен пакет 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.
пользуйтесь :))

[Go0fy]

короч повозился с пакетами и понял что тебе для скрипта нужен пакет 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.
пользуйтесь :))
спс большое :)
Вечером буду разбирать...