equal
deleted
inserted
replaced
25 procedure Draw; |
25 procedure Draw; |
26 procedure initModule; |
26 procedure initModule; |
27 procedure freeModule; |
27 procedure freeModule; |
28 |
28 |
29 implementation |
29 implementation |
30 uses uLandGraphics, uConsts, uVariables, uUtils, SDLh, uCommands, uDebug, uScript; |
30 uses uLandGraphics, uConsts, uVariables, uUtils, SDLh, uCommands, uScript; |
31 |
31 |
32 type PointRec = packed record |
32 type PointRec = packed record |
33 X, Y: SmallInt; |
33 X, Y: SmallInt; |
34 flags: byte; |
34 flags: byte; |
35 end; |
35 end; |