hedgewars/uLand.pas
changeset 3551 d4de36b3801a
parent 3526 a1d2180fef42
child 3595 341e407e3754
equal deleted inserted replaced
3550:149416b948fc 3551:d4de36b3801a
  1218 begin
  1218 begin
  1219     hasBorder:= false;
  1219     hasBorder:= false;
  1220 
  1220 
  1221     LoadThemeConfig;
  1221     LoadThemeConfig;
  1222     isMap:= false;
  1222     isMap:= false;
       
  1223     
       
  1224     if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then
       
  1225         FillChar(Land,SizeOf(TCollisionArray),0);
       
  1226         
  1223     if (GameFlags and gfForts) = 0 then
  1227     if (GameFlags and gfForts) = 0 then
  1224         if Pathz[ptMapCurrent] <> '' then
  1228         if Pathz[ptMapCurrent] <> '' then
  1225             LoadMap
  1229             LoadMap
  1226         else
  1230         else
  1227             GenLandSurface
  1231             GenLandSurface