28 Марта 2024 14:05 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
24.03.2024
4071505
4 дней
offline
20.03.2024
V1ad
1 неделя
offline
19.03.2024
nhocly1
1 неделя
offline
17.03.2024
Jevelin
1 неделя
offline
14.03.2024
albinam...
1 неделя
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

Последние видео
Видео THE WORLD LIVE -  since 2008 | earthTV : So thank you for the many views of this stream, please enjoy the original classic television version of THE WORLD LIVE, first uploaded here for you in 2008 with just 7 locations.

Онлайн камеры:  THE WORLD LIVE - since 2008 | earthTV

Видео The Best Of Norway's Railway Cab Views : I\

Онлайн камеры:  The Best Of Norway's Railway Cab Views

Видео 130 LIVE World Cameras : 130 LIVE World Cameras, Relaxing Music, Map, Daily Timelapse - Your Armchair Travel

Онлайн камеры:  130 LIVE World Cameras

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

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



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

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

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


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

Скрипт для мага поле/олимпиада.
В скрипте есть информер, который оповещает в пм о юзе и окончание того или иного скилла, антибек через скилл 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
Астрахань18.03.2024
(на 1 месяц)
Группа «Илим» реализует неликвиды своих предприятий
• Хозяйство - Оборудование Цена: 1 1
Санкт-Петербург16.03.2024
(на 1 месяц)
ООО «Ставролен» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Ставрополь13.03.2024
(на 1 месяц)
ПАО «Уралкалий» реализует невостребованные ТМЦ в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Пермь09.03.2024
(на 1 месяц)
Облако тегов тем форума
Обзор способов раскрутки Игровых серверов в Интернете, Спасение пленных элийцев, Архитектура Aion ява эмулятора, Квест на Ноблес (Путь дворянина - Обладатель драгоценной души) 75+, Сантехника, Чаты для нубов, DigitalMint установила криптоматы в 20 магазинах сети Circle K в США, В России нашлось 416 миллиардеров, JPMorgan Chase ведет переговоры о слиянии Quorum с ConsenSys, Java Server TERA Online от команды Tera-Api Project, Баг с трейдом РуОфф, How to create custome desktop theme??, World of Tanks - об установке шкурок, иконок, ангаров и прочего, Лучшие новые трейлеры фильмов 2018, Специальный проект. Титаник. Репортаж с того света
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Powered by PHP-Fusion copyright © 2002 - 2024 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.