hedgewars/uGearsList.pas
changeset 12641 f30b70976577
parent 12203 668ee6e388bd
child 12664 943b258d5443
equal deleted inserted replaced
12640:36a650c0a885 12641:f30b70976577
   578                 gear^.Health:= 2048;
   578                 gear^.Health:= 2048;
   579                 gear^.Radius:= 7;
   579                 gear^.Radius:= 7;
   580                 gear^.Z:= cOnHHZ;
   580                 gear^.Z:= cOnHHZ;
   581                 gear^.RenderTimer:= false;
   581                 gear^.RenderTimer:= false;
   582                 gear^.DirAngle:= -90 * hwSign(Gear^.dX);
   582                 gear^.DirAngle:= -90 * hwSign(Gear^.dX);
       
   583                 gear^.FlightTime:= 100; // (roughly) ticks spent dropping, used to skip getting up anim when stuck.
       
   584                                         // Initially set to a high value so cake has at least one getting up anim.
   583                 if not dX.isNegative then
   585                 if not dX.isNegative then
   584                     gear^.Angle:= 1
   586                     gear^.Angle:= 1
   585                 else
   587                 else
   586                     gear^.Angle:= 3;
   588                     gear^.Angle:= 3;
   587                 New(cakeData);
   589                 New(cakeData);