hedgewars/VGSHandlers.inc
branch0.9.16
changeset 6005 3470f3f547ca
parent 5874 5cd329cf2460
child 6179 b529f88d37d0
equal deleted inserted replaced
6003:74431bf4c632 6005:3470f3f547ca
   170 Gear^.dY:= Gear^.dY + cGravityf * Steps;
   170 Gear^.dY:= Gear^.dY + cGravityf * Steps;
   171 
   171 
   172 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
   172 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
   173 
   173 
   174 if Gear^.FrameTicks <= Steps then
   174 if Gear^.FrameTicks <= Steps then
   175     DeleteVisualGear(Gear)
   175     begin
       
   176     DeleteVisualGear(Gear);
       
   177     exit
       
   178     end
   176 else
   179 else
   177     dec(Gear^.FrameTicks, Steps);
   180     dec(Gear^.FrameTicks, Steps);
   178 
   181 
   179 if Gear^.FrameTicks < $FF then
   182 if Gear^.FrameTicks < $FF then
   180    Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Gear^.FrameTicks
   183    Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Gear^.FrameTicks