--- a/hedgewars/uLandPainted.pas Wed Dec 08 22:18:50 2010 +0300
+++ b/hedgewars/uLandPainted.pas Wed Dec 08 22:25:30 2010 +0300
@@ -23,9 +23,10 @@
interface
procedure LoadFromFile(fileName: shortstring);
+procedure initModule;
implementation
-uses uLandGraphics, uConsts, uUtils, SDLh;
+uses uLandGraphics, uConsts, uUtils, SDLh, uCommands;
type PointRec = packed record
X, Y: SmallInt;
@@ -123,4 +124,13 @@
closeFile(f);
end;
+procedure chDraw(var s: shortstring);
+begin
+end;
+
+procedure initModule;
+begin
+ RegisterVariable('draw', vtCommand, @chDraw, false);
+end;
+
end.