hedgewars/uGears.pas
changeset 957 ba340a727909
parent 956 19003f7fc174
child 958 92bb9fa046f9
equal deleted inserted replaced
956:19003f7fc174 957:ba340a727909
   647 
   647 
   648 if defaultPos then
   648 if defaultPos then
   649 	DrawRotatedF(sprHHIdle,
   649 	DrawRotatedF(sprHHIdle,
   650 		hwRound(Gear^.X) + 1 + WorldDx,
   650 		hwRound(Gear^.X) + 1 + WorldDx,
   651 		hwRound(Gear^.Y) - 3 + WorldDy,
   651 		hwRound(Gear^.Y) - 3 + WorldDy,
   652 		(RealTicks div 256 + Gear^.Pos) mod 19,
   652 		(RealTicks div 128 + Gear^.Pos) mod 19,
   653 		hwSign(Gear^.dX),
   653 		hwSign(Gear^.dX),
   654 		0);
   654 		0);
   655 
   655 
   656 with PHedgehog(Gear^.Hedgehog)^ do
   656 with PHedgehog(Gear^.Hedgehog)^ do
   657      if (Gear^.State{ and not gstAnimation}) = 0 then
   657      if (Gear^.State{ and not gstAnimation}) = 0 then
   677         begin
   677         begin
   678         if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   678         if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   679            DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
   679            DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
   680                       GameTicks div 32 mod 16);
   680                       GameTicks div 32 mod 16);
   681 
   681 
   682         if (Gear^.State and (gstMoving or gstDrowning)) = 0 then
   682         if (Gear^.State and (gstHHJumping or gstDrowning)) = 0 then
   683            if (Gear^.State and gstHHThinking) <> 0 then
   683            if (Gear^.State and gstHHThinking) <> 0 then
   684               DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
   684               DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
   685               else
   685               else
   686               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   686               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   687                  DrawRotatedTex(Team^.CrosshairTex,
   687                  DrawRotatedTex(Team^.CrosshairTex,