Простой скрипт на возврат таргета

[svet]

var myTarget:TL2Live;
begin
myTarget:=nil;
while Engine.Status = lsOnline do begin
if (User.Target=nil)then
begin
if (myTarget<>nil and User.DistTo(myTarget)<1000)then
begin
Engine.SetTarget(myTarget);
end;
end else begin
if (!User.Target.Dead and User.DistTo(User.Target)<1000) then
begin
myTarget:=User.Target;
end else myTarget:=nil;
end;
​ delay(500);
end;

end.

написал такой простой на возврат таргета скрипт.
Не тестил(на работе сижу).
замечание предложения велком).

 

[qseven228]

!User.Target.Dead

убери

!

 

[svet]

а как отрицание поставить?разве не так?

 

[Zubastic]

not может быть?

 

[svet]

@Zubastic, Да ребят not, я давно не писал на паскале непомню точну как там все

 

[svet]

function getNearestAttackableChar:TL2Char;
var
i, j: integer;
minDistance,tempDist: Cardinal;
char,resChar:TL2Char;
begin
resChar:=nil;
minDistance:=1000;
for i:=0 to CharList.Count do begin
char:=CharList.Items(i);// тут ошибка почему то не пойму
tempDist:=User.DistTo(char);// тут ошибка почему то не пойму
if ((tempDist<minDistance) and char.Attackable) then // тут ошибка почему то не пойму
begin
resChar:=char;
minDistance:=tempDist;
end;
end;
Result:= resChar;
end;

var myTarget:TL2Live;
begin
myTarget:=nil;
while Engine.Status = lsOnline do begin
if (User.Target=nil)then
begin
if ((myTarget<>nil) and (User.DistTo(myTarget)<1000))then
begin
Engine.SetTarget(myTarget);
end else begin
myTarget:=getNearestAttackableChar();
end;
end else
begin
if ((not User.Target.Dead) and (User.DistTo(User.Target)<1000)) then
begin
myTarget:=User.Target;
end else begin
myTarget:=nil;
end;
end;
Delay(500);
end;

end.

так протестил просто возврат таргета работает, вот только добавил фичу искать ближайшщюю жертву что то не компилится.

 

[svet]

вообщем в новом окне скрипта все заработало.тот же самый код.

 

[JaberS]

А такая хня прокатит на ИТ?) а? Если нет то перепишите. Спасибо!

 

[svet]

ага)