Упростить немного перемещение от точки ТП до спота

[Bingo7696]

Писал на скорую руку, можете добавить проверку на застревание, и тд можете увеличивать ренж шага, в Moving вставляем координаты куда надо, в MoveTo вставляет те же самые координаты.
Протестил около диона вроде, все норм иногда оббегал деревья... Актуально там где тп дорого, или нету попросту( классик).

Спойлер

uses sysutils,classes;
var i:integer;

procedure Moving(x:integer; y:integer; z:integer);
var
oldX:integer;
oldY:integer;
//oldZ:integer;
MoveX:integer;
MoveY:integer;
MoveZ:integer;
sravnenieX:integer;
sravnenieY:integer;
resultX:boolean;
resultY:boolean;
begin
oldX:=User.X;
oldY:=User.Y;
//oldZ:=User.Z;
while not User.InRange(x,y,z, 800, 800) do begin
delay(1500);
sravnenieX:=(Abs(x))-(Abs(oldX));
sravnenieY:=(Abs)-(Abs(oldY));
if (-50<=sravnenieX) and (-sravnenieX<=50) then resultX:=true
else resultX:=false;
if (-50<=sravnenieY) and (-sravnenieY<=50) then resultX:=true
else resultX:=false;
print(sravnenieX);
print(sravnenieY);
if (x>oldX) and resultX then
MoveX:=oldX+Random(100);
if (MoveX:=oldX-Random(100);
if (y>oldY) and resultY then
MoveY:=oldY+Random(100);
if (MoveY:=oldY-Random(100);
//if (z>oldY) and (z<>oldZ) then
//MoveY:=oldY+Random(50);
//if (zoldZ) then
//MoveY:=oldY-Random(50);
Engine.DMoveTo(MoveX,MoveY, z);
print('Иду в координаты Х'+(IntToStr(MoveX)));
print('Иду в координаты Y='+(IntToStr(MoveY)));
oldX:=MoveX;
oldY:=MoveY;
end;
print('Я на месте');
end;




begin
Moving(x, y, z);
Engine.MoveTo(x, y, -z);

end.

)>)>)>

 

[Spectre7TS]

В этой строках ошибка, думал как исправить, но что-то так и не въехал, что тут с чем сравнивается


if (x MoveX:=oldX-Random(100);


if (yMoveY:=oldY-Random(100);

 

[Bingo7696]

x и y в строчках перед Move удали.
P.S изменил описание. Можно сжелать вместо DMoveTo. MoveTo так как там есть время ожидание когда прижет. Соответственно рано или позднл он обойдет.

 

[Denis63RUS]

x и y в строчках перед Move удали.

там что то ты напутал....

Спойлер: код

uses sysutils,classes;
var i:integer;

procedure Moving(x:integer; y:integer; z:integer);
var
oldX,oldY,oldZ,MoveX,MoveY,MoveZ,sravnenieX,sravnenieY:integer;
resultX,resultY:boolean;
begin
oldX:=User.X;
oldY:=User.Y;
//oldZ:=User.Z;
while not User.InRange(x,y,z, 800, 800) do
begin
delay(1500);
sravnenieX:=(Abs(x))-(Abs(oldX)); //Зачем абсолютное значение?
sravnenieY:=(Abs)-(Abs(oldY));
if (-50<=sravnenieX) and (-sravnenieX<=50) then //а если за 1,5 сек он убежит дальше?
resultX:=true
else resultX:=false;
if (-50<=sravnenieY) and (-sravnenieY<=50)
then resultX:=true
else resultX:=false;
print(sravnenieX);
print(sravnenieY);
if (x>oldX) and resultX then
MoveX:=oldX+Random(100);
if (MoveX:=oldX-Random(100); //это не правильно
if (y>oldY) and resultY then
MoveY:=oldY+Random(100);
if (MoveY:=oldY-Random(100); //это не правильно
//if (z>oldY) and (z<>oldZ) then
//MoveY:=oldY+Random(50);
//if (zoldZ) then
//MoveY:=oldY-Random(50);
Engine.DMoveTo(MoveX,MoveY, z);
print('Иду в координаты Х'+(IntToStr(MoveX)));
print('Иду в координаты Y='+(IntToStr(MoveY)));
oldX:=MoveX;
oldY:=MoveY;
end;
print('Я на месте');
end;

begin
Moving(x, y, z);
end.

Можешь добавить коменты под условия (строки 15, 17, 20, 25, 27), не совсем понятно смысл некоторых проверок, я тоже писал нечто подобное, но только для мультипрофного сервера с использованием варпа

 

[Bingo7696]

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

 

[Denis63RUS]

А те строчки добавляют либо убавляют величину значения в х и у

Я вот не пойму, то ли ты не запускал у себя сей скрипт, то ли ты сюда выложил старую версию его, ещё не исправленную просто, но смысл в следующем:
if (MoveX:=oldX-Random(100); //это не правильно
не пропустит её компилятор.
условие пишется же:
if (сравнение) then (действие)
А вообще задумка норм, держи лайк) Себе на заметку взял

 

[Bingo7696]

Странно, приду домой скину скрипт этот же, вижу ошибки но откуда они при копировании...

 

[Denis63RUS]

@Bingo7696, написал я свою процедуру на движение, только для не больших дистанций, попозже выложу в новой темке, тебе спс, парочку идей позаимствовал)