hedgewars/uWorld.pas
changeset 2765 8a5685581aeb
parent 2762 2fbc8d35eb52
child 2786 85f6425a4d74
equal deleted inserted replaced
2764:2613de505d8d 2765:8a5685581aeb
   162 					l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;
   162 					l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;
   163 
   163 
   164 					if l >= 0 then
   164 					if l >= 0 then
   165 						begin
   165 						begin
   166 						DrawSprite(sprAMAmmosBW, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);
   166 						DrawSprite(sprAMAmmosBW, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);
   167 						DrawSprite(sprTurnsLeft, x + g * 33 + 51, y + 17, l);
   167                         if l < 100 then DrawSprite(sprTurnsLeft, x + g * 33 + 51, y + 17, l);
   168 						end else
   168 						end else
   169 						DrawSprite(sprAMAmmos, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);
   169 						DrawSprite(sprAMAmmos, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1);
   170 					if (Slot = i)
   170 					if (Slot = i)
   171 					and (CursorPoint.X >= x + g * 33 + 35)
   171 					and (CursorPoint.X >= x + g * 33 + 35)
   172 					and (CursorPoint.X < x + g * 33 + 68) then
   172 					and (CursorPoint.X < x + g * 33 + 68) then