equal
deleted
inserted
replaced
21 unit uLandPainted; |
21 unit uLandPainted; |
22 |
22 |
23 interface |
23 interface |
24 |
24 |
25 procedure LoadFromFile(fileName: shortstring); |
25 procedure LoadFromFile(fileName: shortstring); |
|
26 procedure initModule; |
26 |
27 |
27 implementation |
28 implementation |
28 uses uLandGraphics, uConsts, uUtils, SDLh; |
29 uses uLandGraphics, uConsts, uUtils, SDLh, uCommands; |
29 |
30 |
30 type PointRec = packed record |
31 type PointRec = packed record |
31 X, Y: SmallInt; |
32 X, Y: SmallInt; |
32 flags: byte; |
33 flags: byte; |
33 end; |
34 end; |
121 end; |
122 end; |
122 |
123 |
123 closeFile(f); |
124 closeFile(f); |
124 end; |
125 end; |
125 |
126 |
|
127 procedure chDraw(var s: shortstring); |
|
128 begin |
|
129 end; |
|
130 |
|
131 procedure initModule; |
|
132 begin |
|
133 RegisterVariable('draw', vtCommand, @chDraw, false); |
|
134 end; |
|
135 |
126 end. |
136 end. |