hedgewars/uGears.pas
changeset 837 05e910ef2bf8
parent 834 5687fa57a6c1
child 840 3c0028245ff3
equal deleted inserted replaced
836:150c7c87e66c 837:05e910ef2bf8
   835              gtTarget: begin
   835              gtTarget: begin
   836                        inc(t^.Damage, dmg);
   836                        inc(t^.Damage, dmg);
   837                        if t^.Kind = gtHedgehog then
   837                        if t^.Kind = gtHedgehog then
   838                           begin
   838                           begin
   839                           AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t);
   839                           AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t);
   840                           uStats.HedgehogDamaged(Gear, dmg)
   840                           uStats.HedgehogDamaged(t, dmg)
   841                           end;
   841                           end;
   842                        DeleteCI(t);
   842                        DeleteCI(t);
   843                        t^.dX:= t^.dX + SignAs(Gear^.dX * dmg * _0_01 + cHHKick, t^.X - Gear^.X);
   843                        t^.dX:= t^.dX + hwAbs(Gear^.dX * dmg * _0_01) + SignAs(cHHKick, Gear^.dX);
   844                        t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
   844                        t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
   845                        t^.State:= t^.State or gstMoving;
   845                        t^.State:= t^.State or gstMoving;
   846                        t^.Active:= true;
   846                        t^.Active:= true;
   847                        FollowGear:= t
   847                        FollowGear:= t
   848                        end;
   848                        end;