hedgewars/uGearsHandlersMess.pas
changeset 14758 bc0e86b0347b
parent 14750 ab7bf5036314
child 14759 c6b7f4a4122c
equal deleted inserted replaced
14757:16168aff08c7 14758:bc0e86b0347b
  2288         doStepFallingGear(Gear);
  2288         doStepFallingGear(Gear);
  2289         AllInactive := false;
  2289         AllInactive := false;
  2290         CalcRotationDirAngle(Gear);
  2290         CalcRotationDirAngle(Gear);
  2291         end;
  2291         end;
  2292 
  2292 
  2293     Gear^.RenderTimer:= ((Gear^.State and gstFrozen) = 0) and ((Gear^.State and gstAttacking) = 0);
  2293     Gear^.RenderTimer:= (Gear^.State and (gstFrozen or gstAttacking or gstDrowning) = 0);
  2294     if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Health <> 0) then
  2294     if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Health <> 0) then
  2295         begin
  2295         begin
  2296         if ((Gear^.State and gstAttacking) = 0) and ((Gear^.State and gstFrozen) = 0) then
  2296         if ((Gear^.State and gstAttacking) = 0) and ((Gear^.State and gstFrozen) = 0) then
  2297             begin
  2297             begin
  2298             if ((GameTicks and $1F) = 0) then
  2298             if ((GameTicks and $1F) = 0) then