Fear F1 eeee Antharas 30.8.17

1Smart · 03.09.2017

-Abyss сказал(а):
ты наркоман? чет в цель не попадаеш! тренируйся с мобами! ты асистер?

Ради вашего Аллаха, завали eбало

DeadMemories · 03.09.2017

-Abyss сказал(а):
мне паразило то что он не может целится по таргет и мимо тикает 1000 раз я об этом

съ****ся обратно в горы, чурка черножопая и присылай оттуда свои говно-видосы своей блядской кп, какая может лишь убегать

Elaet 666 · 03.09.2017

yattka сказал(а):
изи

это фотошоп или инстаграм

fn! · 03.09.2017

Elaet сказал(а):
ti navernoe ne zametil flashek, animation - off,q
сможешь без мучений под кучей флешек таргеты перебирать на изи?

uses
SysUtils, Classes;

var
currentTarget: TL2Live;
previousTarget: TL2Live;
res: int64;
timer: tdatetime;
iHater, iTargetBeforeHate: integer;
Hater: TL2Live;
TargetBeforeHate: TL2Live;

const
Date1900 {: LongInt} = $0001AC05; {Julian day count for 01/01/1900 -- TDateTime Start Date}
Date1970 {: LongInt} = $00020FE4; {Julian day count for 01/01/1970 -- Unix Start Date}
Unix0Date: TDateTime = 25568; {Date1970 - Date1900}

SecondsInDay = 86400; {Number of seconds in a day}
SecondsInHour = 3600; {Number of seconds in an hour}
SecondsInMinute = 60; {Number of seconds in a minute}
HoursInDay = 24; {Number of hours in a day}
MinutesInHour = 60; {Number of minutes in an hour}
MinutesInDay = 1440; {Number of minutes in a day}

function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
var
Hrs, Mins, Secs, MSecs : Word;
Dt, Tm : TDateTime;
begin
Dt := Trunc(DateTime);
Tm := DateTime - Dt;
if Dt < Unix0Date then
Result := 0
else
Result := Trunc(Dt - Unix0Date) * SecondsInDay;

DecodeTime(Tm, Hrs, Mins, Secs, MSecs);
Result := Result + (Hrs * SecondsInHour) + (Mins * SecondsInMinute) + Secs;
end;

procedure targetSaver;
var
Action : TL2Action;
Prm1, Prm2: pointer;
begin
while Engine.Status = lsOnline do
begin
Action := engine.WaitAction([latarget], Prm1, Prm2);
if Action = latarget then
begin
if (User.Target <> currentTarget) then
begin
previousTarget := currentTarget;
currentTarget := User.Target;
end;
end;
delay(30);
end;
end;

procedure holdTarget;
var
prm1, prm2: pointer;
Action : TL2Action;
escBtn : boolean;
begin
while Engine.Status = lsOnline do
begin
Action := Engine.WaitAction([laUnTarget, laKey], prm1, prm2);
if Action = laUnTarget then
begin
if not (User.Target = currentTarget) and not escBtn then
begin
delay(100);
Engine.SetTarget(currentTarget);
end;
delay(100);
escBtn := false;
end;
if Action = laKey then
begin
escBtn := (Integer(prm1) = $1B);
end;
delay(30);
end;
end;

procedure antiHate;
var
i: integer;
begin
while Engine.Status = lsOnline do
begin
for i:=0 to Charlist.Count-1 do
begin
if ((Charlist.Items(i).Target = User) and (Charlist.Items(i).Cast.EndTime > 0) and
((Charlist.Items(i).Cast.ID = 28) or (Charlist.Items(i).Cast.ID = 979))) then
begin
TargetBeforeHate:= User.Target;
Engine.SetTarget(Charlist.Items(i));
Hater:= Charlist.Items(i);
iTargetBeforeHate:= 1;
iHater := 1;
Delay(Charlist.Items(i).Cast.EndTime + 50);
end;
if ((Charlist.Items(i).Cast.EndTime > 0) and (Charlist.Items(i).Attackable)and (Charlist.Items(i).Cast.ID = 18) and
(User.DistTo(Charlist.Items(i)) < 400)) then
begin
TargetBeforeHate:= User.Target;
Engine.SetTarget(Charlist.Items(i));
Hater:= Charlist.Items(i);
iTargetBeforeHate:= 1;
iHater := 1;
Delay(Charlist.Items(i).Cast.EndTime + 50);
end;
end;
delay(200);
end;
end;

