Declares.bas

Attribute VB_Name = "Declaraciones"
' Argentum 20 Game Server
'
'    Copyright (C) 2023 Noland Studios LTD
'
'    This program is free software: you can redistribute it and/or modify
'    it under the terms of the GNU Affero General Public License as published by
'    the Free Software Foundation, either version 3 of the License, or
'    (at your option) any later version.
'
'    This program is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU Affero General Public License for more details.
'
'    You should have received a copy of the GNU Affero General Public License
'    along with this program.  If not, see <https://www.gnu.org/licenses/>.
'
'    This program was based on Argentum Online 0.11.6
'    Copyright (C) 2002 Márquez Pablo Ignacio
'
'    Argentum Online is based on Baronsoft's VB6 Online RPG
'    You can contact the original creator of ORE at aaron@baronsoft.com
'    for more information about ORE please visit http://www.baronsoft.com/
'
'
'
Option Explicit

''
' Modulo de declaraciones. Aca hay de todo.
'

Public Enum e_WorkingToolSubType
        FishingRod = 1
        FishingNet = 2
        AlchemyScissors = 3
        AlchemyCauldron = 4
        CarpentryHacksaw = 5
        FellingAxe = 6
        SmithHammer = 7
        MinerPickaxe = 8
        TailorSewingbox = 9
End Enum


Public Enum e_PotionType
    ModifiesAgility = 1
    ModifiesStrength = 2
    ModifiesHp = 3
    ModifiesMp = 4
    HealsPoison = 5
    HealsParalysis = 6
    ModifiesStamina = 7
    ModifiesHeadRandom = 8
    ModifiesSex = 9
    TurnsYouInvisible = 10
    'ScrollExperience = 11
    'ScrollGold = 12
    HealsAllStatusEffects = 13
    'libre = 14
    'ModifiesOxygen = 15
    ModifiesMarriage = 16
    ModifiesHeadRandomLegendary = 17
    ModifiesParticlesTemporary = 18
    'ResetSkills = 19
    'ExpandsInventory = 20
    SuicidePotion = 21
    'ResetCharacter = 22
    AppliesEffectOverTime = 23
End Enum

Public Enum e_AccionBarra
    Runa = 1
    Resucitar = 2
    Intermundia = 3
    GoToPareja = 5
    Hogar = 6
    CancelarAccion = 99
End Enum

Public Enum e_RoyalArmyRanks
    NotEnlisted = 0
    FirstHierarchy = 1
    SecondHierarchy = 2
    ThirdHierarchy = 3
    FourthHierarchy = 4
    FifthHierarchy = 5
    SixthHierarchy = 6
    SeventhHierarchy = 7
End Enum

Public Enum e_ChaosArmyRanks
    NotEnlisted = 0
    FirstHierarchy = 1
    SecondHierarchy = 2
    ThirdHierarchy = 3
    FourthHierarchy = 4
    FifthHierarchy = 5
    SixthHierarchy = 6
    SeventhHierarchy = 7
End Enum

Public Enum e_elecciones
    HayGanador = 1
    HayGanadorPeroAbandono = 2
    HuboEmpate = 3
    NoVotos = 4
    AbroElecciones = 5
End Enum

Public Enum tMacro
    dobleclick = 1
    Coordenadas = 2
    inasistidoPosFija = 3
    borrarCartel = 4
End Enum

Public Enum e_WeaponType
    eSword = 1
    eDagger = 2
    eBow = 3
    eStaff = 4
    eMace = 5
    eThrowableAxe = 6
    eAxe = 7
    eKnuckle = 8
    eFist = 9
    eSpear = 10
    eGunPowder = 11
    eWeaponTypeCount
End Enum

Public Enum e_Facciones
    Criminal = 0
    Ciudadano = 1
    Caos = 2
    Armada = 3
    concilio = 4
    consejo = 5
End Enum

Public Enum e_InteractionResult
    eInteractionOk
    eOposingFaction
    eCantHelpCriminal
    eCantHelpCriminalClanRules
    eCantHelpUsers
    eDifferentTeam
End Enum

Public Enum e_AttackInteractionResult
    eCanAttack
    eRemoveSafe
    eSameGroup
    eSameGuild
    eSameFaction
    eDeathTarget
    eDeathAttacker
    eFightActive
    eTalkWithMaster
    eAttackerIsCursed
    eMounted
    eSameTeam
    eNotEnougthPrivileges
    eSameClan
    eSafeArea
    eCreatureInmunity
    eInvalidPrivilege
    eInmuneNpc
    eOutOfRange
    eOwnPet
    eCantAttackYourself
    eRemoveSafeCitizenNpc
    eAttackCitizenNpc
    eAttackSameFaction
    eAttackPetSameFaction
End Enum

Public Enum e_DeleteSource
    eNone
    eDie
    eKillecByNpc
    eKilledByPlayer
    eGMCommand
    eResetPos
    eReleaseAll
    eFailToFindSpawnPos
    eFailedToWarp
    eRemoveWarpPets
    eClearPlayerPets
    eNewPet
    eSummonNew
    eStorePets
    ePetLeave
    eChallenge
    eClearInvasion
    eAiResetNpc
    eClearHunt
End Enum

Public lstUsuariosDonadores()        As String
Public Administradores               As clsIniManager


Public Enum e_SoundIndex
    MUERTE_HOMBRE = 11
    MUERTE_MUJER = 74
    FLECHA_IMPACTO = 65
    CONVERSION_BARCO = 55
    SOUND_COMIDA = 7
End Enum

Public SvrConfig            As ServerConfig
Public Md5Cliente           As String
Public PrivateKey           As String
Public HoraActual           As Integer
Public UltimoChar           As String
Public LastRecordUsuarios   As Integer
Public GlobalFrameTime      As Long
Public EventoExpMult        As Integer
Public EventoOroMult        As Integer
Public CuentaRegresivaTimer As Byte
Public cuentaregresivaOrcos As Integer
Public PENDIENTE            As Integer
Type t_EstadisticasDiarias
    segundos As Double
    MaxUsuarios As Integer
    Promedio As Integer
End Type

Public DayStats       As t_EstadisticasDiarias
Public aClon          As New clsAntiMassClon
Public TrashCollector As New Collection
Public Const MAXSPAWNATTEMPS = 15
Public Const INFINITE_LOOPS As Integer = -1
Public Const FXSANGRE = 14
''
' The color of chats over head of dead characters.
Public Const CHAT_COLOR_DEAD_CHAR As Long = &HC0C0C0
''
' The color of yells made by any kind of game administrator.
Public Const CHAT_COLOR_GM_YELL   As Long = &HF82FF
''
' Coordinates for normal sounds (not 3D, like rain)
Public Const NO_3D_SOUND          As Byte = 0
Public Const iFragataFantasmal = 87 'ok
Public Const iTraje = 694 'Traje +25
Public Const iTrajeAltoNw = 1295 'Traje -25 alto
Public Const iTrajeBajoNw = 1296 'Traje -25 enano
Public Const iObjTraje = 197
Public Const iObjTrajeAltoNw = 199
Public Const iObjTrajeBajoNw = 200
Public Const iBarca = 84
Public Const iBarcaCiuda = 1265
Public Const iBarcaCrimi = 1266
Public Const iGalera = 85
Public Const iGaleraCiuda = 1267
Public Const iGaleraCrimi = 1268
Public Const iGaleon = 86
Public Const iGaleonCiuda = 1269
Public Const iGaleonCrimi = 1270
Public Const iBarcaArmada = 1273
Public Const iBarcaCaos = 1274
Public Const iGaleraArmada = 1271
Public Const iGaleraCaos = 1272
Public Const iGaleonArmada = 1264
Public Const iGaleonCaos = 1263

Public MapasInterdimensionales() As Integer
Public MapasEventos()            As Integer
Public MapasNoDrop()             As Integer

Public Enum e_Minerales
    Coal = 3391
    HierroCrudo = 192
    PlataCruda = 193
    OroCrudo = 194
    LingoteDeHierro = 386
    LingoteDePlata = 387
    LingoteDeOro = 388
    Blodium = 3787
    FireEssence = 5179
    WaterEssence = 5180
    EarthEssence = 5181
    WindEssence = 5182
End Enum

Public Enum e_JobsTypes
    Miner = 1
    Blacksmith = 2
    Carpenter = 3
    Woodcutter = 4
    Fisherman = 5
    Alchemist = 6
End Enum

Public Type t_LlamadaGM
    Usuario As String * 255
    Desc As String * 255
End Type

Public Type t_AttackInteractionResult
    Result As e_AttackInteractionResult
    TurnPK As Boolean
    CanAttack As Boolean
End Type

Public Enum e_PlayerType
    User = &H1
    RoleMaster = &H2
    Consejero = &H4
    SemiDios = &H8
    Dios = &H10
    Admin = &H20
End Enum

Public Enum e_Class
    Mage = 1    'Mago
    Cleric      'Clérigo
    Warrior     'Guerrero
    Assasin     'Asesino
    Bard        'Bardo
    Druid       'Druida
    Paladin     'Paladín
    Hunter      'Cazador
    Trabajador  'Trabajador
    Pirat       'Pirata
    Thief       'Ladron
    Bandit      'Bandido
End Enum

Public Enum e_Ciudad
    cUllathorpe = 1
    cNix
    cBanderbill
    cLindos
    cArghal
    cArkhein
    cForgat
    cEldoria
    cPenthar
End Enum

Public Enum e_Raza
    Humano = 1
    Elfo
    Drow
    Gnomo
    Enano
    Orco
End Enum

Public RaceHeightOffset(1 To Orco) As Integer
Enum e_Genero
    Hombre = 1
    Mujer
End Enum

Public Enum e_ClanType
    ct_Neutral
    ct_ArmadaReal
    ct_LegionOscura
    ct_GM
End Enum

Public Enum e_DamageType
    eMeleeHit
    eRangedHit
    eMagicSpell
    eDot
End Enum

Public Const LimiteNewbie As Byte = 12

Public Type t_Cabecera 'Cabecera de los con
    Desc As String * 255
    crc As Long
    MagicWord As Long
End Type

Public MiCabecera                    As t_Cabecera
Public Const NingunEscudo            As Integer = 2
Public Const NingunCasco             As Integer = 2
Public Const NingunArma              As Integer = 2
Public Const NoCart                  As Integer = 2
Public Const NoBackPack              As Integer = 2
Public Const EspadaMataDragonesIndex As Integer = 402
Public Const CommonLuteIndex         As Integer = 3986
Public Const MagicLuteIndex          As Integer = 469
Public Const ElvenLuteIndex          As Integer = 41
Public Const FireEcoIndex            As Integer = 61
Public Const MauveFlashIndex         As Integer = 62
Public Const MAXMASCOTASENTRENADOR   As Byte = 7

Public Enum e_SoundEffects
    LaughingScream = 1
    Ctrl = 2
    GmWarp = 3
    PigHoink = 4
    OpeningDoor = 5
    OldLevelUp = 6
    FoodCrunch = 7
    MooingCow = 8
    OldCryingWolf = 9
    OldConnectedHit = 10
    DieScreamMale = 11
    OldConnectedHitNpcs = 12
    OldTreeFell = 13
    OldFishingReel = 14
    OldMiningPickaxeHit = 15
    OldInmo = 16
    OldCeleridad = 17
    OldCurarGraves = 18
    OldFlechaElectrica = 19
    OldResucitar = 20
    BirdTweeting = 21
    BirdTweeting2 = 22
    OldWalkSound = 23
    OldWalkSound2 = 24
    SeatheWeapon = 25
    BuzzingMosquitoes = 26
    OldTormentaDeFuego = 27
    OldCricket = 28
    BirdTweeting3 = 29
    PainGreatDragon = 30
    PainGreatDragon2 = 31
    PainGreatDragon3 = 32
    DieGreatDragon = 33
    PainScreamZombie = 34
    BirdTweeting4 = 35
    OldParalize = 36
    OldShieldCling = 37
    OldBardLute = 38
    OldBardLuteClick = 39
    OldBardLuteClick2 = 40
    OldFabricateBlacksmith = 41
    OldFabricateCarpenter = 42
    OldClanHorn = 43
    OldNewClanFounded = 44
    OldClanWarDeclaration = 45
    OldPotionChug = 46
    PainScreamBunny = 47
    OldJoinFaction = 48
    OldBardLuteClick3 = 49
    OldWaterWaves = 50
    OldPanFlute = 51
    BuzzingFlies = 52
    ScreamEagle = 53
    PainLeviathan = 54
    OldNetReel = 55
    HorseNeigh = 56
    HorseNeigh2 = 57
    BellsDongling = 58
    OldPainLeviathan = 59 'sin uso
    CrowsCawing = 60
    CrowsCawing2 = 61
    CrowsCawing3 = 62
    OldTailorScissors = 63
    OldTreeFellFail = 64
    EventJoinBAO = 65
    Bats = 66
    Rooster = 67
    HorseRide = 68
    OldWalkSoundGrass = 69
    HorseRide2 = 70
    HorseRide3 = 71
    WomanScream = 72
    MonkeyScream2 = 73
    DieScreamFemale = 74
    DieScreamMale2 = 75
    KnockKnock = 76
    PoteciandoFalling = 77
    PainScreamBear = 78
    PainScreamGolem = 79
    RainFall = 80
    WolfHowling = 81
    FoodCrunch2 = 82
    MonkeyScream = 83
    MonkeyLaugh = 84
    MonkeyLaugh2 = 85
    BuzzingMosquitoLong = 86
    WaterWavesRoaring = 87
    WaterWavesRoaring2 = 88
    DieBear = 89
    Sheep = 90
    Goat = 91 'messi
    MonkeyMacabreLaugh = 92
    Pigeon = 93
    WalkGravel = 94
    QuackingDuck = 95
    QuackingDuck2 = 96
    BarkingDog = 97
    PigHoink2 = 98
    PretorianLaugh = 99
    DieDaemon = 100
    FrogCroack = 101
    FrogCroack2 = 102
    'raro = 103
    Coughing = 104
    Thunder = 105
    BAOLevelUp = 106
    HowlingWind = 107
    HowlingWind2 = 108
    OminousEcho = 109
    OldRemoverParalisis = 110
    OldMisilMagico = 111
    OldFuerza = 112
    OldRayoElemental = 113
    OldDardoMagico = 114
    OldFabricatePotions = 115
    Flames = 116
    OldResurrectedBypriest = 117
    RandomScream = 118
    PainScreamMale = 119
    HolyChants = 120
    'raro = 121
    BAOLegionHorn = 122
    BAOLegionHorn2 = 123
    Lobo_Sound = 124
    RatsSqueack = 125
    BAOApunialar = 126
    HissSerpent = 127
    HissSerpetn2 = 128
    HowlingWolves = 129
    Sheep2 = 130
    Crickets = 131
    Dropeo_Sound = 132
    OldPainScreamMedusa = 133
    'feo = 134
    NewPotionChug = 135
    SwordClash = 136
    Gallo_Sound = 137
    PainScreamBear2 = 138
    BAOLeaviathan = 139
    'Sin uso = 140
    PainScreamLynn = 141
    DieCock = 142
    'feo = 143
    MacabreFemaleLaughing = 144
    MacableDemonLaughing = 145
    HolyCrescendo = 146
    HolyCrescendo2 = 147
    HolyCrescendo3 = 148
    BAOWalkAstaroth = 149
    BellRing = 150
    WaterMoving = 151
    DruidFlute = 152
    DruidFlute2 = 153
    DruidFlute3 = 154
    DieHuscar = 155
    MacabreDemonLaugh = 156
    Fart = 157
    MeditationSound = 158
    'Libre = 159
    'Libre = 160
    Casamiento_sound = 161
    OldApocalipsis = 162
    'Libre = 163 to 167
    PainScreamUndead = 168
    'Libre = 169
    'Libre = 170
    VaultOpeningSound = 171
    'Libre = 172 to 179
    NewApunialar2 = 180
    'Libre = 181 to 187
    'Repetido OldRemoverParalisis = 188
    'Libre = 189
    'Libre = 190
    RainStart = 191
    RainFinishing = 192
    'feo = 193
    RainMiddle = 194
    RainMiddle2 = 195
    'Libre = 196
    OldWalkDirt = 197
    OldWalkDirt2 = 198
    'raro = 199
    OldWalkSand = 200
    OldWalkSand2 = 201
    BARCA_SOUND = 202
    BAOEquipBodyArmour = 203
    BAONpcWalkOnSand = 204
    BAONpcWalkOnSand2 = 205
    'raro = 206
    'raro = 207
    BaoEquipWeapon = 208
    WaterDrop = 209
    'raro = 210
    'raro = 211
    'Libre = 212 to 229
    TypeWriter = 230
    AlientoDeDragon = 231
    'Libre = 232 to 237
    DivineBloodActivation = 238
    'Libre = 239 to 248
    DovuArrow = 249
    'Libre = 250
    WarriorWarScream = 251
    'Libre = 252 to 253
    AtomicBomb = 264
    'Libre = 265 TO 311
    GunShot2 = 312
    'Libre 313 TO 344
    PainScreamNagas = 345
    'Libre = 346
    'Libre = 347
    'Libre = 348
    WitheringBodySound = 349
    'Libre = 350 to 357
    WitheringBodySound2 = 358
    'Libre 359 to 374
    Fireworks = 375
    Fireworks2 = 376
    'Libre = 377 to 379
    Chains = 380
    'Libre = 381 to 399
    Thunder3 = 400
    Thunder4 = 401
    Thunder5 = 402
    Thunder6 = 403
    Thunder7 = 404
    Thunder8 = 405
    Thunder9 = 406
    'Libre = 407 to 447
    FulgorIgneo = 448
    'raro = 449
    'Libre = 450
    'raro = 451
    'Libre = 452
    OpenChest = 453
    'Libre = 454 to 462
    RuneArrival = 463
    'Libre = 464 to 480
    IAOPotionChug = 481
    'Libre = 482 to 499
    MenuSelect = 500
    MenuSelect2 = 501
    'Libre = 502 to 519
    OldDescargaElectrica = 520
    'Libre = 521
    IngameDirectMessage = 522
    'Libre = 523 to 527
    RUNE_SOUND = 528
    'Libre = 529 to 553
    NewLevelUp = 554
    FlareActivation = 555
    'Repetido = 1152
    SnowStorm = 2000
    'Imperium 2028 - 2186
    FailToExtractOre = 2185
    NewApunialar = 2187
    MortarLaunch = 2222
    RoarDinosaur = 2323
    RoarVelociraptor = 2525
    GunShot = 2541
    DogSuffering = 2626
    Aturdir = 2627
    ResplandoIgneo = 2628
    CronicaTv = 9999
    CupDice = 10000
