SKYbot-dll бот

[skymanrus]

Недавно решил попробовать написать бота для l2phx и чтоб все вычисления проходили в dll'ке
что дало бы огромный полюс в скорости выполнения скриптов а так же расширения возможностей простого бота
например если я когда нидь уберу все ошибки из этого кода я возможно попытаюсь внедрить в него алгоритм ASTAR который занимается тем что строит пути т.е. можно будет указать боту идти в гиран из орена пешком и он сам построит путь а если встретит препятствия то внесёт их в базу данных и обойдёт

вот можете посмотреть что получилось не судите строго

возможности:
умеет качаться в ограниченном круге,
круг можно ограничить по Z оси чтоб не мочил тех мобов что под землёй,
имеет мини карту с возможностью масштабирования,
если уперается в дерево или камень то пытается её обойти,
если вы юзнёте в процессе кача бутылку хп то он запоминает её ид и юзает её когда хп ниже 70%,
садится когда хп 55% и встаёт при 100%,
все эти значения принятые по умолчанию можно изменить в main.dpr или привязать эти переменные к каким то событиям в форме.

ВНИМАНИЕ!!!
ДЛЯ ВКЛЮЧЕНИЯ БОТА НАДО УСТАНОВИТЬ ГАЛОЧКУ НА ЗАГРУЗОЧНОМ СКРИПТЕ КОТОРЫЙ ЕСТЬ В АРХИВЕ И ЖЕЛАТЕЛЬНО ЭТО ВСЕ ДЕЛАТЬ В ОКНЕ ВЫБОРА ЧАРА А ЗАТЕМ НАЖАТЬ КНОПКУ ЧТОБ ВОЙТИ В МИР ТОГДА ВСЕ ДАННЫЕ БУДУТ ГРУЗИТЬСЯ НАИБОЛЕЕ ПРАВИЛЬНО, ХОТЯ МОЖНО И ПРОСТО В ИГРЕ ЮЗНУТЬ КАКУЮ ТО ВЕЩЬ ТИПА ЛЕЧИЛКИ И БОТ ТОЖЕ ВКЛЮЧИТСЯ НО ТОГДА БОТ БУДЕТ ДОЛЬШЕ ГРУЗИТСЯ И МОЖЕТ ПРИВЯЗАТСЯ К КАКОМО ТО ЧАРУ ИЛИ НПЦ

ну в общем я писал такой код чтоб его можно было быстро понять и использовать как базу для разработки своих модификаций.

все расчёты ведутся в файле SKYbot.pas и при желании SKYbotFORM1.pas можно легко выключить и скомпилить длл без создания формы или прилепить свою форму.

однако иногда случаются кое какие ошибки которые я пока не могу профиксить...
в общем смотрите сами:
SKYbot_Source.rar
SKYbot.rar

если найдёте ошибки то пожалуйста укажите когда она возникает и что случается
а если укажите ошибки в самом файле исходника то буду просто бесконечно благодарен

[NLObP]

Skybot by skymanrus

[Archibal]

Бот прикольный - респект канешно, действительно жаль что новой версии так и нету - может кто в курсе о её судьбе?
Столкнулся с такой бедой - работает супер - но как только подбтрает с дропа бафф-бутылку сопориться и больше ничего не делает((

[usta]

Бот очень прикольный респект за труды, хотелось бы увидить новую версию, благодарен заранее

[DashKAaa]

Бот от локомотива, на данный момент самый актуальный.

[hackbozb]

появляется после того как в окне выбора персонажа ставлю галочку напротив скрипта, и выдает такие сообщения каждые 2 секунды... Что не так???

[cSSx]

У меня такая проблема запускаю скрипт ,скрипт врубается ,но не чего не происходит ,чар тупо стоит на месте)


P/s -посоветуйте как быть?

[sinles]

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

[TAMBIK]

ощупывая его носом

.

а заставить его перебирать все 
возможные варианты выхода из ситуации, 
назад - вправо - вперед - влево,

а как это по вашему мнению будит
выглядеть в машинном коде

[sinles]

С первой страницы

if(idpov>=2)then begin
getrstr:='01'+
anti4HEX(myXreal)+
anti4HEX(myYreal+30)+
anti4HEX(myZpot)+
anti4HEX(myXreal)+
anti4HEX(myYreal)+
anti4HEX(myZpot)+
'01000000'; HPtime:=0;
end;

Не знаю как и что работает дальше но просто это следует слегка разнообразить, то есть что то на подобии такого:
(пишу условно на С)

void fu1 (bool a, int b)
{
if(a)
{
getrstr:='01'+
anti4HEX(myXreal)+
anti4HEX(myYreal+b)+
anti4HEX(myZpot)+
anti4HEX(myXreal)+
anti4HEX(myYreal)+
anti4HEX(myZpot)+
'01000000'; HPtime:=0;
return;
}
getrstr:='01'+
anti4HEX(myXreal+b)+
anti4HEX(myYreal)+
anti4HEX(myZpot)+
anti4HEX(myXreal)+
anti4HEX(myYreal)+
anti4HEX(myZpot)+
'01000000'; HPtime:=0;
}

//основная процедура или управляющая
{
...
while(Не_Подвергнут_Нападению)
{
Напасть_на_выбранного_моба
if(idpov>=2)
{
//генерируем 2 параметра в зависимости от того какой раз персонаж втыкается носом Например:
bool a = (rand()%3 % 2)? 1 : 0; //что бы чара уносило в сторону
int b = (rand()%3 % 2)? -30 : 30;
fu1(a, b);
} //if
} //while
...
}

вот что я имел ввиду. Как мне кажется такой вариант позволит как минимум долго рыпатся

[alexteam]

"Долго рыпаться в рандомных направлениях" не есть "алгоритмом обхода препятствий". ибо как минимум глупо, как максимум неэффективно.