procedure antiHateBackTarget;
var
temp: TL2Buff;
begin
while Engine.Status = lsOnline do
begin
if ((iTargetBeforeHate > 0)
and not (User.Buffs.ByID(28, temp) and not User.Buffs.ByID(979, temp) and not User.Buffs.ByID(18, temp))
and (User.Target = Hater)) then
begin
Engine.SetTarget(TargetBeforeHate);
iTargetBeforeHate:= 0;
iHater := 0;
end;
delay(50);
end;
end;

begin

script.newThread(@holdTarget);
script.newThread(@targetSaver);
script.newThread(@antiHate);

end.

Nikson · 03.09.2017

DynastyTheKek сказал(а):
uses
SysUtils, Classes;

var
currentTarget: TL2Live;
previousTarget: TL2Live;
res: int64;
timer: tdatetime;
iHater, iTargetBeforeHate: integer;
Hater: TL2Live;
TargetBeforeHate: TL2Live;

const
Date1900 {: LongInt} = $0001AC05; {Julian day count for 01/01/1900 -- TDateTime Start Date}
Date1970 {: LongInt} = $00020FE4; {Julian day count for 01/01/1970 -- Unix Start Date}
Unix0Date: TDateTime = 25568; {Date1970 - Date1900}

SecondsInDay = 86400; {Number of seconds in a day}
SecondsInHour = 3600; {Number of seconds in an hour}
SecondsInMinute = 60; {Number of seconds in a minute}
HoursInDay = 24; {Number of hours in a day}
MinutesInHour = 60; {Number of minutes in an hour}
MinutesInDay = 1440; {Number of minutes in a day}

function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
var
Hrs, Mins, Secs, MSecs : Word;
Dt, Tm : TDateTime;
begin
Dt := Trunc(DateTime);
Tm := DateTime - Dt;
if Dt < Unix0Date then
Result := 0
else
Result := Trunc(Dt - Unix0Date) * SecondsInDay;

DecodeTime(Tm, Hrs, Mins, Secs, MSecs);
Result := Result + (Hrs * SecondsInHour) + (Mins * SecondsInMinute) + Secs;
end;

procedure targetSaver;
var
Action : TL2Action;
Prm1, Prm2: pointer;
begin
while Engine.Status = lsOnline do
begin
Action := engine.WaitAction([latarget], Prm1, Prm2);
if Action = latarget then
begin
if (User.Target <> currentTarget) then
begin
previousTarget := currentTarget;
currentTarget := User.Target;
end;
end;
delay(30);
end;
end;

procedure holdTarget;
var
prm1, prm2: pointer;
Action : TL2Action;
escBtn : boolean;
begin
while Engine.Status = lsOnline do
begin
Action := Engine.WaitAction([laUnTarget, laKey], prm1, prm2);
if Action = laUnTarget then
begin
if not (User.Target = currentTarget) and not escBtn then
begin
delay(100);
Engine.SetTarget(currentTarget);
end;
delay(100);
escBtn := false;
end;
if Action = laKey then
begin
escBtn := (Integer(prm1) = $1B);
end;
delay(30);
end;
end;

procedure antiHate;
var
i: integer;
begin
while Engine.Status = lsOnline do
begin
for i:=0 to Charlist.Count-1 do
begin
if ((Charlist.Items(i).Target = User) and (Charlist.Items(i).Cast.EndTime > 0) and
((Charlist.Items(i).Cast.ID = 28) or (Charlist.Items(i).Cast.ID = 979))) then
begin
TargetBeforeHate:= User.Target;
Engine.SetTarget(Charlist.Items(i));
Hater:= Charlist.Items(i);
iTargetBeforeHate:= 1;
iHater := 1;
Delay(Charlist.Items(i).Cast.EndTime + 50);
end;
if ((Charlist.Items(i).Cast.EndTime > 0) and (Charlist.Items(i).Attackable)and (Charlist.Items(i).Cast.ID = 18) and
(User.DistTo(Charlist.Items(i)) < 400)) then
begin
TargetBeforeHate:= User.Target;
Engine.SetTarget(Charlist.Items(i));
Hater:= Charlist.Items(i);
iTargetBeforeHate:= 1;
iHater := 1;
Delay(Charlist.Items(i).Cast.EndTime + 50);
end;
end;
delay(200);
end;
end;