End Enum

'Meditaciones
Public MeditationLevel1to12 As Integer
Public MeditationLevel13to17 As Integer
Public MeditationLevel18to24 As Integer
Public MeditationLevel25to28 As Integer
Public MeditationLevel29to32 As Integer
Public MeditationLevel33to36 As Integer
Public MeditationLevel37to39 As Integer
Public MeditationLevel40to42 As Integer
Public MeditationLevel43to44 As Integer
Public MeditationLevel45to46 As Integer
Public MeditationLevelMax As Integer
'Meditaciones criminales
Public MeditationCriminalLevel1to12 As Integer
Public MeditationCriminalLevel13to17 As Integer
Public MeditationCriminalLevel18to24 As Integer
Public MeditationCriminalLevel25to28 As Integer
Public MeditationCriminalLevel29to32 As Integer
Public MeditationCriminalLevel33to36 As Integer
Public MeditationCriminalLevel37to39 As Integer
Public MeditationCriminalLevel40to42 As Integer
Public MeditationCriminalLevel43to44 As Integer
Public MeditationCriminalLevel45to46 As Integer

Public Enum e_GraphicEffects 'Image sequenced fxs like paralizar PrepareMessageCreateFX() or family of functions CreateFX()
    OldGmWarp = 1
    OldCurarVeneno = 2
    OldFuerza = 3
    ApocalipsisAtomicBomb = 4
    AntraxAtomicBomb = 5
    ToxinRed = 6
    OldTormentaDeFuego = 7
    OldParalizar = 8
    OldCurarGraves = 9
    OldMisilMagico = 10
    OldDescargaElectrica = 11
    OldInmovilizar = 12
    OldApocalipsis = 13
    OldApunialar = 14
    OldFuegoFatuo = 15
    'Libre = 16
    ToxinPurple = 17
    ApocalipsisRealista = 18
    BubblesBlue = 19
    JuicioFinal = 20
    TormentaDeFuegoRealista = 21
    BubblesRed = 22
    BubblesPurpleCircle = 23
    HaloExpansion = 24
    OldFlechaElectrica = 25
    'Libre = 26
    'Libre = 27
    'Libre = 28
    'Libre = 29
    ModernGmWarp = 30
    'Libre = 31
    'Libre = 32
    'Libre = 33
    'Libre = 34
    'Libre = 35
    'Libre = 36
    'Libre = 37
    'Libre = 38
    'Libre = 39
    'Libre = 40
    'Libre = 41
    'Libre = 42
    ExplosionMulticolor = 43
    'Libre = 44
    BansheeLament = 45
    Invisibilidad = 46
    'Libre = 47
    'Libre = 48
    'Libre = 49
    BombaMagica = 50
    'Libre = 51
    'Libre = 52
    'Libre = 53
    'Libre = 54
    ExpansiveGreen = 55
    Petrificar = 56
    ExpansiveGreen2 = 57
    ExpansiveGreen3 = 58
    ExpansiveGreen4 = 59
    ExpansiveGreen5 = 60
    ExpansiveGreen6 = 61
    TorpezaBAO = 62
    'Libre = 63
    'Libre = 64
    RisingSmokePurple = 65
    'Libre = 66
    'Libre = 67
    'Libre = 68
    'Libre = 69
    'Libre = 70
    'Libre = 71
    'Libre = 72
    RisingSmokeGray = 73
    RisingSmokeGray2 = 74
    FractalDiscoBall = 75
    TormentaDeFuegoBAO = 76
    SmokeWavesPurple = 77
    'Libre = 78
    'Libre = 79
    'Libre = 80
    ParalizarBAO = 81
    'Libre = 82
    'Libre = 83
    'Libre = 84
    SomeExplosionGreen = 85
    StarDrop = 86
    GoldDrop = 87 'IAO
    ShieldClash = 88 'IAO
    ModernApunialar = 89 'IAO
    HitWiff = 90 'IAO
    MacabreRisingSkullPurple = 91
    'MacabreRisingSkullPurple = 92 duplicado
    SummonEarthElementalBAO = 93
    FireworksRainbow = 94
    FireworksGreen = 95
    FireworksPurple = 96
    FireworksPurple2 = 97
    FireworksViolet = 98
    FireworksRed = 99
    FireworksBlue = 100
    TormentaDeFuegoBAO2 = 101
    FuerzaBAO = 102
    CurarHeridasCriticasBAO = 103
    RayoElemental = 104
    ResucitarBAO = 105
    LevelUp = 106
    AscendingHazeGreen = 107
    WaterSplash = 108
    WaterSplash2 = 109
    WaterFallout = 110
    WaterFountainRising = 111
    ToxinaBAO = 112
    ToxinaBAO2 = 113
    VortexGreen = 114
    MeditateSmallPurple = 115 'lvl 8-12
    MeditateMediumPurple = 116 'post newbie
    MeditateLargeBlue = 117 '+25
    MeditateXLYellow = 118 '+35
    MeditateXXLYellow = 119 'old lvl 45
    MeditateXXLSwordGray = 120
    ApocalipsisBAO = 121
    EspirituTigreTurquesa = 122
    EspirituTigreVioleta = 123
    EspirituTigreRojo = 124
    EspirituTigreAmarillo = 125
    TornadoTurquesa = 126
    EspirituDragonTurquesa = 127
    EspirituCalaveraTurquesa = 128
    EspirituDemonioTurquesa = 129
    TornadoVioleta = 130
    EspirituDragonVioleta = 131
    EspirituCalaveraVioleta = 132
    EspirituDemonioVioleta = 133
    TornadoRojo = 134
    EspirituDragonRojo = 135
    EspirituCalaveraRojo = 136
    EspirituDemonioRojo = 137
    TornadoAmarillo = 138
    EspirituDragonAmarillo = 139
    EspirituCalaveraAmarillo = 140
    EspirituDemonioAmarillo = 141
    'Roto = 142
    Restauracion = 143 'tute recrecimiento
    Restauracion2 = 144 'tute restauracion
    ShieldWall = 145 'tute taunt
    BubbleShield = 146 'tute cleric shield
    Restauracion3 = 147
    BardSongRed = 148 'tute bard song
    BardSongGreen = 149 'tute bard song
    'Roto = 150
    MeditateXXLDarkGray = 151
    MeditateXXLDarkRed = 152
    Runa = 167
    LogeoLevel1 = 177
    TpVerde = 229
End Enum

Public Enum e_ParticleEffects 'particle sequenced fxs like fuerza2 and celeridad2 PrepareMessageParticleFX()
    WaterFountain = 1
    Starburst = 2
    FireJest = 3
    LargeWaterFountain = 4
    HolyParticles = 5
    Incinerar = 6
    Waterfall = 7
    Rain = 8
    Insects = 9
    Smoke = 10
    GreatFire = 11
    CurarCrimi = 12
    SnowRain = 13
    FireWall = 15
    Intermundia = 16
    HaloGold = 17
    HaloGreen = 18
    'Feo libre = 19
    SmokeGreen = 20
    Resucitar = 22
    Corazones = 23
    Bubbles = 24
    ElectricBallWhite = 25
    'Feo libre = 26
    'Feo libre = 27
    SmokeWallGreen = 28
    MacabreSkullRed = 29
    MacabreSkullWhite = 30
    Marked = 31
    PoisonGas = 32
    WaterSprinkle = 33
    SmokeGreenSmall = 34
    Candelabro = 35
    HolyParticleEnormous = 36
    SmokeRedMedium = 37
    SmokeHolyMedium = 38
    'Feo libre = 39
    'Feo libre = 40
    'Feo libre = 41
    'Feo libre = 42
    'Feo libre = 43
    'Feo libre = 44
    FireVolcano = 45
    ElectricBallYellow = 46
    SlowHourGlass = 47
    ElectricBallPurple = 48
    ElectricBallBlue = 49
    'Feo libre = 50
    'Feo libre = 51
    'Feo libre = 52
    'Feo libre = 53
    'Feo libre = 54
    'Feo libre = 55
    SnowFall = 56
    SnowFall2 = 57
    Rain2 = 58
    SandStorm = 59
    'Feo libre = 60
    'Feo libre = 61
    'Feo libre = 62
    'Feo libre = 63
    'Feo libre = 64
    'Feo libre = 65
    'Feo libre = 66
    'Feo libre = 67
    JuicioFinal = 68
    'Feo libre = 69
    'Feo libre = 70
    SmokeYellowMedium = 71
    'Feo libre = 72
    'Feo libre = 73
    MacabreSkullBlue = 74
    'Feo libre = 75
    Fuerza2 = 76
    HaloRed = 77
    'Feo libre = 78
    'Feo libre = 79
    CorazonesGreen = 80
    'Feo libre = 81
    'Feo libre = 82
    ElectricBallRed = 83
    'Feo libre = 84
    'Feo libre = 85
    'Feo libre = 86
    Fog = 87
    'Feo libre = 88
    'Feo libre = 89
    'Feo libre = 90
    'Feo libre = 91
    'Feo libre = 92
    'Feo libre = 93
    'Feo libre = 94
    'Feo libre = 95
    FireVolcanoSmall = 96
    'Feo libre = 97
    'Feo libre = 98
    'Feo libre = 99
    'Feo libre = 100
    'Feo libre = 101
    'Feo libre = 102
    'Feo libre = 103
    'Feo libre = 104
    CauldronGasGreen = 105
    'Feo libre = 106
    'Feo libre = 107
    'Feo libre = 108
    'Feo libre = 109
    'Feo libre = 110
    'Feo libre = 111
    'Feo libre = 112
    'Feo libre = 113
    'Feo libre = 114
    'Feo libre = 115
    'Feo libre = 116
    'Feo libre = 117
    FireworksRed = 118
    FireWorksRedFast = 119
    FireWorkVioletFast = 120
    FireWorkGreenFast = 121
    FireWorkYellowWide = 122
    'Feo libre = 123
    'Feo libre = 124
    'Feo libre = 125
    'Feo libre = 126
    'Feo libre = 127
    'Feo libre = 128
    'Feo libre = 129
    'Feo libre = 130
    'Feo libre = 131
    'Feo libre = 132
    'Feo libre = 133
    'Feo libre = 134
    'Feo libre = 135
    'Feo libre = 136
    'Feo libre = 137
    'Feo libre = 138
    'Feo libre = 139
    'Feo libre = 140
    FireWorkGiantExplosion = 141
    FireWorkGiantExplosionGreen = 142
    FireWorkGiantExplosionYellow = 143
    FireWorkGiantExplosionRed = 144
    'Feo libre = 145
    'Feo libre = 146
    'Feo libre = 147
    'Feo libre = 148
    'Feo libre = 149
    'Feo libre = 150
    'Feo libre = 151
    'Feo libre = 152
    'Feo libre = 153
    'Feo libre = 154
    'Feo libre = 155
    'Feo libre = 156
    'Feo libre = 157
    'Feo libre = 158
    'Feo libre = 159
    'Feo libre = 160
    'Feo libre = 161
    'Feo libre = 162
    'Feo libre = 163
    'Feo libre = 164
    'Feo libre = 165
    'Feo libre = 166
    'Feo libre = 167
    'Feo libre = 168
    'Feo libre = 169
    'Feo libre = 170
    'Feo libre = 171
    FogGreen = 172
    FogMulticolor = 173
    'Feo libre = 174
    'Feo libre = 175
    MusicalNotesStorm = 176
    'Feo libre = 177
    'Feo libre = 178
    'Feo libre = 179
    FireplaceSmoke = 174
    'Feo libre = 175
    'Feo libre = 186
    'Feo libre = 187
    'Feo libre = 188
    'Feo libre = 189
    DivineBlessing = 190
    'Feo libre = 191
    Petrificar = 192
    MacabreSkullPuple = 193
    'Feo libre = 194
    'Feo libre = 195
    'Feo libre = 196
    'Feo libre = 197
    'Feo libre = 198
    'Feo libre = 199
    'Feo libre = 200
    'Feo libre = 201
    'Feo libre = 202
    CharacterSelection1 = 203
    'Feo libre = 204
    'Feo libre = 204
    'Feo libre = 205
    'Feo libre = 206
    'Feo libre = 207
    'Feo libre = 208
    'Feo libre = 209
    'Feo libre = 210
    'Feo libre = 211
    'Feo libre = 212
    'Feo libre = 213
    'Feo libre = 214
    'Feo libre = 215
    'Feo libre = 216
    'Feo libre = 217
    'Feo libre = 218
    'Feo libre = 219
    'Feo libre = 220
    FlareGreen = 221
    FlareRed = 222
    FlareBlue = 223
    FlareGray = 224
    FlareGreen2 = 225
    FlarePurple = 226
    FlareBalck = 227
    FlareBrown = 228
    CharacterSelection2 = 229
    'Feo libre = 230
    DancingSkullBlue = 231
    DancingSkullRed = 232
    'Feo libre = 233
    FrostBreath = 245
    'Feo libre = 251
    'Feo libre = 252
    'Feo libre = 253
    'Feo libre = 254
    'Feo libre = 255
    'Feo libre = 316
    Celeridad2 = 326
