hedgewars/uGears.pas
changeset 825 4b32f282f9d7
parent 824 e632cc7caf3a
child 826 b119e4f470b8
equal deleted inserted replaced
824:e632cc7caf3a 825:4b32f282f9d7
   526 		case amt of
   526 		case amt of
   527 			amBazooka,
   527 			amBazooka,
   528 			amRope,
   528 			amRope,
   529 			amShotgun,
   529 			amShotgun,
   530 			amDEagle: begin
   530 			amDEagle: begin
   531 					DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   531 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   532 							hwSign(Gear^.dX),
   532 						hwSign(Gear^.dX),
   533 							0,
   533 						0,
   534 							4,
   534 						4,
   535 							0);
   535 						0);
   536 					defaultPos:= false
   536 				defaultPos:= false
   537 				end
   537 				end;
       
   538 			amAirAttack,
       
   539 			amMineStrike: begin
       
   540 				DrawRotated(sprHandAirAttack, hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) + WorldDy, hwSign(Gear^.dX), 0);
       
   541 				defaultPos:= false
       
   542 				end;
   538 		else
   543 		else
   539 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   544 			DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   540 				hwSign(Gear^.dX),
   545 				hwSign(Gear^.dX),
   541 				0,
   546 				0,
   542 				3,
   547 				3,