Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[QaK]

Rubicosha, предлагаю тему дальше не развивать ... во избежании

[hash]

Всем привет, пишу скрипт для бота, но столкнулся с проблемой, что волкер не видит диалогов с нпс и бафнуться от нпс или сделать тп невозможно, поэтому подключил еще и phx.
Хотел, чтобы после запроса ботом диалога с нпс, phx перехватывал пакет от клиента и выполнял нужные мне дейсвия, но что-то с пакетами я не очень дружу, а тем более с делфи, поэтом прошу помоч.
Вот, что намудрил:

begin
if FromClient and (ConnectName='123')
and (pck[1]+pck[2]=#$1F#$3A) then begin //запрос бота на диалог с бафером

buf:=HStr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 35 00 34 00 35 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00');
SendToServerEx('123');
pck:=''; //Нажал на кнопку "Buff"

buf:=HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00');
SendToServerEx('123');
pck:=''; //Выбрал нужную комбинацию бафов.
end;
end.
Несколько раз сработало, но в основном ступор, нпс даже в таргет не берется, в чем может быть проблема?

[J-Fobos]

hash, проблема в том что в пакетах которые вы используете меняется ObjectID у нпц. А у вас он всегда один и тот же, такой скрипт будет работать только на одном нпц (и то возможна ситуация что после рестарта сервера ObjectID сменится).
Для вашего случая надо такой скрипт.

begin
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('63 00 68 00 61 00 74 00')) then begin
    pck[32] := #$67;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('6C 00 6F 00 74 00 6F 00')) then begin
    pck[32] := #$76;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('73 00 75 00 70 00 70 00')) then begin
    pck[32] := #$83;
    pck[46] := #$77;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('71 00 75 00 65 00 73 00')) then begin
    pck[32] := #$81;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('62 00 75 00 79 00 20 00')) then begin
    pck[32] := #$66;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]= HStr('73 00 65 00 6C 00 6C 00')) then begin
    pck[32] := #$83;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('74 00 65 00 72 00 72 00')) then begin
    pck[32] := #$84;
    pck[50] := #$83;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('6F 00 6C 00 79 00 6D 00')) then begin
    pck[32] := #$79;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('64 00 65 00 70 00 6F 00')) then begin
    pck[32] := #$68;
    pck[46] := #$80;
  end;
  if (FromClient) and (pck[30]+pck[31]+pck[32]+pck[33]+pck[34]+pck[35]+pck[36]+pck[37]+pck[38]=HStr('77 00 69 00 74 00 68 00')) then begin
    pck[32] := #$87;
    pck[48] := #$80;
  end;
end.

Проблема с диалогами довольно часто встречается и скрипт написан давненько, но по сей день работает. Я только переделал его под ваш вариант сравнения пакетов pck[1]+pck[2]=#$1F#$3A, чтоб вам было проще в нем разобраться.

[hash]

Проблема с диалогами довольно часто встречается и скрипт написан давненько, но по сей день работает. Я только переделал его под ваш вариант сравнения пакетов pck[1]+pck[2]=#$1F#$3A, чтоб вам было проще в нем разобраться.

Я так понял с этим скриптом бот должен видеть диалог с нпс, в таком случае не работает . Я попробую обьяснить подробнее, что нужно, может у кого будет время помоч нубу.

Требуется выполнить всего 3 ответных действия на действия бота
1. Бот использует айтем "Bandage" пакет "19 D8 4D 1D 10 00 00 00 00"
phx в ответ выделяет бафера и бафается. Вот, что удалось нарыть по баферу: "1F 8F A0 00 10 E8 41 02 00 41 28 FF FF 52 F5 FF FF 00" - Взял в таргет.
Выбрал, что бафнуть "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00"
"Tип: 0x23 (RequestBypassToServer)
Pазмер: 275+2
Время прихода: 11:55:41:406
0002 s Command: npc_268476559_Buff 1040 1068 1035 1077 1204 1268 1036 1045 1048 1086 1240 1242 1388 1356 271 274 275 310 264 265 267 268 269 304 349 364"

2.Бот использует айтем "Emergency Dressing" пакет "19 D9 4D 1D 10 00 00 00 00" phx в ответ выделяет бафера и бафается: 1F 90 A0 00 10 A7 41 02 00 27 28 FF FF 52 F5 FF FF 00 - Выделил.
Нажал на меню Buff: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 36 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00"
"Command: npc_268476560_Quest 9998_NPCBuffer"
Выбрал, что бафать: "23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00"
"Command: Quest 9998_NPCBuffer 82"

3. Бот использует айтем "Greater Antidote" пакет: "19 DB 4D 1D 10 00 00 00 00"phx в ответ выделяет гейткипера и тпшится.
Взял в таргет кипера: "1F 50 70 00 10 FF 41 02 00 64 28 FF FF 52 F5 FF FF 00"
Выбрал меню нобл тп: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 34 00 32 00 30 00 38 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 32 00 30 00 30 00 30 00 5F 00 4E 00 6F 00 62 00 6C 00 65 00 73 00 73 00 65 00 54 00 65 00 6C 00 65 00 70 00 6F 00 72 00 74 00 00 00"
"Command: npc_268464208_Quest 2000_NoblesseTeleport"
Выбрал меню тп за адену: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 34 00 32 00 30 00 38 00 5F 00 43 00 68 00 61 00 74 00 20 00 32 00 00 00"
"Command: npc_268464208_Chat 2"
Выбрал точку тп: "23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 34 00 32 00 30 00 38 00 5F 00 67 00 6F 00 74 00 6F 00 20 00 39 00 30 00 37 00 31 00 00 00"
"Command: npc_268464208_goto 9071"
obj id действительно изменяется после каждого рестарта

