hedgewars/uWorld.pas
changeset 13638 039ec6dd304b
parent 13637 28e4a9db4690
child 13732 b83154cc8fad
equal deleted inserted replaced
13637:28e4a9db4690 13638:039ec6dd304b
   735             DrawTexture(AmmoRect.x + (AMSlotSize shr 1),
   735             DrawTexture(AmmoRect.x + (AMSlotSize shr 1),
   736                         AmmoRect.y + AmmoRect.h - BORDERSIZE - (AMSlotSize shr 1) - (Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex^.h shr 1),
   736                         AmmoRect.y + AmmoRect.h - BORDERSIZE - (AMSlotSize shr 1) - (Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex^.h shr 1),
   737                         Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
   737                         Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex);
   738             if Ammo^[Slot, Pos].Count < AMMO_INFINITE then
   738             if Ammo^[Slot, Pos].Count < AMMO_INFINITE then
   739                 DrawTexture(AmmoRect.x + AmmoRect.w - 20 - (CountTexz[Ammo^[Slot, Pos].Count]^.w),
   739                 DrawTexture(AmmoRect.x + AmmoRect.w - 20 - (CountTexz[Ammo^[Slot, Pos].Count]^.w),
   740                             AmmoRect.y + AmmoRect.h - BORDERSIZE - (AMslotSize shr 1) - (CountTexz[Ammo^[Slot, Pos].Count]^.w shr 1),
   740                             AmmoRect.y + AmmoRect.h - BORDERSIZE - (AMslotSize shr 1) - (CountTexz[Ammo^[Slot, Pos].Count]^.h shr 1),
   741                             CountTexz[Ammo^[Slot, Pos].Count]);
   741                             CountTexz[Ammo^[Slot, Pos].Count]);
   742 
   742 
   743             if bSelected and (Ammoz[Ammo^[Slot, Pos].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber < 0) then
   743             if bSelected and (Ammoz[Ammo^[Slot, Pos].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber < 0) then
   744                 begin
   744                 begin
   745                 bShowAmmoMenu:= false;
   745                 bShowAmmoMenu:= false;