End Enum

Public Const EXPERT_SKILL_CUTOFF    As Integer = 17
Public Const NONEXPERT_SKILL_CUTOFF As Integer = 10
Public Const GOLD_SLOT              As Byte = 200
Public Const VelocidadNormal        As Single = 1
Public Const VelocidadMuerto        As Single = 1.4


Public Enum e_ElementalTags
    Normal = 0
    Fire = 1
    Water = 2
    Earth = 4
    Wind = 8
    Light = 16
    Dark = 32
    Chaos = 64
    'cant have more than 32 elements, so the last one is 2^31
End Enum

Public Const MAX_ELEMENT_TAGS = 4 'the maximum suported is 32
Public ElementalMatrixForNpcs(1 To MAX_ELEMENT_TAGS, 1 To MAX_ELEMENT_TAGS) As Single

''
' TRIGGERS
'
' @param NADA nada
' @param BAJOTECHO bajo techo
' @param trigger_2 ???
' @param POSINVALIDA los npcs no pueden pisar tiles con este trigger
' @param ZONASEGURA no se puede robar o pelear desde este trigger
' @param ANTIPIQUETE
' @param ZONAPELEA al pelear en este trigger no se caen las cosas y no cambia el estado de ciuda o crimi
'
Public Enum e_Trigger
    nada = 0
    BAJOTECHO = 1
    trigger_2 = 2
    POSINVALIDA = 3
    ZonaSegura = 4
    ANTIPIQUETE = 5
    ZONAPELEA = 6
    AUTORESU = 7
    DETALLEAGUA = 8
    PESCAINVALIDA = 10
    VALIDONADO = 11
    ESCALERA = 12
    WORKERONLY = 13
    TRANSFER_ONLY_DEAD = 14
    NADOBAJOTECHO = 16
    VALIDOPUENTE = 17
    NADOCOMBINADO = 18
    CARCEL = 19
    ONLY_PATREON_TILE = 20
End Enum

Public Enum e_NpcInfoMask
    AlmostDead = 1
    SeriouslyWounded = 2
    Wounded = 4
    LightlyWounded = 8
    Intact = 16
    Poisoned = 32
    Paralized = 64
    Inmovilized = 128
    Fighting = 256
End Enum

Public Enum e_UsersInfoMask
    Newbie = 1
    Poisoned = 2
    Blind = 4
    Paralized = 8
    Inmovilized = 16
    Working = 32
    invisible = 64
    Hidden = 128
    Stupid = 256
    Cursed = 512
    Silenced = 1024
    Trading = 2048
    Resting = 4096
    Focusing = 8192
    Incinerated = 16384
    Dead = 32768
    AlmostDead = 65536
    SeriouslyWounded = 131072
    Wounded = 262144
    LightlyWounded = 524288
    Intact = 1048576
    Counselor = 2097152
    DemiGod = 4194304
    God = 8388608
    Admin = 16777216
    RoleMaster = 33554432
End Enum

Public Enum e_UsersInfoMask2
    ChaoticCouncil = 1
    Chaotic = 2
    Criminal = 4
    RoyalCouncil = 8
    Army = 16
    Citizen = 32
    ArmyFirstHierarchy = 64
    ArmySecondHierarchy = 128
    ArmyThirdHierarchy = 256
    ArmyFourthHierarchy = 512
    ArmyFifthHierarchy = 1024
    ArmySixthHierarchy = 2048
    ArmySeventhHierarchy = 4096
    ChaosFirstHierarchy = 8192
    ChaosSecondHierarchy = 16384
    ChaosThirdHierarchy = 32768
    ChaosFourthHierarchy = 65536
    ChaosFifthHierarchy = 131072
    ChaosSixthHierarchy = 262144
    ChaosSeventhHierarchy = 524288
End Enum

''
' constantes para el trigger 6
'
' @see e_Trigger
' @param TRIGGER6_PERMITE TRIGGER6_PERMITE
' @param TRIGGER6_PROHIBE TRIGGER6_PROHIBE
' @param TRIGGER6_AUSENTE El trigger no aparece
'
Public Enum e_Trigger6
    TRIGGER6_PERMITE = 1
    TRIGGER6_PROHIBE = 2
    TRIGGER6_AUSENTE = 3
End Enum

'TODO : Reemplazar por un enum

Public Const Nieve = "NIEVE"

Public Const Ciudad = "CIUDAD"



' <<<<<< Targets >>>>>>
Public Enum e_TargetType
    uUsuarios = 1
    uNPC = 2
    uUsuariosYnpc = 3
    uTerreno = 4
    uPets = 5
End Enum

Public Enum e_SkillType
    ePushingArrow = 1
    eCannon = 2
End Enum

' <<<<<< Acciona sobre >>>>>>
Public Enum e_TipoHechizo
    uPropiedades = 1
    uEstado = 2
    uMaterializa = 3
    uInvocacion = 4
    uArea = 5
    uPortal = 6
    uCombinados = 8
    uMultiShoot = 9
    uPhysicalSkill = 10
End Enum

Public Const MAX_MENSAJES_FORO   As Byte = 35
Public Const MAXUSERHECHIZOS     As Byte = 40



' La utilidad de esto es casi nula, sólo se revisa si fue a la cabeza...
Public Enum e_PartesCuerpo
    bCabeza = 1
    bPiernaIzquierda = 2
    bPiernaDerecha = 3
    bBrazoDerecho = 4
    bBrazoIzquierdo = 5
    bTorso = 6
End Enum

Public Const MAX_PERSONAJES = 10
Public Const Guardias                         As Integer = 6
Public Const MAXORO                           As Long = 90000000
Public Const MAXEXP                           As Long = 1999999999
Public Const MAXUSERMATADOS                   As Long = 65000
Public Const MINATRIBUTOS                     As Byte = 6
Public Const Wood                             As Integer = 58 'OK
Public Const ElvenWood                        As Integer = 2781 'OK
Public Const Raices                           As Integer = 888 'OK
Public Const Botella                          As Integer = 2097 'OK
Public Const Cuchara                          As Integer = 163 'OK
Public Const Mortero                          As Integer = 4997
Public Const FrascoAlq                        As Integer = 3075
Public Const FrascoElixir                     As Integer = 4306
Public Const Dosificador                      As Integer = 4307
Public Const Orquidea                         As Integer = 4308
Public Const Carmesi                          As Integer = 4309
Public Const HongoDeLuz                       As Integer = 4310
Public Const Esporas                          As Integer = 4311
Public Const Tuna                             As Integer = 4312
Public Const Cala                             As Integer = 4313
Public Const ColaDeZorro                      As Integer = 4314
Public Const FlorOceano                       As Integer = 4315
Public Const FlorRoja                         As Integer = 4316
Public Const Hierva                           As Integer = 4317
Public Const HojasDeRin                       As Integer = 4318
Public Const HojasRojas                       As Integer = 4319
Public Const SemillasPros                     As Integer = 4320
Public Const Pimiento                         As Integer = 4321
Public Const PieldeLobo                       As Integer = 414 'OK
Public Const PieldeOsoPardo                   As Integer = 415 'OK
Public Const PieldeOsoPolar                   As Integer = 416 'OK
Public Const PielLoboNegro                    As Integer = 1146
Public Const PielTigre                        As Integer = 4339
Public Const PielTigreBengala                 As Integer = 1145
Public Const MaxNPCs                          As Integer = 10000
Public Const MAXCHARS                         As Integer = 10000
Public Const DAGA                             As Integer = 15 'OK
Public Const FOGATA_APAG                      As Integer = 136 'OK
Public Const FOGATA                           As Integer = 63 'OK
Public Const ORO_MINA                         As Integer = 194 'OK
Public Const PLATA_MINA                       As Integer = 193 'OK
Public Const HIERRO_MINA                      As Integer = 192 'OK


Public Const PinoWood                         As Integer = 3788 'OK
Public Const BLODIUM_MINA                     As Integer = 3787 'OK
Public Const MAP_CAPTURE_THE_FLAG_1           As Integer = 275
Public Const MAP_CAPTURE_THE_FLAG_2           As Integer = 276
Public Const MAP_CAPTURE_THE_FLAG_3           As Integer = 277
Public Const MAP_MESON_HOSTIGADO              As Integer = 170
Public Const MAP_MESON_HOSTIGADO_TRADING_ZONE As Integer = 172
Public Const MAP_ARENA_LINDOS                 As Integer = 297

Public Enum e_NPCType
    Comun = 0
    Revividor = 1
    GuardiaReal = 2
    Entrenador = 3
    Banquero = 4
    Enlistador = 5
    DRAGON = 6
    Timbero = 7
    GuardiasCaos = 8
    ResucitadorNewbie = 9
    Pirata = 10
    Veterinaria = 11
    Gobernador = 12
    GuardiaNpc = 13
    Subastador = 16
    Quest = 17
    Pretoriano = 18
    DummyTarget = 19
    EntregaPesca = 20
    AO20Shop = 21
    AO20ShopPjs = 22
    EventMaster = 23
    ArenaGuard = 24
End Enum

Public Const MIN_APUÑALAR As Byte = 10
'********** CONSTANTANTES ***********
''
' Cantidad de skills
Public Const NUMSKILLS      As Byte = 24
''
' Cantidad de Atributos
Public Const NUMATRIBUTOS   As Byte = 5
''
' Cantidad de Clases
Public Const NUMCLASES      As Byte = 12
''
' Cantidad de Razas
Public Const NUMRAZAS       As Byte = 6
''
' Valor maximo de cada skill
Public Const MAXSKILLPOINTS As Byte = 100
''
' Cantidad maxima de mascotas
Public Const MAXMASCOTAS    As Byte = 3


''
'Direccion
'
' @param NORTH Norte
' @param EAST Este
' @param SOUTH Sur
' @param WEST Oeste
'
Public Enum e_Heading
    NORTH = 1
    EAST = 2
    SOUTH = 3
    WEST = 4
End Enum

Public Enum e_Block
    NORTH = &H1
    EAST = &H2
    SOUTH = &H4
    WEST = &H8
    ALL_SIDES = &HF
    GM = &H10
End Enum

'%%%%%%%%%% CONSTANTES DE INDICES %%%%%%%%%%%%%%%
Public Const iCuerpoMuerto As Integer = 829
Public Const iCabezaMuerto As Integer = 0 ' El nuevo casper no usa cabeza. El viejo es: 621
Public Const iORO          As Byte = 12

'%%%%%%%%%% CONSTANTES DE INDICES %%%%%%%%%%%%%%%
Public Enum e_Skill
    Magia = 1
    Robar = 2
    Tacticas = 3
    Armas = 4
    Meditar = 5
    Apuñalar = 6
    Ocultarse = 7
    Supervivencia = 8
    Comerciar = 9
    Defensa = 10
    liderazgo = 11
    Proyectiles = 12
    Wrestling = 13
    Navegacion = 14
    equitacion = 15
    Resistencia = 16
    Talar = 17
    Pescar = 18
    Mineria = 19
    Herreria = 20
    Carpinteria = 21
    Alquimia = 22
    Sastreria = 23
    Domar = 24
    TargetableItem = 25
    Smelting = 26
    Grupo = 90
    MarcaDeClan = 91
    MarcaDeGM = 92
End Enum

Public Enum e_Atributos
    Fuerza = 1
    Agilidad = 2
    Inteligencia = 3
    Constitucion = 4
    Carisma = 5
End Enum



Public Const AumentoSTDef        As Byte = 15



'Tamaño del mapa
Public Const XMaxMapSize         As Byte = 100
Public Const XMinMapSize         As Byte = 1
Public Const YMaxMapSize         As Byte = 100
Public Const YMinMapSize         As Byte = 1



'Tamaño en Tiles de la pantalla de visualizacion
Public Const XWindow             As Byte = 23
Public Const YWindow             As Byte = 18
'Sonidos

Public Const SND_TALAR           As Byte = 13

Public Const SND_PESCAR          As Byte = 14

Public Const SND_WARP            As Byte = 3
Public Const SND_PUERTA          As Integer = 5
Public Const SND_PUERTA_DUCTO    As Integer = 380
Public Const SND_NIVEL           As Integer = 554

Public Const SND_IMPACTO         As Byte = 10
Public Const SND_IMPACTO_APU     As Integer = 2187
Public Const SND_IMPACTO_CRITICO As Integer = 2186
Public Const SND_IMPACTO2        As Byte = 12



Public Const SND_SACARARMA           As Byte = 25
Public Const SND_ESCUDO              As Byte = 37
Public Const MARTILLOHERRERO         As Byte = 41
Public Const LABUROCARPINTERO        As Byte = 42
Public Const SND_BEBER               As Byte = 135
Public Const GRH_FALLO_PESCA         As Long = 48974
'Numero de objeto de la poción de reset
Public Const POCION_RESET            As Long = 3378
Public Const MAXUSERQUESTS           As Integer = 5     'Maxima cantidad de quests que puede tener un usuario al mismo tiempo.
''
' Cantidad maxima de objetos por slot de inventario
Public Const DEFAULT_MAX_INVENTORY_OBJS As Integer = 10000
''
' Cantidad de "slots" en el inventario con todos los slots desbloqueados
Public Const MAX_INVENTORY_SLOTS     As Byte = 42
Public Const MAX_SKINSINVENTORY_SLOTS As Byte = 66
Public Const MAX_SKINSSPELLS_SLOTS    As Integer = 350
' Cantidad de "slots" en el inventario básico
Public Const MAX_USERINVENTORY_SLOTS As Byte = 24


