Немного модифицированный скрипт копает по кочкам. Проверяет есть ли поблизости ПК. НЕ переплавляет руду! program Mining; const IngotsStorage=$409B2029; IngotsType=$1BF2; HomeRuneBook=$4032DFC3; HomeRuneIndex=0; RuneBookShift=7; MiningType=$0F39; TinkerType=$1EB8; TKNumFirst=8; TKNumSecond=23; TKMine...

Можно сделать вот так. Заходишь в игру, закрываешь все гампы которые можно закрыть и юзаешь команду -infogump оттуда вытаскиваешь ID незакрываемого гампа и в скрипте после begin пишешь что то типа такого AddGumpIgnoreByID(4063159494); while not Connected do begin Connect; Wait(10000); end; Единствен...

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

Подошла ConsoleEntryUnicodeReply Спасибо)

Кто играет на ранке знает, что в брите есть библиотека с НПЦ квестерами. Суть проблемы в том что когда чар выбирает что надо сдавать и говорит количество, ничего не происходит. Если писать в изи то там всё работает через MSG #findcnt$. Как заставить работать на стелсе? procedure MakeQuest; begin Whi...

В стелсе есть встроенный прокси зачем с WideCap ещё возится?

При закрытом банке стелс находит и указывает количество всего чего я бы его не попросил (и что естественно находится в банке).

drabadan wrote: потому, что голда видна всегда.
ОЦР и распознавание тебе в помощь!

А если голду чем нибудь заменить?

и про ОЦР можно поподробнее и с пруфами если таковы имеются?

Для проверки банка решил что то такое сделать procedure CheckBankBox; var StartTime:TDateTime; Gld:Cardinal; begin Gld:=CountEx(GoldType,$FFFF,BankBox); if Gld>0 then Exit; StartTime:=Now; UOSay('bank'); BankBox:=ObjAtLayer(BankLayer); Wait(WaitTime*2); CheckLag(WaitLag); CheckBankBox; end; но оно н...

проверяешь ты gumpInfo.XmfHTMLGumpColor, а обращаешься к gumpInfo.GumpText и gumpInfo.Text Вот сам гамп Serial: 2EB975 GumpID: 5AFBD742 X: 0019 Y: 0019 Pages: 1 Gump Options: GumpPicTiled: X Y Width Height Gump_ID ElemNum GumpPicTiled: 58 20 438 241 2624 2 GumpPics: X Y ID Hue Page ElemNum GumpPic:...

Amount:=StrToInt(gumpInfo.Text[gumpInfo.GumpText[0].text_id]); //131 строка ни одной проверки, а есть ли вообще нужный элемент в массиве - вот и обращаешься к несуществующему элементу. стоп стоп стоп If GetGumpID(GetGumpsCount-1)<>$5AFBD742 then GetBODInfo; GetGumpInfo(GetGumpsCount-1, gumpInfo); C...

Ещё такой вопрос. Как можно узнать открыт ли банк или нет?

procedure GetBODInfo; var GumpInfo:TGumpInfo; Exep,Text:String; CountOfString:Byte; begin if Dead or not Connected then Exit; While IsGump do CloseSimpleGump(GetGumpsCount-1); UseObject(BOD); Wait(WaitTime); CheckLag(WaitLag); If GetGumpID(GetGumpsCount-1)<>$5AFBD742 then GetBODInfo; GetGumpInfo(Ge...

В первом посте она указана.

Vizit0r wrote: версия стелса не так.
скачай последнюю.

Версия 6.2.1

Доброго времени суток. Есть процедура procedure GetBODInfo; var GumpInfo:TGumpInfo; Exep,Text:String; CountOfString:Byte; begin if Dead or not Connected then Exit; While IsGump do CloseSimpleGump(GetGumpsCount-1); UseObject(BOD); Wait(WaitTime); CheckLag(WaitLag); If GetGumpID(GetGumpsCount-1)<>$5AF...