И еще немножко Mining cave program Mining_cave; // Мининг в пещере // (c) v26RuS (Galiano{ASTARTA} DRW) v1.3 // Tested by RaTaMaHaTTa on DRW {$Include 'all.inc'} const M_nothing1 = 'There is no ore here to mine'; M_nothing2 = 'That is too far'; M_nothing3 = 'Try mining in rock'; M_nothing4 = 'You ca...

Так как я уже почти перестал играть захожу так поздороваться да пообщаться выкладываю все свои скриптики.... Все скрипты тестировались на сервере ДРВ и играл я там-же)) на момент моей игры все скрипты работали. Alchemy Program AlchemyDRW; // (c) v26RuS (Galiano{ASTARTA} DRW) v1.1 {$Include 'all.inc'...

Все типы и ИД объектов беруться с инжи только убераешь вначале 0x

Ищи где используеться group в FindType и меняй на свой контейнер, а также замени функцию Drop на MoveItem

Я писал скрипт на скупку регов но так тестирование он окончательное и не прошел, да и выкладывать в паблик такие вещи нельзя...

Спасибо исправил

Новая версия 1.1
Исправлена ошибка с цветами из пустых бутылок и производимых бутылок.
Скрипт в первом посту

Немного изминил функция убийства но тестировать шас негде выкладываю для общего теста. procedure kill_elemental; var ctime : TDateTime; castvx, castva : Boolean; c,Vrx,Vry : Integer; label vortex; begin castvx:=false; castva:=false; // Search and use Invisible potion FindTypeEx($0F0E,incol,backpack,...

Скрипт то есть но его в паблик никто не выложит также как и на инжу!

Новая версия скрипта для копки в вип шахте на ДРВ. Большое спасибо RaTaMaHaTTa за новые идеи в скрипте и найденные ошибки, а так-же за тестирование скрипта. Новое: - исправлены ошибки - изменена функция выгрузки догрузки - изменена функция поиска элементаля он теперь их ищет в радиусе 10 тайлов - ис...

Извеняюсь недоглядел Program killer; var monster : Cardinal; const Monstr = $0000; // Тип монстра Begin repeat begin FindType(Monstr,ground); If FindCount > 0 then begin monster := FindItem; AddToSystemJournal('-= Монстр найден, атакую =-'); Attack(monster); wait(5000); end Else begin AddToSystemJou...

В данном скрипте он реагирует только на своего эля и то когда выкопал тогда нужно заменить проверку на выкопку эля на другую примерно такую Замени вот это: if InJournalBetweenTimes('heavy', ctime, Now) <> -1 then begin Result := 6 exit; end; на это: check_el и добавь 1 процедуру procedure check_el; ...

Program killer; const Monstr = $0000; // Тип монстра Begin repeat begin FindType(Monstr,ground); If FindCount > 0 then begin monster := FindItem; AddToSystemJournal('-= Монстр найден, атакую =-'); Attack(monster); wait(5000); end Else begin AddToSystemJournal('-= Монстр не найден =-'); wait(5000); ...

Вроде нет хотя не знаю, у меня 3 чара рубят 3 чара копают и 4 работают переделывают все выкопанное и вырубленное.

На ДРВ инжект разрешен но правда со спидхаком сразу бан получишь... там шас стоит контроль обмена скорости пакетов какойто...