''
' Constante para indicar que se esta usando ORO
Public Const FLAGORO                 As Integer = 200
Public Const FLAG_AGUA               As Byte = &H20
Public Const FLAG_ARBOL              As Byte = &H40

' CATEGORIAS PRINCIPALES
Public Enum e_OBJType
    otUseOnce = 1
    otWeapon = 2
    otArmor = 3
    otTrees = 4
    otGoldCoin = 5
    otDoors = 6
    otBackpack = 7
    otSignBoards = 8
    otKeys = 9
    'otLibre = 10
    otPotions = 11
    'otLibre = 12
    otDrinks = 13
    otWood = 14
    'otLibre = 15
    otShield = 16
    otHelmet = 17
    otWorkingTools = 18
    otTeleport = 19
    otDecorations = 20
    otAmulets = 21
    otOreDeposit = 22
    otMinerals = 23
    otParchment = 24
    'otLibre = 25
    otMusicalInstruments = 26
    otAnvil = 27
    otForge = 28
    otBlacksmithMaterial = 29
    otMagicalInstrument = 30
    otShips = 31
    otArrows = 32
    otEmptyBottle = 33
    otFullBottle = 34
    otRingAccesory = 35
    otPassageTicket = 36
    otMap = 37
    otSkinsWings = 38          'Skins de Alas
    otSkinsArmours = 39         'Skins de Armaduras
    otSkinsShields = 40         'Skins de Escudos
    otSkinsHelmets = 41         'Skins de Cascos o Sombreros, o todo lo que vaya en la cabeza
    otSkinsWeapons = 42         'Skins Armas
    otSkinsBoats = 43           'Skins Botes, barcas, galeras, galeones,etc
    otSaddles = 44
    otRecallStones = 45
    otSkinsSpells = 46          'Skins de Hechizos
    otMail = 47
    otChest = 48
    otDonator = 50
    OtQuest = 51
    otFishingPool = 52
    otUsableOntarget = 53
    otPlants = 54
    otElementalRune = 55
    otFactionForgiveness = 56
    otElse = 100
End Enum

Public Enum e_RuneType
    ReturnHome = 1
    Escape = 2
    MesonSafePassage = 3
End Enum

Public Enum e_UseOnceSubType
    eFish = 1
End Enum

Public Enum e_TeleportSubType
    eTeleport = 1
    eTransportNetwork = 2
End Enum

Public Enum e_MagicItemSubType
    Equipable
    Usable
    TargetUsable
End Enum

Public Enum e_MagicItemEffect
    eMagicresistance = 1
    eModifyAttributes = 2
    eModifySkills = 3
    eRegenerateHealth = 4
    eRegenerateMana = 5
    eIncreaseDamageToNpc = 6
    eReduceDamageToNpc = 7
    eInmunityToNpcMagic = 9
    eIncinerate = 10
    eParalize = 11
    eProtectedResources = 12
    eWalkHidden = 13
    eProtectedInventory = 15
    ePreventMagicWords = 16
    ePreventInvisibleDetection = 17
    eIncreaseLearningSkills = 18
    ePoison = 19
    eRingOfShadows = 20
    eTalkToDead = 21
End Enum

Public Enum e_MagicEffect
    eMagicresistance = 1
    eAttributeModifier = 2 'Requires CuantoAumento y QueAtributo
    eSkillModifier = 3 'Requires CuantoAumento y QueSkill
    eHealthRecovery = 4
    eMeditationBonus = 5
    eNpcDamageBonus = 6 'Requires CuantoAumento
    eNpcDamageReduction = 7 'Rquires CuantoAumento
    eReserved = 8
    eMagicInmuneFromNpc = 9
    eIncinerate = 10
    eParalize = 11
    eProtectResources = 12
    eWalkHidden = 13
    eIncreaseMagicDamage = 14 'Requires CuantoAumento
    eInventoryProtection = 15
    eSilentCast = 16
    ePreventDetection = 17
    eIncreaseSkillLearningChance = 18
    eAddPoisonEffect = 19
    eResurrectionItem = 20
End Enum

Public Enum e_UssableOnTarget
    eRessurectionItem = 1
    eTrap
    eArpon
    eHandCannon
End Enum

'Estadisticas
Public Const STAT_MAXELV As Byte = 47
Public Const STAT_MAXHP  As Integer = 32000
Public Const STAT_MAXMP  As Integer = 32000
Public Const STAT_MAXSTA As Integer = 32000

Public Const STAT_MAXHIT As Integer = 999


' **************************************************************
' **************************************************************
' ************************ TIPOS *******************************
' **************************************************************
' **************************************************************
'these two types are basically the same but intended to be used for different array, I'll keep them like this to prevent mixing refences
Public Type t_UserReference
    'hold and index to a UserIndex, this elements are reused all the time so we also keep a
    'versionId to track that we are refering the same user that we intended when we generated this ref
    ArrayIndex As Integer
    VersionId As Integer
End Type

Public Type t_NpcReference
    'hold and index to a NpcList, this elements are reused all the time so we also keep a
    'versionId to track that we are refering the same npc that we intended when we generated this ref
    ArrayIndex As Integer
    VersionId As Integer
End Type

Public Enum e_ReferenceType
    eNpc
    eUser
    eNone
End Enum

'hold both a npc o user refence
Public Type t_AnyReference
    ArrayIndex As Integer
    VersionId As Integer
    UserId As Long 'sometimes we need to track the user after disconnection
    RefType As e_ReferenceType
End Type

Public Enum e_SpellRequirementMask
    eNone = 0
    eWeapon = 1
    eShield = 2
    eArmor = 4
    eHelm = 8
    eMagicItem = 16
    eProjectile = 32
    eShip = 64
    eTool = 128
    eKnucle = 256
    eRequireTargetOnLand = 512
    eRequireTargetOnWater = 1024
    eWorkOnDead = 2048
    eIsSkill = 4096
    eIsBindable = 8192
End Enum

Public Enum e_SpellEffects
    Invisibility = 1
    Paralize = 2
    Immobilize = 4
    RemoveParalysis = 8
    RemoveDumb = 16
    CurePoison = 32
    Incinerate = 64
    Curse = 128
    RemoveCurse = 256
    PreciseHit = 512
    eDoHeal = 1024
    Dumb = 2048
    Blindness = 4096
    Resurrect = 8192
    Morph = 16384
    RemoveInvisibility = 32768
    ToggleCleave = 65536
    RemoveDebuff = 131072
    StealBuff = 262144
    eDoDamage = 524288
    AdjustStatsWithCaster = 1048576
    ToggleDivineBlood = 2097152
    CancelActiveEffect = 4194304
End Enum

Public Enum e_TargetEffectType
    ePositive = 1 '
    eNegative = 2
End Enum

Public Type t_Hechizo
    AutoLanzar As Byte
    TargetEffectType As e_TargetEffectType
    velocidad As Single
    Duration As Integer
    RequiredHP As Integer
    Cooldown As Integer
    CdEffectId As Integer
    ScreenColor As Long
    TimeEfect As Long
    'Hechizo de teleport
    TeleportX As Integer
    TeleportXMap As Integer
    TeleportXX As Integer
    TeleportXY As Integer
    'Hechizo de Materialización
    MaterializaObj As Integer
    MaterializaCant As Integer
    NecesitaObj As Integer
    NecesitaObj2 As Integer
    'Hechizos de area
    AreaRadio As Long
    AreaAfecta As Integer
    Particle As Integer
    TimeParticula As Integer
    ParticleViaje As Integer
    desencantar As Byte
    Sanacion As Byte
    AntiRm As Byte
    'Sistema..
    nombre As String
    Desc As String
    PalabrasMagicas As String
    Tipo As e_TipoHechizo
    SkillType As e_SkillType
    wav As Integer
    FXgrh As Integer
    loops As Byte
    MinHp As Integer
    MaxHp As Integer
    SubeMana As Byte
    MinMana As Integer
    MaxMana As Integer
    SubeSta As Byte
    MinSta As Integer
    MaxSta As Integer
    SubeHam As Byte
    MinHam As Integer
    MaxHam As Integer
    SubeSed As Byte
    MinSed As Integer
    MaxSed As Integer
    SubeAgilidad As Byte
    MinAgilidad As Integer
    MaxAgilidad As Integer
    SubeFuerza As Byte
    MinFuerza As Integer
    MaxFuerza As Integer
    SubeCarisma As Byte
    MinCarisma As Integer
    MaxCarisma As Integer
    Envenena As Byte
    Effects As Long
    Invoca As Byte
    NumNpc As Integer
    cant As Byte
    Mimetiza As Byte
    MinSkill As Integer
    ManaRequerido As Integer
    'Barrin 29/9/03
    StaRequerido As Integer
    Target As e_TargetType
    RequireTransform As Integer
    NeedStaff As Integer
    RequiereInstrumento As Integer
    StaffAffected As Boolean
    EotId As Integer
    SpellRequirementMask As Long
    RequireWeaponType As e_WeaponType
    MaxLevelCasteable As Byte
    IsElementalTagsOnly As Boolean
End Type

Public Type t_ActiveModifiers
    'effects on itself
    PhysicalDamageReduction As Single
    MagicDamageReduction As Single
    MovementSpeed As Single
    SelfHealingBonus As Single
    DefenseBonus As Integer 'bonus armor, used when
    'effect perform on others
    PhysicalDamageBonus As Single 'apply percent bonus like 10%
    MagicDamageBonus As Single
    MagicHealingBonus As Single
    PhysicalDamageLinearBonus As Integer 'apply direct bonus like +10
    HitBonus As Integer
    EvasionBonus As Integer
End Type

Public Enum e_ModifierTypes
    PhysicalReduction = 1
    MagicReduction = 2
    PhysiccalBonus = 4
    MagicBonus = 8
    MovementSpeed = 16
    HitBonus = 32
    EvasionBonus = 64
    SelfHealingBonus = 128
    MagicHealingBonus = 256
    PhysicalLinearBonus = 512
    DefenseBonus = 1024
End Enum

Public Type t_EffectOverTime
    Type As e_EffectOverTimeType
    SharedTypeId As e_EotTypeId
    Limit As e_EOTTargetLimit
    SubType As Integer
    TickPowerMin As Single
    TickPowerMax As Single
    Ticks As Integer
    TickTime As Long
    TickManaConsumption As Integer
    TickStaminaConsumption As Integer
    TickFX As Integer
    OnHitFx As Integer
    OnHitWav As Integer
    buffType As e_EffectType
    Override As Boolean
    PhysicalDamageReduction As Single
    MagicDamageReduction As Single
    PhysicalDamageDone As Single
    MagicDamageDone As Single
    SpeedModifier As Single
    HitModifier As Integer
    EvasionModifier As Integer
    EffectModifiers As Long
    SelfHealingBonus As Single
    MagicHealingBonus As Single
    PhysicalLinearBonus As Integer
    DefenseBonus As Integer
    ClientEffectTypeId As Integer
    Area As Integer
    Aura As String
    ApplyEffectId As Integer
    SecondaryEffectId As Integer
    SpellRequirementMask As Long
    RequireWeaponType As Integer
    NpcId As Integer
    ApplyStatusMask As Long
    SecondaryTargetModifier As Single
    RequireTransform As Integer
End Type

Public Enum e_DamageResult
    eStillAlive
    eDead
End Enum

Public Const MAX_PACKET_COUNTERS As Long = 16

Public Enum PacketNames
    CastSpell = 1
    WorkLeftClick
    LeftClick
    UseItem
    UseItemU
    Walk
    Sailing
    Talk
    Attack
    Drop
    Work
    EquipItem
    GuildMessage
    QuestionGM
    ChangeHeading
    Hide
End Enum

Public Type t_UserOBJ
    ObjIndex As Integer
    Amount As Long
    Equipped As Byte
    ElementalTags As Long
End Type

Public Type t_UserSkins
    Deleted                         As Boolean
    Equipped                        As Boolean
    ObjIndex                        As Integer
    Type                            As Integer
End Type

Public Type t_Inventario
    Object(1 To MAX_INVENTORY_SLOTS) As t_UserOBJ
    EquippedWeaponObjIndex As Integer
    EquippedWeaponSlot As Byte
    EquippedArmorObjIndex As Integer
    EquippedArmorSlot As Byte
    EquippedShieldObjIndex As Integer
    EquippedShieldSlot As Byte
    EquippedHelmetObjIndex As Integer
    EquippedHelmetSlot As Byte
    EquippedMunitionObjIndex As Integer
    EquippedMunitionSlot As Byte
    EquippedWorkingToolObjIndex As Integer
    EquippedWorkingToolSlot As Byte
    EquippedShipObjIndex As Integer
    EquippedShipSlot As Byte
    EquippedSaddleObjIndex As Integer
    EquippedSaddleSlot As Byte
    EquippedRingAccesoryObjIndex As Integer
    EquippedRingAccesorySlot As Byte
    EquippedAmuletAccesoryObjIndex As Integer
    EquippedAmuletAccesorySlot As Byte
    EquippedBackpackObjIndex As Integer
    EquippedBackpackSlot As Byte
    NroItems As Integer
End Type

Public Type tSkinInventario 'MAX_SKINSINVENTORY_SLOTS
    'Type debe ir en el Storage Manager pero acá no hace falta, ya está en OBJECT.
    Object(1 To MAX_SKINSINVENTORY_SLOTS) As t_UserSkins
    ObjIndexArmourEquipped      As Integer
    ObjIndexHelmetEquipped      As Integer
    ObjIndexWeaponEquipped      As Integer
    ObjIndexShieldEquipped      As Integer
    ObjIndexWindsEquipped       As Integer
    ObjIndexBoatEquipped        As Integer
    ObjIndexBackpackEquipped    As Integer 'Mochila
    SlotArmourEquipped          As Byte
    SlotHelmetEquipped          As Byte
    SlotWeaponEquipped          As Byte
    SlotShieldEquipped          As Byte
    SlotWindsEquipped           As Byte
    SlotBoatEquipped            As Byte
    SlotBackpackEquipped        As Byte 'Mochila
    'Spells puede haber varios equipados al mismo tiempo, no tiene sentido.
    count                       As Byte
End Type

Public Type t_WorldPos
    Map As Integer
    x As Integer
    y As Integer
End Type

Public Type t_Position
    x As Integer
    y As Integer
End Type

Public Enum e_TrapEffect
    eInmovilize = 1
End Enum

Public Enum e_TripState
    eForgatToNix
    eNixToArghal
    eArghalToForgat
End Enum

Public Type t_Transport
    Map As Integer
    startX As Integer
    startY As Integer
    EndX As Integer
    EndY As Integer
    DestX As Byte
    DestY As Byte
    DockX As Byte
    DockY As Byte
    IsSailing As Boolean
    RequiredPassID As Integer
    CurrenDest As e_TripState
End Type

