hedgewars/uGears.pas
changeset 5564 4f42009237df
parent 5563 fc73b6e941f7
child 5584 e0b9722bd653
--- a/hedgewars/uGears.pas	Sun Aug 14 17:42:26 2011 -0400
+++ b/hedgewars/uGears.pas	Sun Aug 14 17:49:12 2011 -0400
@@ -1093,13 +1093,8 @@
                     if vg <> nil then
                         with vg^ do
                             begin
-                            dx:= 0.001 * random(45);
-                            dy:= 0.001 * (random(20) + 25);
                             Tint:= $FF0000FF;
-                            State:= ord(sprHealth);
-                            if random(2) = 0 then dx := -dx;
-                            Frame:= 0;
-                            FrameTicks:= random(750) + 1250;
+                            State:= ord(sprHealth)
                             end;
                     inc(i, 5);
                     end;