--- a/hedgewars/uConsole.pas	Thu Feb 04 18:46:49 2010 +0000
+++ b/hedgewars/uConsole.pas	Thu Feb 04 20:45:03 2010 +0000
@@ -33,7 +33,6 @@
 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);
 procedure StopMessages(Message: Longword);
 function  GetLastConsoleLine: shortstring;
-procedure SplitBySpace(var a, b: shortstring);
 
 procedure doPut(putX, putY: LongInt; fromAI: boolean);
 
@@ -99,19 +98,6 @@
       end;
 end;
 
-procedure SplitBySpace(var a, b: shortstring);
-var i, t: LongInt;
-begin
-i:= Pos(' ', a);
-if i > 0 then
-	begin
-	for t:= 1 to Pred(i) do
-		if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32);
-	b:= copy(a, i + 1, Length(a) - i);
-	byte(a[0]):= Pred(i)
-	end else b:= '';
-end;
-
 procedure WriteToConsole(s: shortstring);
 var Len: LongInt;
     done: boolean;
@@ -318,6 +304,7 @@
 	RegisterVariable('-cur_l'  , vtCommand, @chCurL_m       , true );
 	RegisterVariable('+cur_r'  , vtCommand, @chCurR_p       , true );
 	RegisterVariable('-cur_r'  , vtCommand, @chCurR_m       , true );
+	RegisterVariable('flag'    , vtCommand, @chFlag         , false);
 end;
 
 procedure free_uConsole;