hedgewars/uConsole.pas
changeset 3407 dcc129c4352e
parent 3346 967fd96f7373
child 3617 1df21e06b8ba
--- a/hedgewars/uConsole.pas	Sun May 02 20:30:23 2010 +0000
+++ b/hedgewars/uConsole.pas	Sun May 02 22:00:50 2010 +0000
@@ -37,8 +37,8 @@
 procedure doPut(putX, putY: LongInt; fromAI: boolean);
 
 implementation
-uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand,
-     uRandom, uAmmos, uStats, uGame, uChat, SDLh, uSound, uVisualGears, uScript;
+uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld,
+     uRandom, uAmmos, uStats, uChat, SDLh, uSound, uVisualGears, uScript;
 
 const cLineWidth: LongInt = 0;
       cLinesCount = 256;
@@ -132,7 +132,6 @@
 end;
 
 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean);
-type PhwFloat = ^hwFloat;
 var ii: LongInt;
     s: shortstring;
     t: PVariable;
@@ -143,6 +142,7 @@
 {$IFDEF DEBUGFILE}AddFileLog('ParseCommand "' + CmdStr + '"');{$ENDIF}
 c:= CmdStr[1];
 if c in ['/', '$'] then Delete(CmdStr, 1, 1) else c:= '/';
+s:= '';
 SplitBySpace(CmdStr, s);
 t:= Variables;
 while t <> nil do