а зачем тебе брать тайлы из файла? Под мининг, все что хотел добавил, все работает, ну кроме того что он собирает не все тайлы, а только те что в радиусе экрана. И еще хочу под ламбер его сделать, все мелочи поправил, осталась последняя загвоздка с тайлами. Тут тайлы деревьев от и до не получается ...

Скрипт для шарда UORPG.NET [/spoiler] Можете подсказать пожалуйста, как изменить эту процедуру, чтобы он тайлы из файла брал. procedure GetTilesToMine; var x, y, i : Integer; TileInfo : TStaticCell; begin SetLength(MinTiles_Array, 0); for x := (-1 * SeekRange) to SeekRange do for y := (-1 * SeekRan...

да, добавить точек где он будет искать тайлы для копки, после етого сортировать их и проверять есть ли лишние, после чего выстраивать в 1 целостный последовательный массив и уже потом работать с ним. Не ну это я точно не сделаю :roll: , думал если будет желание и возможности апдейт сможете сделать ...

Скрипт для шарда UORPG.NET Смысл скрипта прост, чар копает пока не достигнет своего макс веса минус 20, затем перерабатывает айрон на 1 из 3 вариантов. Добора инструментов нету, закидывать надо заранее. Program Mining_UORPG_Kendal; //Крафтить можно на выбор 2 вещи, CraftChoice = 0 - плейтмеил горге...

Vizit0r wrote:отладка в стелсе для кого сделана?

Наверное для того кто знает, что это такое и как пользоваться) Подскажите?

Помогите пож-та, не работает рекол по рунбуке, я так подозреваю, что он тут не может взять Id gump рунбуки, пишет "Руна не найдена", хотя все остальные переменные заданы и руны там есть. Вот собственно функция рекола function Recall(RB : Cardinal; N:Integer):boolean; var Num : Integer; Ser...

А какой командой можно остановить скрипт или поставить на паузу?

Maxwell wrote:А что возвращает FindFullQuantity ?

)) Да посмотрел, там в паке еще одни бутылки валялись с таким тайпом поэтому не работало, спасибо)

if FindType($0F0B,Backpack) > 0 then //То, что мы вообще нашли этот тип объекта begin if FindFullQuantity < 2 then //Если найденных объектов меньше 2. Работает как со стакающимися итемами, так и нет begin AddToSystemJournal('Добираем'); FindType($0F0B,ObjAtLayer(BankLayer)); if FindItem > 0 then be...

Может я не правильно понял, пробовал и с GetQuantity все равно эффекта нету На всякий случай подробнее чуть опишу Вот так работает: if FindType($0F0B,Backpack) > 2 then begin AddToSystemJournal('Добираем'); FindType($0F0B,ObjAtLayer(BankLayer)); if FindItem > 0 then begin MoveItem(FindItem,1,Backpac...

Gauhar wrote:Возможно все, тем более была дана подсказка.

Спасибо

Хочу вставить проверку на добирание бутылок, так проблема следующая, если в условии стоит знак больше, то этот код работает отлично, но если поставить меньше "<" или "<=" то он перестает работать, как исправить, чтоб работала при <=1 или при = 0 (если нет бутылок). Спасибо. if Fi...

Как вызвать сообщение или действие один раз, при многоразовой проверке?

Ну например if Weight > 1000 then UOSay('Перегруз');
Чтобы один раз только надпись вызывалась, а не постоянно пока вес не уменьшиться?

drabadan wrote:

Vizit0r wrote:
evtimer, не?

evTimer1, evTimer2 - никаких параметров, просто вызов каждые 100 мс.
оно каждые 100 мс будет срабатывать? или можно ему параметр передать?

Так что никак паралельно нельзя включить использование скила?

да как-то не оч хочется. С цветами разобрался Вот такой вопрос: Как добавить в скрипт использование Детекта, ну раз в 30 сек допустим? А то я не особо силен в этом деле, как не добавляю он перед каждым действие использует, а надо чтобы паралельно использовался, т.к. это не мешает ему копать. СПасибо.