hedgewars/CCHandlers.inc
changeset 2695 ed789a7ef68d
parent 2671 7e0f88013fe8
child 2697 75880595a9f1
--- a/hedgewars/CCHandlers.inc	Thu Jan 14 16:38:43 2010 +0000
+++ b/hedgewars/CCHandlers.inc	Thu Jan 14 16:46:50 2010 +0000
@@ -17,15 +17,15 @@
  *)
 
 function CheckNoTeamOrHH: boolean;
-var Result: boolean;
+var bRes: boolean;
 begin
-Result:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil);
+bRes:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil);
 {$IFDEF DEBUGFILE}
-if Result then
+if bRes then
    if CurrentTeam = nil then AddFileLog('CONSOLE: CurTeam = nil')
                         else AddFileLog('CONSOLE: CurTeam <> nil, Gear = nil');
 {$ENDIF}
-CheckNoTeamOrHH:= Result
+CheckNoTeamOrHH:= bRes;
 end;
 ////////////////////////////////////////////////////////////////////////////////
 procedure chQuit(var s: shortstring);