Make messages be more debug-friendly
authorunc0rr
Mon, 13 Oct 2008 12:58:44 +0000
changeset 1346 b4d51b95aa16
parent 1345 73119de7d3be
child 1347 1102e19780b9
Make messages be more debug-friendly
hedgewars/uGears.pas
hedgewars/uMisc.pas
--- a/hedgewars/uGears.pas	Sun Oct 12 17:04:07 2008 +0000
+++ b/hedgewars/uGears.pas	Mon Oct 13 12:58:44 2008 +0000
@@ -1145,7 +1145,7 @@
 				gtCase,
 				gtTarget,
 				gtFlame: begin
-						{$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF}
+						//{$IFDEF DEBUGFILE}AddFileLog('Damage: ' + inttostr(dmg));{$ENDIF}
 						if (Mask and EXPLNoDamage) = 0 then
 							begin
 							inc(Gear^.Damage, dmg);
--- a/hedgewars/uMisc.pas	Sun Oct 12 17:04:07 2008 +0000
+++ b/hedgewars/uMisc.pas	Mon Oct 13 12:58:44 2008 +0000
@@ -186,7 +186,7 @@
 
 function FloatToStr(n: hwFloat): shortstring;
 begin
-FloatToStr:= cstr(n)
+FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue))
 end;
 
 function DxDy2Angle(const _dY, _dX: hwFloat): GLfloat;