hedgewars/uGears.pas
changeset 857 43912f139db1
parent 856 beecc5c5c71c
child 861 9588286683be
equal deleted inserted replaced
856:beecc5c5c71c 857:43912f139db1
   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 + 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)+')');
       
   870                        t^.State:= t^.State or gstMoving;
   869                        t^.State:= t^.State or gstMoving;
   871                        t^.Active:= true;
   870                        t^.Active:= true;
   872                        FollowGear:= t
   871                        FollowGear:= t
   873                        end;
   872                        end;
   874               gtGrave: begin
   873               gtGrave: begin