hedgewars/uWorld.pas
changeset 2361 f980f40e83f5
parent 2360 d4d545da9dbe
child 2372 f3e7a066c2b8
equal deleted inserted replaced
2360:d4d545da9dbe 2361:f980f40e83f5
   121 	dec(y);
   121 	dec(y);
   122 	DrawSprite(sprAMBorders, x, y, 1);
   122 	DrawSprite(sprAMBorders, x, y, 1);
   123 	dec(y, 33);
   123 	dec(y, 33);
   124 	DrawSprite(sprAMSlotName, x, y, 0);
   124 	DrawSprite(sprAMSlotName, x, y, 0);
   125 	for i:= cMaxSlotIndex downto 0 do
   125 	for i:= cMaxSlotIndex downto 0 do
   126 		if (Ammo^[i, 0].Count > 0) then
   126 		if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then
   127 			begin
   127 			begin
   128 			if (cScreenHeight - CursorPoint.Y >= y - 33) and (cScreenHeight - CursorPoint.Y < y) then Slot:= i;
   128 			if (cScreenHeight - CursorPoint.Y >= y - 33) and (cScreenHeight - CursorPoint.Y < y) then Slot:= i;
   129 			dec(y, 33);
   129 			dec(y, 33);
   130 			inc(SlotsNum);
   130 			inc(SlotsNum);
   131 			DrawSprite(sprAMSlot, x, y, 0);
   131 			DrawSprite(sprAMSlot, x, y, 0);