hedgewars/GSHandlers.inc
changeset 7339 5984b749ad9b
parent 7335 3c6f08af7dac
child 7341 d70478d265ec
--- a/hedgewars/GSHandlers.inc	Wed Jul 04 10:56:42 2012 -0400
+++ b/hedgewars/GSHandlers.inc	Wed Jul 04 12:41:47 2012 -0400
@@ -2120,15 +2120,14 @@
    voices. Reinforcements voices is heard for active team, not team-to-be.  Either that or change crate spawn from end of turn to start, although that
    has its own complexities. *)
             // Abuse a couple of gear values to track origin
-            Gear^.Angle:= hwRound(Gear^.X);
-            Gear^.Power:= hwRound(Gear^.Y);
+            Gear^.Angle:= hwRound(Gear^.Y);
             Gear^.Tag:= random(2);
             inc(Gear^.Timer)
             end;
         if Gear^.Timer < 1833 then inc(Gear^.Timer);
         if Gear^.Timer = 1000 then
             begin
-            sparkles:= AddVisualGear(Gear^.Angle, Gear^.Power, vgtDust, 1);
+            sparkles:= AddVisualGear(hwRound(Gear^.X), Gear^.Angle, vgtDust, 1);
             if sparkles <> nil then
                 begin
                 sparkles^.dX:= 0;