| changeset 4357 | a1fcfc341a52 |
| parent 3936 | 0b982d340633 |
| child 4359 | 83ef50815535 |
| 4355:4554c4df9f1a | 4357:a1fcfc341a52 |
|---|---|
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; |
55 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, Adler32, uIO, uLandTexture, sysutils, uTypes; |
56 |
56 |
57 operator=(const a, b: direction) c: Boolean; |
57 operator=(const a, b: direction) c: Boolean; |
58 begin |
58 begin |
59 c := (a.x = b.x) and (a.y = b.y); |
59 c := (a.x = b.x) and (a.y = b.y); |
60 end; |
60 end; |