Option Explicit

'*************************
'AUTOR: G TOYZ - TOYZ - LUCIANO
'FECHA: 12/01
'RESPETAR CRÉDITOS EN CASO DE USAR EL SISTEMA Y EN UNA PUBLICIDAD _
'MENCIONAR LAS IMPLEMENTACIONES DEL SERVIDOR, SI ESTA SE INCLUYE, DEJE CRÉDITOS. GRACIAS.
'-------------------
'*************************

Private CantidadDeMisioneros As Byte        '<--- LA CANTIDAD TOTAL DE MISIONEROS

Private Enum eTipoMisioneros
    Negro = 1       ' Ilegal
    Blanco             ' Legal
End Enum

Private Enum eBuffs
    HappyHour_EXP = 1       'Mayor experiencia. (INFLUYE EN LAS MISIONES HASTA PUEDE DUPLICARSE LA ACTUAL HAPPYHOUR EN CASO DE QUE SEA EL MISMO PREMIO EN OTRA MISIÓN)
    HappyHour_ORO             'Lo mismo que el de arriba pero con las palabras ORO
    Descuento                       'Descuento en el vendedor del misionero.
    MenosTiempo                 'Menos tiempo en los counters: Inmovilizar, envenenamiento
    MasTiempo                   'Mas tiempo en los counters: Fuerza, celeridad, invisibilidad, hambre, sed, energía
End Enum

Private Type tRecompensa
    Oro As Long             'Oro de la recompensa
    Objeto() As Obj       'Objetos de la recompensa
    Buffs() As eBuffs       'Buffs que se le pueden dar al usuario
End Type

Private Type tMatarUsuario
    ID As Integer               'ID del usuario a matar
    Pos As Integer ' <--- Mapa donde se encuentra (Se actualiza cada vez que se va del mapa) :)
End Type

Private Type tMatarNPCObjeto
    Objetos As Obj          'El objeto
    LoTiene As Boolean    '¿Lo consiguió?
End Type

Private Type tNPC
    ID As Integer   'ID del NPC
    Pos As Integer 'Solo el mapa
End Type

Private Type tMatarNPC
    Cantidad As Byte '<--- Cantidad de NPC's que tiene que matar para conseguir los objetos
    Objeto() As tMatarNPCObjeto
    npc As tNPC
End Type

Private Type tMensajero
    Mensaje As String   'El mensaje
    ID As Integer   'ID del NPC o usuario.
    Usuario As Boolean '¿Es un usuario? si no lo es entonces es un NPC al que tiene que ir.
    Pos As Integer '<---- Mapa en donde se encuentra el Usuario o NPC.
End Type

Private Type tComprarObjeto
    Objeto() As Obj
    Oro As Long
    ID As Integer
End Type

Private Type tObjetivo
    MatarUsuario As tMatarUsuario
    MatarNPC As tMatarNPC
    Mensajero As tMensajero
    ComprarObjeto() As tComprarObjeto
End Type

Private Type tMision
    Recompensa As tRecompensa         'La recompensa.
    Objetivo As tObjetivo                   'Objetivo
    Costo As Long                               'En caso de que la arme un usuario (EN ORO)
    Tiempo As Integer                           'Tiempo que tiene para hacer la misión.
End Type

Private Type tReservacion
    Objeto() As Obj     'Todos los objetos en reserva
    Oro As Long           'El oro total
    Misionero As Byte   'Misionero al que se lo reservó
End Type

Private Type tVenta
    Objeto As Obj
    Oro As Long
End Type

Private Type tVendedor
    ID As Integer
    Pos As WorldPos
    Reservacion() As tReservarcion
    Objeto() As tVenta
End Type

Private Type tDatosHombre
    ID As Integer
    Reputacion As Integer
    EnMision As Boolean
End Type

Private Type tHombre
    MatadorDeNPC As tDatosHombre
    Mensajero As tDatosHombre
    MatadorUsuarios As tDatosHombre
    CompradorObjetos As tDatosHombre
End Type

Private Type tArmarObjeto
    ID As Integer
    LoTiene As Boolean
End Type

Private Type tMisionero
    Hombre() As tHombre
    Mision() As tMision
    Objeto() As Obj
    ArmarObjeto() As tArmarObjeto
    Vendedor As tVendedor
    Sastre As tNPC
    Herrero As tNPC
    Tipo As eTipoMisioneros
    Pos As WorldPos
    Oro As Long
    ID As Integer
End Type

Private Misionero() As tMisionero