hedgewars/uWorld.pas
branchhedgeroid
changeset 6344 cba81e10235c
parent 6328 d14adf1c7721
child 6415 af2047bb4f70
equal deleted inserted replaced
6341:ccc0a58e123d 6344:cba81e10235c
   304                         Pos:= t;
   304                         Pos:= t;
   305                         end;
   305                         end;
   306                     inc(g)
   306                     inc(g)
   307                     end;
   307                     end;
   308                 inc(t)
   308                 inc(t)
       
   309                 end;
       
   310             for g:= g to cMaxSlotAmmoIndex do
       
   311                 DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1);
       
   312             DrawSprite(sprAMBorderVertical, x + AMWidth - AMxOffset, y, 1);
       
   313             inc(y, AMSlotSize);
   309             end;
   314             end;
   310 
   315 
   311     DrawSprite(sprAMCorners, x - BORDERSIZE, y, 2);
   316     DrawSprite(sprAMCorners, x - BORDERSIZE, y, 2);
   312     for i:= 0 to cMaxSlotAmmoIndex do
   317     for i:= 0 to cMaxSlotAmmoIndex do
   313 	DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 1);
   318 	DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 1);