remove pointless code
authornemo
Fri, 26 Mar 2010 19:59:15 +0000
changeset 3086 d11dea92fa2c
parent 3085 c6c57c499034
child 3087 4bae9ff68ed3
remove pointless code
hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Fri Mar 26 17:43:21 2010 +0000
+++ b/hedgewars/uGears.pas	Fri Mar 26 19:59:15 2010 +0000
@@ -317,10 +317,6 @@
                 gear^.Friction:= _450;
                 RopePoints.Count:= 0;
                 end;
-   gtExplosion: begin
-                gear^.X:= gear^.X;
-                gear^.Y:= gear^.Y;
-                end;
         gtMine: begin
                 gear^.Health:= 10;
                 gear^.State:= gear^.State or gstMoving;
@@ -448,8 +444,6 @@
                 gear^.FlightTime := 2;
                 end;
 gtBigExplosion: begin
-                gear^.X:= gear^.X;
-                gear^.Y:= gear^.Y;
                 gear^.Angle:= random(360);
                 end;
 		 gtEgg: begin