22:22 | 21.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Скрипт для сета нг
Скрипт для сета нг
Sonik · Offline · Дата: Суббота, 05.12.2015, 11:58 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Скрипт для сета нг - перед включением нужно стать у НПЦ который дает квест.

Код
function CheckItemCount (const itemID: Integer; const nenuzhnajaconst: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
   if Inventory.User.ByID(itemID, tempItem) then
   Result := tempItem.Count;
end;
Begin
delay(2500);

// этот кусок не трогаем
  if User.inrange(-119425, 49242, -16, 500, 100) then begin    
        delay(1000);
   Engine.SetTarget(32173);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(3);
          delay(1000);
            Engine.DlgSel(1);
          delay(1000);
            Engine.DlgSel(1);
          delay(1000);
          Engine.MoveTo(-119400, 48714, 169);
          Engine.MoveTo(-119386, 47920, 359);
          Engine.MoveTo(-119320, 46989, 342);
          Engine.MoveTo(-116857, 45761, 341);
          Engine.MoveTo(-116471, 45432, 341);
          Engine.MoveTo(-115973, 45221, 480);
          Engine.MoveTo(-115208, 44647, 490);
          Engine.MoveTo(-115013, 44670, 490);
          end;
          if User.inrange(-115013, 44670, 490, 250, 100) then begin    
        delay(1000);
            Engine.SetTarget(32170);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(5);
          delay(1000);
          Engine.MoveTo(-115507, 44679, 476);
          Engine.MoveTo(-118514, 46697, 341);
          Engine.MoveTo(-119492, 47117, 366);
          Engine.MoveTo(-119456, 47871, 364);
          Engine.MoveTo(-119395, 49238, -16);
          Engine.SetTarget(32173);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(3);
          delay(1000);
            Engine.DlgSel(1);
          delay(1000);
          Engine.MoveTo(-119350, 47922, 358);
          Engine.MoveTo(-119315, 47005, 341);
          Engine.MoveTo(-117696, 47104, 341);
          Engine.MoveTo(-117163, 47623, 430);
          Engine.MoveTo(-117156, 47945, 430);
          end;
          if User.inrange(-117156, 47945, 430, 250, 100) then begin   
        delay(1000);
            Engine.SetTarget(32167);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(3);
          delay(1000);
          Engine.MoveTo(-117188, 47556, 418);
          Engine.MoveTo(-119144, 47639, 422);
          Engine.MoveTo(-119415, 47867, 364);
          Engine.MoveTo(-119400, 49238, -16);
           Engine.SetTarget(32173);
          Engine.DlgOpen();
          delay(1000);
          Engine.DlgSel(3);
          delay(1000);
            Engine.DlgSel(1);
          delay(1000);
         
                   end;
       delay(550);
    end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Скрипт для сета нг
Страница 1 из 11
Поиск: