hedgewars/uGears.pas
changeset 4895 481dfbe69cd2
parent 4885 bf7f2c1cc235
child 4900 8ad0e23e6d63
--- a/hedgewars/uGears.pas	Tue Feb 01 00:18:25 2011 +0100
+++ b/hedgewars/uGears.pas	Tue Feb 01 00:27:47 2011 +0100
@@ -1046,7 +1046,9 @@
         end;
     end else if Gear^.Kind <> gtStructure then // not gtHedgehog nor gtStructure
         begin
+        {$IFDEF DEBUGFILE}
         AddFileLog('Assigning hedgehog ' + inttostr(LongInt(AttackerHog)) + ' to gear ' + inttostr(Gear^.uid));
+        {$ENDIF}
         Gear^.Hedgehog:= AttackerHog;
         end;
     inc(Gear^.Damage, Damage);