16 Декабря 2019 17:23 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
16.12.2019
werwolf-00
5 минут
offline
15.12.2019
rfhcfh
23:16:57
offline
14.12.2019
Warhangel
1 день
offline
12.12.2019
levchuk_ae
4 дней
offline
12.12.2019
vitosik.86
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 сообщений по данной теме, которая была просмотрена 4143 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Adrenaline: скрипт рескилл, таргет, hold
Наверх Распечатать сообщение #1
Опубликовано 18-03-2016 17:22
Аватар пользователя

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



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

Зарегистрирован: 24.03.10
Со дня регистрации: 3554
Откуда: Россия

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


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

Скрипт на быстрый рескилл, быстрое выделение в таргет бишей (кнопка 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
Хабаровск12.12.2019
(на 1 месяц)
ООО «Экспомаш» реализует неликвиды в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Москва20.11.2019
(на 1 месяц)
ЗАО «РУСАЛ Глобал Менеджмент Б.В.» (филиал в г. Москве) реализует неликвиды
• Хозяйство - Оборудование Цена: 1 1
Москва16.11.2019
(на 1 месяц)
Таблетки от целлюлита помогая похудеть убрать живот и бока
• Для дома - Здоровье Цена: 1 1
Москва14.10.2019
(на 24 месяца)
Поставщик кафельной плитки ПРАЙД Керамика
• Хозяйство - Сырье и материалы Цена: 1 1
Москва07.06.2019
(на 24 месяца)
Облако тегов тем форума
Masterwork items: точная информация по бонусам, ТВ серьги, Papa no Iu Koto o Kikinasai - патруль наконец-то доехал, Гарри Поттер принял православие, Майнинг на профессиональных картах, Codemasters разрабатывает онлайновый free-to-play проект, Бонусы от заточки сетов +6, Квест на Баюма, он же - красная тряпка на саба, Непадающий мотоцикл, Хеллоуин в Aion!, Игра пройдена в героическом режиме, Как написать программу для android?, Квест на Sword Singer, Варенье из крыжовника, КАЛЬМАРЫ. Анатолий Вассерман
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2019 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.