Public Type t_CityWorldPos
    Map As Integer
    x As Integer
    y As Integer
    MapaViaje As Integer
    ViajeX As Byte
    ViajeY As Byte
    MapaResu As Integer
    ResuX As Byte
    ResuY As Byte
    NecesitaNave As Byte
    Mapas() As String
End Type

Public Type t_FXdata
    nombre As String
    GrhIndex As Long
    Delay As Integer
End Type

Public Enum e_CharValue
    eDontBlockTile = 1
End Enum

'Datos de user o npc
Public Type t_Char
    charindex As Integer
    charindex_bk As Integer
    head As Integer
    body As Integer
    originalhead As Integer
    WeaponAnim As Integer
    ShieldAnim As Integer
    CascoAnim As Integer
    CartAnim As Integer
    BackpackAnim As Integer
    ParticulaFx As Integer
    FX As Integer
    loops As Integer
    Heading As e_Heading
    Head_Aura As String
    Body_Aura As String
    Arma_Aura As String
    Escudo_Aura As String
    Backpack_Aura As String
    DM_Aura As String
    RM_Aura As String
    Otra_Aura As String
    speeding As Single
    Animation() As Integer
    CastAnimation As Integer
End Type

Public Type t_Obj
    ObjIndex As Integer
    ElementalTags As Long
    amount As Long
    data As Double
End Type

Public Type t_QuestNpc
    NpcIndex As Integer
    amount As Integer
End Type

Public Type t_QuestObj
    QuestIndex As Integer
    ObjIndex As Integer
    amount As Integer
    Probabilidad As Long
End Type

Public Type t_UserQuest
    NPCsTarget() As Integer
    NPCsKilled() As Integer
    QuestIndex As Integer
    Dirty As Boolean
End Type

Public Type t_QuestSkill
    SkillType As e_Skill
    RequiredValue As Byte
End Type

Public QuestList() As t_Quest

Public Type t_Quest
    nombre As String
    Desc As String
    NextQuest As String
    DescFinal As String
    RequiredLevel As Byte
    RequiredClass As Byte
    LimitLevel As Byte
    RequiredQuest As Integer 'Changed in order to develop more than 255 quests
    Trabajador As Boolean
    TalkTo As Integer
    RequiredOBJs As Byte
    RequiredOBJ() As t_Obj
    RequiredSpellCount As Byte
    RequiredSpellList() As Integer
    RequiredNPCs As Byte
    RequiredNPC() As t_QuestNpc
    RequiredSkill As t_QuestSkill
    RequiredTargetNPCs As Byte
    RequiredTargetNPC() As t_QuestNpc
    RewardGLD As Long
    RewardEXP As Long
    RewardOBJs As Byte
    RewardOBJ() As t_Obj
    RewardSpellCount As Byte
    RewardSpellList() As Integer
    Repetible As Byte
    GlobalQuestIndex As Integer
    GlobalQuestThresholdNeeded As Long
End Type

' ******************* RETOS ************************
Public Enum e_SolicitudRetoEstado
    Libre
    Enviada
    EnCola
End Enum

Public Type t_SolicitudJugador
    nombre As String
    Aceptado As Boolean
    CurIndex As t_UserReference
End Type

Public Type t_SolicitudReto
    Estado As e_SolicitudRetoEstado
    Jugadores() As t_SolicitudJugador
    Apuesta As Long
    PocionesMaximas As Integer
    CaenItems As Boolean
End Type

Public Enum e_EquipoReto
    Izquierda
    Derecha
End Enum

Public Type t_SalaReto
    PosIzquierda As t_WorldPos
    PosDerecha As t_WorldPos
    IndexBanquero As Integer
    ' -----------------
    EnUso As Boolean
    Ronda As Byte
    Puntaje As Integer
    Apuesta As Long
    PocionesMaximas As Integer
    CaenItems As Boolean
    TiempoRestante As Long
    TiempoItems As Integer
    TamañoEquipoIzq As Byte
    TamañoEquipoDer As Byte
    Jugadores() As t_UserReference
End Type

Public Type t_Retos
    TamañoMaximoEquipo As Byte
    ApuestaMinima As Long
    ImpuestoApuesta As Single
    DuracionMaxima As Long
    TiempoConteo As Byte
    Salas() As t_SalaReto
    TotalSalas As Integer
    SalasLibres As Integer
    AnchoSala As Integer
    AltoSala As Integer
End Type

' **************************************************
Public Enum e_ObjFlags
    e_Bindable = 1
    e_UseOnSafeAreaOnly = 2
End Enum


Public Enum e_AnvilType
    IronAnvil = 1
    BlodiumAnvil = 2
End Enum

'Tipos de objetos
Public Type t_ObjData
    Pino As Byte
    Elfico As Byte
    velocidad As Single
    CantEntrega As Byte
    CantItem As Byte
    Item() As t_Obj
    ParticulaGolpeTime As Integer
    ParticulaGolpe As Integer
    ParticulaViaje As Integer
    Jerarquia As Long
    ClaseTipo As Byte
    TipoRuna As Byte
    name As String 'Nombre del obj
    OBJType As e_OBJType 'Tipo enum que determina cuales son las caract del obj
    GrhIndex As Long ' Indice del grafico que representa el obj
    GrhSecundario As Integer
    'Solo contenedores
    MaxItems As Integer
    Conte As t_Inventario
    Apuñala As Byte
    Paraliza As Byte
    Estupidiza As Byte
    Envenena As Byte
    NoSeLimpia As Byte
    Subastable As Integer
    HechizoIndex As Integer
    ForoID As String
    MinHp As Integer ' Minimo puntos de vida
    MaxHp As Integer ' Maximo puntos de vida
    MineralIndex As Integer
    LingoteInex As Integer
    Proyectil As Integer
    Municion As Integer
    Crucial As Byte
    ' Sistema de armas Dos Manos - SimP - 03/02/2021
    DosManos As Byte
    Newbie As Integer
    'By Ladder
    CreaParticula As String
    CreaFX As Integer
    CreaLuz As String
    CreaWav As Integer
    MinELV As Byte
    MaxLEV As Byte
    SkillIndex As Byte     ' El indice de Skill para equipar el item
    SkillRequerido As Byte ' El valor MINIMO requerido de skillIndex para equipar el item
    InstrumentoRequerido As Integer
    CreaGRH As String
    SndAura As Integer
    Intirable As Byte
    Instransferible As Byte
    Destruye As Byte
    NecesitaNave As Byte
    DesdeMap As Long
    HastaMap As Long
    HastaY As Byte
    HastaX As Byte
    EfectoMagico As Byte
    Que_Skill As Byte          ' Que skill recibe la bonificacion
    CantidadSkill As Byte     ' Cuantos puntos de skill bonifica
    Subtipo As Byte ' 0: -, 1: Paraliza, 2: Incinera, 3: Envenena, 4: Explosiva
    Dorada  As Byte
    Blodium As Integer
    FireEssence As Integer
    WaterEssence As Integer
    EarthEssence As Integer
    WindEssence As Integer
    VidaUtil As Integer
    TiempoRegenerar As Integer
    CuantoAumento As Single ' Cuanto aumenta el atributo.
    QueAtributo As Byte     ' Que attributo sube (Agilidad, Fuerza, etc)
    incinera As Byte
    'Puntos de Stamina que da
    MinSta As Integer ' Minimo puntos de stamina
    Cooldown As Long
    cdType As Integer
    ImprovedRangedHitChance As Integer
    ImprovedMeleeHitChance As Integer
    'Pociones
    TipoPocion As Byte
    Porcentaje As Byte
    MaxModificador As Integer
    MinModificador As Integer
    DuracionEfecto As Long
    MinSkill As Integer
    LingoteIndex As Integer
    MinHIT As Integer 'Minimo golpe
    MaxHit As Integer 'Maximo golpe
    MinArmorPenetrationFlat As Integer
    MaxArmorPenetrationFlat As Integer
    ArmorPenetrationPercent As Integer
    ExtraCritAndStabChance As Integer
    MinHam As Integer
    MinSed As Integer
    def As Integer
    MinDef As Integer ' Armaduras
    MaxDef As Integer ' Armaduras
    Ropaje As Integer 'Indice del grafico del ropaje
    RopajeHumano As Integer
    RopajeElfo As Integer
    RopajeElfoOscuro As Integer
    RopajeEnano As Integer
    RopajeOrco As Integer
    RopajeGnomo As Integer
    RopajeHumana As Integer
    RopajeElfa As Integer
    RopajeElfaOscura As Integer
    RopajeEnana As Integer
    RopajeOrca As Integer
    RopajeGnoma As Integer
    RazaAltos As Integer
    RazaBajos As Integer
    WeaponAnim As Integer ' Apunta a una anim de armas
    ShieldAnim As Integer ' Apunta a una anim de escudo
    CascoAnim As Integer
    BackpackAnim As Integer
    Valor As Long     ' Precio
    Cerrada As Integer
    Llave As Byte
    clave As Long 'si clave=llave la puerta se abre o cierra
    IndexAbierta As Integer
    IndexCerrada As Integer
    IndexCerradaLlave As Integer
    RazaEnana As Byte
    RazaDrow As Byte
    RazaElfa As Byte
    RazaGnoma As Byte
    RazaHumana As Byte
    RazaOrca As Byte
    Mujer As Byte
    Hombre As Byte
    Agarrable As Byte
    Coal As Integer
    LingH As Integer
    LingO As Integer
    LingP As Integer
    Madera As Long
    MaderaElfica As Long
    MaderaPino As Integer
    Hechizo As Integer
    Raices As Integer
    Cuchara As Integer
    Botella As Integer
    Mortero As Integer
    FrascoAlq As Integer
    FrascoElixir As Integer
    Dosificador As Integer
    Orquidea As Integer
    Carmesi As Integer
    HongoDeLuz As Integer
    Esporas As Integer
    Tuna As Integer
    Cala As Integer
    ColaDeZorro As Integer
    FlorOceano As Integer
    FlorRoja As Integer
    Hierva As Integer
    HojasDeRin As Integer
    HojasRojas As Integer
    SemillasPros As Integer
    Pimiento As Integer
    SkPociones As Byte
    PielLobo As Integer
    PielOsoPardo As Integer
    PielOsoPolaR As Integer
    PielLoboNegro As Integer
    PielTigre As Integer
    PielTigreBengala As Integer
    SkSastreria As Byte
    Radio As Byte
    SkHerreria As Integer
    SkCarpinteria As Integer
    texto As String
    'Clases que no tienen permitido usar este obj
    ClaseProhibida(1 To NUMCLASES) As e_Class
    'Razas que no tienen permitido usar este obj
    RazaProhibida(1 To NUMRAZAS) As e_Raza
    ClasePermitida As String
    Snd1 As Integer
    Snd2 As Integer
    Snd3 As Integer
    Real As Integer
    Caos As Integer
    LeadersOnly As Boolean
    NoSeCae As Integer
    Power As Integer
    MagicDamageBonus As Integer
    MagicPenetration As Integer
    ResistenciaMagica As Integer
    MagicAbsoluteBonus As Integer
    Revive As Boolean
    Invernal As Boolean
    CatalizadorTipo As Byte
    CatalizadorAumento As Single
    ApplyEffectId As Integer
    Log As Byte 'es un objeto que queremos loguear? Pablo (ToxicWaste) 07/09/07
    NoLog As Byte 'es un objeto que esta prohibido loguear?
    QuestId As Integer
    PuntosPesca As Long
    ObjNum As Long
    ObjDonador As Long
    WeaponType As e_WeaponType
    ProjectileType As Integer
    ObjFlags As Long 'use bitmask from enum e_ObjFlags
    JineteLevel As Byte
    FactionScore As Integer
    ElementalTags As Long
    Camouflage As Boolean
    RequiereObjeto                  As Integer
    BowCategory As Byte
    ArrowCategory As Byte
End Type

'[Pablo ToxicWaste]
' Mod. by WyroX
Public Type t_ModClase
    Vida As Double
    Evasion As Double
    AtaqueArmas As Double
    AtaqueProyectiles As Double
    DañoArmas As Double
    DañoProyectiles As Double
    DañoWrestling As Double
    ModApunalar As Double
    ModStabbingNPCMin As Double
    ModStabbingNPCMax As Double
    Escudo As Double
    ManaInicial As Double
    AumentoSta As Integer
    MultMana As Double
    HitPre36 As Integer
    HitPost36 As Integer
    ResistenciaMagica As Double
    LevelSkillPoints As Integer
    WeaponHitBonus(0 To e_WeaponType.eWeaponTypeCount) As Integer
End Type

Public Type t_ModRaza
    Fuerza As Integer
    Agilidad As Integer
    Inteligencia As Integer
    Carisma As Integer
    Constitucion As Integer
End Type

'[/Pablo ToxicWaste]
Public Const MAX_BANCOINVENTORY_SLOTS As Byte = 42

Public Type t_BancoInventario
    Object(1 To MAX_BANCOINVENTORY_SLOTS) As t_UserOBJ
    NroItems As Integer
End Type

Public Const patron_tier_aventurero As Long = 6057393
Public Const patron_tier_heroe      As Long = 6057394
Public Const patron_tier_leyenda    As Long = 6057395

Public Enum e_TipoUsuario
    tNormal = 0
    tAventurero
    tHeroe
    tLeyenda
End Enum

Public Const MaxRecentKillToStore = 5

Public Type t_RecentKiller
    UserId As Long
    KillTime As Long
End Type

Public Type t_RecentKillRecord
    UserId As Long
    RecentKillers(MaxRecentKillToStore) As t_RecentKiller
    RecentKillersIndex As Long
End Type

'keep record from alst 50 dc users in memory to prevent relog abuse that dont belong to the db
Public Type t_RecentKillCache
    LastDisconnectionInfo(50) As t_RecentKillRecord 'Use a circular buffer for this
    LastIndex As Integer 'circular buffer index
End Type

Public RecentDCUserCache As t_RecentKillCache

'*********************************************************
'*********************************************************
'*********************************************************
'*********************************************************
'******* T I P O S   D E    U S U A R I O S **************
'*********************************************************
'*********************************************************
'*********************************************************
'*********************************************************
'Estadisticas de los usuarios
Public Type t_UserStats
    tipoUsuario As e_TipoUsuario
    GLD As Long 'Dinero
    Banco As Long
    MaxHp As Integer
    MinHp As Integer
    shield As Long
    MaxSta As Integer
    MinSta As Integer
    MaxMAN As Integer
    MinMAN As Integer
    MaxHit As Integer
    MinHIT As Integer
    MaxHam As Integer
    MinHam As Integer
    MaxAGU As Integer
    MinAGU As Integer
    def As Integer
    Exp As Long
    ELV As Byte
    ELO As Long
    UserSkills(1 To NUMSKILLS) As Byte
    UserAtributos(1 To NUMATRIBUTOS) As Byte
    UserAtributosBackUP(1 To NUMATRIBUTOS) As Byte
    UserHechizos(1 To MAXUSERHECHIZOS) As Integer
    UserSkinsHechizos(1 To MAX_SKINSSPELLS_SLOTS) As Integer 'No puede ser MAXUSERHECHIZOS porque la cantidad máxima de skins podría escalar en el futuro, debe ser independiente.
    UsuariosMatados As Long
    PuntosPesca As Long
    NPCsMuertos As Long
    SkillPts As Integer
    Advertencias As Byte
    NumObj_PezEspecial As Integer
    Creditos As Long
    JineteLevel As Byte
