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; 
