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

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

И вот он главный вопрос, с которого и надо было начинать:

murderinc wrote:Стелс 4.0 не поддерживает evGumpTextEntry, по этому нужно проверить наличие такого гампа и вытащить инфу без evGumpTextEntry.

в котором дан ответ:

murderinc wrote:Стелс 4.0 не поддерживает evGumpTextEntry

Profiles setup > Shards setup > [\/] Enable Razor Support

Стелс прекрасно копает песок. // Мининг для шардов на RunUO. PROGRAM TestMining; CONST tMinerTool = $0F39; //Чем копать (тип инструмента): $0F39 - Shovel. $0E86 - Pickaxe. Procedure MiningHere(); Var msgMine_WhereDig, msgMine_Sucs, msgMine_Fail, msgMine_NoMetal, msgMine_FarAway, msgMine_CantThere, m...

Если скрипт написан с ошибками, то при его загрузке в системном журнале в главном окне Stealth'а эти ошибки будут указаны. Ошибки: 0. Трудно читать неформатированный код. 1. В скрипте совпадают названия констант и процедур. 2. Некоторые переменные и функции нигде не объявлены и не описаны. 3. Отсутс...

Может подойдет что-то из этого:
ConsoleEntryReply
ConsoleEntryUnicodeReply

see ChangeProfile
search ChangeProfile

Если есть гампы которые нельзя закрыть, то логично будет то, что гамп рунбуки не будет нулевым, следовательно надо сделать так:

По всей видимости, у какого-то гампа есть свойство NoClose, поэтому его нельзя закрыть с помощью CloseSimpleGump. Поэтому предлагаю воспользоваться таким вариантом: Procedure CloseSimpleGumps(); Var i: Integer; Begin if GetGumpsCount > 0 then for i := GetGumpsCount - 1 downto 0 do if IsGumpCanBeClos...

Stealth 6.2.1 Неправильно работает процедура Wait. Скрипт: PROGRAM Test; BEGIN AddToSystemJournal('=============='); AddToSystemJournal('Ждем 1 секунду.'); Wait(1000); AddToSystemJournal('1 секунда прошла.'); AddToSystemJournal('=============='); AddToSystemJournal('Ждем 10 секунд.'); Wait(10000); A...

1. Неправильно работают фильтры на закладке World. Например ставлю фильтр чтобы показывало только предметы в бекпаке персонажа (Backpack + Items), а показывает все предметы в открытых ранее контейнерах и бекпаке. Или ставлю фильтр (Ground + Items) для показывания что находится на земле: показывает п...

Возможно проблема где-то здесь: repeat tmpstack := FindtypeEx(Logs,tmpcolor,Sunduk,False); if GetQuantity(tmpstack) >= 65000 then Ignore(tmpstack); until (tmpstack = 0) OR (GetQuantity(tmpstack) < 65000); Если пытаться бросить 100 бревен в кучу в которой 64999 бервен, то ничего не выйдет, так как ра...

Адрес скачивания ShipUO:
http://f-bit.ru/301177
зы. Только выложил ссылку, как программка заработала.

2. Пропала возможность передавать сообщение (как речь персонажа) в игровой клиент из сторонних программ (в моем случае это программка управления кораблем. перепроверил с EasyUO - тоже самое). Включение / отключение хоткеев не помогает. Не знаю как толково объяснить, поэтому сделал картинку, так ска...