Имея данный пример вы сможете переписать под себя скрипт, точки для перемещения создаются нажатием Альт+V в окне бота в вкладке скрипты
var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while 1<>2 do begin // бесконечный цикл
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(15000);
end;
if user.InRange(116589, 76268, -2720,15000,15000) then begin // проверяем если мы в радиусе от точке,то выполняем все что находится за begin,в данном случае мы используем АЛЬТ+Б телепорт
Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('16', True);
delay(1000);
Engine.BypassToServer('1b', True); // выделенное снифается снифером как на видео в разделе настройки, енгинбайпас это использование Альт Б консоли
delay(1000);
Engine.BypassToServer('113', True);
delay(1000);
Engine.BypassToServer('1a', True);
delay(6000);
Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('13', True);
delay(1000);
Engine.BypassToServer('15b Player', True);
delay(1000);
Engine.BypassToServer('15b Player', True);
delay(1000);
Engine.BypassToServer('15b Player', True);
delay(6000);
Engine.MoveTo(117096, 76904, -2688);
Engine.SetTarget(30233); // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
Engine.DlgOpen(); // открываем диалоговое окно
Engine.DlgSel(1); // выбираем строку под номером 1 (можно ставить любой)
Engine.DlgSel(7); // еще раз выбираем нужную строку
delay(6000);
end;
if user.InRange(72969, 118443, -3680,300,300) then begin // здесь все аналог предыдущему с радиусом от точки,но тут мы уже двигаемся по маршруту к нашей фарм локе
Engine.MoveTo(73355, 118109, -3703);
Engine.MoveTo(74176, 117797, -3728);
Engine.MoveTo(75432, 117496, -3728);
Engine.MoveTo(76424, 117176, -3728);
Engine.MoveTo(77287, 116785, -3803);
Engine.MoveTo(78152, 116344, -3720);
Engine.MoveTo(79720, 116152, -3696);
Engine.MoveTo(81072, 116502, -3370);
Engine.MoveTo(82255, 117117, -3112);
Engine.FaceControl(0,true); // пришли на, спот врубили интерфейс и фармим
delay(6000);
end;
delay(6000);
end;
end.
Список команд, условий и пр
Код:
/-/-/-/-/-/-/-/-/-/-/-/-Переменные-/-/-/-/-/-/-/-/-/-/-/-/-/-/
Данный блок идет во всех моих скриптах. Список переменных можно увеличить или уменьшить.
Берутся они из мануала по боту. Это блок как пример
uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
Obj: TL2Buff;
L2Skill: TL2Skill;
Control: TL2Control;
TNpcList: TL2List;
/-/-/-/-/-/-/-/-/-/-/-/-Команды-/-/-/-/-/-/-/-/-/-/-/-/-/-/
Delay(100); - пауза 100мс
Engine.GoHome; - встать в город
Engine.Facecontrol(0,False); - вЫключить конфиг
Engine.Facecontrol(0,True); включить конфиг
Print('proverka1'); написать в систем чат бота proverka1
Engine.LoadConfig('ЭльфКач'); - загрузить конфиг из папки сетинг (по умолчанию) в скрипт
Engine.MoveTo(46035, 42083, -3499); - побежать в точку
Engine.SetTarget('Гид Новичков'); - взять в таргет НПС
Engine.MoveToTarget(-20); - подойти к объекту за 20 игровых единиц
Engine.DlgOpen; - открыть диалог
Engine.DlgSel(6); - нажать на строку в диалоге, где 6 номер строки по списку сверху вниз
Figth_Flag:=true; - отфлагаться
Engine.NPCTrade(false,[8824,1]); - покупать предмет НПС
Engine.NPCTrade(True,[8824,1]); - продавать предмет НПС
Engine.npcexchange(8824,1); - покупать теневое оружие или в альт+В
Engine.UseItem(8824); - использовать Итем
engine.bypasstoserver('_bbshome',true); - использовать команду из альт+В
pause; - выключить скрипт
/-/-/-/-/-/-/-/-/-/-/-/-Условий-/-/-/-/-/-/-/-/-/-/-/-/-/-/
if User.InRange(45989, 186754, -3512,7000) then - если в радиусе данной точки, то
if not User.Buffs.ById(1204, Obj) then - если нет бафа с таким ID, то
if not Engine.QuestStatus(622, 32) then - если стадия квесте не 32, то
if not Inventory.Quest.ByID(7198, Item) then - если в инвентаре нет предмета с этим ID, то
if Inventory.Quest.ByID(7198, Item) and (Item.count = 1) then - то же самое про квсест итем
if not Inventory.User.ByID(10477, Item) then - то же самое про квсест итем
if Inventory.User.ByID(10477, Item) and (Item.count = 1) then - если в инвентаре 1 квестовый итем с таким то ID
зайди на сайт адреналина там полно уже готовых скриптов, в мануале скрипта смотри если какая то строчка не понятна
________________ Продам автомобиль Москвич-412, ну или поменяю на Nоkiа-3310
Имея данный пример вы сможете переписать под себя скрипт, точки для перемещения создаются нажатием Альт+V в окне бота в вкладке скрипты
var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while 1<>2 do begin // бесконечный цикл
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(15000);
end;
if user.InRange(116589, 76268, -2720,15000,15000) then begin // проверяем если мы в радиусе от точке,то выполняем все что находится за begin,в данном случае мы используем АЛЬТ+Б телепорт
Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('16', True);
delay(1000);
Engine.BypassToServer('1b', True); // выделенное снифается снифером как на видео в разделе настройки, енгинбайпас это использование Альт Б консоли
delay(1000);
Engine.BypassToServer('113', True);
delay(1000);
Engine.BypassToServer('1a', True);
delay(6000);
Engine.BypassToServer('_bbshome', True);
delay(1000);
Engine.BypassToServer('13', True);
delay(1000);
Engine.BypassToServer('15b Player', True);
delay(1000);
Engine.BypassToServer('15b Player', True);
delay(1000);
Engine.BypassToServer('15b Player', True);
delay(6000);
Engine.MoveTo(117096, 76904, -2688);
Engine.SetTarget(30233); // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
Engine.DlgOpen(); // открываем диалоговое окно
Engine.DlgSel(1); // выбираем строку под номером 1 (можно ставить любой)
Engine.DlgSel(7); // еще раз выбираем нужную строку
delay(6000);
end;
if user.InRange(72969, 118443, -3680,300,300) then begin // здесь все аналог предыдущему с радиусом от точки,но тут мы уже двигаемся по маршруту к нашей фарм локе
Engine.MoveTo(73355, 118109, -3703);
Engine.MoveTo(74176, 117797, -3728);
Engine.MoveTo(75432, 117496, -3728);
Engine.MoveTo(76424, 117176, -3728);
Engine.MoveTo(77287, 116785, -3803);
Engine.MoveTo(78152, 116344, -3720);
Engine.MoveTo(79720, 116152, -3696);
Engine.MoveTo(81072, 116502, -3370);
Engine.MoveTo(82255, 117117, -3112);
Engine.FaceControl(0,true); // пришли на, спот врубили интерфейс и фармим
delay(6000);
end;
delay(6000);
end;
end.
Список команд, условий и пр
Код:
/-/-/-/-/-/-/-/-/-/-/-/-Переменные-/-/-/-/-/-/-/-/-/-/-/-/-/-/
Данный блок идет во всех моих скриптах. Список переменных можно увеличить или уменьшить.
Берутся они из мануала по боту. Это блок как пример
uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
Obj: TL2Buff;
L2Skill: TL2Skill;
Control: TL2Control;
TNpcList: TL2List;
/-/-/-/-/-/-/-/-/-/-/-/-Команды-/-/-/-/-/-/-/-/-/-/-/-/-/-/
Delay(100); - пауза 100мс
Engine.GoHome; - встать в город
Engine.Facecontrol(0,False); - вЫключить конфиг
Engine.Facecontrol(0,True); включить конфиг
Print('proverka1'); написать в систем чат бота proverka1
Engine.LoadConfig('ЭльфКач'); - загрузить конфиг из папки сетинг (по умолчанию) в скрипт
Engine.MoveTo(46035, 42083, -3499); - побежать в точку
Engine.SetTarget('Гид Новичков'); - взять в таргет НПС
Engine.MoveToTarget(-20); - подойти к объекту за 20 игровых единиц
Engine.DlgOpen; - открыть диалог
Engine.DlgSel(6); - нажать на строку в диалоге, где 6 номер строки по списку сверху вниз
Figth_Flag:=true; - отфлагаться
Engine.NPCTrade(false,[8824,1]); - покупать предмет НПС
Engine.NPCTrade(True,[8824,1]); - продавать предмет НПС
Engine.npcexchange(8824,1); - покупать теневое оружие или в альт+В
Engine.UseItem(8824); - использовать Итем
engine.bypasstoserver('_bbshome',true); - использовать команду из альт+В
pause; - выключить скрипт
/-/-/-/-/-/-/-/-/-/-/-/-Условий-/-/-/-/-/-/-/-/-/-/-/-/-/-/
if User.InRange(45989, 186754, -3512,7000) then - если в радиусе данной точки, то
if not User.Buffs.ById(1204, Obj) then - если нет бафа с таким ID, то
if not Engine.QuestStatus(622, 32) then - если стадия квесте не 32, то
if not Inventory.Quest.ByID(7198, Item) then - если в инвентаре нет предмета с этим ID, то
if Inventory.Quest.ByID(7198, Item) and (Item.count = 1) then - то же самое про квсест итем
if not Inventory.User.ByID(10477, Item) then - то же самое про квсест итем
if Inventory.User.ByID(10477, Item) and (Item.count = 1) then - если в инвентаре 1 квестовый итем с таким то ID
зайди на сайт адреналина там полно уже готовых скриптов, в мануале скрипта смотри если какая то строчка не понятна
расскажу по сИкрету, что там "видно" только тем - кто КУПИЛ
Может найдется человек который купил данного бота и выложит готовые скрипты на форум, можно даже отдельную тему, думаю этот человек не мало спасибок соберет
Все не плохо, но функционал.. все должно быть на скриптах.....
Обьясните, что я не перепробовал, что бы он фармил ферму. Бот отказывается делать простые задания. к примеру:
Пробовал ставить корма юз до того момента когда хп моба меньше 10к.. пофиг юзает семя когда у моба 14к.
Пробовал ставить юз корма до достижении "абнормал ИД" нехрена...
Как настроить ферму у кого получилось?
Так же не кидает ПОФ и ПОВ сумону, все кидает кроме этого
________________
Skype live:ivanius51
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]