Не работает скрипт который раньше работал. Auto Rush

[CandyWinston]

Скрипт на автораш работал но около месяца работает только на мобов. тоесть в таргет берет только Мобов. подскажите что может быть.

Engine.UseKey(skillKey,true,false);
ошибка в этой строчке

Ошибка: There is no overloaded version of "UseKey" that can be called with these arguments

Спойлер

uses сам скрипт
SysUtils, Classes, SettingsModule;

const
maxDist = 600;
minDist = 200;

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}


var
execKey: integer;
skillKey: integer;
timer: tdatetime;

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;

function validCharTarget(obj: TL2Live; minDist, maxDist: Integer): boolean;
begin
Result := not obj.dead and (obj.clanId <> user.clanId) and (obj.allyId <> user.allyId)
and (user.DistTo(obj) > minDist) and (user.DistTo(obj) < maxDist)
and obj.valid and (obj.PVP or obj.PK) and not obj.isMember;
end;

function validNpcTarget(obj: TL2Live; minDist, maxDist: Integer): boolean;
begin
Result := not obj.dead and (user.DistTo(obj) > minDist) and (user.DistTo(obj) < maxDist)
and obj.valid and obj.Attackable;
end;

function getValidTarget: TL2Live;
var
i: integer;
begin
for i:=CharList.Count-1 downto 0 do
begin
if (validCharTarget(charList.items(i), minDist, maxDist)) then
begin
Result := charList.items(i);
exit;
end;
end;

for i:=NpcList.Count-1 downto 0 do
begin
if (validNpcTarget(npcList.items(i), minDist, maxDist)) then
begin
Result := npcList.items(i);
exit;
end;
end;

end;

procedure keyThread;
var
KeyCode, param: integer;
Action: TL2Action;
currTarget: TL2Live;
begin
while Engine.Status = lsOnline do
begin
Action:= Engine.WaitAction([laKey], KeyCode, param);
if Action = laKey then
begin
if (KeyCode = execKey) and (User.Cast.EndTime = 0) then
begin
currTarget := getValidTarget;
if Assigned(currTarget) then
begin
if (user.target <> currTarget) then
Engine.SetTarget(getValidTarget);
Engine.UseKey(skillKey,true,false);
delay(50);
delay(user.cast.endtime);
end;
end;
end;
end;
end;

procedure loadConfig; //выгрузка из конфига в массив
var
MySet: TSettings;
begin
MySet.SetFile(Script.Path + 'rushConfig.ini');

execKey := MySet.Load('Params', 'Exec key', 0);
skillKey := MySet.Load('Params', 'Skill key', 0);
end;

procedure confirmDlg;
begin
while true do
begin
Engine.ConfirmDialog(true); //---- НАЖМЕТ ДА !!!!!
Delay(2000);
end;
end;

begin
{timer := EncodeDate(2015, 03, 16);
if (AbDateTimeToUnixTime(timer) < AbDateTimeToUnixTime(now)) then
begin
print('Test time fired');
print('Developer ICQ - 670465907');
exit;
end; }

loadConfig;
script.newThread(@keyThread);
script.newThread(@confirmDlg);
end.

 

[SARCAZM]

Ошибка: There is no overloaded version of "UseKey" that can be called with these arguments

Нет такой перегрузки метода UseKey, которая принимала бы параметры skillKey,true,false
Идем в API: http://asiwin.com/api/adrenalin/Classes/TL2Control, ищем UseKey, смотрим перегрузки

Вариант 2:
Перейти с Engine.UseKey на Engine.UseSkill, что логичнее как по мне, но это никак не относится к проблеме выбора только мобов. Сам скрипт не смотрел, но я дал наводку как решить проблему с

Engine.UseKey(skillKey,true,false);

если она возникла.

 

[Krickt]

вместо Engine.UseKey нужно Engine.DUseSkill и все будет шикарно