hedgewars/uGears.pas
changeset 970 1bd9a4eafbc3
parent 966 664ae90b5b0c
child 976 368a8926632b
equal deleted inserted replaced
969:7e8a87136fae 970:1bd9a4eafbc3
   661 			defaultPos:= false
   661 			defaultPos:= false
   662 		end;
   662 		end;
   663 
   663 
   664 
   664 
   665 if defaultPos then
   665 if defaultPos then
       
   666 	begin
   666 	DrawRotatedF(sprHHIdle,
   667 	DrawRotatedF(sprHHIdle,
   667 		hwRound(Gear^.X) + 1 + WorldDx,
   668 		hwRound(Gear^.X) + 1 + WorldDx,
   668 		hwRound(Gear^.Y) - 3 + WorldDy,
   669 		hwRound(Gear^.Y) - 3 + WorldDy,
   669 		(RealTicks div 128 + Gear^.Pos) mod 19,
   670 		(RealTicks div 128 + Gear^.Pos) mod 19,
   670 		hwSign(Gear^.dX),
   671 		hwSign(Gear^.dX),
   671 		0);
   672 		0);
       
   673 	DrawRotatedF(sprHat,
       
   674 		hwRound(Gear^.X) + 1 + WorldDx,
       
   675 		hwRound(Gear^.Y) - 8 + WorldDy,
       
   676 		(RealTicks div 128 + Gear^.Pos) mod 19,
       
   677 		hwSign(Gear^.dX),
       
   678 		0);
       
   679 	end;
   672 
   680 
   673 with PHedgehog(Gear^.Hedgehog)^ do
   681 with PHedgehog(Gear^.Hedgehog)^ do
   674 	if (Gear^.State{ and not gstAnimation}) = 0 then
   682 	if (Gear^.State{ and not gstAnimation}) = 0 then
   675 	begin
   683 	begin
   676 	t:= hwRound(Gear^.Y) - cHHRadius - 10 + WorldDy;
   684 	t:= hwRound(Gear^.Y) - cHHRadius - 10 + WorldDy;