hedgewars/uGears.pas
changeset 3337 75e7455c69ed
parent 3334 f94a52a763d4
child 3342 b4f01613dcd7
--- a/hedgewars/uGears.pas	Sun Apr 11 09:53:28 2010 +0000
+++ b/hedgewars/uGears.pas	Mon Apr 12 20:58:32 2010 +0000
@@ -225,7 +225,7 @@
 begin
 inc(Counter);
 {$IFDEF DEBUGFILE}
-AddFileLog('AddGear: #' + inttostr(Counter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + inttostr(ord(Kind)));
+AddFileLog('AddGear: #' + inttostr(Counter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
 {$ENDIF}
 
 New(gear);
@@ -528,7 +528,7 @@
         RecountTeamHealth(team)
         end;
 {$IFDEF DEBUGFILE}
-with Gear^ do AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + inttostr(ord(Kind)));
+with Gear^ do AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
 {$ENDIF}
 
 if CurAmmoGear = Gear then CurAmmoGear:= nil;