equal
deleted
inserted
replaced
57 end; |
57 end; |
58 |
58 |
59 procedure CheckLandDigest(s: shortstring); |
59 procedure CheckLandDigest(s: shortstring); |
60 const digest: shortstring = ''; |
60 const digest: shortstring = ''; |
61 begin |
61 begin |
|
62 {$IFDEF DEBUGFILE} |
|
63 AddFileLog('CheckLandDigest: ' + s); |
|
64 {$ENDIF} |
62 if digest = '' then |
65 if digest = '' then |
63 digest:= s |
66 digest:= s |
64 else |
67 else |
65 TryDo(s = digest, 'Different maps generated, sorry', true) |
68 TryDo(s = digest, 'Different maps generated, sorry', true) |
66 end; |
69 end; |