22 Октября 2018 04:29 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
22.10.2018
Warhangel
00:18:37
offline
21.10.2018
Mozart
08:30:07
offline
21.10.2018
Tishi
16:05:15
offline
20.10.2018
bro.quarry
1 день
offline
17.10.2018
lazarev...
4 дней
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик : Короткометражный CGI-фильм, посвященный игре The Elder Scrolls Online.

Игрофильмы:  ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик

Видео Rhine Falls : Rhine Falls Live Camera streeeam

Онлайн камеры:  Rhine Falls

Видео Live Cam, Central Memorial Park, Calgary, Alberta : Central Memorial Park is a park located in central Calgary\

Онлайн камеры:  Live Cam, Central Memorial Park, Calgary, Alberta

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
Регистрация сайта в каталогах, раскрутка и оптимизация сайта, контекстная реклама
Автор темы: Warhangel
ID темы: 1893
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 3369 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Adrenaline: скрипт рескилл, таргет, hold
Наверх Распечатать сообщение #1
Опубликовано 18-03-2016 17:22
Аватар пользователя

Супер Администратор



Сообщений: 2148
Вас поблагодарили: 18
раз(а) в 18 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 3134
Откуда: Россия
Пол: Мужской

Скрыть награды


Пожаловаться на это сообщение 

Скрипт на быстрый рескилл, быстрое выделение в таргет бишей (кнопка Space) и магов (кнопка Ctrl).
Возможность биндить таргеты по никнейму на кнопки z x c v + наличие Антибек и HoldTarget.


//Функции
// Таргеты на кнопки z+x+c+v
// HOld target
// AntiBack
// Reskill





uses SysUtils,Classes;
procedure Mages (p: pointer);         

var
keycode,j,i,m,k:integer;
char2,char3:tl2char;
begin
  while engine.status=lsonline do begin

         
    Engine.WaitAction([laKey],keycode,i);
     
if KeyCode = $11 (* CTRL *) then begin    // ctrl - Маги (Сорк\мм)
for j := 0 to CharList.count -1 do begin
Char2 := CharList.Items(j);
if (((char2.ClassID=94) or (char2.classid=103)or (char2.classid=27)or (char2.classid=12))  and not (char2.ismember) and not (char2.clanid=user.clanid) and (char2.pvp))and not (char2.dead)
(*Поиск проф с айди 94 и 103 сорки\ммы =  которые не в парти*)
then
begin
Engine.Settarget(char2.name);break
end;
end;

end; end;
end;

procedure Cardinals (p: pointer);

var
keycode,j,i,m,k:integer;
char2,char3:tl2char;
begin
  while engine.status=lsonline do begin

         
    Engine.WaitAction([laKey],keycode,i);
     
if KeyCode = $20 (* SPACE *) then begin // Кнопка SPACE - бишы
for i := 0 to CharList.count -1 do begin
Char2 := CharList.Items(i);
if ((char2.ClassID=97)  and not (char2.ismember) and not (char2.clanid=user.clanid) and (char2.pvp) and not (char2.dead)) then
(*Поиск проф с айди 97 и 12 - Бишы  *)
begin
Engine.Settarget(char2.name);break
end;
end;
end;
end;
end;



procedure target2 (p:pointer);
var
keycode,j,i,m,k:integer;
char2,char3:tl2char;
begi n
while engine.status=lsonline do begin
Engine.WaitAction([laKey],keycode,i);
if KeyCode =    $43 (* C *) then begin
Engine.Settarget('SOBR');
end;
end;
end;

procedure target3 (p:pointer);
var
keycode,j,i,m,k:integer;
char2,char3:tl2char;
begi n
while engine.status=lsonline do begin
Engine.WaitAction([laKey],keycode,i);
if KeyCode = $58 (* X *) then begin
Engine.Settarget('xImpulse');
end;
end;
end;


pro cedure target4 (p:pointer);
var
keycode,j,i,m,k:integer;
char2,char3:tl2char;
begi n
while engine.status=lsonline do begin
Engine.WaitAction([laKey],keycode,i);
if KeyCode = $5A (* Z *) then begin
Engine.Settarget('SOBR');
end;
end;
end;


