hedgewars/uGearsList.pas
changeset 7649 df90970ae81a
parent 7647 e496587db93e
child 7721 2b1ad418ba39
--- a/hedgewars/uGearsList.pas	Sun Sep 02 09:36:06 2012 +0400
+++ b/hedgewars/uGearsList.pas	Sun Sep 02 09:23:36 2012 -0400
@@ -177,16 +177,16 @@
                     if State and gstTmpFlag = 0 then
                         begin
                         dx.isNegative:= GetRandom(2) = 0;
-                        dx.QWordValue:= GetRandom(100000000);
+                        dx.QWordValue:= $40DA*GetRandom(10000)*8;
                         dy.isNegative:= false;
-                        dy.QWordValue:= GetRandom(70000000);
+                        dy.QWordValue:= $3AD3*GetRandom(7000)*8;
                         if GetRandom(2) = 0 then
                             dx := -dx
                         end;
                     State:= State or gstInvisible;
                     Health:= random(vobFrameTicks);
                     Timer:= random(vobFramesCount);
-                    Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity
+                    Damage:= (random(2) * 2 - 1) * (vobVelocity + random(vobVelocity)) * 8;
                     end
                 end;
        gtGrave: begin