Сообщений: 2688 Вас поблагодарили: 23 раз(а) в 23 сообщениях Зарегистрирован: 24.03.10 Со дня регистрации: 5118
Откуда: Россия
Скрипт для мага поле/олимпиада.
В скрипте есть информер, который оповещает в пм о юзе и окончание того или иного скилла, антибек через скилл Curse Weakness (id можно поменять на любой другой, который понравится)
Информер можно дополнять + присутствует HoldTarget.
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.
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)