[Raiter]

Diplomat, угу. Накосячил Конечно же лучше юзать GetKey, чем писать 9 проверок

Но если уж делать всё помельче, то имхо лучше всё в 1 масив забить...

Const MaxWeapons = 2

Dim Weapon(MaxWeapons,3)

Weapon(1,1) = LoadMesh("pistaled.nah")
Weapon(1,2) = 10; Скорость пули 
Weapon(1,3) = 5 ;  Урон наносимый пулей

Weapon(2,1) = LoadMesh("aftomad.nah")
Weapon(2,2) = 20 ; Скорость пули 
Weapon(2,3) = 10 ;  Урон наносимый пулей

HideEntity Weapon(1,1)
HideEntity Weapon(2,1)

Type BulletType
     Field Speed, Damage
End Type

Global CurrentWeapon = 0
Global Bullet.BulletType

Function ChangeWeapon()

       Key = GetKey() - 48
       
       If Key => 1 And Key <> CurrentWeapon And Key <= MaxWeapons Then

                HideEntity Weapon(CurrentWeapon,1)
                CurrentWeapon = Key
                ShowEntity Weapon(CurrentWeapon,1)
                
       End IF

End Function 

Function CreateBullet()
     Bullet = New BulletType
     Bullet\Speed = Weapon(CurrentWeapon,2)
     Bullet\Damage = Weapon(CurrentWeapon,3)
End Function