Olá, vim trazer um tutorial feito por mim que creio que ajudará bastante na "construção" de seu MMORPG! Vamos Começar...

Client~Side

Vá a frmNewChar, crie um Timer e mude suas propriedades:

Código:

(Name) - tmrRaca
Enabled - True
Interval - 1000

Na frmNewChar, crie 3 (ou mais, depende do seu MMORPG) Check Box, agora renomei-os assim:

Código:

chkRaca1
chkRaca2
chkRaca3

Agora de duplo clique no tmrRaca e acressente o seguinte código:

Código:

If chkRaca1.Value = Checked Then
chkRaca2.Value = Unchecked
chkRaca3.Value = Unchecked
chkRaca2.Enabled = False
chkRaca3.Enabled = False
ElseIf chkRaca2.Value = Checked Then
chkRaca1.Value = Unchecked
chkRaca3.Value = Unchecked
chkRaca1.Enabled = False
chkRaca3.Enabled = False
ElseIf chkRaca3.Value = Checked Then
chkRaca1.Value = Unchecked
chkRaca2.Value = Unchecked
chkRaca1.Enabled = False
chkRaca2.Enabled = False
End If

Vá ao modTypes e procure por:

Código:

EmoticonPlayed As Boolean

Dê um Enter e coloque:

Código:

Raca As Long

Continuando no modTypes, procure por:

Código:

Player(Index).EmoticonPlayed = True

Abaixo adicione:

Código:

Player(Index).Raca = 1

Continuando no modTypes, procure por:

Código:

Sub SetPlayerSP(ByVal Index As Long, ByVal SP As Long)
    Player(Index).SP = SP

    If GetPlayerSP(Index) > GetPlayerMaxSP(Index) Then
        Player(Index).SP = GetPlayerMaxSP(Index)
    End If
End Sub

Dê um Enter e coloque:

Código:


Function GetPlayerRaca(ByVal Index As Long) As Long
    GetPlayerRaca = Player(Index).Raca
End Function

Sub SetPlayerRaca(ByVal Index As Long, ByVal RacaNum As Long)
    Player(Index).Raca = RacaNum
End Sub

Vá ao modGameLogic e procure por:

Código:

Case MENU_STATE_ADDCHAR

Abaixo adicione:

Código:

                Dim Raca As Long
        If frmNewChar.chkRaca1.Value = Checked Then
            Raca = 1
        End If
        If frmNewChar.chkRaca2.Value = Checked Then
            Raca = 2
        End If
        If frmNewChar.chkRaca.Value = Checked Then
            Raca = 3
        End If

Continuando no modGameLogic, procure por:

Código:

            frmNewChar.Hide
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando pedido de criação de personagem...")
                If frmNewChar.optMale.Value = True Then
                    Call SendAddChar(frmNewChar.txtName, 0, frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1)
                Else
                    Call SendAddChar(frmNewChar.txtName, 1, frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1)
                End If
            End If

Mude para:

Código:

            frmNewChar.Hide
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando pedido de criação de personagem...")
                If frmNewChar.optMale.Value = True Then
                    Call SendAddChar(frmNewChar.txtName, 0, frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1, Raca)
                Else
                    Call SendAddChar(frmNewChar.txtName, 1, frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1, Raca)
                End If
            End If

Vá ao modClientTPC e procure por:

Código:

Sub SendAddChar(ByVal Name As String, ByVal Sex As Long, ByVal ClassNum As Long, ByVal Slot As Long)
Dim Packet As String

    Packet = "addachara" & SEP_CHAR & Trim(Name) & SEP_CHAR & Sex & SEP_CHAR & ClassNum & SEP_CHAR & Slot & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub

Mude para:

Código:

Sub SendAddChar(ByVal Name As String, ByVal Sex As Long, ByVal ClassNum As Long, ByVal Slot As Long, ByVal Raca As Long)
Dim Packet As String

    Packet = "addachara" & SEP_CHAR & Trim(Name) & SEP_CHAR & Sex & SEP_CHAR & ClassNum & SEP_CHAR & Slot & SEP_CHAR & Raca & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub

Parte Client~Side pronta.

Server~Side

No modDataBase, procure por:

Código:

