hedgewars/uWorld.pas
changeset 2581 10f03732ea60
parent 2580 aeccc8f51d3f
child 2590 e7e87e3c67db
equal deleted inserted replaced
2580:aeccc8f51d3f 2581:10f03732ea60
   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);
   132 			DrawSprite(sprAMSlotKeys, x + 2, y + 1, i);
   132 			DrawSprite(sprAMSlotKeys, x + 2, y + 1, i);
   133 			t:= 0;
   133 			t:= 0;
   134             g:= 0;
   134                         g:= 0;
   135 			while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do
   135 			while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do
   136 				begin
   136 				begin
   137 				if (Ammo^[i, t].AmmoType <> amNothing) then
   137 				if (Ammo^[i, t].AmmoType <> amNothing) then
   138 					begin
   138 					begin
   139 					l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;
   139 					l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber;
   343 //glScalef(1.0, 1.0, 1.0);
   343 //glScalef(1.0, 1.0, 1.0);
   344 
   344 
   345 {$IFDEF IPHONEOS}
   345 {$IFDEF IPHONEOS}
   346 {* see the code in MainLoop *}
   346 {* see the code in MainLoop *}
   347 SDL_GetMouseState(0, @x, @y);
   347 SDL_GetMouseState(0, @x, @y);
   348 //if ((x > 100) and (x <= 220) and (y > 200) and (y <= 280)) and bShowAmmoMenu <> false then
   348 if ((x > 50) and (x <= 270) and (y > 50) and (y <= 430)) then
   349 {$ENDIF}
   349 {$ENDIF}
   350 if not isPaused then MoveCamera;
   350 if not isPaused then MoveCamera;
   351 
   351 
   352 if not cReducedQuality then
   352 if not cReducedQuality then
   353     begin
   353     begin