Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Скрипт (используется на бише)

X

XoXoJl

Рег
5 Окт 2015
Сообщения
28
Реакции
0
Основная начинка скрипта и так есть в шаре, но еще пару вещей объединили в один скрипт.
Кому то точно будет полезно, ленивых хватает xD. Так что юзайте .

uses SysUtils,Classes;
procedure overi(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 = $5A then begin
for j := 0 to CharList.count -1 do begin
Char2 := CharList.Items(j);
if not (char2.abnormalid=2048) and (User.DistTo(char2)<1000) and not (char2.ismember) and (char2.classid=115) and not (char2.clanid=user.clanid) and (char2.pvp) and not (char2.dead) and not (user.target.name=char2.name)
then
begin
Engine.Settarget(char2.name);break
end;
end;

end;
end;
end;

procedure Cardinali (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 = $58 then begin
for j := 0 to CharList.count -1 do begin
Char2 := CharList.Items(j);
if not (char2.abnormalid=2048)and (User.DistTo(char2)<1000) and not (char2.ismember) and (char2.classid=97) and not (char2.clanid=user.clanid) and (char2.pvp) and not (char2.dead) and not (user.target.name=char2.name)
then
begin
Engine.Settarget(char2.name);break
end;
end;

end;
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);
end;
end;


result:=true;
end;


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

procedure gladi (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 = $43 then begin
for j := 0 to CharList.count -1 do begin
Char2 := CharList.Items(j);
if not (char2.abnormalid=2048)and (User.DistTo(char2)<1000) and not (char2.ismember) and (char2.classid=88) and not (char2.clanid=user.clanid) and (char2.pvp) and not (char2.dead) and (char2.target.ismember)
then
begin
Engine.Settarget(char2.name);break
end;
end;

end;
end;
end;


Procedure dispel;
var i: integer;
begin
while true do begin
For i := 0 to user.buffs.Count-1 do begin
Case user.buffs.Items(i).ID of
1062,785,271,310,274,275,530,1519,1388,1518,2876,2875,2877,2887,2888,2886,269,982,1191,1189,1353,1182,1189,1191,1502,1261,1537,1086,1392,1393
: begin engine.dispel(user.buffs.Items(i).name); end;
end;
end;
end;
end;



procedure holdtarget;
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;

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 -->> ' + 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;

begin
script.newthread(@antiback);
script.newthread(@tank);
script.newthread(@holdtarget);
script.newthread(@dispel);
script.newthread(@gladi);
script.newthread(@cardinali);
script.newthread(@overi);
end.
 
дай пжлст небольшое описание для глад, кардинал, овер скриптов
 
а диспел кривоват, нет шилки, есть денсы и сонги, которые на нормальных серверах не альткликаются, да и резисты можно оставить
 
@ineedsomeanswers Его обязательно нужно редактировать под себя и свой сервер. Использовался последний раз на талесе. Глады оверы и т.д. для того чтобы брать по кнопке эти классы в таргет (для берна) на расстоянии действия берна ,

@chsvpwnz, Скрипт включает в себя :
1) Антибэк
2) Холдтаргет
3) Пишет тебе в ПМ когда и кто заюзал шилку ( талик УД)
4) И по нажатию определенных кнопок берет в таргет Бишей, Оверов и Гладов.
5) Снятие не нужных(лишних) баффов с персонажа.

Р.S.: Скрипт нужно редактировать под себя и под тот сервер где вы играете. Использовался скрипт на Талесе.
 
@XoXoJl,

А ты с Денчиком и Серёгой фармил, понял кто ты)
когда юзает кто то шилку или уд дисконектит сразу анти бот(((
 
@yurka, Что за сервер где тебя дисконнектит ? и Адрик фри или платный ?
 
вместо
say вставил engine.entertext
но смс не отправляется в чат а остается в строке смс
 
and not (user.target.name=char2.name)
, можно поподробнее, что означает эта строчка? И еще трабла в том, что адрик все время выделяет одного биша, ее как-нибудь можно решить?) Заранее благодарен)
 
engine.entertext('#pty ud ->>' + ' ' + char2.name ); ); вот так нужно
# - пишит в пати чат так же как и другие символы " @ и тп
' + ' ' + char2.name -- ник кто заюзал скил
 
А в зоне поиска только один бишь или несколько ?? А то условие что ты написал это " И не (тот кто уже в таргете) "

@yurka, хз у меня когда юзал писалось все в ПМ как будто я сам себе пишу )))
 
@XoXoJl,
так и должно, просто там новый анти бот. и блочит некоторые скрипты(
 
@XoXoJl, офк, загрузил 2 биша, расфлагал их, и при нажатии кнопки, все равно все время выделяется один и тот же. И вот что еще) Из забинденых кнопок я нашел только одну Z. А что обозначает $58 и $43 я догнать не могу) Можете скинуть инфу где можно посмотреть это?) Заранее благодарен)))
 
@yurka, Да я догнал, что коды клавиш) Мне интересно где глянуть кодировку клавиш) А то гугл не помог, мб не там искал)
 
А есть где-нибудь на клинс по приоритету?
 
как сделать что писало в пати чат а не пм?
Код: 
then begin
delay(500);
engine.say(' apetit ' + char2.name ,2,user.name);
delay(30000);
в delay указаны мин и макс кд скилов?
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху