hedgewars/uLandPainted.pas
changeset 4490 f6840f7e2f60
parent 4458 7351e6f1ee28
child 4494 9585435e20f7
--- 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.