End Type

'Sistema de Barras
Public Type t_AccionPendiente
    AccionPendiente As Boolean
    TipoAccion As e_AccionBarra
    RunaObj As Integer
    ObjSlot As Byte
    Particula As Byte
    HechizoPendiente As Integer
End Type

Public Enum e_StatusMask
    eTaunting = 1
    eTaunted = 2
    eTransformed = 4
    eCastOnlyOnSelf = 8
    ePreventEnergyRestore = 16
    eDontBlockTile = 32
    eCCInmunity = 64
    eTalkToDead = 128
End Enum

Public Enum e_InventorySlotMask
    eWeapon = 1
    eShiled = 2
    eHelm = 4
    eAmunition = 8
    eArmor = 16
    eMagicItem = 32
    eTool = 64
End Enum

Public Type t_AutomatedAction
    x As Byte
    y As Byte
    skill As e_Skill
    StartingTime As Long
    IsActive As Boolean
End Type

'Flags
Public Type t_UserFlags
    Nadando As Byte
    PescandoEspecial As Boolean
    QuestOpenByObj As Boolean
    EnTorneo As Boolean
    stepToggle As Boolean
    SpouseId As Long
    Casado As Byte
    Candidato As t_UserReference
    pregunta As Byte
    ' 0: no esta hechizada;
    'Cualquier otro valor si lo esta: 0.8 -> reduce un 20% de velocidad; 1.3 -> Aumenta un 30%
    VelocidadHechizada As Single
    LevelBackup As Byte
    UsandoMacro As Boolean
    PendienteDelSacrificio As Byte
    PendienteDelExperto As Byte
    NoPalabrasMagicas As Byte
    incinera As Byte
    Envenena As Byte
    Paraliza As Byte
    Estupidiza As Byte
    NoMagiaEfecto As Byte
    GolpeCertero As Byte
    AnilloOcultismo As Byte
    NoDetectable As Byte
    RegeneracionMana As Byte
    RegeneracionHP As Byte
    DisabledSlot As Long
    'to track assist
    LastAttackedByUserTime As Long
    LastAttacker As t_UserReference
    LastHelpByTime As Long
    LastHelpUser As t_UserReference
    'Hechizo de Transportacion
    Portal As Integer
    PortalM As Integer
    PortalX As Integer
    PortalY As Integer
    PortalMDestino As Integer
    PortalXDestino As Integer
    PortalYDestino As Integer
    'Hechizo de Transportacion
    Inmunidad As Byte
    Inmovilizado As Byte
    TranslationActive As Boolean
    ActiveTransform As Integer
    Montado As Byte
    Subastando As Boolean
    Incinerado As Byte
    Muerto As Byte '¿Esta muerto?
    Escondido As Byte '¿Esta escondido?
    Comerciando As Boolean '¿Esta comerciando?
    UserLogged As Boolean '¿Esta online?
    FirstPacket As Boolean ' ¿El socket envió algun paquete válido?
    Meditando As Boolean
    Crafteando As Byte
    IsSlotFree As Boolean
    DivineBlood As Boolean
    Descuento As String
    PuedeMoverse As Byte
    TimerLanzarSpell As Long
    PuedeTrabajar As Byte
    Envenenado As Byte
    Paralizado As Byte
    Estupidez As Byte
    Ceguera As Byte
    invisible As Byte
    Maldicion As Byte
    Oculto As Byte
    Desnudo As Byte
    Descansar As Boolean
    Hechizo As Integer
    TomoPocion As Boolean
    TipoPocion As Byte
    Mimetizado As e_EstadoMimetismo
    MascotasGuardadas As Byte
    Cleave As Byte 'we might support more than one type of cleave
    StatusMask As Long 'use the values from to set this flags e_StatusMask
    Navegando As Byte
    Seguro As Boolean
    SeguroParty As Boolean
    SeguroClan As Boolean
    SeguroResu As Boolean
    LegionarySecure As Boolean
    DuracionEfecto As Long
    TargetNPC As t_NpcReference ' Npc señalado por el usuario
    TargetNpcTipo As e_NPCType ' Tipo del npc señalado
    NpcInv As Integer
    Ban As Byte
    AdministrativeBan As Byte
    BanMotivo As String
    TargetUser As t_UserReference ' Usuario señalado
    TargetObj As Integer ' Obj señalado
    TargetObjMap As Integer
    TargetObjX As Integer
    TargetObjY As Integer
    TargetMap As Integer
    TargetX As Integer
    TargetY As Integer
    TargetObjInvIndex As Integer
    TargetObjInvSlot As Integer
    UsingItemSlot As Integer
    AtacadoPorNpc As t_NpcReference
    AtacadoPorUser As Integer
    NPCAtacado As t_NpcReference
    StatsChanged As Byte
    Privilegios As e_PlayerType
    ValCoDe As Integer
    RecentKillers(MaxRecentKillToStore) As t_RecentKiller 'Circular buffer to store recent killers to this user
    LastKillerIndex As Integer 'Last killer index of the circular buffer
    OldBody As Integer
    OldHead As Integer
    AdminInvisible As Byte
    AdminPerseguible As Boolean
    VecesQueMoriste As Long
    MinutosRestantes As Byte
    SegundosPasados As Byte
    ChatColor As Long
    UltimoMensaje As Integer
    Silenciado As Byte
    Traveling As Byte
    EnConsulta As Boolean
    ChatHistory(1 To 15) As String
    EnReto As Boolean
    SalaReto As Integer
    EquipoReto As e_EquipoReto
    AceptoReto As t_UserReference
    SolicitudReto As t_SolicitudReto
    LastPos As t_WorldPos
    ReturnPos As t_WorldPos
    YaGuardo As Boolean
    ModificoAttributos As Boolean
    ModificoHechizos As Boolean
    ModificoInventario As Boolean
    ModificoInventarioBanco As Boolean
    ModificoSkills As Boolean
    ModificoMascotas As Boolean
    ModificoQuests As Boolean
    ModificoQuestsHechas As Boolean
    QuestNumber As Integer
    QuestItemSlot As Integer
    RespondiendoPregunta As Boolean
    CurrentTeam As Byte
    'Captura de bandera
    jugando_captura As Byte
    jugando_captura_timer As Integer
    jugando_captura_muertes As Integer
    tiene_bandera As Byte
End Type

Public Enum e_EstadoMimetismo
    Desactivado = 0
    FormaUsuario = 1
    FormaBichoSinProteccion = 2
    FormaBicho = 3
End Enum

Public Type t_ControlHechizos
    HechizosTotales As Long
    HechizosCasteados As Long
End Type

Public Type t_UserCounters
    TiempoDeInmunidad As Byte
    TiempoDeInmunidadParalisisNoMagicas As Byte
    LastGmMessage As Long
    CounterGmMessages As Long
    EnCombate As Byte
    TiempoParaSubastar As Byte
    UserHechizosInterval(1 To MAXUSERHECHIZOS) As Long
    controlHechizos As t_ControlHechizos
    timeChat As Integer
    timeFx As Integer
    timeGuildChat As Integer
    IdleCount As Integer
    AttackCounter As Integer
    HPCounter As Integer
    STACounter As Integer
    Frio As Integer
    Lava As Integer
    COMCounter As Integer
    AGUACounter As Integer
    Veneno As Integer
    Incineracion As Integer
    Paralisis As Integer
    velocidad As Integer
    Inmovilizado As Integer
    StunEndTime As Long
    Ceguera As Integer
    Estupidez As Integer
    Mimetismo As Integer
    ' Anticheat
    SpeedHackCounter As Single
    LastStep As Long
    Invisibilidad As Integer
    DisabledInvisibility As Integer
    TiempoOculto As Integer
    LastAttackTime As Long
    PiqueteC As Long
    Pena As Long
    SendMapCounter As t_WorldPos
    pasos As Integer
    '[Gonzalo]
    Saliendo As Boolean
    Salir As Integer
    '[/Gonzalo]
    RepetirMensaje As Integer
    MensajeGlobal As Long
    Maldicion As Byte
    TimerLanzarSpell As Long
    TimerPuedeAtacar As Long
    TimerPuedeUsarArco As Long
    TimerPuedeTrabajar As Long
    TimerUsar As Long
    TimerUsarClick As Long
    TimerMagiaGolpe As Long
    TimerGolpeMagia As Long
    TimerGolpeUsar As Long
    TimerCaminar As Long
    TimerTirar As Long
    TimerMeditar As Long
    TiempoInicioMeditar As Long
    'Nuevos de AoLibre
    TimerPuedeSerAtacado As Long
    TimerPerteneceNpc As Long
    Trabajando As Long  ' Para el centinela
    LastTrabajo As Integer
    Ocultando As Long   ' Unico trabajo no revisado por el centinela
    goHome As Long
    LastSave As Long
    CuentaRegresiva As Integer
    TimerBarra As Integer
    LastResetTick As Long
    LastTransferGold As Long
End Type

Public Type t_UserIntervals
    Magia As Long
    Golpe As Long
    Arco As Long
    UsarU As Long
    UsarClic As Long
    Caminar As Long
    GolpeMagia As Long
    MagiaGolpe As Long
    GolpeUsar As Long
    TrabajarExtraer As Long
    TrabajarConstruir As Long
End Type

Public Type t_QuestStats
    Quests(1 To MAXUSERQUESTS) As t_UserQuest
    NumQuestsDone As Integer
    QuestsDone() As Integer
End Type

' ------------- FACCIONES -------------
Public Type t_Facciones
    Status As Byte ' Esto deberia ser e_Facciones
    ArmadaReal As Byte
    FuerzasCaos As Byte
    CriminalesMatados As Long
    ciudadanosMatados As Long
    RecompensasReal As Long ' a.k.a Rango armada real
    RecompensasCaos As Long ' a.k.a Rango legion caos
    RecibioArmaduraReal As Byte
    RecibioArmaduraCaos As Byte
    Reenlistadas As Byte
    NivelIngreso As Integer
    MatadosIngreso As Integer 'Para Armadas nada mas
    FactionScore As Long
End Type

Public Type t_RangoFaccion
    rank As Byte
    Titulo As String
    NivelRequerido As Byte
    RequiredScore As Long
End Type

Public Type t_RecompensaFaccion
    rank As Byte
    ObjIndex As Integer
End Type

Public Type t_ComercioUsuario
    itemsAenviar(1 To 6) As t_Obj ' Mas de 6 no se puede, la UI muestra solo eso.
    DestUsu As t_UserReference 'El otro Usuario
    DestNick As String
    Objeto As Integer 'Indice del inventario a comerciar, que objeto desea dar
    Oro As Long
    cant As Long 'Cuantos comerciar, cuantos objetos desea dar
    Acepto As Boolean
End Type

Public Type t_UserTrabajo
    TargetSkill As e_Skill
    Target_X As Integer
    Target_Y As Integer
    'Para macro de Carpinteria, Herrería y Sastrería
    Item As Integer
    Cantidad As Long
End Type

Public Type t_UserPersistQuestSnapshot
    QuestIndex As Integer
    NPCsKilled() As Integer
    NPCsTarget() As Integer
End Type

Public Type t_UserPersistSnapshot
    LastSpells(1 To MAXUSERHECHIZOS) As Integer
    LastInventory(1 To MAX_INVENTORY_SLOTS) As t_UserOBJ
    LastBank(1 To MAX_BANCOINVENTORY_SLOTS) As t_UserOBJ
    LastSkills(1 To NUMSKILLS) As Integer
    LastPetType(1 To MAXMASCOTAS) As Integer
    LastQuests(1 To MAXUSERQUESTS) As t_UserPersistQuestSnapshot
    LastQuestsDone() As Integer
End Type

Type Tgrupo
    EnGrupo As Boolean
    CantidadMiembros As Byte
    Miembros(1 To 6) As t_UserReference
    Lider As t_UserReference
    PropuestaDe As t_UserReference
    Id As Long
End Type

Public Type t_LastNetworkUssage
    Map As Integer
    StartIdex As Integer
    ExitIndex As Integer
End Type

Public Enum e_CdTypes
    e_magic = 1
    e_Melee = 2
    e_potions = 3
    e_Ranged = 4
    e_Throwing = 5
    e_Resurrection = 6
    e_Traps = 7
    e_WeaponPoison = 8
    e_Arpon = 9
    e_HandCannon = 10
    e_CartBuff = 11
    [CDCount]
End Enum

Public Enum e_EffectType
    eBuff = 1
    eDebuff
    eCD
    eInformativeDebuff
    eInformativeBuff
    eAny
End Enum

Public Const ACTIVE_EFFECT_LIST_SIZE As Integer = 10

Public Type t_EffectOverTimeList
    CallbaclMask As Long
    EffectList() As IBaseEffectOverTime
    EffectCount As Integer
End Type

Public Enum e_HotkeyType
    Item = 1
    Spell = 2
    Unknown = 3
End Enum

Public Type t_HotkeyEntry
    Type As e_HotkeyType
    Index As Integer
    LastKnownSlot As Integer
End Type

Public Type t_ConnectionInfo
    IP As String
    ConnIDValida As Boolean
    ConnID As Long
    OnConnectTimestamp As Long
End Type

Public Const HotKeyCount As Integer = 10

