hedgewars/uGears.pas
changeset 856 beecc5c5c71c
parent 855 8842c71d16bf
child 857 43912f139db1
equal deleted inserted replaced
855:8842c71d16bf 856:beecc5c5c71c
   862                           begin
   862                           begin
   863                           AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t);
   863                           AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y), dmg, t);
   864                           uStats.HedgehogDamaged(t, dmg)
   864                           uStats.HedgehogDamaged(t, dmg)
   865                           end;
   865                           end;
   866                        DeleteCI(t);
   866                        DeleteCI(t);
   867                        t^.dX:= t^.dX + hwAbs(Gear^.dX * dmg * _0_01) + SignAs(cHHKick, Gear^.dX);
   867                        t^.dX:= t^.dX + Gear^.dX * dmg * _0_01 + SignAs(cHHKick, Gear^.dX);
   868                        t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
   868                        t^.dY:= t^.dY + Gear^.dY * dmg * _0_01;
       
   869 writelntoconsole('after ('+floattostr(t^.dx)+','+floattostr(t^.dy)+')');
   869                        t^.State:= t^.State or gstMoving;
   870                        t^.State:= t^.State or gstMoving;
   870                        t^.Active:= true;
   871                        t^.Active:= true;
   871                        FollowGear:= t
   872                        FollowGear:= t
   872                        end;
   873                        end;
   873               gtGrave: begin
   874               gtGrave: begin