hedgewars/uGearsRender.pas
changeset 7098 f8c453ade379
parent 7093 2d7f1fb73335
child 7111 5ba5a92d74fb
child 7165 aad1aea05f1e
--- a/hedgewars/uGearsRender.pas	Sun May 20 10:45:16 2012 -0400
+++ b/hedgewars/uGearsRender.pas	Sun May 20 10:55:58 2012 -0400
@@ -1198,9 +1198,9 @@
                           if RealTicks mod 2 = 0 then
                                 begin
                                 i:= random(100)+100;
-                                DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
                                 if Gear^.Target.X <> NoPointX then
-                                    DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
+                                    DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40)
+                                else DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
                                 end
                           end
                       end