retos infinitos

Option Explicit

'********************************************************************************
'                                                                               *
'@@ Retos X vs X                                                                *
'@@ Info: los X los puede elegir el usuario o pueden ser fijos (a su elección)  *
'@@ Autor: G Toyz - Luciano                                                     *
'@@ Fecha: 06/10                                                                *
'@@ Creación: 23:17                                                             *
'                                                                               *
'********************************************************************************

Private Const MAX_ARENAS        As Byte = 10        '@@ Cantidad de arenas. _
                                                        Cuidado con cuantas poner, es cantidad de arenas por mapas.
Private Const INDEX_POTION_RED  As Integer = 1      '@@ Índice de la poción roja.
Private Const MAX_GOLD          As Long = 20000000  '@@ Máximo oro para retar.
Private Const MIN_GOLD          As Integer = 20000  '@@ Mínimo oro para retar.
Private Const MIN_LEVEL         As Byte = 40        '@@ Mínimo nivel para retar.
Private Const INDEX_BANKER      As Byte = 24        '@@ Índice del banquero.
Private Const COUNT_RETOS       As Byte = 4         '@@ MODALIDADES: 1VS1, 2VS2, 3VS3, 4VS4 = 4 MODALIDADES

Private Type uRetos 'Usuarios
    ID                          As Integer  '// ID de cada usuario (UserIndex)
    Pos                         As WorldPos '// Posición de cada usuario.
End Type

Private Type tRetos 'Teams
    Rounds                      As Byte     '// Cantidad de rondas ganadas.
    Users()                     As uRetos   '// Cantidad de usuarios.
    Deaths                      As Byte     '// Cantidad de muertes.
    Arena                       As Byte     '// ¿Qué arena están utilizando?.
End Type

Private Type pArenas 'Posiciones.
    X                           As Byte     '// Posición X de cada arena.
    Y                           As Byte     '// Posición Y de cada arena.
    DeathX                      As Byte     '// Posición X de muerte de cada arena.
    DeathY                      As Byte     '// Posición Y de muerte de cada arena.
End Type

Private Type Arena 'Arena
    Pos(1 To 2)                 As pArenas  '// Posiciones de cada equipo.
    CountDown                   As Integer  '// Cuenta regresiva de la arena.
    Occupied                    As Boolean  '// ¿Arena ocupada?
    Gold                        As Long     '// ¿Cuánto oro hay en juego?
    Items                       As Boolean  '// ¿Caen los items en esa arena?
    X_Items                     As Byte     '// Posición X donde caen los items.
    Y_Items                     As Byte     '// Posición Y donde caen los items.
End Type

Private Type Retos  'Retos
    Teams(1 To 2)               As tRetos   '// Cantidad de equipos.
    Arena(1 To MAX_ARENAS)      As Arena    '// Cantidad de arenas.
    MAP_Reto                    As Integer  '// Mapa en donde se realizan los retos. (RETO)
End Type

Private Retos(1 To COUNT_RETOS) As Retos    '// Cantidad de retos.
'_