--- a/hedgewars/uGearsHedgehog.pas	Sun Dec 14 03:16:40 2014 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Sun Dec 14 03:32:11 2014 +0100
@@ -505,9 +505,11 @@
             end
         else
             Message:= Message and (not gmAttack);
-    end;
+
+    ScriptCall('onHogAttack', ord(CurAmmoType));
+    end; // of with Gear^, Gear^.Hedgehog^ do
+
     TargetPoint.X := NoPointX;
-    ScriptCall('onHogAttack');
 end;
 
 procedure AfterAttack;