966 procedure doStepFirePunch(Gear: PGear);

   966 procedure doStepFirePunch(Gear: PGear);

   967 var HHGear: PGear;

   967 var HHGear: PGear;

   968 begin

   968 begin

   969 AllInactive:= false;

   969 AllInactive:= false;

   970 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;

   970 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;

   971 HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;

   972 HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;

   972 SetLittle(HHGear^.dX);

   973 SetLittle(HHGear^.dX);

   973 HHGear^.dY:= - _0_3;

   974 HHGear^.dY:= - _0_3;

   974 

   975 

   975 Gear^.X:= HHGear^.X;

   976 Gear^.X:= HHGear^.X;