'Tipo de los Usuarios
Public Type t_User
    name As String
    Alias As String
    Cuenta As String
    'User types are created at startup and reused every time,
    'the version id help to validate that a reference we stored is still valid,
    'this value should be updated every time we reuse this instance
    VersionId As Integer
    InUse As Boolean 'Mark if the slot is un use, should be set when players connect and clear on dc, used for debug and error handling
    Id As Long
    Trabajo As t_UserTrabajo
    AccountID As Long
    Grupo As Tgrupo
    showName As Boolean 'Permite que los GMs oculten su nick con el comando /SHOWNAME
    Char As t_Char 'Define la apariencia
    CharMimetizado As t_Char
    NameMimetizado As String
    OrigChar As t_Char
    Desc As String ' Descripcion
    DescRM As String
    clase As e_Class
    raza As e_Raza
    genero As e_Genero
    Email As String
    Hogar As e_Ciudad
    PosibleHogar As e_Ciudad
    MENSAJEINFORMACION As String
    invent As t_Inventario
    Invent_bk As t_Inventario
    Invent_Skins                As tSkinInventario
    pos As t_WorldPos
    ConnectionDetails As t_ConnectionInfo
    CurrentInventorySlots As Byte
    BancoInvent As t_BancoInventario
    Counters As t_UserCounters
    Intervals As t_UserIntervals
    Stats As t_UserStats
    Stats_bk As t_UserStats
    Modifiers As t_ActiveModifiers
    flags As t_UserFlags
    Accion As t_AccionPendiente
    CdTimes(e_CdTypes.CDCount) As Long
    LastTransportNetwork As t_LastNetworkUssage
    EffectOverTime As t_EffectOverTimeList
    Faccion As t_Facciones
    ChatCombate As Byte
    ChatGlobal As Byte
    ComUsu As t_ComercioUsuario
    EmpoCont As Byte
    NroMascotas As Integer
    MascotasType(1 To MAXMASCOTAS) As Integer
    MascotasIndex(1 To MAXMASCOTAS) As t_NpcReference
    GuildIndex As Integer   'puntero al array global de guilds
    FundandoGuildAlineacion As e_ALINEACION_GUILD     'esto esta aca hasta que se parchee el cliente y se pongan cadenas de datos distintas para cada alineacion
    EscucheClan As Integer
    LastGuildRejection As String
    KeyCrypt As Integer
    AreasInfo As t_AreaInfo
    QuestStats As t_QuestStats
    Persist As t_UserPersistSnapshot
    Keys(1 To MAXKEYS) As Integer
    HotkeyList(HotKeyCount) As t_HotkeyEntry
    CraftInventory(1 To MAX_SLOTS_CRAFTEO) As Integer
    CraftCatalyst As t_Obj
    CraftResult As clsCrafteo
    public_key As String
    decrypted_session_token As String
    encrypted_session_token As String
    encrypted_session_token_db_id As Long
    MacroIterations(1 To MAX_PACKET_COUNTERS) As Long
    PacketTimers(1 To MAX_PACKET_COUNTERS) As Long
    PacketCounters(1 To MAX_PACKET_COUNTERS) As Long
    AutomatedAction As t_AutomatedAction
End Type

Public MacroIterations(1 To MAX_PACKET_COUNTERS)      As Long
Public PacketTimerThreshold(1 To MAX_PACKET_COUNTERS) As Long

'*********************************************************
'*********************************************************
'*********************************************************
'*********************************************************
'**  T I P O S   D E    N P C S **************************
'*********************************************************
'*********************************************************
'*********************************************************
'*********************************************************
Public Type t_NPCStats
    MaxHp As Long
    MinHp As Long
    MaxHit As Integer
    MinHIT As Integer
    shield As Long
    def As Integer
    defM As Integer 'direct magic reduction
    MagicResistance As Integer 'magic skill required to do full damage to npc
    MagicDef As Integer 'magic reduction in percent
    MagicBonus As Single
    UsuariosMatados As Integer
    CantidadInvocaciones As Byte
    NpcsInvocados()      As t_NpcReference
End Type

Public Type t_NpcCounters
    Paralisis              As Long
    Inmovilizado           As Long
    StunEndTime            As Long
    TiempoExistencia       As Long
    IntervaloAtaque        As Long
    IntervaloMovimiento    As Long
    IntervaloLanzarHechizo As Long
    IntervaloRespawn       As Long
    UltimoAtaque           As Long
    CriaturasInvocadas     As Long
End Type

Public Enum e_Inmunities
    eTranslation = 1
End Enum

Public Enum e_BehaviorFlags
    eAttackUsers = 1
    eAttackNpc = 2
    eHelpUsers = 4
    eHelpNpc = 8
    eConsideredByMapAi = 16
    eDisplayCastMessage = 32
    eDontHitVisiblePlayers = 64
    eDebugAi = 128
End Enum

Public Type t_NPCFlags
    AttackableByEveryone As Byte 'el NPC puede ser atacado indistintamente por PKs y Ciudadanos / ako
    MapEntryPrice As Integer
    MapTargetEntry As Integer
    MapTargetEntryX As Byte
    MapTargetEntryY As Byte
    ArenaEnabled As Boolean
    ImmuneToSpells As Byte
    AfectaParalisis As Byte
    GolpeExacto As Byte
    Domable As Integer
    Respawn As Byte
    NPCActive As Boolean '¿Esta vivo?
    Follow As Boolean
    Faccion As e_Facciones
    LanzaSpells As Byte
    NPCIdle As Boolean
    Summoner As t_NpcReference
    EffectInmunity As Long
    ' Invasiones
    InvasionIndex As Integer
    SpawnBox As Integer
    IndexInInvasion As Integer
    StatusMask As Long 'use the values from e_StatusMask to set this flags
    ExpCount As Long '[ALEJO]
    OldMovement As e_TipoAI
    OldHostil As Byte
    AguaValida As Byte
    TierraInvalida As Byte
    ' UseAINow As Boolean No se usa, borrar de la DB!!!!
    Sound As Integer
    AttackedBy As String
    AttackedTime As Long
    AttackedFirstBy As String
    backup As Byte
    RespawnOrigPos As Byte
    Envenenado As Byte
    Paralizado As Byte
    Inmovilizado As Byte
    Incinerado As Byte
    invisible As Byte
    TranslationActive As Boolean
    Snd1 As Integer
    Snd2 As Integer
    Snd3 As Integer
    SndRespawn As Integer
    BehaviorFlags As Long 'Use with e_BehaviorFlags mask
    AIAlineacion As e_Alineacion
    team As Byte
    GlobalQuestBossIndex As Integer
    ElementalTags As Long
End Type

Public Type t_CriaturasEntrenador
    NpcIndex As Integer
    NpcName As String
    tmpIndex As Integer
    PuedeInvocar As Boolean
End Type

Public Type t_Vertice
    x As Integer
    y As Integer
End Type

Public Const MAX_PATH_LENGTH   As Integer = 512
Public Const PATH_VISION_DELTA As Integer = 5

Public Type t_NpcPathFindingInfo
    PathLength As Integer   ' Number of steps *
    Path() As t_Vertice      ' This array holds the path
    destination As t_Position ' The location where the NPC has to go
    RangoVision As Single
    OriginalVision As Single
    TargetUnreachable As Boolean
    PreviousAttackable As Byte
    StrafeOffset As t_Position
    StrafeExpiresAt As Long
    OrbitDirection As Integer
    OrbitReevaluateAt As Long
    NextPathRecomputeAt As Long
    '* By setting PathLenght to 0 we force the recalculation
    '  of the path, this is very useful. For example,
    '  if a NPC or a User moves over the npc's path, blocking
    '  its way, the function NpcLegalPos set PathLenght to 0
    '  forcing the seek of a new path.
End Type

Public Type t_Caminata
    offset As t_Position
    Espera As Long
End Type

Public Type t_NpcInventoryItem
    ObjIndex As Integer
    amount As Integer
End Type

Public Type t_NpcSpellCache
    SpellIndex As Integer
    Cd As Integer
End Type

Public Type t_NpcCaminataCache
    OffsetX As Integer
    OffsetY As Integer
    Espera As Long
End Type

Public Type t_NpcInfoCache
    Exists As Boolean
    TestOnly As Integer
    RequireToggle As String
    name As String
    SubName As String
    Desc As String
    nivel As Integer
    Movement As Integer
    AguaValida As Integer
    GlobalQuestBossIndex As Integer
    TierraInvalida As Integer
    Faccion As Integer
    ElementalTags As Long
    npcType As Integer
    Body As Integer
    Head As Integer
    Heading As Integer
    CastAnimation As Integer
    AnimacionesCount As Integer
    Animaciones() As Integer
    WeaponAnim As Integer
    ShieldAnim As Integer
    CascoAnim As Integer
    CartAnim As Integer
    Attackable As Integer
    Comercia As Integer
    Craftea As Integer
    Hostile As Integer
    AttackRange As Integer
    ProjectileType As Integer
    PreferedRange As Integer
    GiveEXP As Long
    Distancia As Integer
    GiveEXPClan As Long
    Veneno As Integer
    Domable As Integer
    AttackableByEveryone As Integer
    MapEntryPrice As Long
    MapTargetEntry As Integer
    MapTargetEntryX As Integer
    MapTargetEntryY As Integer
    ArenaEnabled As Integer
    GiveGLD As Long
    PoderAtaque As Long
    PoderEvasion As Long
    InvReSpawn As Integer
    ShowName As Integer
    GobernadorDe As Integer
    SoundOpen As Integer
    SoundClose As Integer
    IntervaloAtaque As Long
    IntervaloMovimiento As Long
    IntervaloLanzarHechizo As Long
    IntervaloRespawnMin As Long
    IntervaloRespawnMax As Long
    InformarRespawn As Integer
    QuizaProb As Integer
    MinTameLevel As Integer
    OnlyForGuilds As Integer
    ShowKillerConsole As Integer
    StatsMaxHp As Long
    StatsMinHp As Long
    StatsMaxHit As Long
    StatsMinHit As Long
    StatsDef As Long
    StatsDefM As Long
    MagicResistance As Long
    MagicDef As Long
    CantidadInvocaciones As Long
    MagicBonus As Long
    AIAlineacion As Integer
    Humanoide As Integer
    InventoryCount As Integer
    InventoryItems() As t_NpcInventoryItem
    LanzaSpells As Integer
    SpellRange As Integer
    Spells() As t_NpcSpellCache
    NroCriaturas As Integer
    Criaturas() As t_CriaturasEntrenador
    RestriccionAtaque As Integer
    RestriccionAyuda As Integer
    RespawnValue As Integer
    DontHitVisiblePlayers As Integer
    AddToMapAiList As Integer
    DisplayCastMessage As Integer
    Team As Integer
    Backup As Integer
    RespawnOrigPos As Integer
    AfectaParalisis As Integer
    GolpeExacto As Integer
    TranslationInmune As Integer
    ImmuneToSpells As Integer
    Snd1 As Integer
    Snd2 As Integer
    Snd3 As Integer
    SndRespawn As Integer
    NroExp As Integer
    Expresiones() As String
    NumQuiza As Integer
    QuizaDropea() As String
    NumQuest As Integer
    QuestNumber() As Integer
    NumDropQuest As Integer
    DropQuest() As t_QuestObj
    PathFindingVision As Integer
    NumDestinos As Integer
    Dest() As String
    Interface As Integer
    TipoItems As Integer
    PuedeInvocar As Integer
    CaminataLen As Integer
    Caminata() As t_NpcCaminataCache
End Type

Public Enum e_TipoAI
    Estatico = 1
    MueveAlAzar = 2
    FixedInPos = 3
    NpcDefensa = 4
    SigueAmo = 8
    NpcAtacaNpc = 9
    GuardiaPersigueNpc = 10
    SupportAndAttack = 11
    'Ships Bg
    BGTankBehavior = 12
    BGSupportBehavior = 13
    BGRangedBehavior = 14
    BGBossBehavior = 15
    BGBossReturnToOrigin = 16
    ' Animado
    Caminata = 20
    ' Eventos
    Invasion = 21
End Enum

Public Enum e_Alineacion
    ninguna = 0
    Real = 1
    Caos = 2
End Enum

Public Type t_NpcSpellEntry
    SpellIndex As Integer
    Cd As Byte
    lastUse As Long
End Type

Public Type t_Npc
    'Npc types are created at startup and reused every time,
    'the version id help to validate that a reference we stored is still valid,
    'this value should be updated every time we reuse this instance
    VersionId As Integer
    'We experience a lot of error trying to delete the same npc more than once, we use this to keep track of kills and help debug
    LastReset As e_DeleteSource
    Distancia As Byte
    NumDropQuest As Byte
    DropQuest() As t_QuestObj
    InformarRespawn As Byte
    name As String
    SubName As String
    Char As t_Char 'Define como se vera
    Desc As String
    DescExtra As String
    showName As Byte
    GobernadorDe As Byte
    npcType As e_NPCType
    Numero As Integer
    nivel As Integer
    InvReSpawn As Byte
    Comercia As Integer
    Craftea As Byte
    TargetUser As t_UserReference
    TargetNPC As t_NpcReference
    TipoItems As Integer
    SoundOpen As Integer
    SoundClose As Integer
    Veneno As Byte
    pos As t_WorldPos 'Posicion
    Orig As t_WorldPos
    Movement As e_TipoAI
    Attackable As Byte
    Hostile As Byte
    PoderAtaque As Long
    PoderEvasion As Long
    AttackRange As Byte
    ProjectileType As Byte
    PreferedRange As Byte
    GiveEXPClan As Long
    GiveEXP As Long
    GiveGLD As Long
    NumQuest As Integer
    QuestNumber() As Integer
    Stats As t_NPCStats
    flags As t_NPCFlags
    Contadores As t_NpcCounters
    IntervaloMovimiento As Long
    IntervaloAtaque As Long
    IntervaloLanzarHechizo As Long
    IntervaloRespawn As Long
    Modifiers As t_ActiveModifiers
    EffectOverTime As t_EffectOverTimeList
    invent As t_Inventario
    NroExpresiones As Byte
    Expresiones() As String ' le da vida ;)
    SpellRange As Byte
    Spells() As t_NpcSpellEntry  ' le da vida ;)
    ' Entrenadores
    NroCriaturas As Integer
    Criaturas() As t_CriaturasEntrenador
    MaestroNPC As t_NpcReference
    MaestroUser As t_UserReference
    Mascotas As Integer
    ' New!! Needed for pathfindig
    pathFindingInfo As t_NpcPathFindingInfo
    ' Esto es del Areas.bas
    AreasInfo As t_AreaInfo
    NumQuiza As Byte
    QuizaDropea() As String
    QuizaProb As Integer
    MinTameLevel As Byte
    OnlyForGuilds As Byte
    ShowKillerConsole As Byte
    NumDestinos As Byte
    dest() As String
    Interface As Byte
    'Para diferenciar entre clanes
    ClanIndex As Integer
    Caminata() As t_Caminata
    CaminataActual As Byte
    PuedeInvocar As Byte
    Humanoide As Boolean
End Type

'**********************************************************
'**********************************************************
'******************** Tipos del mapa **********************
'**********************************************************
'**********************************************************
'Tile
Public Type t_light
    Rango As Integer
    Color As Long
End Type

Public Type t_TransportNetworkExit
    TileX As Byte
    TileY As Byte
End Type

Public Type t_MapBlock
    Blocked As Byte
    Graphic(1 To 4) As Long
    UserIndex As Integer
    NpcIndex As Integer
    Particula As Byte
    TimeParticula As Integer
    ObjInfo As t_Obj
    TileExit As t_WorldPos
    trigger As e_Trigger
    ParticulaIndex As Integer
    Luz As t_light
    Trap As clsTrap
End Type

Public Enum e_MapSetting
    e_DropItems
    e_SafeFight
    e_FriendlyFire
End Enum

'Info del mapa
Type t_MapInfo
    map_name As String
    MapResource As Integer
    backup_mode As Byte
    music_numberHi As Long
    music_numberLow As Long
    Seguro As Byte
    zone As String
    terrain As String
    Newbie As Boolean
    SinMagia As Boolean
    SinInviOcul As Boolean
    NoPKs As Boolean
    NoCiudadanos As Boolean
    SoloClanes As Boolean
    ResuCiudad As Boolean
    ambient As String
    base_light As Long
    letter_grh As Long
    lluvia As Byte
    Nieve As Byte
    niebla As Byte
    NumUsers As Long
    ForceUpdate As Boolean
    MinLevel As Integer
    MaxLevel As Integer
    Salida As t_WorldPos
    NoMascotas As Boolean
    OnlyGroups As Boolean
    OnlyPatreon As Boolean
    DropItems As Boolean
    SafeFightMap As Boolean
    FriendlyFire As Boolean
    KeepInviOnAttack As Boolean
    TransportNetwork() As t_TransportNetworkExit
