Const MAX_WEAPONS=10 Dim Weapons.TWeapon(MAX_WEAPONS) Type TWeapon End Type Type TWeaponPickup End Type Type TWeaponAmmoPickup