--- a/hedgewars/uGearsHedgehog.pas	Thu Dec 18 00:03:53 2014 +0300
+++ b/hedgewars/uGearsHedgehog.pas	Sat Jan 03 23:46:26 2015 +0300
@@ -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;
@@ -832,7 +834,9 @@
 
     Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7;
 
-    if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) then
+    if (not cArtillery or
+           ((CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch))) and
+       ((Gear^.Message and gmPrecise) = 0) then
         MakeHedgehogsStep(Gear);
 
     SetAllHHToActive(false);