Капча

[pannir]

inttostr убрал

Code: Select all

useObject(findtype(itemtype,backpack));
wait(500);
SetEventProc(evGumpTextEntry, 'GumpEventHandler');

пишет постоянно

Вы ввели неправильный защитный код!

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

[Vizit0r]

использовал скрипт

Code: Select all

program test;
procedure GumpEventHandler(ID : Cardinal; Title : String; InputStyle : Byte; MaxValue : Cardinal; Title2 : String);
begin 
  if Copy(Title,1,11) = 'Введите код' then
    WaitTextEntry(Copy(Title,14,2));
end; 


begin //main begin
SetEventProc(evGumpTextEntry, 'GumpEventHandler');
while true do 
wait(50);
end.

использовал пакет из начала темы

11:47:43.609 Server -> Client: 0xAB (StringQuery), frequ: 2, len: 0x25
0000: AB 25 00 00 00 6A 10 00 00 00 11 C2 E2 E5 E4 E8 ->.%...j..........
0010: F2 E5 20 EA EE E4 20 5B 39 31 5D 00 01 01 00 00 ->.. ... [91].....
0020: 00 28 00 01 00 ->.(...

в ответ отсылает 91.

Если у тебя все равно не так - давай пакет запроса и пакет правильного ответа из клиента.

[pannir]

отправил в ЛС изображение!