procedu re hold ;
var
charT:tl2live;
obj:tl2effect;

begin
 while engine.status = lsonline do begin
  if (user.target.valid) then if not (User.Buffs.byID(18,obj)) and not (User.Buffs.ByID(28,obj)) then    chart:=user.target;
  if not user.target.valid then while not (User.Target.name = chart.name) do Engine.SetTarget(chart.name);
 delay(100);
 end;
end;

p rocedure KrestNaRes;
Var
DeadLst:TStringList;
lah:TL2Char;
i:integer;
Nick: string;
begin
DeadLst:=TStringList.Create;
  While true do
    begin
    for i:=0 to CharList.count-1 do
    begin
      if CharList.Items(i).Dead and (DeadLst.IndexOf(CharList.Items(i).Name)=-1) then DeadLst.Add(CharList.Items(i).Name);
      if not CharList.Items(i).Dead and (User.DistTo(CharList.Items(i))<1000) and ( (charlist.items(i).classid=97) or (charlist.items(i).classid=90) or (charlist.items(i).classid=97) or
                                                (charlist.items(i).classid=105) or
                                                (charlist.items(i).classid=112) or
                                                (charlist.items(i).classid=94) or 
                                                (charlist.items(i).classid=105) or
                                                (charlist.items(i).classid=103) or
                                                (charlist.items(i).classid=110) or
                                                (charlist.items(i).classid=134) or
                                                (charlist.items(i).classid=92) or
                                                (charlist.items(i).classid=109) or 
                                                (charlist.items(i).classid=102) or
                                                (charlist.items(i).classid=88)) and (charlist.items(i).pvp) and (user.distto(charlist.items(i))<1200) and  (DeadLst.IndexOf(CharList.Items(i).Name)>-1) and not (charlist.items(i).ismember) and not (charlist.items(i).ismember) and not ( charlist.items(i).clanid=user.clanid) then
      begin
        Nick:=CharList.Items(i).Name;
        Engine.SetTarget(Nick);
       
       
      end;
    end;
    i:=0;
    repeat
      if DeadLst.Count>0 then
      begin
        if not CharList.ByName(DeadLst[i],lah) or not lah.Dead then
        begin
          DeadLst.Delete(i);
          dec(i);
        end;
      end;
      inc(i);
    until i>DeadLst.Count-1;
    Delay(200);
  end;
end;
begin
script.newthread(@Cardinals);
script.newthread(@Mages);
script.newthread(@target2);
script.newthr ead(@target3);
script.newthread(@target4);
script.newthread(@hold);
script.newthread(@KrestNaRes);

delay(100)
end.
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
Неликвиды ОАО «Алтай-Кокс»
• Хозяйство - Оборудование Цена: 1 1
Барнаул18.10.2018
(на 1 месяц)
ООО «ЛУКОЙЛ-Нижневолжскнефть» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Астрахань28.09.2018
(на 1 месяц)
Купим автоматическую систему газового пожаротушения
• Хозяйство - Оборудование Цена: 1 1
Красноярск24.04.2018
(на 6 месяцев)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Компания "УралМеталлЭнерго" реализует складские остатки труб
• Хозяйство - Сырье и материалы Цена: 1 1
Челябинск24.10.2017
(на 12 месяцев)
Облако тегов тем форума
“Я его любила, а он оказался альфонсом”, EVE – оплата игры, нюансы, мошенничество, Facebook: how we scaled to 500 000 000 users by Robert Johnson, Нервные клетки можно восстановить, Установка плагинов, StarWars: Пятничные ответы о разработчиков и рассказ о создании планеты-города Coruscant, Подробности контентного обновления в Jade Dynasty, Руководство по группам и гильдиям, Mithril Mines (81+), teXet TM-B410 – слайдер с двумя SIM-картами и большими кнопками, Компиляция ядра для линукс (ArcEmu), 1503 А.D.: Тhe New Wоrld, Бесплатные уроки танцев в Саду им. Баумана!, Java сервер от L2Open-Free - Gracia Epilogue, Гламур при смерти… Олигархов сменят "ботаники"
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2018 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.