diff -r 8163c9aaad0c -r 8ad0e23e6d63 hedgewars/uGears.pas --- a/hedgewars/uGears.pas Tue Feb 01 08:15:01 2011 +0100 +++ b/hedgewars/uGears.pas Tue Feb 01 15:30:08 2011 +0100 @@ -182,9 +182,7 @@ var gear: PGear; begin inc(Counter); -{$IFDEF DEBUGFILE} AddFileLog('AddGear: #' + inttostr(Counter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); -{$ENDIF} New(gear); FillChar(gear^, sizeof(TGear), 0); @@ -602,9 +600,8 @@ Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16); end end; -{$IFDEF DEBUGFILE} -with Gear^ do AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); -{$ENDIF} +with Gear^ do + AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); if CurAmmoGear = Gear then CurAmmoGear:= nil; if FollowGear = Gear then FollowGear:= nil; @@ -1046,9 +1043,7 @@ 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); @@ -1170,7 +1165,7 @@ i, cnt: LongInt; begin TargetPoint.X:= NoPointX; -{$IFDEF DEBUGFILE}if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF} +if Radius > 4 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')'); if Radius > 25 then KickFlakes(Radius, X, Y); if ((Mask and EXPLNoGfx) = 0) then @@ -1213,7 +1208,7 @@ if dmg > 1 then begin dmg:= ModifyDamage(min(dmg div 2, Radius), Gear); - //{$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF} + //AddFileLog('Damage: ' + inttostr(dmg)); if (Mask and EXPLNoDamage) = 0 then begin if not Gear^.Invulnerable then @@ -1775,9 +1770,7 @@ begin Gear^.X:= int2hwFloat(x); Gear^.Y:= int2hwFloat(y); - {$IFDEF DEBUGFILE} AddFileLog('Assigned Gear coordinates (' + inttostr(x) + ',' + inttostr(y) + ')'); - {$ENDIF} end else begin