hedgewars/uGears.pas
changeset 5525 5fb06333314e
parent 5513 79dd457193e6
child 5556 5b8ca3955834
--- a/hedgewars/uGears.pas	Sun Aug 07 22:27:57 2011 +0400
+++ b/hedgewars/uGears.pas	Sun Aug 07 14:29:11 2011 -0400
@@ -313,6 +313,9 @@
                 gear^.Elasticity:= _0_9;
                 gear^.Tag:= getRandom(32);
                 end;
+   gtSeduction: begin
+                gear^.Radius:= 250;
+                end;
  gtShotgunShot: begin
                 gear^.Timer:= 900;
                 gear^.Radius:= 2