hedgewars/uGears.pas
changeset 1717 f4cf7e36ae3e
parent 1696 bb1e305320a1
child 1738 00e8dadce69a
equal deleted inserted replaced
1716:ca5cc5e611c0 1717:f4cf7e36ae3e
   663 						DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
   663 						DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
   664 					HatVisible:= true
   664 					HatVisible:= true
   665 				end;
   665 				end;
   666 			gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle);
   666 			gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle);
   667 			gtBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
   667 			gtBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
       
   668 			gtRCPlane: begin
       
   669 				DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
       
   670 				defaultPos:= false
       
   671 				end;
   668 			gtRope: begin
   672 			gtRope: begin
   669 				if Gear^.X < CurAmmoGear^.X then
   673 				if Gear^.X < CurAmmoGear^.X then
   670 					begin
   674 					begin
   671 					dAngle:= 0;
   675 					dAngle:= 0;
   672 					m:= 1
   676 					m:= 1
   806 	if ((Gear^.State and gstAttacked) = 0) then
   810 	if ((Gear^.State and gstAttacked) = 0) then
   807 	begin
   811 	begin
   808 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
   812 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
   809 		case amt of
   813 		case amt of
   810 			amBazooka,
   814 			amBazooka,
   811 			amMortar,amRCPlane: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
   815 			amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
   812                         amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
   816 			amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
   813                         amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
   817 			amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
   814 			amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
   818 			amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
   815 			amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
   819 			amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
   816 			amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
   820 			amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
   817 			amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
   821 			amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
       
   822 			amRCPlane: begin
       
   823 				DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
       
   824 				defaultPos:= false
       
   825 				end;
   818 		end;
   826 		end;
   819 
   827 
   820 		case amt of
   828 		case amt of
   821 			amAirAttack,
   829 			amAirAttack,
   822 			amMineStrike: DrawRotated(sprHandAirAttack, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) + WorldDy, hwSign(Gear^.dX), 0);
   830 			amMineStrike: DrawRotated(sprHandAirAttack, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) + WorldDy, hwSign(Gear^.dX), 0);