[Aportes indexados] Invocar BOSS de clanes desde .ini

Call InicializaEstadisticas

Call CargarBossClanes

Private Const MAXANTIFACCION As Byte = 5
'puntos maximos de antifaccion que un clan tolera antes de ser cambiada su alineacion

'Para las invocaciones
Public estadoBossClan As Boolean
Public invocadores() As Integer
Public bossInvocadoIndex As Integer
Public cantidadinvocadores As Integer

Private Type Boss
    NumNpc As Integer
    Mapa As Integer
    CoordXBoss As Byte
    CoordYBoss As Byte
    CoordXInvocador() As Byte
    CoordYInvocador() As Byte
End Type

Public datosBoss As Boss

Public Sub CargarBossClanes()
'**Código by Bramh**
'**7/10/2021**
 
    If frmMain.Visible Then frmMain.txStatus.Caption = "Cargando sistema de boss"
 
    'Declaraciones
    Dim ubicacionArchivo As String
    Dim cantinvocadoresMax As Byte
    Dim loopX As Long

    ubicacionArchivo = App.Path & "\Dat\BossClanes.ini"

    'Número total de invocadores
    cantidadinvocadores = val(GetVar(ubicacionArchivo, "DatosBoss", "CantidadInvocadores"))

    With datosBoss
        .NumNpc = val(GetVar(ubicacionArchivo, "DatosBoss", "NumNpcBoss"))
        .Mapa = val(GetVar(ubicacionArchivo, "DatosBoss", "MapInvocarBoss"))
        .CoordXBoss = val(GetVar(ubicacionArchivo, "DatosBoss", "MapInvocarBossCordX"))
        .CoordYBoss = val(GetVar(ubicacionArchivo, "DatosBoss", "MapInvocarBossCordY"))

        ReDim invocadores(1 To cantidadinvocadores) As Integer
        ReDim .CoordXInvocador(1 To cantidadinvocadores) As Byte
        ReDim .CoordYInvocador(1 To cantidadinvocadores) As Byte
    
        For loopX = 1 To cantidadinvocadores
            .CoordXInvocador(loopX) = GetVar(ubicacionArchivo, "DatosBoss", "InvocadorCoordX" & loopX)
            .CoordYInvocador(loopX) = GetVar(ubicacionArchivo, "DatosBoss", "InvocadorCoordY" & loopX)
        Next loopX
    End With

End Sub

Public Sub invocarBoss()
'**Código by Bramh**
'**7/10/2021**
    Dim loopZ As Long
    With datosBoss
        If MapData(.Mapa, .CoordXInvocador(1), .CoordYInvocador(1)).UserIndex > 0 And MapData(.Mapa, .CoordXInvocador(2), .CoordYInvocador(2)).UserIndex > 0 And MapData(.Mapa, .CoordXInvocador(3), .CoordYInvocador(3)).UserIndex > 0 And MapData(.Mapa, .CoordXInvocador(4), .CoordYInvocador(4)).UserIndex > 0 Then
        
            For loopZ = 1 To cantidadinvocadores
                invocadores(loopZ) = MapData(.Mapa, .CoordXInvocador(loopZ), .CoordYInvocador(loopZ)).UserIndex
            Next loopZ
        
            'Si no están muertos.....
            If (UserList(invocadores(1)).Flags.Muerto = 0) And UserList(invocadores(2)).Flags.Muerto = 0 And UserList(invocadores(3)).Flags.Muerto = 0 And UserList(invocadores(4)).Flags.Muerto = 0 And bossInvocadoIndex = 0 Then
                estadoBossClan = True
                Dim tmpWP As WorldPos
                tmpWP.map = .Mapa
                tmpWP.X = .CoordXBoss
                tmpWP.Y = .CoordYBoss

                '673 estadoBossClan index
                bossInvocadoIndex = SpawnNpc(.NumNpc, tmpWP, True, False)
                Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Se ha invocado el boss de clanes, en Dungeon Hodor, vea el mapa para localizar el sitio!" & vbNewLine & "¡No dejes que saquen ventaja!" & vbNewLine & "¡Apúrate a ir!", FontTypeNames.FONTTYPE_CENTINELA))
            End If
        End If
    End With
End Sub

Sub MuereNpc(ByVal NpcIndex As Integer, ByVal UserIndex As Integer)

If estadoBossClan Then
        If NpcIndex = bossInvocadoIndex Then
            SendData SendTarget.toall, 0, PrepareMessageConsoleMsg(UserList(UserIndex).Name & " Ha derrotado al boss " & MiNPC.Name, FontTypeNames.FONTTYPE_CENTINELA)
            estadoBossClan = False
            dim tz as long
            For tz = 1 To 4
                If invocadores(tz) > 0 Then
                    UserList(invocadores(tz)).Stats.GLD = UserList(invocadores(tz)).Stats.GLD + 20000
                    WriteUpdateGold invocadores(tz)
                    Call WriteConsoleMsg(invocadores(tz), "Has recibido 20.000 monedas de oro como premio por derrotar al boss de clanes.", FontTypeNames.FONTTYPE_INFOBOLD)
                End If
            Next tz
        End If
    End If