procedure antiHateBackTarget;
var
temp: TL2Buff;
begin
while Engine.Status = lsOnline do
begin
if ((iTargetBeforeHate > 0)
and not (User.Buffs.ByID(28, temp) and not User.Buffs.ByID(979, temp) and not User.Buffs.ByID(18, temp))
and (User.Target = Hater)) then
begin
Engine.SetTarget(TargetBeforeHate);
iTargetBeforeHate:= 0;
iHater := 0;
end;
delay(50);
end;
end;

begin

script.newThread(@holdTarget);
script.newThread(@targetSaver);
script.newThread(@antiHate);

end.

Наблюдал за стримером на х1к с "патчем" (и он спокойно играл) с автотаргетом, антибэком и прочим.
Оправдывался ещё такой (или даже не подозревал об этом) это же патч, я ничего такого не делал, прост купил патч за 700 рублей.

Elaet 666 · 03.09.2017

Nikson сказал(а):
Наблюдал за стримером на х1к с "патчем" (и он спокойно играл) с автотаргетом, антибэком и прочим.
Оправдывался ещё такой (или даже не подозревал об этом) это же патч, я ничего такого не делал, прост купил патч за 700 рублей.

что за ник
чёт рофл

Elaet 666 · 03.09.2017

DynastyTheKek сказал(а):
uses
SysUtils, Classes;

var
currentTarget: TL2Live;
previousTarget: TL2Live;
res: int64;
timer: tdatetime;
iHater, iTargetBeforeHate: integer;
Hater: TL2Live;
TargetBeforeHate: TL2Live;

const
Date1900 {: LongInt} = $0001AC05; {Julian day count for 01/01/1900 -- TDateTime Start Date}
Date1970 {: LongInt} = $00020FE4; {Julian day count for 01/01/1970 -- Unix Start Date}
Unix0Date: TDateTime = 25568; {Date1970 - Date1900}

SecondsInDay = 86400; {Number of seconds in a day}
SecondsInHour = 3600; {Number of seconds in an hour}
SecondsInMinute = 60; {Number of seconds in a minute}
HoursInDay = 24; {Number of hours in a day}
MinutesInHour = 60; {Number of minutes in an hour}
MinutesInDay = 1440; {Number of minutes in a day}

function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
var
Hrs, Mins, Secs, MSecs : Word;
Dt, Tm : TDateTime;
begin
Dt := Trunc(DateTime);
Tm := DateTime - Dt;
if Dt < Unix0Date then
Result := 0
else
Result := Trunc(Dt - Unix0Date) * SecondsInDay;

DecodeTime(Tm, Hrs, Mins, Secs, MSecs);
Result := Result + (Hrs * SecondsInHour) + (Mins * SecondsInMinute) + Secs;
end;

procedure targetSaver;
var
Action : TL2Action;
Prm1, Prm2: pointer;
begin
while Engine.Status = lsOnline do
begin
Action := engine.WaitAction([latarget], Prm1, Prm2);
if Action = latarget then
begin
if (User.Target <> currentTarget) then
begin
previousTarget := currentTarget;
currentTarget := User.Target;
end;
end;
delay(30);
end;
end;

procedure holdTarget;
var
prm1, prm2: pointer;
Action : TL2Action;
escBtn : boolean;
begin
while Engine.Status = lsOnline do
begin
Action := Engine.WaitAction([laUnTarget, laKey], prm1, prm2);
if Action = laUnTarget then
begin
if not (User.Target = currentTarget) and not escBtn then
begin
delay(100);
Engine.SetTarget(currentTarget);
end;
delay(100);
escBtn := false;
end;
if Action = laKey then
begin
escBtn := (Integer(prm1) = $1B);
end;
delay(30);
end;
end;

procedure antiHate;
var
i: integer;
begin
while Engine.Status = lsOnline do
begin
for i:=0 to Charlist.Count-1 do
begin
if ((Charlist.Items(i).Target = User) and (Charlist.Items(i).Cast.EndTime > 0) and
((Charlist.Items(i).Cast.ID = 28) or (Charlist.Items(i).Cast.ID = 979))) then
begin
TargetBeforeHate:= User.Target;
Engine.SetTarget(Charlist.Items(i));
Hater:= Charlist.Items(i);
iTargetBeforeHate:= 1;
iHater := 1;
Delay(Charlist.Items(i).Cast.EndTime + 50);
end;
if ((Charlist.Items(i).Cast.EndTime > 0) and (Charlist.Items(i).Attackable)and (Charlist.Items(i).Cast.ID = 18) and
(User.DistTo(Charlist.Items(i)) < 400)) then
begin
TargetBeforeHate:= User.Target;
Engine.SetTarget(Charlist.Items(i));
Hater:= Charlist.Items(i);
iTargetBeforeHate:= 1;
iHater := 1;
Delay(Charlist.Items(i).Cast.EndTime + 50);
end;
end;
delay(200);
end;
end;

