Retos X vs X

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 = 3
Private Const INDEX_POTION_RED  As Integer = 1
Private Const MAX_GOLD          As Long = 20000000
Private Const MIN_GOLD          As Integer = 20000
Private Const MIN_LEVEL         As Byte = 40
Private Const MAP_ITEMS_RETO    As Integer = 1
Private Const INDEX_BANKER      As Byte = 24
Private Const COUNT_RETOS       As Byte = 3

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
    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.
    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 Arena
    Pos(1 To 2)                 As pArenas  '// Posiciones de cada equipo.
    Count                       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?
End Type

Private Type Retos  'Retos
    Teams(1 To 2)               As tRetos   '// Cantidad de equipos.
    Arenas(1 To MAX_ARENAS)     As Arena    '// Cantidad de arenas.
    MAP_Arena                   As Byte     '// Mapa de cada arena. (RETO)
End Type

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