Перемещение по лодке
Posted: 18.02.2012 15:20
Здравствуйте, пытаюсь добиться от персонажа, чтобы он из текущего места в лодке шел в указанное, но почему-то он, не двигаясь никуда, продолжает стоять как вкопанный...
Upd. стоять начинает с того момента, как попал на лодку через трап.
Первый вариант "Бродилки":
Лог стелса:
Второй вариант "Бродилки":
Выходной лог такой же... по сути, я просто заменяю процедуру перемещения чара с координаты в координату, но при этом, толка не выходит. Я, скорее всего, неправильно представляю себе работу этой процедуры, прошу Вас меня с ней (с работой процедуры) ознакомить и помочь разобраться в возникшей проблеме.
Upd. стоять начинает с того момента, как попал на лодку через трап.
Первый вариант "Бродилки":
Code: Select all
procedure GotoOnBoad;
Begin
CheckSave;
CheckDead(false);
AddToSystemJournal('Иду на лодку...');
MoveXY( nearX, nearY,true, 0,true);
repeat
UseObject(Trap);
wait(300);
until (GetX(self) = OnBoadX) and (GetY(self) = OnBoadY);
AddToSystemJournal('Иду к месту разгрузки...');
repeat
MoveXY( OnBoadXdrop, OnBoadYdrop,true, 0,true);
[b][i]AddToSystemJournal('Пробуй дойти...');[/i][/b] <<<<<<<<<<<<<<<<<<<<<<<< ВОТ ЭТА СТРОКА ОКАЗЫВАЕТСЯ В ЛОГАХ
wait(300);
until (GetX(self) = OnBoadXdrop) and (GetY(self) = OnBoadYdrop);
if (GetX(self) = OnBoadXdrop) and (GetY(self) = OnBoadYdrop) then AddToSystemJournal('*****К месту разгрузки дошел успешно...');
End; Code: Select all
17:00:23:764 [Скупщик 2]: Compiling
17:00:23:837 [Скупщик 2]: Compiled succesfully
17:00:25:046 [Скупщик 2]: готов выйти
17:00:28:142 [Скупщик 2]: вышел с лодки, подошел к кустику, начинаю собирать хворост
17:00:28:150 [Скупщик 2]: Вес превышен, пора разгружаться...
17:00:28:160 [Скупщик 2]: Иду на лодку...
17:00:28:687 [Скупщик 2]: Иду к месту разгрузки...
17:00:37:344 [Скупщик 2]: Пробуй дойти...
17:00:37:864 [Скупщик 2]: Пробуй дойти...
17:00:38:429 [Скупщик 2]: Пробуй дойти...
17:00:38:939 [Скупщик 2]: Пробуй дойти...
17:00:39:451 [Скупщик 2]: Пробуй дойти...
17:00:39:962 [Скупщик 2]: Пробуй дойти...
17:00:40:483 [Скупщик 2]: Пробуй дойти...
17:00:41:061 [Скупщик 2]: Пробуй дойти...
17:00:41:590 [Скупщик 2]: Пробуй дойти...Code: Select all
procedure GotoOnBoad;
Begin
CheckSave;
CheckDead(false);
AddToSystemJournal('Иду на лодку...');
MoveXY( nearX, nearY,true, 0,true);
repeat
UseObject(Trap);
wait(300);
until (GetX(self) = OnBoadX) and (GetY(self) = OnBoadY);
AddToSystemJournal('Иду к месту разгрузки...');
{repeat
Step(1,true);
AddToSystemJournal('Пробуй дойти...'); <<<<<<<<<<<<<<<<<<<<<<<< ВОТ ЭТА СТРОКА ОКАЗЫВАЕТСЯ В ЛОГАХ
wait(300);
until (GetX(self) = OnBoadXdrop) and (GetY(self) = OnBoadYdrop);}
if (GetX(self) = OnBoadXdrop) and (GetY(self) = OnBoadYdrop) then AddToSystemJournal('*****К месту разгрузки дошел успешно...');
End;