165 			@doStepDrill,

   165 			@doStepDrill,

   166 			@doStepBallgun,

   166 			@doStepBallgun,

   167 			@doStepBomb,

   167 			@doStepBomb,

   168 			@doStepRCPlane,

   168 			@doStepRCPlane,

   169 			@doStepSniperRifleShot,

   169 			@doStepSniperRifleShot,

   171 			);

   172 			);

   172 

   173 

   173 procedure InsertGearToList(Gear: PGear);

   174 procedure InsertGearToList(Gear: PGear);

   174 var tmp, ptmp: PGear;

   175 var tmp, ptmp: PGear;

   175 begin

   176 begin

   256                 Result^.Elasticity:= _0_35;

   257                 Result^.Elasticity:= _0_35;

   257                 Result^.Friction:= _0_999;

   258                 Result^.Friction:= _0_999;

   258                 Result^.Angle:= cMaxAngle div 2;

   259                 Result^.Angle:= cMaxAngle div 2;

   259                 Result^.Z:= cHHZ;

   260                 Result^.Z:= cHHZ;

   260                 end;

   261                 end;

   262                 Result^.Radius:= 4;

   263                 Result^.Radius:= 4;

   263                 end;

   264                 end;

   264    gtHealthTag: begin

   265    gtHealthTag: begin

   265                 Result^.Timer:= 1500;

   266                 Result^.Timer:= 1500;

   266                 Result^.Z:= 2002;

   267                 Result^.Z:= 2002;

  1059 	begin

  1060 	begin

  1060 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;

  1061 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;

  1061 		case amt of

  1062 		case amt of

  1062 			amBazooka,

  1063 			amBazooka,

  1063 			amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);

  1064 			amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);

  1064 			amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);

  1066 			amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);

  1065 			amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);

  1067 			amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);

  1066 			amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);

  1068 			amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);

  1067 			amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);

  1069 			amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);

  1068 			amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);

  1070 			amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);

  1414 Gear:= GearsList;

  1416 Gear:= GearsList;

  1415 while Gear<>nil do

  1417 while Gear<>nil do

  1416 	begin

  1418 	begin

  1417 	case Gear^.Kind of

  1419 	case Gear^.Kind of

  1418        gtAmmo_Bomb: DrawRotated(sprBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);

  1420        gtAmmo_Bomb: DrawRotated(sprBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);

  1419 

  1422 

  1420        gtRCPlane: begin

  1423        gtRCPlane: begin

  1421                   if (Gear^.Tag = -1) then

  1424                   if (Gear^.Tag = -1) then

  1422                      DrawRotated(sprPlane, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)

  1425                      DrawRotated(sprPlane, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)

  1423                   else

  1426                   else