changeset 4359 | 83ef50815535 |
parent 4357 | a1fcfc341a52 |
child 4367 | f4a0ec067601 |
4357:a1fcfc341a52 | 4359:83ef50815535 |
---|---|
50 function GenPreview: TPreview; |
50 function GenPreview: TPreview; |
51 procedure CheckLandDigest(s: shortstring); |
51 procedure CheckLandDigest(s: shortstring); |
52 function LandBackPixel(x, y: LongInt): LongWord; |
52 function LandBackPixel(x, y: LongInt): LongWord; |
53 |
53 |
54 implementation |
54 implementation |
55 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, Adler32, uIO, uLandTexture, sysutils, uTypes; |
55 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, Adler32, uIO, uLandTexture, sysutils, |
56 uTypes, uVariables; |
|
56 |
57 |
57 operator=(const a, b: direction) c: Boolean; |
58 operator=(const a, b: direction) c: Boolean; |
58 begin |
59 begin |
59 c := (a.x = b.x) and (a.y = b.y); |
60 c := (a.x = b.x) and (a.y = b.y); |
60 end; |
61 end; |