Code: Select all
Procedure HideMove(X,Y: integer; accurance: word);
var
i: integer;
Dir: byte;
PathArr: TPathArray;
Begin
While Dest(X,Y)>accurance do
begin
If (Not Dead) then
If (Stam<Dex) then
begin
// если стамины меньше чем дексы, устанавливаем хумов и элемов в bad objects
For i:=0 to 4 do
SetBadObject(BadObj[i],$FFFF,0);
end
Else
ClearBadObjectList;
// вычисляем следующую точку
repeat
i:= GetPathArray(X,Y,false,PathArr);
wait(100);
WaitConnection(1000);
until i>-1;
// определяем направление шага.
Dir:=SetDirection(PathArr[0].x,PathArr[0].y);
If GetDirection(self)<> Dir then Step(Dir, false);
if ((Timer-sTimerHide)>5000) AND (Not Dead) AND (Not Hidden) then
begin
If WarMode then SetWarMode(false);
UseSkill('Hiding');
sTimerHide:=Timer;
end;
Step(Dir, false);
end;
End;
Code: Select all
0:48:56 [404404]: Compiler: [Error] (1.sc at 536:41): Invalid number of parameters
Code: Select all
i:= GetPathArray(X,Y,false,PathArr);