hedgewars/uGame.pas
changeset 351 29bc9c36ad5f
parent 281 5b483aa9f2ab
child 358 236bbd12d4d9
--- a/hedgewars/uGame.pas	Thu Jan 18 20:29:28 2007 +0000
+++ b/hedgewars/uGame.pas	Sun Jan 21 19:51:02 2007 +0000
@@ -18,6 +18,7 @@
 
 unit uGame;
 interface
+uses uFloat;
 {$INCLUDE options.inc}
 
 procedure DoGameTick(Lag: integer);
@@ -32,7 +33,7 @@
 var i: integer;
 begin
 if isPaused then exit;
-if not CurrentTeam.ExtDriven then
+if not CurrentTeam^.ExtDriven then
    begin
    NetGetNextCmd; // its for the case when receiving "/say" message
    isInLag:= false;
@@ -49,7 +50,7 @@
 i:= 1;
 while (GameState <> gsExit) and (i <= Lag) do
     begin
-    if not CurrentTeam.ExtDriven then
+    if not CurrentTeam^.ExtDriven then
        begin
        with CurrentTeam^ do
            if Hedgehogs[CurrHedgehog].BotLevel <> 0 then ProcessBot(Frames);