Прикрути какуюнть флаговую переменную RunToPoint(boolean), и в проверку ее:
delphi Код:
if ((abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then begin
if (!RunToPoint) then begin
RunToPoint:=true;
MoveTo (CenterX, CenterY, CenterZ);
end;
end
else
RunToPoint:=False;
end;
end;
(синтаксис может и хромать)
примерно так вобщем
///так если точка к которой надо бежать, будет находиться на одной оси с текущим положением, эта проверка ж провалится - if ((abs(MyX-CenterX) > 20) and (abs(MyY-CenterY) > 20) then ..... и вроде никуда он не побежит...Может там OR уместнее? или ошибаюсь я....
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 01.02.2010 в 06:43.
|