--- a/hedgewars/uCommandHandlers.pas	Fri Oct 11 11:55:31 2013 +0200
+++ b/hedgewars/uCommandHandlers.pas	Fri Oct 11 17:43:13 2013 +0200
@@ -798,6 +798,11 @@
   CampaignVariable := s;
 end;
 
+procedure chWorldEdge(var s: shortstring);
+begin
+WorldEdge:= TWorldEdge(StrToInt(s))
+end;
+
 procedure initModule;
 begin
 //////// Begin top sorted by freq analysis not including chatmsg
@@ -883,6 +888,7 @@
     RegisterVariable('-cur_r'  , @chCurR_m       , true );
     RegisterVariable('campvar' , @chCampVar      , true );
     RegisterVariable('record'  , @chRecord       , true );
+    RegisterVariable('worldedge',@chWorldEdge    , false);
 end;
 
 procedure freeModule;