hedgewars/uLand.pas
changeset 11707 ecbf5e6c2c37
parent 11706 863e1a75ec99
child 11734 f48408dcea36
equal deleted inserted replaced
11706:863e1a75ec99 11707:ecbf5e6c2c37
   374     begin
   374     begin
   375 
   375 
   376     // face in random direction
   376     // face in random direction
   377     mirror:= (GetRandom(2) = 0);
   377     mirror:= (GetRandom(2) = 0);
   378     // make first/last fort face inwards
   378     // make first/last fort face inwards
   379     if WorldEdge <> weWrap then
   379     if (WorldEdge <> weWrap) or (ClansCount = 2) then
   380         mirror:= (i <> 0) and (mirror or (i = ClansCount - 1));
   380         mirror:= (i <> 0) and (mirror or (i = ClansCount - 1));
   381 
   381 
   382     if mirror then
   382     if mirror then
   383         begin
   383         begin
   384         // not critical because if no R we can fallback to mirrored L
   384         // not critical because if no R we can fallback to mirrored L