hedgewars/uGears.pas
changeset 1033 622c5de38d72
parent 1020 2cbffbc0dc70
child 1034 05f003ad3caa
equal deleted inserted replaced
1032:bf6f5122baf7 1033:622c5de38d72
   652 			0);
   652 			0);
   653 			defaultPos:= false
   653 			defaultPos:= false
   654 		end
   654 		end
   655 	else
   655 	else
   656 
   656 
       
   657 	if ((Gear^.State and gstAnimation) <> 0) then
       
   658 		begin
       
   659 		DrawRotatedF(TSprite(Gear^.Tag),
       
   660 				hwRound(Gear^.X) + 1 + WorldDx,
       
   661 				hwRound(Gear^.Y) - 3 + WorldDy,
       
   662 				Gear^.Pos,
       
   663 				hwSign(Gear^.dX),
       
   664 				0.0);
       
   665 		defaultPos:= false
       
   666 		end
       
   667 	else
   657 	if ((Gear^.State and gstAttacked) = 0) then
   668 	if ((Gear^.State and gstAttacked) = 0) then
   658 	begin
   669 	begin
   659 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
   670 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
   660 		case amt of
   671 		case amt of
   661 			amBazooka,
   672 			amBazooka,
   788 
   799 
   789 		if (Gear^.State and gstDrowning) = 0 then
   800 		if (Gear^.State and gstDrowning) = 0 then
   790 			if (Gear^.State and gstHHThinking) <> 0 then
   801 			if (Gear^.State and gstHHThinking) <> 0 then
   791 				DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
   802 				DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
   792 				else
   803 				else
   793 				if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   804 				if ShowCrosshair and ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
   794 					begin
   805 					begin
   795 					if ((Gear^.State and gstHHHJump) <> 0) then m:= -1 else m:= 1;
   806 					if ((Gear^.State and gstHHHJump) <> 0) then m:= -1 else m:= 1;
   796 					DrawRotatedTex(Team^.CrosshairTex,
   807 					DrawRotatedTex(Team^.CrosshairTex,
   797 							12, 12,
   808 							12, 12,
   798 							Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * m * Sin(Gear^.Angle*pi/cMaxAngle) * 60) + WorldDx,
   809 							Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * m * Sin(Gear^.Angle*pi/cMaxAngle) * 60) + WorldDx,