| changeset 1805 | dd9fb4b13fd8 |
| parent 1797 | fedd8649fdd9 |
| child 1806 | 3c4f0886c123 |
| 1804:4e78ad846fb6 | 1805:dd9fb4b13fd8 |
|---|---|
36 |
36 |
37 procedure GenMap; |
37 procedure GenMap; |
38 function GenPreview: TPreview; |
38 function GenPreview: TPreview; |
39 procedure CheckLandDigest(s: shortstring); |
39 procedure CheckLandDigest(s: shortstring); |
40 procedure UpdateLandTexture(Y, Height: LongInt); |
40 procedure UpdateLandTexture(Y, Height: LongInt); |
41 procedure RealLandTexUpdate; |
41 procedure DrawLand (X, Y: LongInt); |
42 |
42 |
43 implementation |
43 implementation |
44 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, uSHA, uIO, uAmmos; |
44 uses uConsole, uStore, uMisc, uRandom, uTeams, uLandObjects, uSHA, uIO, uAmmos; |
45 |
45 |
46 type TPixAr = record |
46 type TPixAr = record |
815 |
815 |
816 updTopY:= LAND_HEIGHT + 1; |
816 updTopY:= LAND_HEIGHT + 1; |
817 updBottomY:= 0 |
817 updBottomY:= 0 |
818 end; |
818 end; |
819 |
819 |
820 procedure DrawLand(X, Y: LongInt); |
|
821 begin |
|
822 RealLandTexUpdate; |
|
823 DrawTexture(X, Y, LandTexture) |
|
824 end; |
|
820 |
825 |
821 initialization |
826 initialization |
822 |
827 |
823 end. |
828 end. |