Mensajes seteados

Option Explicit

'@@ Modulo de mensajes seteados desde el cliente
'@@ Autor: G Toyz

Public Type tMessagesClient

    Text As String
    font As Byte

End Type

Public Const MaxMessages As Integer = 365 '@@ // Máximo de mensajes.

Public MessagesClient(1 To MaxMessages) As tMessagesClient

Public Sub LoadMessagesClient()

    '@@@ G TOYZ:
    '@@ TODO: Este sub sólo debe ser llamado al iniciar el juego.

    Dim loopC As Long
    Dim Archive As String

    '@@ en donde alojan su .dat
    Archive = App.Path & "\init\" & "LoadMessages.dat"

    '@@ Leemos todos los datos en su .DAT
    For loopC = 1 To MaxMessages

        MessagesClient(loopC).Text = GetVar(Archive, "MESSAGE" & loopC, "MENSAJE")
        MessagesClient(loopC).font = Val(GetVar(Archive, "MESSAGE" & loopC, "FONT"))

    Next loopC

End Sub

Public Sub IncomingIndex(ByVal IndexMessage As Integer)

    '@@@ G TOYZ
    '@@@ Pongo el mensaje en la consola
    '@@@ Le doy color, negrita a elección e italic.

    With FontTypes(MessagesClient(IndexMessage).font)

        '@@ Mensaje
        ShowConsoleMsg MessagesClient(IndexMessage).Text, .Red, .Green, .Blue, .bold, .italic

    End With

End Sub