diff -r 8826ee0afe01 -r 58b4e357bcbf hedgewars/uGearsHandlersMess.pas --- a/hedgewars/uGearsHandlersMess.pas Sat Jan 23 23:02:03 2016 +0100 +++ b/hedgewars/uGearsHandlersMess.pas Sat Jan 23 17:29:44 2016 -0500 @@ -2008,27 +2008,6 @@ doStepFallingGear(Gear); AllInactive := false; - if (GameTicks and $F = 0) and (random(3) = 0) then - begin - VGear:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot); - if VGear <> nil then - with VGear^ do - begin - Tint:= $FFCC00FF; - Angle:= random(360); - dx:= 0.0005 * (random(200)); - dy:= 0.0005 * (random(200)); - if random(2) = 0 then - dx := -dx; - if random(2) = 0 then - dy := -dy; - FrameTicks:= 100+random(300); - Scale:= 0.1+1/(random(3)+3); - State:= ord(sprStar) - end - end; - - if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag); if Gear^.Timer = 1000 then // might need better timing