--- 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;