[ALL]Escolher raça (APROVADO)

por **Lendário** Sáb 24 Out 2009, 22:46

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: