'------------------------------------------------------------------------------
' <Trad>
'     Code généré par DampTrad AS3 -> VB
' </Trad>
'------------------------------------------------------------------------------

Imports DmpCore.Network
Imports System.Collections.Generic

Namespace Dofus.Network.Messages.Connection

    Public Class SelectedServerDataMessage
        Inherits NetworkMessage

        Public Const Id As Integer = 42

        Public Overrides ReadOnly Property ProtocolId() As UInteger
            Get
                Return Id
            End Get
        End Property

        Private m_serverId As UShort

        Public Overridable Property ServerId() As UShort
            Get
                Return m_serverId
            End Get
            Set
                m_serverId = value
            End Set
        End Property

        Private m_address As String

        Public Overridable Property Address() As String
            Get
                Return m_address
            End Get
            Set
                m_address = value
            End Set
        End Property

        Private m_port As UShort

        Public Overridable Property Port() As UShort
            Get
                Return m_port
            End Get
            Set
                m_port = value
            End Set
        End Property

        Private m_canCreateNewCharacter As Boolean

        Public Overridable Property CanCreateNewCharacter() As Boolean
            Get
                Return m_canCreateNewCharacter
            End Get
            Set
                m_canCreateNewCharacter = value
            End Set
        End Property

        Private m_ticket As List(Of System.Byte)

        Public Overridable Property Ticket() As List(Of System.Byte)
            Get
                Return m_ticket
            End Get
            Set
                m_ticket = value
            End Set
        End Property

        Public Sub Initiate(ByVal serverId As UShort, ByVal address As String, ByVal port As UShort, ByVal canCreateNewCharacter As Boolean, ByVal ticket As List(Of System.Byte))
            m_serverId = serverId
            m_address = address
            m_port = port
            m_canCreateNewCharacter = canCreateNewCharacter
            m_ticket = ticket
        End Sub

        Public Overrides Sub Serialize(ByVal writer As BigEndianWriter)
            writer.WriteVarShort(m_serverId)
            writer.WriteUTF(m_address)
            writer.WriteUShort(m_port)
            writer.WriteBoolean(m_canCreateNewCharacter)
            writer.WriteShort(CType(m_ticket.Count,Short))
            Dim ticketIndex As Integer
            ticketIndex = 0
            Do While (ticketIndex < m_ticket.Count)
                writer.WriteByte(m_ticket(ticketIndex))
                ticketIndex = (ticketIndex + 1)
            Loop
        End Sub

        Public Overrides Sub Deserialize(ByVal reader As BigEndianReader)
            m_serverId = reader.ReadVarUhShort
            m_address = reader.ReadUTF
            m_port = reader.ReadUShort
            m_canCreateNewCharacter = reader.ReadBoolean
            Dim ticketCount As Integer = reader.ReadUShort
            Dim ticketIndex As Integer
            m_ticket = New System.Collections.Generic.List(Of Byte)()
            ticketIndex = 0
            Do While (ticketIndex < ticketCount)
                m_ticket.Add(reader.ReadByte)
                ticketIndex = (ticketIndex + 1)
            Loop
        End Sub
    End Class
End Namespace