hedgewars/uGearsRender.pas
changeset 5525 5fb06333314e
parent 5519 c803fca71084
child 5526 70a5ec7b1020
--- a/hedgewars/uGearsRender.pas	Sun Aug 07 22:27:57 2011 +0400
+++ b/hedgewars/uGearsRender.pas	Sun Aug 07 14:29:11 2011 -0400
@@ -600,7 +600,10 @@
                 amGasBomb: DrawRotated(sprHandCheese, hx, hy, sign, aangle);
                 amMine: DrawRotated(sprHandMine, hx, hy, sign, aangle);
                 amSMine: DrawRotated(sprHandSMine, hx, hy, sign, aangle);
-                amSeduction: DrawRotated(sprHandSeduction, hx, hy, sign, aangle);
+                amSeduction: begin
+                             DrawRotated(sprHandSeduction, hx, hy, sign, aangle);
+                             DrawCircle(ox, oy, 240, 4, $FF, $00, $00, $AA); 
+                             end;
                 amVampiric: DrawRotatedF(sprHandVamp, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
                 amRCPlane: begin
                     DrawRotated(sprHandPlane, hx, hy, sign, 0);