20 Марта 2019 10:28 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
20.03.2019
fypafyafy
01:06:53
offline
20.03.2019
Warhangel
09:04:06
offline
19.03.2019
systemrqq1
15:56:48
offline
18.03.2019
Gil
1 день
offline
17.03.2019
Thang
3 дней
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 темы: 1894
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 1712 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: cкрипт для мага поле/олимпиада
Наверх Распечатать сообщение #1
Опубликовано 18-03-2016 17:25
Аватар пользователя

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



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

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

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


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

Скрипт для мага поле/олимпиада.
В скрипте есть информер, который оповещает в пм о юзе и окончание того или иного скилла, антибек через скилл Curse Weakness (id можно поменять на любой другой, который понравится)
Информер можно дополнять + присутствует HoldTarget.


uses sysutils,classes;


 procedure holdtarget;
var
charT:tl2live;
obj:tl2effect;

begin
 while engine.status = lsonline do begin
  if (user.target.valid) 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;


procedure tank;
var
eu,char2:tl2char;
obj,obj1,cast:tl2effect;
i,j,g,pis,pis2 :integer;



function proxy : boolean;

begin
result:=false;

for i := 0 to CharList.count -1 do begin
Char2 := CharList.Items(i);

if (char2.cast.endtime>0)and not (char2.ismember) and (char2.cast.id=916)  and not (char2.dead)  and
(User.DistTo(char2)<5200)
then begin
delay(500);
engine.say('Юзает Зеркало   ->>' + char2.name , 2 , User.name);
delay(7100);
engine.say('Зеркало офф ->>' + char2.name, 2 , user.name );break
end;

if (char2.cast.endtime>0) and  (Char2.cast.id=3284) and not (char2.dead)  and
(User.DistTo(char2)<1200)
then begin
delay(500);
engine.say('Юзает Талик УД   ->>' + char2.name , 2 , user.name);
delay(9100);
engine.say('Талик УД офф ->>' + char2.name, 2 , user.name);break
end;

if (char2.cast.endtime>0) and (char2.cast.id=1476) and not (char2.dead)
then begin
delay(500);
engine.say(' apetit ' + char2.name ,2,user.name);
delay(30000);
engine.say('apetit off ' , 2 , user.name);break
end;

if (char2.cast.endtime>0) and (char2.cast.id=789) then begin
delay(500);
engine.say('WILKU UZAET -> ' +char2.name,2,user.name);
delay(59000);
engine.say('wilka off' ,2 , user.name);break
end;

if (char2.cast.endtime>0) and (char2.cast.id=3282) and not (char2.dead)
then begin
engine.say('Maximum clarity   ->' + char2.name , 2 , user.name);
delay(120000);
engine.say('max clarity off -->> ' + char2.name , 2 ,user.name ) ;break
end;

if (char2.cast.endtime>0) and (char2.cast.id=1532) and not (char2.dead)
then begin
engine.say('Prosvet   ->' + char2.name , 2 , user.name);
delay(20000);
engine.say('Prosvet off -->> ' + char2.name , 2 ,user.name ) ;break
end;


end;
result:=true;
end;


begin
while engine.status = lsonline do begin
if proxy then delay(1);
Delay(1);
end;
end;




procedure antiback;
var
eu,char2:tl2char;
obj,obj1,cast:tl2effect;
i,j,g,pis, pis2:integer;
item: TL2Item;


function proxy : boolean;

begin
result:=false;

for i := 0 to CharList.count -1 do begin
Char2 := CharList.Items(i);

if (char2.cast.endtime > 0) and  (User.DistTo(char2)<100) and (char2.cast.id=30)  and not (char2.dead) and

(User.DistTo(char2)<100)
then begin

Engine.SetTarget(char2.name);
Engine.USeSkill(1164,true);
en d;
end;


result:=true;
end;


begin
while engine.status = lsonline do begin
if proxy then delay(100);
Delay(100);
end;
end;

procedure antihide;
var
eu,char2:tl2char;
obj,obj1,cast:tl2effect;
i,j,g,pis, pis2:integer;
item: TL2Item;


function proxy : boolean;

begin
result:=false;

for i := 0 to CharList.count -1 do begin
Char2 := CharList.Items(i);

if (char2.cast.endtime > 0) and  (User.DistTo(char2)<250) and (char2.cast.id=922)  and not (char2.dead) and

(User.DistTo(char2)<100)
then begin

Engine.USekey('2');
end;
end;


result:=true;
en d;


begin
while engine.status = lsonline do begin
if proxy then delay(100);
Delay(100);
end;
end;

begin
script.newthread(@antihi de);
script.newthread(@antiback);
script.newthread(@tank);
script.ne wthread(@holdtarget);
end.
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

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

Последние объявления
ФотоЗаголовокГородРазмещено
ПАО «Уралкалий» (Пермский край) продает неликвиды в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Пермь12.03.2019
(на 1 месяц)
ООО «Центр горизонтального бурения» реализует запчасти к буровому оборудованию
• Хозяйство - Оборудование Цена: 1 1
Оренбург21.02.2019
(на 1 месяц)
АО «Карельский окатыш» предлагает к реализации ТМЦ
• Хозяйство - Сырье и материалы Цена: 1 1
Другой20.02.2019
(на 1 месяц)
Справка о несудимости в Москве
• Работа и бизнес - Разное Цена: 1 1
Москва05.12.2018
(на 24 месяца)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Облако тегов тем форума
Принудительное обновление фавикон, Выход корейской версии Lineage M состоится в конце июня, Элегия vs красивая венера рар heavy, Полушария мозга хранят информацию независимо, Не запускаются программы после установки обновления windows 7, Самая популярная эро-манга 2011, 10-й выпуск Wargaming TV: новый рекорд по количеству игроков онлайн, Пропадает доступ к папкам Windows 7 с Windows XP, В Торонто появился новый аттракцион, Квест на Warlock, Движок I-Novae и ММО Infinity, RTV (rock the vote) для Source Mod, Настройка бота на Lineage.uz, Адреналин: Варка Hellfire Oil и Lunargent, Купить компьютер
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2019 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.