Poniżej zamieszczam funkcję która rozwiązuje ten problem:
Code: Select all
Export Function PlaceUnitInBunker(un, b);
var dir;
begin
dir := GetDir(b);
if dir < 3 then
dir := dir + 3
else
dir := dir - 3;
SetDir(un, dir);
PlaceHumanInUnit(un, b);
End;
Code: Select all
// jakiś tam kod
un := CreateHuman;
PlaceUnitInBunker(un, b); // gdzie b to ident bunkra