Так пофик нужно прятать/показывать модели. Масив может подойти только для инфы о оружии. Можто тогда сделать так:
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д програминге?