Fix firepunch regression
authorunc0rr
Fri, 18 May 2007 16:40:43 +0000
changeset 514 fb8ba88a83c3
parent 513 69e06d710d46
child 515 270f10276d2e
Fix firepunch regression
hedgewars/GSHandlers.inc
hedgewars/uCollisions.pas
share/hedgewars/Data/Graphics/Progress.png
--- a/hedgewars/GSHandlers.inc	Mon May 14 18:58:54 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Fri May 18 16:40:43 2007 +0000
@@ -968,6 +968,7 @@
 begin
 AllInactive:= false;
 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
+DeleteCI(HHGear);
 HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
 SetLittle(HHGear^.dX);
 HHGear^.dY:= - _0_3;
--- a/hedgewars/uCollisions.pas	Mon May 14 18:58:54 2007 +0000
+++ b/hedgewars/uCollisions.pas	Fri May 18 16:40:43 2007 +0000
@@ -201,7 +201,7 @@
     with cinfos[i] do
       if (Gear <> cGear) and
          (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius)) and
-         ((mx > x) xor (Dir > 0)) then
+         ((mx > x) xor (Dir > 0)) then  // FIXME: Check Gear.Kind
              begin
              Gear^.dX:= Gear^.dX {* _0_6};
              Gear^.dY:= Gear^.dY {* _0_6};
Binary file share/hedgewars/Data/Graphics/Progress.png has changed