Sub AddChar(ByVal Index As Long, _
  ByVal Name As String, _
  ByVal Sex As Byte, _
  ByVal ClassNum As Byte, _
  ByVal CharNum As Long, _)


Mude para:

Código:

Sub AddChar(ByVal Index As Long, _
  ByVal Name As String, _
  ByVal Sex As Byte, _
  ByVal ClassNum As Byte, _
  ByVal CharNum As Long, _
  ByVal RacaPath As Long)

Continuando no modDataBase, procure por:

Código:

    If Trim$(Player(Index).Char(CharNum).Name) = vbNullString Then
        Player(Index).CharNum = CharNum
        Player(Index).Char(CharNum).Name = Name
        Player(Index).Char(CharNum).Sex = Sex
        Player(Index).Char(CharNum).Class = ClassNum

Mude para:

Código:

    If Trim$(Player(Index).Char(CharNum).Name) = vbNullString Then
        Player(Index).CharNum = CharNum
        Player(Index).Char(CharNum).Name = Name
        Player(Index).Char(CharNum).Sex = Sex
        Player(Index).Char(CharNum).Class = ClassNum
        Player(Index).Char(CharNum).Raca = RacaPath

Continuando no modDataBase, procure por:

Código:

        Call PutVar(FileName, "CHAR" & i, "Guildaccess", STR(Player(Index).Char(i).Guildaccess))

Abaixo adicione:

Código:

        Call PutVar(FileName, "CHAR" & i, "Raca", STR(Player(Index).Char(i).Raca))

No modTypes, procure por:

Código:

    ' Posição
    Map As Long
    x As Byte
    y As Byte
    Dir As Byte
    Friends(1 To MAX_FRIENDS) As String

Dê um Enter e adicione:

Código:

Raca As Long

Continuando no modTypes, procure por:

Código:

Emoticon As Long

Abaixo adicione:

Código:

    Raca As Long

Continuando no modTypes, procure por:

Código:

    Player(Index).Char(CharNum).Magi = 0

Abaixo adicione:

Código:

    Player(Index).Char(CharNum).Raca = 1

Continuando no modTypes, procure por:

Código:

        Player(Index).Char(i).Magi = 0

Abaixo adicione:

Código:

        Player(Index).Char(i).Raca = 1

Continuando no modTypes, procure por:

Código:

Sub SetPlayerWeaponSlot(ByVal Index As Long, _
  InvNum As Long)
    Player(Index).Char(Player(Index).CharNum).WeaponSlot = InvNum
End Sub

Dê um Enter e adicione:

Código:


Function GetPlayerRaca(ByVal Index As Long) As Long
    GetPlayerRaca = Player(Index).Char(Player(Index).CharNum).Raca
End Function

Sub SetPlayerRaca(ByVal Index As Long, _
  ByVal RacaNum As Long)
    Player(Index).Char(Player(Index).CharNum).Raca = RacaNum
End Sub

Vá ao clsCommandse procure por:

Código:

Private Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnedString$, ByVal RSSize&, ByVal FileName$)


Dê Enter e adicione:

Código:

    Function GetPlayerRaca(ByVal Index As Long) As Long
        GetPlayerRaca = Player(Index).Char(Player(Index).CharNum).Raca
    End Function

    Sub SetPlayerRaca(ByVal Index As Long, _
        ByVal RacaNum As Long)
        Player(Index).Char(Player(Index).CharNum).Raca = RacaNum
    End Sub

Vá ao modServerTPC e procure por:

Código:

            Case "addachara"
                Name = Parse(1)
                Sex = Val(Parse(2))
                Class = Val(Parse(3))
                CharNum = Val(Parse(4))

Mude para:

Código:

            Case "addachara"
            Dim RacaPath As Long
                Name = Parse(1)
                Sex = Val(Parse(2))
                Class = Val(Parse(3))
                CharNum = Val(Parse(4))
                RacaPath = Val(Parse(5))

Continuando no modServerTPC, procure por:

Código:

                Call AddChar(Index, Name, Sex, Class, CharNum)

Mude para:

Código:

                Call AddChar(Index, Name, Sex, Class, CharNum, RacaPath)

Tutorial terminado :D
Espero que tenham gostado, caso dê errado, foi porque você fez algo errado...

Créditos:
Lenon

bom tuto novamente +2