End Type

Public Type t_IndexHeap
    currentIndex As Integer
    IndexInfo() As Integer
End Type

Public Type t_GlobalDrop
    ObjectNumber As Integer
    MaxPercent As Single
    MinPercent As Single
    RequiredHPForMaxChance As Long
    amount As Integer
End Type

'********** V A R I A B L E S     P U B L I C A S ***********
Public SERVERONLINE                           As Boolean
Public ULTIMAVERSION                          As String
Public backup                                 As Boolean ' TODO: Se usa esta variable ?
Public ListaRazas(1 To NUMRAZAS)              As String
Public SkillsNames(1 To NUMSKILLS)            As String
Public ListaClases(1 To NUMCLASES)            As String
Public WeaponTypeNames(1 To eWeaponTypeCount) As String
Public ListaAtributos(1 To NUMATRIBUTOS)      As String
Public RecordUsuarios                         As Long
'Directorios
'Ruta base del server, en donde esta el "server.ini"
Public IniPath                                As String
Public CuentasPath                            As String
Public DeleteCuentasPath                      As String
'Ruta base para guardar los chars
Public CharPath                               As String
'Ruta base para guardar los users borrados
Public DeletePath                             As String
'Ruta base para los archivos de mapas
Public MapPath                                As String
'Ruta base para los DATs
Public DatPath                                As String
''
'Bordes del mapa
Public MinXBorder                             As Byte
Public MaxXBorder                             As Byte
Public MinYBorder                             As Byte
Public MaxYBorder                             As Byte
Public ResPos                                 As t_WorldPos ' TODO: Se usa esta variable ?
''
'Numero de usuarios actual
Public NumCuentas                             As Long
Public NumUsers                               As Integer
Public LastUser                               As Integer
Public LastChar                               As Integer
Public NumChars                               As Integer
Public LastNPC                                As Integer
Public NumNPCs                                As Integer
Public NumMaps                                As Long
Public NumObjDatas                            As Integer
Public NumeroHechizos                         As Integer
Public MaxConexionesIP                        As Integer
Public MaxUsersPorCuenta                      As Byte
Public IdleLimit                              As Integer
Public MaxUsers                               As Integer
Public HideMe                                 As Byte
Public MaxRangoFaccion                        As Byte ' El rango maximo que se puede alcanzar
Public LastBackup                             As String
Public minutos                                As String
Public haciendoBK                             As Boolean
Public PuedeCrearPersonajes                   As Integer
Public MinimumPriceMao                        As Long
Public GoldPriceMao                           As Long
Public MinimumLevelMao                        As Integer
Public ServerSoloGMs                          As Integer
Public EnTesting                              As Boolean
Public PendingConnectionTimeout               As Long
Public InstanceMapCount                       As Integer
'*****************ARRAYS PUBLICOS*************************
Public UserList()                             As t_User 'USUARIOS
Public NpcList(1 To MaxNPCs)                  As t_Npc 'NPCS
Public NpcInfoCache()                          As t_NpcInfoCache
Public NpcInfoCacheInitialized                As Boolean
Public MapData()                              As t_MapBlock
Public MapInfo()                              As t_MapInfo
Public Hechizos()                             As t_Hechizo
Public EffectOverTime()                       As t_EffectOverTime
Public CharList(1 To MAXCHARS)                As Integer
Public ObjData()                              As t_ObjData
Public ObjShop()                              As t_ObjData
Public FX()                                   As t_FXdata
Public SpawnList()                            As t_CriaturasEntrenador
Public ForbidenNames()                        As String
Public BlockedWordsDescription()              As String
Public ArmasHerrero()                         As Integer
Public ArmadurasHerrero()                     As Integer
Public BlackSmithElementalRunes()             As Integer
Public ObjCarpintero()                        As Integer
Public ObjAlquimista()                        As Integer
Public ObjSastre()                            As Integer
Public EspecialesTala()                       As t_Obj
Public EspecialesPesca()                      As t_Obj
Public Peces()                                As t_Obj
Public PecesEspeciales()                      As t_Obj
Public PesoPeces()                            As Long
Public RangosFaccion()                        As t_RangoFaccion
Public RecompensasFaccion()                   As t_RecompensaFaccion
Public ModClase(1 To NUMCLASES)               As t_ModClase
Public ModRaza(1 To NUMRAZAS)                 As t_ModRaza
Public Crafteos                               As New Dictionary
Public GlobalDropTable()                      As t_GlobalDrop
Public PoderCanas()                           As Integer
Public UniqueMapFishIDs()                     As Long
Public UniqueMapFishCount                     As Long

'*********************************************************
Public Nix                                    As t_WorldPos
Public Ullathorpe                             As t_WorldPos
Public Banderbill                             As t_WorldPos
Public Lindos                                 As t_WorldPos
Public Arghal                                 As t_WorldPos
Public Forgat                                 As t_WorldPos
Public Arkhein                                As t_WorldPos
Public Eldoria                                As t_WorldPos
Public Penthar                                As t_WorldPos
Public CityNix                                As t_CityWorldPos
Public CityUllathorpe                         As t_CityWorldPos
Public CityBanderbill                         As t_CityWorldPos
Public CityArghal                             As t_CityWorldPos
Public CityForgat                             As t_CityWorldPos
Public CityPenthar                            As t_CityWorldPos
Public CityLindos                             As t_CityWorldPos
Public CityEleusis                            As t_CityWorldPos
Public CityArkhein                            As t_CityWorldPos
Public CityEldoria                            As t_CityWorldPos
Public Prision                                As t_WorldPos
Public Libertad                               As t_WorldPos
Public Renacimiento                           As t_WorldPos
Public NixDock                                As t_Transport
Public ForgatDock                             As t_Transport
Public ArghalDock                             As t_Transport
Public BarcoNavegandoForgatNix                As t_Transport
Public BarcoNavegandoNixArghal                As t_Transport
Public BarcoNavegandoArghalForgat             As t_Transport
Public TotalMapasCiudades()                   As String
Public Ayuda                                  As New cCola
Public TiempoPesca                            As Long
Public BotinInicial                           As Double
Public segundos                               As Long
Public Declare Function writeprivateprofilestring _
               Lib "Kernel32" _
               Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, _
                                                   ByVal lpKeyname As Any, _
                                                   ByVal lpString As String, _
                                                   ByVal lpfilename As String) As Long
Public Declare Function GetPrivateProfileString _
               Lib "Kernel32" _
               Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, _
                                                 ByVal lpKeyname As Any, _
                                                 ByVal lpdefault As String, _
                                                 ByVal lpreturnedstring As String, _
                                                 ByVal nSize As Long, _
                                                 ByVal lpfilename As String) As Long
Public Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (ByRef destination As Any, ByVal length As Long)

' Los Objetos Criticos nunca desaparecen del inventario de los npcs vendedores, una vez que
' se venden los 10.000 (max. cantidad de items x slot) vuelven a reabastecer.
Public Enum e_ObjetosCriticos
    Manzana = 1
    Manzana2 = 64
    ManzanaNewbie = 573
End Enum

Public Type t_Rectangle
    X1 As Integer
    Y1 As Integer
    X2 As Integer
    Y2 As Integer
End Type

Public Const DIAMETRO_VISION_GUARDIAS_NPCS As Byte = 7

Public Enum eNumber_Types
    ent_Byte
    ent_Integer
    ent_Long
    ent_Trigger
End Enum

Public Const DISTANCIA_ENVIO_DATOS As Byte = 3

Public Enum TipoPaso
    CONST_BOSQUE = 1
    CONST_NIEVE = 2
    CONST_CABALLO = 3
    CONST_DUNGEON = 4
    CONST_PISO = 5
    CONST_DESIERTO = 6
    CONST_PESADO = 7
End Enum

Public Type tPaso
    CantPasos As Byte
    wav() As Integer
End Type


Public pasos()             As tPaso
Public DBError             As String
Public EnEventoFaccionario As Boolean

Public Enum e_EffectOverTimeType
    eHealthModifier = 1
    eApplyModifiers = 2
    eProvoke = 3
    eProvoked = 4
    eTrap = 5
    eDrunk = 6
    eTranslation = 7
    eApplyEffectOnHit = 8
    eManaModifier = 9
    ePartyBonus = 10
    ePullTarget = 11
    eDelayedBlast = 12
    eUnequip = 13
    eMultipleAttacks = 14
    eProtection = 15
    eTransform = 16
    eBonusDamage = 17
    [EffectTypeCount]
End Enum

Public Enum e_EotTypeId
    eNone = 0
    eHealingDot = 1
    eManaSong = 2
    eSpeedSong = 3
    eHitSing = 4
    eEvasionSong = 5
    eDivineProtection = 6
    [EotTypeIdCount]
End Enum

Public Enum e_EOTTargetLimit
    eSingle = 1 'Only one on target for this type
    eSingleByCaster 'The target can have more than 1 effect of this type but only 1 for every caster
    eAny 'No limits
    eSingleByType 'can only have one effect of given type active at the time (like weapon poison)
    eSingleByTypeId 'only one by TypeId (so we can have different buff that share the same id and can't stack like different lvls of the same buff)
End Enum

Public Type t_BaseDotInfo
    TargetRef As t_AnyReference
    UniqueId As Long
    RemoveEffect As Boolean
    EotId As Integer
    Removed As Boolean
End Type

Public Sub SetBaseDot(ByRef DotInfo As t_BaseDotInfo, ByVal TargetIndex As Integer, ByVal RefType As e_ReferenceType, ByVal UniqueId As Long, ByVal EotId As Integer)
    Call SetRef(DotInfo.TargetRef, TargetIndex, RefType)
    DotInfo.RemoveEffect = False
    DotInfo.Removed = False
    DotInfo.EotId = EotId
    DotInfo.UniqueId = UniqueId
End Sub

Private Function ValidateUerRef(ByRef Ref As t_AnyReference) As Boolean
    ValidateUerRef = False
    If Ref.ArrayIndex < LBound(UserList) Then
        Exit Function
    End If
    If Ref.ArrayIndex > UBound(UserList) Then
        Exit Function
    End If
    If UserList(Ref.ArrayIndex).VersionId <> Ref.VersionId Then
        Exit Function
    End If
    ValidateUerRef = True
End Function

Private Function ValidateNpcRef(ByRef Ref As t_AnyReference) As Boolean
    ValidateNpcRef = False
    If Ref.ArrayIndex < LBound(NpcList) Then
        Exit Function
    End If
    If Ref.ArrayIndex > UBound(NpcList) Then
        Exit Function
    End If
    If NpcList(Ref.ArrayIndex).VersionId <> Ref.VersionId Then
        Exit Function
    End If
    ValidateNpcRef = True
End Function

Public Function IsValidRef(ByRef Ref As t_AnyReference) As Boolean
    IsValidRef = False
    If Ref.RefType = e_ReferenceType.eNone Then
        Exit Function
    ElseIf Ref.RefType = eUser Then
        IsValidRef = ValidateUerRef(Ref)
    Else
        IsValidRef = ValidateNpcRef(Ref)
    End If
End Function

Public Function SetRef(ByRef Ref As t_AnyReference, ByVal Index As Integer, ByVal RefType As e_ReferenceType) As Boolean
    SetRef = False
    Ref.RefType = RefType
    Ref.ArrayIndex = Index
    If RefType = eUser Then
        If Index <= 0 Or Ref.ArrayIndex > UBound(UserList) Then
            Exit Function
        End If
        Ref.VersionId = UserList(Index).VersionId
        Ref.UserId = UserList(Index).Id
    Else
        If Index <= 0 Or Ref.ArrayIndex > UBound(NpcList) Then
            Exit Function
        End If
        Ref.VersionId = NpcList(Index).VersionId
        Ref.UserId = 0
    End If
    SetRef = True
End Function

Public Function CastUserToAnyRef(ByRef UserRef As t_UserReference, ByRef AnyRef As t_AnyReference) As Boolean
    CastUserToAnyRef = False
    If Not IsValidUserRef(UserRef) Then
        Call ClearRef(AnyRef)
        Exit Function
    End If
    AnyRef.ArrayIndex = UserRef.ArrayIndex
    AnyRef.RefType = eUser
    AnyRef.VersionId = UserRef.VersionId
    AnyRef.UserId = UserList(UserRef.ArrayIndex).Id
    CastUserToAnyRef = True
End Function

Public Function CastNpcToAnyRef(ByRef NpcRef As t_NpcReference, ByRef AnyRef As t_AnyReference) As Boolean
    CastNpcToAnyRef = False
    If Not IsValidNpcRef(NpcRef) Then
        Call ClearRef(AnyRef)
        Exit Function
    End If
    AnyRef.ArrayIndex = NpcRef.ArrayIndex
    AnyRef.RefType = eNpc
    AnyRef.VersionId = NpcRef.VersionId
    CastNpcToAnyRef = True
End Function

Public Sub ClearRef(ByRef Ref As t_AnyReference)
    Ref.ArrayIndex = 0
    Ref.VersionId = -1
    Ref.RefType = e_ReferenceType.eNone
    Ref.UserId = 0
End Sub

Public Sub ClearModifiers(ByRef Modifiers As t_ActiveModifiers)
    Modifiers.MagicDamageBonus = 0
    Modifiers.MagicDamageReduction = 0
    Modifiers.PhysicalDamageBonus = 0
    Modifiers.PhysicalDamageReduction = 0
    Modifiers.MovementSpeed = 0
    Modifiers.EvasionBonus = 0
    Modifiers.HitBonus = 0
    Modifiers.MagicHealingBonus = 0
    Modifiers.SelfHealingBonus = 0
End Sub

Public Sub IncreaseSingle(ByRef dest As Single, ByVal amount As Single)
    dest = dest + amount
End Sub

Public Sub IncreaseInteger(ByRef dest As Integer, ByVal amount As Integer)
    dest = dest + amount
End Sub

Public Sub IncreaseLong(ByRef dest As Long, ByVal amount As Long)
    dest = dest + amount
End Sub

Public Sub PerformanceTestStart(ByRef timer As Long)
    timer = GetTickCountRaw()
End Sub

' Test the time since last call and update the time
' log if there time betwen calls exced the limit
Public Sub PerformTimeLimitCheck(ByRef timer As Long, ByRef TestText As String, Optional ByVal TimeLimit As Long = 1000)
    Dim nowRaw   As Long
    Dim CurrTime As Double
    nowRaw = GetTickCountRaw()
    CurrTime = TicksElapsed(timer, nowRaw)
    If CurrTime > TimeLimit Then
        Call LogPerformance("Performance warning at: " & TestText & " elapsed time: " & CLng(CurrTime))
    End If
    timer = nowRaw
End Sub