hedgewars/HHHandlers.inc
changeset 1505 3a96e93572cb
parent 1347 1102e19780b9
child 1507 d18c67b7ad4c
--- a/hedgewars/HHHandlers.inc	Thu Nov 20 15:48:50 2008 +0000
+++ b/hedgewars/HHHandlers.inc	Fri Nov 21 15:58:36 2008 +0000
@@ -647,10 +647,14 @@
 procedure doStepHedgehog(Gear: PGear);
 begin
 if (Gear^.Message and gm_Destroy) <> 0 then
-   begin
-   DeleteGear(Gear);
-   exit
-   end;
+	begin
+	DeleteGear(Gear);
+	exit
+	end;
+
+//if Gear^.uid = 7 then
+//with Gear^ do AddFileLog('State: (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ')');
+
 if (Gear^.State and gstHHDriven) = 0 then doStepHedgehogFree(Gear)
                                      else doStepHedgehogDriven(Gear)
 end;