| changeset 3463 | 23c50be687a9 |
| parent 3407 | dcc129c4352e |
| child 3509 | d72c2219595d |
| 3462:4b36933dce1d | 3463:23c50be687a9 |
|---|---|
1210 end; |
1210 end; |
1211 |
1211 |
1212 procedure GenMap; |
1212 procedure GenMap; |
1213 var x, y, w, c: Longword; |
1213 var x, y, w, c: Longword; |
1214 begin |
1214 begin |
1215 hasBorder:= false; |
1215 hasBorder:= false; |
1216 |
1216 |
1217 LoadThemeConfig; |
1217 LoadThemeConfig; |
1218 isMap:= false; |
1218 isMap:= false; |
1219 if (GameFlags and gfForts) = 0 then |
1219 if (GameFlags and gfForts) = 0 then |
1220 if Pathz[ptMapCurrent] <> '' then LoadMap |
1220 if Pathz[ptMapCurrent] <> '' then |
1221 else GenLandSurface |
1221 LoadMap |
1222 else MakeFortsMap; |
1222 else |
1223 AddProgress; |
1223 GenLandSurface |
1224 else |
|
1225 MakeFortsMap; |
|
1226 |
|
1227 AddProgress; |
|
1224 |
1228 |
1225 {$IFDEF DEBUGFILE}LogLandDigest;{$ENDIF} |
1229 {$IFDEF DEBUGFILE}LogLandDigest;{$ENDIF} |
1226 |
1230 |
1227 // check for land near top |
1231 // check for land near top |
1228 c:= 0; |
1232 c:= 0; |