hedgewars/uGears.pas
changeset 3086 d11dea92fa2c
parent 3083 8da8f2515221
child 3094 97c8406acc85
--- 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