hedgewars/uLand.pas
changeset 11706 863e1a75ec99
parent 11705 4b2179d9516c
child 11707 ecbf5e6c2c37
equal deleted inserted replaced
11705:4b2179d9516c 11706:863e1a75ec99
   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 then
   380         mirror:= (i <> 0) and (mirror or (i = ClansCount));
   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
   385         tmpsurf:= LoadDataImage(ptForts, ClansArray[i]^.Teams[0]^.FortName + 'R', ifAlpha or ifTransparent or ifIgnoreCaps);
   385         tmpsurf:= LoadDataImage(ptForts, ClansArray[i]^.Teams[0]^.FortName + 'R', ifAlpha or ifTransparent or ifIgnoreCaps);