# HG changeset patch
# User nemo
# Date 1313358552 14400
# Node ID 4f42009237df91d770784b332c0746a2a65206bb
# Parent  fc73b6e941f7f320870aa553ea846cafcb296efe
For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same

diff -r fc73b6e941f7 -r 4f42009237df hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Aug 14 17:42:26 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sun Aug 14 17:49:12 2011 -0400
@@ -3005,7 +3005,16 @@
     if (Gear^.Pos = 14) and (RealTicks and $3 = 0) then 
         begin
         heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot);
-        if heart <> nil then heart^.State:= ord(sprSeduction);
+        if heart <> nil then 
+            with heart^ do
+                begin
+                dx:= 0.001 * (random(200));
+                dy:= 0.001 * (random(200));
+                if random(2) = 0 then dx := -dx;
+                if random(2) = 0 then dy := -dy;
+                FrameTicks:= random(750) + 1000;
+                heart^.State:= ord(sprSeduction)
+                end;
         end;
 
     if Gear^.Pos = 15 then
diff -r fc73b6e941f7 -r 4f42009237df hedgewars/HHHandlers.inc
--- a/hedgewars/HHHandlers.inc	Sun Aug 14 17:42:26 2011 -0400
+++ b/hedgewars/HHHandlers.inc	Sun Aug 14 17:49:12 2011 -0400
@@ -586,13 +586,8 @@
                         if vga <> nil then
                             with vga^ do
                                 begin
-                                dx:= 0.001 * random(45);
-                                dy:= 0.001 * (random(20) + 25);
                                 Tint:= $00FF00FF;
-                                State:= ord(sprHealth);
-                                if random(2) = 0 then dx := -dx;
-                                Frame:= 0;
-                                FrameTicks:= random(750) + 1250;
+                                State:= ord(sprHealth)
                                 end;
                         inc(i, 5);
                         end;
diff -r fc73b6e941f7 -r 4f42009237df hedgewars/uGears.pas
--- 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;
diff -r fc73b6e941f7 -r 4f42009237df hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Sun Aug 14 17:42:26 2011 -0400
+++ b/hedgewars/uVisualGears.pas	Sun Aug 14 17:49:12 2011 -0400
@@ -317,12 +317,12 @@
                 end;
 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
  vgtStraightShot: begin
-                dx:= 0.001 * (random(200));
-                dy:= 0.001 * (random(200));
+                dx:= 0.001 * random(45);
+                dy:= 0.001 * (random(20) + 25);
+                State:= ord(sprHealth);
                 if random(2) = 0 then dx := -dx;
-                if random(2) = 0 then dy := -dy;
                 Frame:= 0;
-                FrameTicks:= random(750) + 1000;
+                FrameTicks:= random(750) + 1250;
                 State:= ord(sprSnowDust);
                 end;
         end;