597 UpdateLandTexture(0, 1024)

   597 UpdateLandTexture(0, 1024)

   598 end;

   598 end;

   599 

   599 

   600 procedure GenMap;

   600 procedure GenMap;

   601 begin

   601 begin

   602 if (GameFlags and gfForts) = 0 then

   604 if (GameFlags and gfForts) = 0 then

   603    if Pathz[ptMapCurrent] <> '' then LoadMap

   605    if Pathz[ptMapCurrent] <> '' then LoadMap

   604                                 else GenLandSurface

   606                                 else GenLandSurface

   605                                else MakeFortsMap;

   607                                else MakeFortsMap;

   606 AddProgress;

   608 AddProgress;