Куплю: Помощь в скрипте

[Neophron]

Вот готовый скрипт:

Спойлер

//Функции
// Таргеты на кнопки z+x+c+v
// HOld target
// AntiBack
// Reskill





uses SysUtils,Classes;
procedure Mages (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 = $11 (* CTRL *) then begin // ctrl - Маги (Сорк\мм)
for j := 0 to CharList.count -1 do begin
Char2 := CharList.Items(j);
if (((char2.ClassID=94) or (char2.classid=103)or (char2.classid=27)or (char2.classid=12)) and not (char2.ismember) and not (char2.clanid=user.clanid) and (char2.pvp))and not (char2.dead)
(*Поиск проф с айди 94 и 103 сорки\ммы = которые не в парти*)
then
begin
Engine.Settarget(char2.name);break
end;
end;

end; end;
end;

procedure Cardinals (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 = $20 (* SPACE *) then begin // Кнопка SPACE - бишы
for i := 0 to CharList.count -1 do begin
Char2 := CharList.Items(i);
if ((char2.ClassID=97) and not (char2.ismember) and not (char2.clanid=user.clanid) and (char2.pvp) and not (char2.dead)) then
(*Поиск проф с айди 97 и 12 - Бишы *)
begin
Engine.Settarget(char2.name);break
end;
end;
end;
end;
end;



procedure target2 (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 (* C *) then begin
Engine.Settarget('SOBR');
end;
end;
end;

procedure target3 (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 (* X *) then begin
Engine.Settarget('xImpulse');
end;
end;
end;


procedure target4 (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 (* Z *) then begin
Engine.Settarget('SOBR');
end;
end;
end;


procedure hold ;
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 KrestNaRes;
Var
DeadLst:TStringList;
lah:TL2Char;
i:integer;
Nick:string;
begin
DeadLst:=TStringList.Create;
While true do
begin
for i:=0 to CharList.count-1 do
begin
if CharList.Items(i).Dead and (DeadLst.IndexOf(CharList.Items(i).Name)=-1) then DeadLst.Add(CharList.Items(i).Name);
if not CharList.Items(i).Dead and (User.DistTo(CharList.Items(i))<1000) and ( (charlist.items(i).classid=97) or (charlist.items(i).classid=90) or (charlist.items(i).classid=97) or
(charlist.items(i).classid=105) or
(charlist.items(i).classid=112) or
(charlist.items(i).classid=94) or
(charlist.items(i).classid=105) or
(charlist.items(i).classid=103) or
(charlist.items(i).classid=110) or
(charlist.items(i).classid=134) or
(charlist.items(i).classid=92) or
(charlist.items(i).classid=109) or
(charlist.items(i).classid=102) or
(charlist.items(i).classid=88)) and (charlist.items(i).pvp) and (user.distto(charlist.items(i))<1200) and (DeadLst.IndexOf(CharList.Items(i).Name)>-1) and not (charlist.items(i).ismember) and not (charlist.items(i).ismember) and not ( charlist.items(i).clanid=user.clanid) then
begin
Nick:=CharList.Items(i).Name;
Engine.SetTarget(Nick);


end;
end;
i:=0;
repeat
if DeadLst.Count>0 then
begin
if not CharList.ByName(DeadLst,lah) or not lah.Dead then
begin
DeadLst.Delete(i);
dec(i);
end;
end;
inc(i);
until i>DeadLst.Count-1;
Delay(200);
end;
end;
begin
script.newthread(@Cardinals);
script.newthread(@Mages);
script.newthread(@target2);
script.newthread(@target3);
script.newthread(@target4);
script.newthread(@hold);
script.newthread(@KrestNaRes);

delay(100)
end.

Ни смотря на то, что он, по заверению человека, который его выложил, готовый, и как бы Running, определенные процедуры у меня не работают, а именно: взятие таргета по id и рескилл.
При нажатии биндов ровным счетом ничего не происходит.

Хочу, чтобы все процедуры этого скрипта работали корректно. Цена вопроса в личное сообщение или скайп - Logout888.

 

[AlexApache]

Напиши в скайп IvaniuS , а вот шарить скрипт не стоило

 

[SARCAZM]

@AlexApache, как бы он уже давно расшарен http://rawr.su/topic/2208-neskolko-rabochih-skriptov/?p=4589

 

[Neophron]

@SARCAZM, постой, сними ярлык "Вопрос решен". Во первых, это и есть тот скрипт, на который ты дал ссылку и именно он не работает. Я ищу решение и мой вопрос не решен.

Что касается Иваниуса, то он, действительно, продает этот скрипт за 600Р, так что, если хотите, можете добавить маленький хайд против un reg гостей.

 

[AlexApache]

@SARCAZM, за всем не уследишь B)

 

[Neophron]

Актуально. Skype - Logout888