f_weapon[0]=1
f_weapon[1]=0
f_weapon[2]=0
f_weapon[3]=0
f_weapon[4]=1
f_weapon[5]=1
NowWeapon=0

if keyboard_check_pressed(ord('1'))     
    {
    NowWeapon+=1
    if NowWeapon>5 NowWeapon=0     
    while f_weapon[NowWeapon]=0     
       {     
       NowWeapon+=1     
       }     
    }

for (w=0 w<14 w+=1)
    {
    if f_weapon[w]=1 //если волына под номером w присутствует
       {
       for (e=0 e<14 e+=1)
       {
       enabled[e]=w //присвоить её порядковый номер переменной enable - реестр доступных пух.
       break;
       }
       }
    }
if keyboard_check_pressed(key[9])
       {
       weapon=enabled[next] //пуха равна первой в списке доступных пух
       next+=1
       }

if keyboard_check_pressed(ord('1'))    
       {
       NowWeapon+=1
      if NowWeapon>5 NowWeapon=0    
       while f_weapon[NowWeapon]=0    
          {    
          NowWeapon+=1    
          }    
       show_message('Чему равняется NowWeapon:   ' + string(NowWeapon) + '#Чему равняется f_weapon с индексом NowWeapon:   ' + string(f_weapon[NowWeapon]))
       }

if keyboard_check_pressed(key[9])     
        {
        weapon+=1
        if weapon>14 weapon=0    
        while f_weapon[weapon]=0     
           {     
           weapon+=1
           if weapon>14 {weapon=0 break;}
           }
        }