equal
deleted
inserted
replaced
1187 hasBorder:= false; |
1187 hasBorder:= false; |
1188 |
1188 |
1189 LoadThemeConfig; |
1189 LoadThemeConfig; |
1190 isMap:= false; |
1190 isMap:= false; |
1191 |
1191 |
1192 // is this not needed any more? let's hope setlength sets also 0s |
1192 // is this not needed any more? lets hope setlength sets also 0s |
1193 //if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then |
1193 //if ((GameFlags and gfForts) <> 0) or (Pathz[ptMapCurrent] <> '') then |
1194 // FillChar(Land,SizeOf(TCollisionArray),0);*) |
1194 // FillChar(Land,SizeOf(TCollisionArray),0);*) |
1195 |
1195 |
1196 if (GameFlags and gfForts) = 0 then |
1196 if (GameFlags and gfForts) = 0 then |
1197 if Pathz[ptMapCurrent] <> '' then |
1197 if Pathz[ptMapCurrent] <> '' then |
1314 end; |
1314 end; |
1315 |
1315 |
1316 |
1316 |
1317 procedure chLandCheck(var s: shortstring); |
1317 procedure chLandCheck(var s: shortstring); |
1318 begin |
1318 begin |
1319 {$IFDEF DEBUGFILE} |
|
1320 AddFileLog('CheckLandDigest: ' + s + ' digest : ' + digest); |
1319 AddFileLog('CheckLandDigest: ' + s + ' digest : ' + digest); |
1321 {$ENDIF} |
|
1322 if digest = '' then |
1320 if digest = '' then |
1323 digest:= s |
1321 digest:= s |
1324 else |
1322 else |
1325 TryDo(s = digest, 'Different maps generated, sorry', true); |
1323 TryDo(s = digest, 'Different maps generated, sorry', true); |
1326 end; |
1324 end; |