changeset 4368 | b89235e401e5 |
parent 4367 | f4a0ec067601 |
child 4374 | bcefeeabaa33 |
4367:f4a0ec067601 | 4368:b89235e401e5 |
---|---|
33 procedure GenMap; |
33 procedure GenMap; |
34 function GenPreview: TPreview; |
34 function GenPreview: TPreview; |
35 procedure CheckLandDigest(s: shortstring); |
35 procedure CheckLandDigest(s: shortstring); |
36 |
36 |
37 implementation |
37 implementation |
38 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, Adler32, uIO, uLandTexture, sysutils, |
38 uses uConsole, uStore, uMisc, uRandom, uLandObjects, Adler32, uIO, uLandTexture, sysutils, |
39 uVariables; |
39 uVariables; |
40 |
40 |
41 operator=(const a, b: direction) c: Boolean; |
41 operator=(const a, b: direction) c: Boolean; |
42 begin |
42 begin |
43 c := (a.x = b.x) and (a.y = b.y); |
43 c := (a.x = b.x) and (a.y = b.y); |