hedgewars/uGears.pas
changeset 1113 d63a3567a6fe
parent 1110 3660bbfc1cba
child 1141 44d4d6aaecb5
equal deleted inserted replaced
1112:11590c68b68e 1113:d63a3567a6fe
   655 				end;
   655 				end;
   656 			gtBlowTorch: begin
   656 			gtBlowTorch: begin
   657 				DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
   657 				DrawRotated(sprBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
   658 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   658 				DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
   659 						hwSign(Gear^.dX),
   659 						hwSign(Gear^.dX),
   660 						1,
       
   661 						3,
   660 						3,
       
   661 						PHedgehog(Gear^.Hedgehog)^.visStepPos div 2,
   662 						0);
   662 						0);
   663 				defaultPos:= false
   663 				defaultPos:= false
   664 				end;
   664 				end;
   665 			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
   665 			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
   666 			gtFirePunch: begin
   666 			gtFirePunch: begin