Капча

[pannir]

возможно ли как то это обойти, ,infogump не работает с этой табличкой

[Vizit0r]

КАПЧА!!!!!111

WaitTextEntry спасет тебя

[drabadan]

КАПЧА!!!!!111
WaitTextEntry спасет тебя

кстати, а можно для тугих - это не гамп? Что это такое?

[pannir]

КАПЧА!!!!!111

WaitTextEntry спасет тебя

а как определить число 84???

[Vizit0r]

а, точно. я про текст не вспомнил

из пакетлога выложи сюда целиком пакет 0xAB

но в любом случае, стандартными средствами сейчас никак.
Проще всего наверное будет ивент добавить с текстом и прочим в параметрах.

[pannir]

из пакетлога выложи сюда целиком пакет 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                                  ->.(...

[Vizit0r]

чего-то у меня последние 4 байта не сходятся с описанием, ну да и бог с ними.
Как будет время - сделаю ивент.

[pannir]

Когда у вас будет время ??

[Vizit0r]

надеюсь, что скоро.

[pannir]

UP

[Vizit0r]

добавил. жди выкладывания апдейта.
может на выходных руки дойдут...

[pannir]

3) added event evGumpTextEntry / добавлен новый ивент

подскажи как использовать его, а то я не имел опыта с евентами

[Vizit0r]

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.

писал в браузере, могут быть ошибки.

[pannir]

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)));

[Vizit0r]

IntToStr не надо, там же строка пишется.