Поиск сообщества

Есть такая важная фишка в этой игре ..делевл . Нужная и часто важная , позволяющая подстроить перса к любой локе . Вот сам процесс не приятный и муторный . и хорошо если тебе слить надо лвл - два . а есть десять ? двадцать ?. И так предлагаю вашему вниманию скрипт делевла автоматом . Позволяющий достаточно быстро а главное без вашего участия слить персонажа до нужного вам лвл . Слив на мобах а значит с пенальти ( для тех кто в танке штрафы под пенальти на смерть выше , причем чем выше пенальти тем выше штраф а значит быстрее сольем . В этом ключе слив под гвардами считаю не рентабельным особенно низколевельных персов ( с пенальти фиг по тому гварду попадешь , был вариант когда тупо засекла время .. через 20 минут перестала заниматься мазохизмом и пошла ваять данный скрипт ) И так .... Начало Аден возле гк именно в этом месте запускаем скрипт. Перед запуском , проставляем в шапке нужный нам лвл , я выделила где var obj:TL2Effect; begin // тут пишем до какого уровня будем сливаться вместо 77 вписываем нужный именно вам лвл while User.Level > 77 do begin // lvl Engine.FaceControl(0,false); delay(150); if User.inrange(147970, 27040, -2208,500) then begin Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(146038, 30519, -2464,500) then begin Engine.MoveTo(146024, 30056, -2464); Engine.MoveTo(147464, 30056, -2464); Engine.MoveTo(147416, 28952, -2272); Engine.MoveTo(147432, 28472, -2272); Engine.MoveTo(147032, 27528, -2272); Engine.MoveTo(147064, 26888, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(144626, 29145, -2464,500) then begin Engine.MoveTo(145000, 29128, -2464); Engine.MoveTo(145016, 27608, -2272); Engine.MoveTo(145896, 27624, -2200); Engine.MoveTo(146792, 27624, -2272); Engine.MoveTo(146968, 27112, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(144526, 24661, -2144,500) then begin Engine.MoveTo(144984, 24648, -2144); Engine.MoveTo(145512, 24376, -2144); Engine.MoveTo(146328, 24248, -2016); Engine.MoveTo(146312, 25688, -2016); Engine.MoveTo(146824, 25704, -2008); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(146494, 30584, -2464,500) then begin Engine.MoveTo(146456, 30056, -2464); Engine.MoveTo(147448, 30056, -2464); Engine.MoveTo(147464, 29592, -2272); Engine.MoveTo(147464, 28664, -2272); Engine.MoveTo(147032, 27592, -2272); Engine.MoveTo(147096, 27192, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(146814, 27108, -2208,500) then begin Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(144635, 26664, -2272,500) then begin Engine.MoveTo(144984, 26952, -2272); Engine.MoveTo(144968, 27624, -2272); Engine.MoveTo(145896, 27624, -2200); Engine.MoveTo(146696, 27608, -2272); Engine.MoveTo(146984, 27064, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(150227, 29104, -2464,500) then begin Engine.MoveTo(149864, 29128, -2456); Engine.MoveTo(149896, 27624, -2272); Engine.MoveTo(149016, 27624, -2200); Engine.MoveTo(148216, 27608, -2272); Engine.MoveTo(147960, 27096, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(148010, 27996, -2272,500) then begin Engine.MoveTo(147976, 27144, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(148112, 30439, -2464,500) then begin Engine.MoveTo(148056, 30088, -2464); Engine.MoveTo(147464, 29960, -2464); Engine.MoveTo(147464, 29576, -2264); Engine.MoveTo(147448, 28744, -2272); Engine.MoveTo(147000, 27608, -2272); Engine.MoveTo(146984, 27048, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(145686, 21114, -2144,500) then begin Engine.MoveTo(146008, 21448, -2144); Engine.MoveTo(144984, 22568, -2144); Engine.MoveTo(144984, 24232, -2144); Engine.MoveTo(146344, 24232, -2016); Engine.MoveTo(146360, 25656, -2016); Engine.MoveTo(146888, 25704, -2008); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(144559, 22835, -2144,500) then begin Engine.MoveTo(144984, 22888, -2144); Engine.MoveTo(145032, 24264, -2144); Engine.MoveTo(146344, 24248, -2016); Engine.MoveTo(146360, 25672, -2016); Engine.MoveTo(146856, 25688, -2008); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(148946, 21121, -2144,500) then begin Engine.MoveTo(148856, 21464, -2144); Engine.MoveTo(149864, 22568, -2144); Engine.MoveTo(149912, 24280, -2144); Engine.MoveTo(148568, 24184, -2016); Engine.MoveTo(148488, 25752, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(146819, 28063, -2272,500) then begin Engine.MoveTo(146984, 27160, -2208); Engine.MoveTo(147512, 26536, -2208); Engine.MoveTo(147496, 25816, -2016); Engine.MoveTo(146808, 25800, -2016); end; if User.inrange(146808, 25800, -2016, 250, 150) then begin delay(2550); Engine.SetTarget(30848); Engine.MoveToTarget(-20); Engine.DlgOpen(); delay(550); Engine.DlgSel(1); delay(550); Engine.DlgSel(18); delay(550); Engine.CancelTarget; delay(5500); Engine.MoveTo(118456, 16088, -5104); Engine.MoveTo(117592, 16056, -5080); Engine.MoveTo(116312, 16056, -5080); Engine.MoveTo(115304, 16040, -5080); Engine.MoveTo(114408, 15624, -5080); Engine.MoveTo(114072, 15416, -5080); Engine.MoveTo(113352, 14824, -5080); end; if User.Dead then begin Delay(1000); Engine.GoHome; Delay(1000); end; end; end.

Предисловие Взглянув на данный форум, решил составить небольшой гайд с примерами реализации скрипта на прокачку с любого до любого лвла. Главное что хотелось бы сообщить, готовый скрипт не собираюсь выкладывать, те кто привык вставлять готовые скрипты без вложения собственных сил и времени в их написание, -Идут лесом!!! Мой пример реализации Начнём с главного, проверки и логика скрипта. Далее рассмотрим пример функции которая будет содержать в себе действия. Функции используемые в процедуре 'State'. На этом моменте мы имеем необходимые знания и по сути, готовые инструменты для прокачки персонажа. Но тут возникает вопрос, а как же быть в случае смерти перса? Тут возникает очередная дилемма, можно ведь было указать в основном коде дополнительные условия, наплодить переменных и еще два км кода, но мы поступим проще. Как это так, проще? -Да вот так, легко! С помощью модулей подпрограммы. Тут нам поможет знание базовых возможностей делфи. Как это реализовать? А тут во избежание использования данного гайда различными лентяями, я оставлю шапку модуля с минимальными комментариями. У нас есть шапка модуля, код самого модуля, осталось только собрать его в отдельный файл и назвать так же как и сам модуль... Ничего не понятно? Читай заново, включай голову. Перед тем как сохранить модуль, проверяем тестовым запуском, если код скомпилился без ошибок, значит всё сделано верно и модуль рабочий, если адрик выдал ошибки, смотрим код ошибки в консоли бота и разбираемся, что вы сделали не так... И так, у нас есть готовый модуль, который не выдаёт ошибок. Найс, первая победа, идём дальше. Создаём исполняющий файл скрипта... Прежде всего объявляем все используемые модули или\и библиотеки, переменные и т.д Заключение и выводы В сухом остатке мы имеем все необходимые инструменты для того чтобы написать свой собственный скрипт на прокачку персонажа с любого до любого уровня. При этом, мы можем реализовать любые сценарии исполнения, создавать отдельные модули с определенными алгоритмами, которые мы можем смело убрать в отдельные файлы и не засорять наш скрипт километрами говно-кода в которых мы точно уверенны. На пример : если это интерлюды( то еще убожество, ИМХО), Каждому кто заморочился и хочет научиться писать скрипты правильно и реализовывать всё на что только хватит фантазии, использовать все возможности скриптового движка адрика и не быть нытиком выпрашивающим скрипты на форумах ( которых кстати практически не осталось) рекомендую начинать понемногу изучать различные ЯП, если навыки кодерства нужны только для написания скриптов под адрик и это потолок, то просто учим понемногу Delphi, эти знания лишними не будут если в какой-то момент захотите освоить какой-то новый ЯП. Так же не забываем, что в стандартных функциях самого адрика можно реализовать много чего, избегая лишних "костылей" в скрипте. Что так же важно знать, в кряк адрике не весь функционал из APi бота работает( в силу того что он устаревший) но в целом, даже он способен практически на всё! Всё упирается в ваши знания, навыки и фантазию... Желаю удачи и успехов! P/S Я не Pro, просто на опыте, гуру себя не считаю и многого не знаю, но кое-что всё таки умею. Гуру пилят своих ботов с нуля и торгуют ими за норм бабки в приват, про работают скриптописцами и программистами. Для тех кто захочет задать тривиальны вопросы, рекомендую прочесть содержимое спойлера ниже...

Label(main) CHARSTATUS(CHP,==,0) { call(death) } PosOutRange(132978, -60666, -2992, 11000) { call(esc) } delay(10000) JMP(main) LABEL(death) { DELAY(500) SET(FIGHTSTOP) delay(300) SET(L2WALKER,DISABLE) DELAY(1000) GOHOME() DELAY(4000) JMP(path) } LABEL(esc) { DELAY(800) SET(FIGHTSTOP) DELAY(800) USESKILL(Escape: 5 minutes[ID=2099]) delay(250) SET(L2WALKER,DISABLE) delay(15000) JMP(path) } LABEL(path) //1 POSINRANGE(150704;-55744;-2960, 400, 50) { MoveTo(150376, -57160, -2960) MoveTo(148696, -56024, -2960) MoveTo(148184, -55848, -2776) //баффер call(buff) } //2 POSINRANGE(149872, -57424, -2960, 400, 50) { MoveTo(150376, -57160, -2960) MoveTo(148696, -56024, -2960) MoveTo(148184, -55848, -2776) //баффер call(buff) } //3 POSINRANGE(145696, -57696, -2960, 400, 50) { MoveTo(145208, -57144, -2960) MoveTo(146936, -55928, -2784) MoveTo(148120, -55896, -2760) //баффер call(buff) } //4 POSINRANGE(146272, -58176, -2960, 400, 50) { MoveTo(145752, -57944, -2960) MoveTo(145208, -57144, -2960) MoveTo(146936, -55928, -2784) MoveTo(148120, -55896, -2760) //баффер call(buff) } //5 POSINRANGE(149120, -558064, -2960, 400, 50) { MoveTo(150088, -57624, -2960) MoveTo(150376, -57160, -2960) MoveTo(148696, -56024, -2960) MoveTo(148184, -55848, -2776) //баффер call(buff) } //6 POSINRANGE(145264, -57680, -2960, 800, 50) { MoveTo(145208, -57144, -2960) MoveTo(146936, -55928, -2784) MoveTo(148120, -55896, -2760) //баффер call(buff) } //7 POSINRANGE(150400, -56752, -2960, 400, 50) { MoveTo(150376, -57160, -2960) MoveTo(148696, -56024, -2960) MoveTo(148184, -55848, -2776) //баффер call(buff) } //8 POSINRANGE(145392, -56960, -2960, 400, 50) { MoveTo(145208, -57144, -2960) MoveTo(146936, -55928, -2784) MoveTo(148120, -55896, -2760) //баффер call(buff) } //9 POSINRANGE(144496, -55088, -2960, 400, 150) { MoveTo(144904, -55400, -2960) MoveTo(145032, -56552, -2960) MoveTo(145208, -57144, -2960) MoveTo(146936, -55928, -2784) MoveTo(148120, -55896, -2760) //баффер call(buff) } //10 POSINRANGE(146368, -56256, -2768, 400, 100) { MoveTo(147448, -56008, -2768) MoveTo(148264, -56072, -2768) MoveTo(148120, -55896, -2760) //баффер call(buff) } //11 POSINRANGE(149088, -56256, -2768, 400, 100) { MoveTo(148264, -56072, -2768) MoveTo(148120, -55896, -2760) //баффер call(buff) } //12 POSINRANGE(147664, -56464, -2768, 400, 100) { MoveTo(147448, -56008, -2768) MoveTo(148264, -56072, -2768) MoveTo(148120, -55896, -2760) //баффер call(buff) } Label(buff) { //бафф DELAY(2000) NPCSEL(Court Magician[ID=35652]) DELAY(1000) NPCDLG(Court Magician[ID=35652]) DELAY(9000) BypassToServer(00) delay(2000) BypassToServer(02) delay(2000) BypassToServer(01) delay(2000) DLGSEL(Restore) MSG(Restore) delay(2000) call(t4) } LABEL(t4) { delay(800) MoveTo(148088, -56120, -2768) MoveTo(147816, -56040, -2768) MoveTo(148008, -55256, -2712) delay(800) DELAY(1000) NPCSEL(Doctor Chaos[ID=31116]) DELAY(1000) NPCDLG(Doctor Chaos[ID=31116]) DELAY(1000) BypassToServer(01) DELAY(1000) BypassToServer(08) DELAY(1000) BypassToServer(03) //лока garden of wil DELAY(3000) MoveTo(132376, -59816, -3008) MoveTo(132712, -59304, -2976) MoveTo(133608, -58328, -2920) delay(550) SET(L2WALKER,ENABLE) delay(550) SET(FIGHTSTART) DELAY(600) } delay(1000) JMP(main)

на нашем не проверял как дорасту адаптирую, вместо гк надо нашего нпц

Взял с другого форума, пусть у нас будет, по идее небольшие изменения типа вместо сое анстак и можно работать Точки респа Глудин: Точки респа после смерти Шутгарт: Точки респа Годдарт: Точки респа Гиран: Точки респа Орен: Точки респа Аден: