[Raiter]

Так пофик нужно прятать/показывать модели. Масив может подойти только для инфы о оружии. Можто тогда сделать так:

Dim Info(2,2)

Info(1,1) = 10 ; Скорость пули для пистолета
Info(1,2) = 5 ; Урон наносимый пулей

Info(2,1) = 20 ; Скорость пули для автомата
Info(2,2) = 10 ; Урон наносимый пулей

Type BulletType
     Field Speed, Damage
End Type

Global HandWeapon = 0
Global Bullet.BulletType

Global Pistaled = LoadMesh("pistaled.nah")
HideEntity Pistolet

Global Aftomad = LoadMesh("aftomad.nah")
HideEntity Aftomad

Function ChangeWeapon()

     If KeyDown(2) And HandWeapon <> 1 Then
		HideEntity Aftomad
                      
                      HandWeapon = 1

		ShowEntity Pistaled
     End If

     If KeyDown(3) And HandWeapon <> 2 Then
		HideEntity Pistaled
                      
                      HandWeapon = 2

		ShowEntity Aftomad
     End If

End Function 

Function CreateBullet()
     Bullet = New BulletType
     Bullet\Speed = Info(HandWeapon,1)
     Bullet\Damage = Info(HandWeapon,2)
End Function

Но кому как больше нравится...

а чо эта тема в 2д програминге?