diff -r 2a9843339910 -r 0c660c3d98a4 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed Sep 17 04:02:02 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Sep 17 17:33:44 2008 +0000
@@ -1659,3 +1659,10 @@
 Gear^.doStep:= @doStepCakeFall
 end;
 
+////////////////////////////////////////////////////////////////////////////////
+procedure doStepSeduction(Gear: PGear);
+begin
+AllInactive:= false;
+DeleteGear(Gear);
+
+end;