procedure antiHateBackTarget;
var
temp: TL2Buff;
begin
while Engine.Status = lsOnline do
begin
if ((iTargetBeforeHate > 0)
and not (User.Buffs.ByID(28, temp) and not User.Buffs.ByID(979, temp) and not User.Buffs.ByID(18, temp))
and (User.Target = Hater)) then
begin
Engine.SetTarget(TargetBeforeHate);
iTargetBeforeHate:= 0;
iHater := 0;
end;
delay(50);
end;
end;

begin

script.newThread(@holdTarget);
script.newThread(@targetSaver);
script.newThread(@antiHate);

end.

у нас просто патчик на фпс+офф анимации
никогда не играл с такими штуками)

AbyssalBlaze · 03.09.2017

BRAZZERS.HD сказал(а):
:hyper1:39

1Smart сказал(а):
Ради вашего Аллаха, завали eбало

да какой алах

ты даже в школу не ходил памойму

Nikson · 03.09.2017

-Abyss сказал(а):
да какой алах ты даже в школу не ходил памойму

Скорее наоборот.
Неуважение проявляешь ты к Аллаху Единому.

AbyssalBlaze · 03.09.2017

Nikson сказал(а):
Скорее наоборот.
Неуважение проявляешь ты к Аллаху Единому.

не просто я не мусулман

Estia · 03.09.2017

Чем выше горы тем ниже приоры

Jlove · 04.09.2017

BrodyaGa сказал(а):
Чисто для инфы, мы фанимся больше, на осада и тв у нас замесов больше но, смертей у вас в клане больше чем Пвп)) а у нас Пвп больше

Пвп больше?)) у вас из паков нормально набивают пвп только пак ебаша и мб шидана с эдькой) с ними интересно , и они убивают и так же и падают ( от случая к случаю ) остальные..... арбы по 4 к получают без заряда, про магов вообще молчу.....

Jlove · 04.09.2017

BrodyaGa сказал(а):
боже, да хорошо)) вы молодцы. что еще сказать?)
да, ок!) у вас убийств больше... по***))
я не знал где чьи килы, вот узнал, ну... бывает
учитывая что на тв мы часто бегали просто сбивали касты и умирали на том же дионе, то такое))
а вы считаете хз что)
это забей, просто вчера мы были без стоп пака и по факту без них мы нихуя не могли))
я знал что вы начнете выебываться на форуме))
но интересно то, что когда вы отлетаете на ура, вы тихонько молчите)

Нук расскажи когда это был "отлёт на ура"?)

Donatella · 05.09.2017

Elaet сказал(а):
я не чсв...
даже общался с челиком с пачки хейзенберга который утверждал что я мусор;D

pravdu..je..pocan..govoril...dno..na.dne..dna..musor.!!11! po 4ustviu na sibea gniov gloda... D C P! (t'fu)

Donatella · 05.09.2017

BRAZZERS.HD сказал(а):
смотреть до конца..)
го рофлить за макросы

tipikal brazirs...vse..tskoije debil chto s armiei v sheyu 4to bez...aaaautist

Estia · 05.09.2017

Donatella сказал(а):
tipikal brazirs...vse..tskoije debil chto s armiei v sheyu 4to bez...aaaautist

Киска тычё на хф врываешься?

Elaet 666 · 05.09.2017

Donatella сказал(а):
pravdu..je..pocan..govoril...dno..na.dne..dna..musor.!!11! po 4ustviu na sibea gniov gloda... D C P! (t'fu)

ahaha

Argetlam · 05.09.2017

Donatella сказал(а):
tipikal brazirs...vse..tskoije debil chto s armiei v sheyu 4to bez...aaaautist

Кискаааа, сколько лет, сколько зим, так давно тебя не видела

Wayrum · 05.09.2017

Elaet сказал(а):
что за ник
чёт рофл

малой шо ты

Elaet 666 · 05.09.2017

Wayrum сказал(а):
малой шо ты

вот думаю труды нарезать завтра и с физры слинять,пойду в линейку играть

Fear F1 eeee Antharas 30.8.17

Граф

Antichrist Superstar

Бродяга

Граф

Граф

Бродяга

Бродяга

Граф

Граф

Граф

Виконт

Барон

Барон

Барон

Барон

Виконт

Бродяга

Барон

Граф

Бродяга