А как сделать чтобы он летел и скидывал перья дома ?
На ZHR он не хочет улетать

procedure FindTree; begin for x:=GetX(self)-RadiusX to GetX(self)+RadiusX do if x mod 2 = 0 then begin for y:=GetY(self)-RadiusY to GetY(self)+RadiusY do CheckTree; end else begin for y:=GetY(self)+RadiusY downto GetY(self)-RadiusY do CheckTree; end; TreeCount:=c-1; end; как я понял бродилка сломал...

Up

Проблема такая ) Что то он не ходит ! Помогите кто чем сможет. Program camping; /// Настройки /// const RadiusX=20; RadiusY=20; Axe=$0F51;//кинжал StartXY=true; StartX=948;// Обязательно заполните эти значения StartY=382;// .where вам в помощь //////////////////// //v. 1.1 //Remake of lumber script ...