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