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, uStore, uConsts, GLunit, uTypes, uVariables; |
31 uses uMisc, uStore, uConsts, GLunit, uTypes, uVariables, uTextures; |
32 |
|
33 |
32 |
34 const TEXSIZE = 256; |
33 const TEXSIZE = 256; |
35 |
34 |
36 type TLandRecord = record |
35 type TLandRecord = record |
37 shouldUpdate: boolean; |
36 shouldUpdate: boolean; |