[J-Fobos]

Если мой вариант не работает, то придется вам определять objectID, NLObP выкладывал где-то на форуме как это делается, попробуйте использовать его алгоритм.

[hash]

эх, говорила мне бабка учи делфи, зря не послушал

Добавлено через 2 часа 17 минут
const
Name='123'; // Ник персонажа
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=2500;
timer.OnTimer:=@fireTimer;
timer.enabled:=false;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('1F 8F A0 00 10 CC 41 02 00 71 28 FF FF 53 F5 FF FF 00');
SendToServer;
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00');
SendToServer;
buf:=hstr('1F 90 A0 00 10 9B 41 02 00 65 28 FF FF 53 F5 FF FF 00');
SendToServer;
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 36 00 30 00 5F 00 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 00 00');
SendToServer;
buf:=hstr('23 51 00 75 00 65 00 73 00 74 00 20 00 39 00 39 00 39 00 38 00 5F 00 4E 00 50 00 43 00 42 00 75 00 66 00 66 00 65 00 72 00 20 00 38 00 32 00 00 00');
SendToServer;
timer.enabled:=false;
end;
if FromClient and (ConnectName=Name) and (pck = HStr('19 D8 4D 1D 10 00 00 00 00')) then begin
timer.enabled:=true;
end;
end.

Как сделать интетрвал например в 5 секунд между отправкой каждого пакета?
Пробовал Delay(5000); но что-то неочем

[QaK]

hash, поищи по форуму "отправка пакетов по таймеру", или как-то так. Твоя реализация таймера - говно не совсем правильная =)

[hash]

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

hash, поищи по форуму "отправка пакетов по таймеру", или как-то так. Твоя реализация таймера - говно не совсем правильная =)

все на, что хватило ума, но уверен - это глупо

const
Name='123';   
var
Timer01, Timer02: TTimer;
procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=2000;

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=5000;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=hstr('1F 8F A0 00 10 B8 41 02 00 78 28 FF FF 53 F5 FF FF 00'); 
SendToServer;
Timer01.enabled:=false;
end;

procedure OnTimer02(Sender: TObject);
begin
buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 36 00 35 00 35 00 39 00 5F 00 42 00 75 00 66 00 66 00 20 00 31 00 30 00 34 00 30 00 20 00 31 00 30 00 36 00 38 00 20 00 31 00 30 00 33 00 35 00 20 00 31 00 30 00 37 00 37 00 20 00 31 00 32 00 30 00 34 00 20 00 31 00 32 00 36 00 38 00 20 00 31 00 30 00 33 00 36 00 20 00 31 00 30 00 34 00 35 00 20 00 31 00 30 00 34 00 38 00 20 00 31 00 30 00 38 00 36 00 20 00 31 00 32 00 34 00 30 00 20 00 31 00 32 00 34 00 32 00 20 00 31 00 33 00 38 00 38 00 20 00 31 00 33 00 35 00 36 00 20 00 32 00 37 00 31 00 20 00 32 00 37 00 34 00 20 00 32 00 37 00 35 00 20 00 33 00 31 00 30 00 20 00 32 00 36 00 34 00 20 00 32 00 36 00 35 00 20 00 32 00 36 00 37 00 20 00 32 00 36 00 38 00 20 00 32 00 36 00 39 00 20 00 33 00 30 00 34 00 20 00 33 00 34 00 39 00 20 00 33 00 36 00 34 00 00 00 ');
SendToServer;
Timer02.enabled:=false;
end;

procedure Free;
begin
  Timer01.free;
  Timer02.free;
end;

begin
if FromClient and (ConnectName=Name) and (pck = HStr('19 D8 4D 1D 10 00 00 00 00')) then begin
timer01.enabled:=true;
timer02.enabled:=true;
end;

end.

[J-Fobos]

А одним таймером? Типа вот так (сам таймер)

var
a:integer;

procedure Time(Sender: TObject);
begin
if a=0 then begin a:=1; buf:=hstr(''); end;
if a=1 then begin a:=2; buf:=hstr(''); end;
if a=2 then begin a:=0; Timer01.enabled:=false; buf:=hstr(''); end;
end;

Остальное как у вас, ну в Init надо задать чтоб изначально a =0

ps: используйте плиз тег [ code ], а то читать не удобно

[hash]

Сообщение от J-Fobos

А одним таймером? Типа вот так (сам таймер)

var
a:integer;

procedure Time(Sender: TObject);
begin
if a=0 then begin a:=1; buf:=hstr(''); end;
if a=1 then begin a:=2; buf:=hstr(''); end;
if a=2 then begin a:=0; Timer01.enabled:=false; buf:=hstr(''); end;
end;

Остальное как у вас, ну в Init надо задать чтоб изначально a =0

ps: используйте плиз тег [ code ], а то читать не удобно

Ещебы скрипт на авто скан Object ID нужного мне NPC, былобы идеально