Капча
Posted: 20.12.2013 21:36
возможно ли как то это обойти, ,infogump не работает с этой табличкой
КАПЧА!!!!!111
WaitTextEntry спасет тебя
Page 1 of 2
Re: Капча
Posted: 21.12.2013 2:22
Re: Капча
Posted: 21.12.2013 10:02
кстати, а можно для тугих - это не гамп? Что это такое?Vizit0r wrote:КАПЧА!!!!!111
WaitTextEntry спасет тебя
Re: Капча
Posted: 21.12.2013 11:55
а как определить число 84???Vizit0r wrote:КАПЧА!!!!!111
WaitTextEntry спасет тебя
Re: Капча
Posted: 21.12.2013 12:20
а, точно. я про текст не вспомнил 
из пакетлога выложи сюда целиком пакет 0xAB
но в любом случае, стандартными средствами сейчас никак.
Проще всего наверное будет ивент добавить с текстом и прочим в параметрах.
из пакетлога выложи сюда целиком пакет 0xAB
но в любом случае, стандартными средствами сейчас никак.
Проще всего наверное будет ивент добавить с текстом и прочим в параметрах.
Re: Капча
Posted: 21.12.2013 13:10
Vizit0r wrote:из пакетлога выложи сюда целиком пакет 0xAB
оно?
Code: Select all
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 ->.(...Re: Капча
Posted: 21.12.2013 19:03
чего-то у меня последние 4 байта не сходятся с описанием, ну да и бог с ними.
Как будет время - сделаю ивент.
Как будет время - сделаю ивент.
Re: Капча
Posted: 27.12.2013 1:28
Когда у вас будет время ??
Re: Капча
Posted: 28.12.2013 0:39
надеюсь, что скоро.
Re: Капча
Posted: 10.01.2014 1:20
UP
Re: Капча
Posted: 10.01.2014 16:25
добавил. жди выкладывания апдейта.
может на выходных руки дойдут...
может на выходных руки дойдут...
Re: Капча
Posted: 18.01.2014 13:16
подскажи как использовать его, а то я не имел опыта с евентами3) added event evGumpTextEntry / добавлен новый ивент
Re: Капча
Posted: 18.01.2014 19:16
Code: Select all
procedure GumpEventHandler(ID : Cardinal; Title : String; InputStyle : Byte; MaxValue : Cardinal; Title2 : String);
begin
if Copy(Title,1,11) = 'Введите код' then
WaitTextEntry(StrToInt(Copy(Title,14,2));
end;
тут скриптовые методы
begin //main begin
SetEventProc(evGumpTextEntry, 'GumpEventHandler');
...остальной скрипт
end.Re: Капча
Posted: 18.01.2014 19:37
Vizit0r wrote:писал в браузере, могут быть ошибки.Code: Select all
procedure GumpEventHandler(ID : Cardinal; Title : String; InputStyle : Byte; MaxValue : Cardinal; Title2 : String); begin if Copy(Title,1,11) = 'Введите код' then WaitTextEntry(StrToInt(Copy(Title,14,2)); end; тут скриптовые методы begin //main begin SetEventProc(evGumpTextEntry, 'GumpEventHandler'); ...остальной скрипт end.
одну ошибку поправил(не было закрытие скобки) но все равно пишет
Compiler: [Error] (E:\Игры\Ultima Online\Stealth\Scripts\script.sc at 16:43): Type mismatch
строка 16 = WaitTextEntry(StrToInt(Copy(Title,14,2)));
Re: Капча
Posted: 18.01.2014 20:05
IntToStr не надо, там же строка пишется.