hedgewars/uWorld.pas
changeset 2971 c65929077646
parent 2970 011075f93746
child 2999 30c4d62cd0c3
equal deleted inserted replaced
2970:011075f93746 2971:c65929077646
   199    Ammo:= CurrentHedgehog^.Ammo
   199    Ammo:= CurrentHedgehog^.Ammo
   200 else if (LocalAmmo <> -1) then
   200 else if (LocalAmmo <> -1) then
   201    Ammo:= GetAmmoByNum(LocalAmmo);
   201    Ammo:= GetAmmoByNum(LocalAmmo);
   202 Slot:= 0;
   202 Slot:= 0;
   203 Pos:= -1;
   203 Pos:= -1;
   204 if Ammo = nil then exit;
   204 if Ammo = nil then
       
   205     begin
       
   206     bShowAmmoMenu:= false;
       
   207     exit
       
   208     end;
   205 SlotsNum:= 0;
   209 SlotsNum:= 0;
   206 x:= (cScreenWidth shr 1) - 210 + AMxShift;
   210 x:= (cScreenWidth shr 1) - 210 + AMxShift;
   207 y:= cScreenHeight - 40;
   211 y:= cScreenHeight - 40;
   208 dec(y);
   212 dec(y);
   209 DrawSprite(sprAMBorders, x, y, 0);
   213 DrawSprite(sprAMBorders, x, y, 0);