648 aangle:= Gear^.Angle * 180 / cMaxAngle - 90; |
648 aangle:= Gear^.Angle * 180 / cMaxAngle - 90; |
649 |
649 |
650 if CurAmmoGear <> nil then |
650 if CurAmmoGear <> nil then |
651 begin |
651 begin |
652 case CurAmmoGear^.Kind of |
652 case CurAmmoGear^.Kind of |
653 gtShotgunShot: if (CurAmmoGear^.State and gstAnimation <> 0) then |
653 gtShotgunShot: begin |
654 DrawRotated(sprShotgun, hx, hy, hwSign(Gear^.dX), aangle) |
654 if (CurAmmoGear^.State and gstAnimation <> 0) then |
655 else |
655 DrawRotated(sprShotgun, hx, hy, hwSign(Gear^.dX), aangle) |
656 DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle); |
656 else |
|
657 DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle); |
|
658 HatVisible:= true |
|
659 end; |
657 gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle); |
660 gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle); |
658 gtRope: begin |
661 gtRope: begin |
659 if Gear^.X < CurAmmoGear^.X then |
662 if Gear^.X < CurAmmoGear^.X then |
660 begin |
663 begin |
661 dAngle:= 0; |
664 dAngle:= 0; |
907 else |
911 else |
908 else |
912 else |
909 if HatVisibility > 0.0 then |
913 if HatVisibility > 0.0 then |
910 HatVisibility:= HatVisibility - 0.2; |
914 HatVisibility:= HatVisibility - 0.2; |
911 |
915 |
912 if HatVisibility > 0 then |
916 if (HatTex <> nil) |
|
917 and (HatVisibility > 0) then |
913 if DefaultPos then |
918 if DefaultPos then |
914 DrawTextureF(HatTex, |
919 DrawTextureF(HatTex, |
915 HatVisibility, |
920 HatVisibility, |
916 hwRound(Gear^.X) + 1 + WorldDx, |
921 hwRound(Gear^.X) + 1 + WorldDx, |
917 hwRound(Gear^.Y) - 8 + WorldDy, |
922 hwRound(Gear^.Y) - 8 + WorldDy, |