You can use arrays in your custom types.
Full version here http://www.hpquest.com/techlord/apps/AOBPwB3D/
Dim alien_ID.alien(ALIEN_MAXCOUNT%) alien_ID(1)=alienNew() alien_ID(1)\x#=1.0 alienposx = alien_ID(1)\x# myalien.alien = alien_ID(1) ;Alternative Blitz Array Global alien_ID.alien[ALIEN_MAXCOUNT%] alien_ID[1]=alienNew() alien_ID[1]\x#=1.0 alienposx = alien_ID[1]\x# myalien.alien = alien_ID[1]
Full version here http://www.hpquest.com/techlord/apps/AOBPwB3D/