hedgewars/uGearsHandlersMess.pas
changeset 13609 13f68f3e7153
parent 13608 92b87845beeb
child 13610 f1b6070a6e14
equal deleted inserted replaced
13608:92b87845beeb 13609:13f68f3e7153
  3566         Gear^.dX.isNegative := (not Gear^.dX.isNegative);
  3566         Gear^.dX.isNegative := (not Gear^.dX.isNegative);
  3567         Gear^.WDTimer := 0;
  3567         Gear^.WDTimer := 0;
  3568         Gear^.Angle := (LongInt(Gear^.Angle) + 2) and 3;
  3568         Gear^.Angle := (LongInt(Gear^.Angle) + 2) and 3;
  3569         Gear^.Karma := 0;
  3569         Gear^.Karma := 0;
  3570 
  3570 
       
  3571         // Bounce effect
       
  3572         if (Gear^.Radius > 2) then
       
  3573             AddBounceEffectForGear(Gear, 0.55);
       
  3574 
  3571         // Reset CakePoints to fix cake angle
  3575         // Reset CakePoints to fix cake angle
  3572         cakeData:= PCakeData(Gear^.Data);
  3576         cakeData:= PCakeData(Gear^.Data);
  3573         with cakeData^ do
  3577         with cakeData^ do
  3574             begin
  3578             begin
  3575             for i:= 0 to Pred(cakeh) do
  3579             for i:= 0 to Pred(cakeh) do