'<< Actualizamos clientes >>
        Call ChangeUserChar(UserIndex, .Char.Body, .Char.Head, .Char.heading, NingunArma, NingunEscudo, NingunCasco)
        Call WriteUpdateUserStats(UserIndex)

If estadoBossClan Then
            Dim iz as long
            For iz = 1 To 4
                Dim tmpN As String
                If invocadores(iz) > 0 Then
                    If invocadores(iz) = UserIndex Then
                        If UserList(invocadores(iz)).Flags.Muerto = 1 Then
                            'murieron todos, desaparece el npc
                            tmpN = Npclist(bossInvocadoIndex).Name
                            QuitarNPC bossInvocadoIndex
                            invocadores(iz) = 0
                            estadoBossClan = False
                        End If
                    End If
                End If
            Next iz
        
            If Not estadoBossClan Then
                bossInvocadoIndex = 0
            End If
        
            SendData SendTarget.toall, 0, PrepareMessageConsoleMsg("Uno de los 4 invocadores del " & tmpN & " de la zona de clanes ha muerto, la estadoBossClan desaparece hasta que otros 4 valientes guerreros quieran enfrentarle.", FontTypeNames.FONTTYPE_CENTINELA)
        End If

If UserIndex = LastUser Then
        Do Until UserList(LastUser).Flags.UserLogged
            LastUser = LastUser - 1
            If LastUser < 1 Then Exit Do
        Loop
    End If

    If estadoBossClan Then
        Dim zss As Long
        For zss = 1 To 4
            If (invocadores(zss) = UserIndex) Then
                estadoBossClan = False
                QuitarNPC bossInvocadoIndex
                invocadores(zss) = 0
            End If
        Next zss
    End If

    If Not estadoBossClan Then
        bossInvocadoIndex = 0
    End If

[DatosBoss]
NumNpcBoss=673
MapInvocarBoss=190
MapInvocarBossCordX=59
MapInvocarBossCordY=23
CantidadInvocadores=4
InvocadorCoordX1=56
InvocadorCoordY1=21
InvocadorCoordX2=63
InvocadorCoordY2=21
InvocadorCoordX3=56
InvocadorCoordY3=26
InvocadorCoordX4=63
InvocadorCoordY4=26

'Créditos: @Gordis150 <3

Private Type Boss
    MapaBoss As WorldPos
End Type

Public datosBoss As Boss

Dim TempStr As String 'Temporal String
Dim Ascii as Byte 'Código Ascii para el separador

Ascii = Asc("-") 'Declaración del separador

Dim Leer As clsIniManager
Set Leer = New clsIniManager

Leer.Initialize "BossClanes.ini" 'Abrimos el archivo

'Leemos el valor
TempStr = vbNullString 'Reseteamos la variable temporal (para cada ves que se tenga que leer algo de este estilo)
TempStr = Leer.GetValue("DatosBoss", "MapaBoss") 'Leemos [DatosBoss] y luego la propiedad "MapaBoss" del archivo BossClanes.ini

datosBoss.MapaBoss.Map = General.ReadField(1, TempStr, Ascii) 'Leo el Mapa y separo con el separador
datosBoss.MapaBoss.X = General.ReadField(2, TempStr, Ascii) 'Leo la posición X
datosBoss.MapaBoss.Y = General.ReadField(3, TempStr, Ascii) 'Leo la posición Y

Set Leer = Nothing

[DatosBoss]
MapaBoss=190-59-23

Function ReadField(ByVal Pos As Integer, ByRef Text As String, ByVal SepASCII As Byte) As String
'*****************************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 11/15/2004
'Gets a field from a delimited string
'*****************************************************************

Dim i As Long
Dim lastPos As Long
Dim CurrentPos As Long
Dim delimiter As String * 1
   
delimiter = Chr$(SepASCII)
   
For i = 1 To Pos
    lastPos = CurrentPos
    CurrentPos = InStr(lastPos + 1, Text, delimiter, vbBinaryCompare)
Next i
   
If CurrentPos = 0 Then
    ReadField = mid$(Text, lastPos + 1, Len(Text) - lastPos)
Else
    ReadField = mid$(Text, lastPos + 1, CurrentPos - lastPos - 1)
End If

End Function

InvocadorUnoCoord(0 To 1) As Byte

TempStr = vbNullString
TempStr = Leer.GetValue("DatosBoss", "InvocadorUnoCoord")

BossClanes.InvocadorUnoCoord(0) = val(General.ReadField(1, TempStr, Ascii))
BossClanes.InvocadorUnoCoord(1) = val(General.ReadField(2, TempStr, Ascii))

InvocadorUnoCoord=56-21

Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Se ha invocado el boss de clanes, en Dungeon Hodor, vea el mapa para localizar el sitio!" & vbNewLine & "¡No dejes que saquen ventaja!" & vbNewLine & "¡Apúrate a ir!", FontTypeNames.FONTTYPE_CENTINELA))