Public Sub DarExpGlobal(ByVal UserIndex As Integer, Optional NpcIndex As Integer, Optional Damage As Long, Optional Experience As Long)
'This module replaces CalcularDarExp's module and can be used to give raw exp too

Dim Experiencia As Long

With UserList(UserIndex)

    If .Stats.ELV >= 18 And .AlineacionDisponible = 1 Then
        Call WriteConsoleMsg(UserIndex, "Debes elegir una alineación para poder seguir obtieniendo experiencia.", FontTypeNames.FONTTYPE_INFO)
        Exit Sub
    Else
        If NpcIndex > 0 Then

            If Damage <= 0 Then Damage = 0

            If Npclist(NpcIndex).Stats.MaxHP <= 0 Then Exit Sub

            If Damage > Npclist(NpcIndex).Stats.MinHP Then Damage = Npclist(NpcIndex).Stats.MinHP

            Experiencia = CLng(Damage * (Npclist(NpcIndex).GiveEXP / Npclist(NpcIndex).Stats.MaxHP))

            If Experiencia <= 0 Then Exit Sub

            If Experiencia > Npclist(NpcIndex).flags.ExpCount Then
                Experiencia = Npclist(NpcIndex).flags.ExpCount
                Npclist(NpcIndex).flags.ExpCount = 0
            Else
                Npclist(NpcIndex).flags.ExpCount = Npclist(NpcIndex).flags.ExpCount - Experiencia
            End If

            If Experiencia > 0 Then
                If .PartyIndex > 0 Then
                    Call mdParty.ObtenerExito(UserIndex, Experiencia, Npclist(NpcIndex).Pos.map, Npclist(NpcIndex).Pos.X, Npclist(NpcIndex).Pos.Y)
                Else
                    .Stats.Exp = .Stats.Exp + Experiencia

                    If .Stats.Exp > MAXEXP Then
                        .Stats.Exp = MAXEXP
                    End If

                     Call WriteConsoleMsg(UserIndex, "Has ganado " & Experiencia & " puntos de experiencia.", FontTypeNames.FONTTYPE_FIGHT)
                End If

                Call CheckUserLevel(UserIndex)
            End If

        Else

            Experiencia = Experience

            If Experiencia <= 0 Then Exit Sub

            If Experiencia > 0 Then
                .Stats.Exp = .Stats.Exp + Experiencia

                If .Stats.Exp > MAXEXP Then
                    .Stats.Exp = MAXEXP
                End If

                Call WriteConsoleMsg(UserIndex, "Has ganado " & Experiencia & " puntos de experiencia.", FontTypeNames.FONTTYPE_FIGHT)

                Call CheckUserLevel(UserIndex)

            End If
        End If
    End If

End With

End Sub