Какой текст ентри крутой, а зачем он тебе? Может в контексте скрипта, необходимость в получении информации о етой штукадрюке и не нужна будет? Для чего оно вылазит? Ну это что-то типа антимакроса, вылазит иногда, когда делаешь много чего. Ее тайтл содержит информацию, что нужно вводить. если бы мех...

а просто после дисконекта добавить

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

Я имел ввиду, что в Стелс 4.0 нет механизма получения необходимой информации, если бы он был, то тогда не понадобилось бы вводить evGumpTextEntry. Надеюсь теперь я буду понят правильно. Твоя теория не верна, ну или как минимум путаешь теплое с мягким. evGumpTextEntry - это ивент, который обрабатыва...

у него нет инфы, которая нужна пользователю. Там всего-то несколько служебных значений. ну как же нет? у него есть ID и Title, которые передаются из evGumpTextEntry, мне как минимум надо Title. Его возможно достать без evGumpTextEntry? Вообще проблема, в том что 6.4 стелс отваливается при "час...

Infogump не работает и любая другая команда тоже. Скорее всего это не гамп. Эта штука обрабатывается через WaitTextEntry и вот что говорится в документации: "Обработка слегка особенного гампа, состоящего ТОЛЬКО из поля ввода и 2 кнопок - ОК и Cancel". И этот слегка особенный гам не числить...

Есть следующий код, который устанавливает обработку "специального" гампа. SetEventProc(evGumpTextEntry, 'handler'); procedure handler(ID : Cardinal; Title : String; InputStyle : Byte; MaxValue : Cardinal; Title2 : String); Данный гамп не показывается в списке общих гампов, то есть при его ...

а какие-то соображения по этому поводу, почему по разному работает в 4 и 3 ?
http://stealth.od.ua/forum/viewtopic.php?p=13571#p13571

Проблема с получением гампа. На стелсе 3.9.6 все работало. Program New; var Tmp,FileList : TStringList; M,N,gg : Integer; FindNo : Boolean; procedure WriteToFile(filepath: string; data: string); var file: TFileStream; begin try file := TFileStream.Create(filepath,fmOpenReadWrite); file.seek(0, soFro...

CFA wrote:Да баг есть, пофикшу позже.
Ну а чтоб не ждать фикса, просто вот тут InJournalBetweenTimes('здарова|ку|',stime, Now); убери последний "|".

хы.. копипаст до добра не доводит... ну с другой стороны - хорошо, есть возможность исправить)

спасибо.

тут работает все хорошо, ходит в репите все норм repeat wait(5000); a := InJournalBetweenTimes('здарова|ку|',stime, Now); b := InJournalBetweenTimes('красавчек!|оло', stime, Now); c := InJournalBetweenTimes('а ты че!', stime, Now); Addtosystemjournal('11111'); wait(200); until (a >= 0) or (b >= 0) o...

MuDaCk wrote:судя по скрипту, он должен после этих действий просто выключиться...

так и есть, там еще был цикл, что бы он постоянно это делал. но он и в том и в этом варианте тупо подвешивает стелс, что приходиться снимать задачу, в чем может быть дело?

Program Dialog; var stime : TDateTime; a,b,c : integer; {$Include 'all.inc'} Begin SetARStatus(true); hungry(1,backpack); clearjournal; stime := Now; Addtosystemjournal('000'); repeat wait(5000); a := InJournalBetweenTimes('здарова|ку|',stime, Now); b := InJournalBetweenTimes('красавчек!|оло', stim...

спасибо большое.
Tile0.StaticCount > 0

действительно решило все проблемы