equal
deleted
inserted
replaced
26 procedure freeModule; |
26 procedure freeModule; |
27 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
27 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
28 procedure DrawLand(dX, dY: LongInt); |
28 procedure DrawLand(dX, dY: LongInt); |
29 |
29 |
30 implementation |
30 implementation |
31 uses uMisc, uLand, uStore, uConsts, GLunit; |
31 uses uMisc, uLand, uStore, uConsts, GLunit, uTypes; |
32 |
32 |
33 |
33 |
34 const TEXSIZE = 256; |
34 const TEXSIZE = 256; |
35 |
35 |
36 type TLandRecord = record |
36 type TLandRecord = record |