--- a/hedgewars/uConsole.pas	Fri Aug 11 16:17:50 2006 +0000
+++ b/hedgewars/uConsole.pas	Fri Aug 11 20:00:29 2006 +0000
@@ -36,7 +36,7 @@
 uses SDLh;
 {$INCLUDE options.inc}
 const isDeveloperMode: boolean = true;
-type TVariableType = (vtCommand, vtInteger, vtReal, vtBoolean);
+type TVariableType = (vtCommand, vtInteger, vtDouble, vtBoolean);
      TCommandHandler = procedure (var params: shortstring);
 
 procedure DrawConsole(Surface: PSDL_Surface);
@@ -163,7 +163,7 @@
 end;
 
 procedure ParseCommand(CmdStr: shortstring);
-type PReal = ^Double;
+type PDouble = ^Double;
 var i, ii: integer;
     s: shortstring;
     t: PVariable;
@@ -191,12 +191,12 @@
                             str(PInteger(t.Handler)^, s);
                             WriteLnToConsole('$' + CmdStr + ' is "' + s + '"');
                             end else val(s, PInteger(t.Handler)^, i);
-                 vtReal: if c='$' then
+                 vtDouble: if c='$' then
                          if s[0]=#0 then
                             begin
-                            str(PReal(t.Handler)^:4:6, s);
+                            str(PDouble(t.Handler)^:4:6, s);
                             WriteLnToConsole('$' + CmdStr + ' is "' + s + '"');
-                            end else val(s, PReal(t.Handler)^   , i);
+                            end else val(s, PDouble(t.Handler)^   , i);
              vtBoolean: if c='$' then
                          if s[0]=#0 then
                             begin