Перейти к содержимому

Фотография
- - - - -

Проверка времени бафа


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 4

#1
rivpix

rivpix
  • 6
    0
    Не выбрано
    • Lvl 4
    • Пользователь

Всем привет, помогите по скрипту, никак не могу прописать проверку времени бафа

 

var obj: TL2Buff;
    obj2: TL2Effect;
    Enemy: TL2Live;
    Buff: TL2Buff;
    Npc: TL2Npc; 
    
Begin
while 1<>2 do begin   // бесконечный цикл
 
if User.Dead then
begin
    Engine.FaceControl(0,false);
    Delay(2000);
    Engine.gohome;
    Delay(2000);
end;
 
if User.Inrange(-122345, -220204, -6728,250,150) then begin
    Engine.LoadZone('DELUSION.zmap');
    Engine.FaceControl(0,true);
    Delay(500);
end;
 
if User.Inrange(-121432, -218438, -6720,250,150) then begin
    Engine.LoadZone('DELUSION2.zmap');
    Engine.FaceControl(0,true);
    Delay(500);
end;
 
if User.Inrange(-122339, -220249, -6720,250,150) then begin
    Engine.LoadZone('DELUSION3.zmap');
    Engine.FaceControl(0,true);
    Delay(500);
end;
 
if User.Inrange(-122361, -218978, -6720,250,150) then begin
    Engine.LoadZone('DELUSION4.zmap');
    Engine.FaceControl(0,true);
    Delay(500);
end;
 
if User.Inrange(-122351, -218020, -6720,250,150) then begin
    Engine.LoadZone('DELUSION5.zmap');
    Engine.FaceControl(0,true);
    Delay(500);
end;
 
if User.Inrange(-121439, -220161, -6720,250,150) then begin
    Engine.LoadZone('DELUSION6.zmap');
    Engine.FaceControl(0,true);
    Delay(500);
end;
 
if not User.Buffs.ById(1504,Obj) then begin
    Engine.FaceControl(0,false);
    Delay(500);
    Engine.Useitem (7134);
    Delay(33000);  
end;
                 
if User.inrange(43840,-47779,-792,250,150) then begin
    Delay(500);
    Engine.MoveTo(43755, -47682, -802);
    Delay(500);
    Engine.SetTarget(17039);
    Delay(500);
    Engine.DlgOpen();
    Delay(500);
    Engine.DlgSel(3);
    Delay(500);
    Engine.DlgSel(3);
    Delay(1000);
    Engine.MoveTo(43701, -47715, -823);
    Engine.MoveTo(43717, -47838, -822);
    Engine.MoveTo(43578, -47861, -823);
    Engine.MoveTo(43359, -47920, -821);
    Engine.MoveTo(43144, -48007, -823);
    Engine.MoveTo(42990, -48007, -823);
    Engine.MoveTo(42715, -47959, -823);
    Delay(2000);
end;
 
if User.inrange(42713,-47966,-823,250,150) then begin
    Delay(500);
    Engine.SetTarget(32484);
    Delay(500);
    Engine.DlgOpen();
    Delay(500);
    Engine.DlgSel(2);
    Delay(500);
    Engine.DlgSel(2);
    Delay(2000);
end;
 
//путь к телепортеру
if User.Inrange(-114589,-154162,-6720,250,150) or
   User.Inrange(-114597,-152501,-6720,250,150) then begin
    Engine.MoveTo(-114674, -154007, -6739);
    Engine.MoveTo(-114819, -153741, -6744);
    Engine.MoveTo(-114977, -153447, -6748);
    Engine.MoveTo(-114984, -153112, -6750);
    Engine.MoveTo(-114860, -152790, -6751);
    Engine.MoveTo(-114771, -152469, -6750);
    Engine.MoveTo(-114734, -152202, -6741);
    Engine.MoveTo(-114725, -151913, -6743);
    Engine.MoveTo(-114704, -151651, -6742);
    Engine.MoveTo(-114651, -151404, -6749);
    Engine.MoveTo(-114621, -151302, -6749);
    
//чек телепортера
if User.Inrange(-114626,-151321,-6720,250,150) then begin
    Delay(3000);
    Engine.SetTarget(32658);
    Delay(500);
    Engine.DlgOpen();
    Delay(500);
    Engine.DlgSel(1);
    Delay(1000);
end;
 
//чек рб и пропуск комнаты
if User.Inrange(-114617,-151300,-6747,250,150) or
   User.Inrange(-121395,-220225,-6747,250,150) then begin
    Engine.FaceControl(0,false);
    Delay(500);
    Engine.SetTarget(32668);
    Delay(500);
    Engine.DlgOpen();
    Delay(500);
    Engine.DlgSel(1);
    Delay(1000);
end;
Delay(500);
end;
Delay(500);
end;
Delay(500);
end.

  • 0

#2
BreadfanLock

BreadfanLock

а где и к чему ты пытаешься его прописать ? 0_0
Вот это?
 
if not User.Buffs.ById(1504,Obj) then begin
    Engine.FaceControl(0,false);
    Delay(500);
    Engine.Useitem (7134);
    Delay(33000);  
end;
 
 
adrenalinebot . com/ru/api/adrenaline/Classes/TL2List#ByID

 

Форум не дает вставить ссылку на офсайт с апи адреналина  :lol: Просто топ из топов.


Сообщение отредактировал BreadfanLock: 28 Апрель 2020 - 05:45

  • 0
Не изготавливаю готовый код...

#3
rivpix

rivpix
  • 6
    0
    Не выбрано
    • Lvl 4
    • Пользователь

Приписываю и начинаются ошибки

 

or (buffs.EndTime<9000)


J2b36aKS0oVKYA.png


Сообщение отредактировал rivpix: 28 Апрель 2020 - 06:06

  • 0

#4
rivpix

rivpix
  • 6
    0
    Не выбрано
    • Lvl 4
    • Пользователь

Ошибку выяснил, вместо Obj прописан buffs, так очевидно, а я уже час голову ломаю)

 

V2VYDg8fdvk5vm.png


  • 0

#5
dsp68rus

dsp68rus
  • 41
    4
    Кривляюсь
    • Lvl 23
    • Пользователь

Если актуально ещё. Есть одно соображение по поводу загрузки карт. Можно её не делать совсем. В настройке бота, в настройке зоны поиска  отключить опцию "возвращаться в центр начала боя если нет цели" и держать бот включенным всё время пока он не выйдет в нейтральную зону к НПЦ. Тогда при переходе в новую комнату бот начнёт атаковать с того места в котором оказался после перемещения, то есть с центра комнаты, а зона атаки будет ограничена границами комнаты, то есть границами места где ресаются мобы, и всё.  Скрипт сокращается на половину.


  • 0


Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.pro - Сделано с для игроков.