Namespace Network.Messages.Game.Character.Creation
    Public Class CharacterCreationRequestMessage

        Public name As String = Myform.TextCharacterName.Text
        Public breed As Integer = Myform.IdBreed(0)
        Public sex As Boolean = False
        Public colors As New List(Of Integer)
        Private Const protocolId As UInteger = 160

        Private Function Color() As String

            Dim Rand As New Random

            Dim color1 As Integer = Rand.Next(0, 255)
            Dim color2 As Integer = Rand.Next(0, 255)
            Dim color3 As Integer = Rand.Next(0, 255)

            Return color1.ToString & color2.ToString & color3.ToString

        End Function

        Public Sub Pack()

            Log("[" & TimeOfDay & "] Début de la création du personnage " & name)

            If Myform.RadioGenre.Checked Then
                sex = False
            ElseIf Myform.RadioGenre2.Checked Then
                sex = True
            End If

            Dim Message As New Dofus.DofusMessage

            Message.WriteString(name)
            Message.WriteByte(breed)
            Message.WriteBoolean(sex)

            Dim _loc_2 As UInteger = 0
            While (_loc_2 < 6)
                Message.WriteUInt(colors(_loc_2))
                _loc_2 = _loc_2 + 1
            End While

            Sock.Send(Message, protocolId)

        End Sub

    End Class
End Namespace