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

[Go0fy]

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

[QaK]

Сообщение от Go0fy

клиент отправлял 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]

Сообщение от PanAm

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

Идея хорошая, но я хотел полностью автоматизировать это дело... :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]

Сообщение от 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.

пользуйтесь :))

спс большое :)
Вечером буду разбирать...