hedgewars/uGearsHedgehog.pas
changeset 10714 70f71fac37a3
parent 10669 4c78eafe76ac
child 10789 acbf69e2e5cf
equal deleted inserted replaced
10713:ac12876c4f66 10714:70f71fac37a3
   832         end;
   832         end;
   833     DeleteCI(Gear); // must be after exit!! (see previous line)
   833     DeleteCI(Gear); // must be after exit!! (see previous line)
   834 
   834 
   835     Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7;
   835     Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7;
   836 
   836 
   837     if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) then
   837     if (not cArtillery or
       
   838            ((CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch))) and
       
   839        ((Gear^.Message and gmPrecise) = 0) then
   838         MakeHedgehogsStep(Gear);
   840         MakeHedgehogsStep(Gear);
   839 
   841 
   840     SetAllHHToActive(false);
   842     SetAllHHToActive(false);
   841     AddCI(Gear)
   843     AddCI(Gear)
   842     end
   844     end