hedgewars/uGears.pas
changeset 854 fef7f2d908bf
parent 853 0b4a23795530
child 855 8842c71d16bf
equal deleted inserted replaced
853:0b4a23795530 854:fef7f2d908bf
   501 						hwSign(Gear^.dX),
   501 						hwSign(Gear^.dX),
   502 						1,
   502 						1,
   503 						3,
   503 						3,
   504 						0);
   504 						0);
   505 				end;
   505 				end;
       
   506 			gtShover: DrawRotated(sprHandBaseball, hx, hy, hwSign(Gear^.dX), aangle + 180);
   506 			gtPickHammer,
   507 			gtPickHammer,
   507 			gtTeleport: defaultPos:= false;
   508 			gtTeleport: defaultPos:= false;
   508 		end
   509 		end
   509 	end else
   510 	end else
   510 	if ((Gear^.State and gstHHJumping) <> 0) then
   511 	if ((Gear^.State and gstHHJumping) <> 0) then