Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Sistema de Elemento

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Sistema de Elemento em Dom 24 Nov 2013, 14:41

athos100


Membro
Membro
Sistema De Elemento
Como Funciona~ 
Ao criar a conta você escolhe o elemento que deseja e para equipar certos itens é necessário ter um certo elemento.

Começando, Client~Side

Parte1~ Adicionando Elemento nos personagens.

Vá na frmnewchars crie e um combo e o denomine de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
cmbElemento


Em sua lista coloque como achar melhor.

Agora no ModTypes / Type Playerrec

Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
EmoticonPlayed As Boolean


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Elemento As String


Agora procure por

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).EmoticonPlayed = True


Abaixo adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Elemento = 0


Agora Acima de

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Function GetPlayerMaxHP(ByVal Index As Long) As Long
    GetPlayerMaxHP = Player(Index).MaxHP
End Function


Adicione

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Function GetPlayerElemento(ByVal Index As Long) As Long
    GetPlayerElemento = Player(Index).Elemento
End Function

Sub SetPlayerElemento(ByVal Index As Long, ByVal ElementoNum As Long)
    Player(Index).Elemento = ElementoNum
End Sub


Agora no modgamelogic procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Case MENU_STATE_ADDCHAR


Mude tudo para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Case MENU_STATE_ADDCHAR
            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,
frmNewChar.cmbElemento.ListIndex + 1)
                Else
       
             Call SendAddChar(frmNewChar.txtName, 1,
frmNewChar.cmbClass.ListIndex + 1, frmChars.lstChars.ListIndex + 1,
frmNewChar.cmbElemento.ListIndex + 1)
                End If
            End If


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendAddChar


Mude a sub inteira para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendAddChar(ByVal Name As String, ByVal Sex As Long, ByVal ClassNum As Long, ByVal Slot As Long, ByVal Elemento As Long)
Dim Packet As String

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


Server~side

Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SavePlayer(ByVal Index As Long)


E abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Call PutVar(FileName, "CHAR" & i, "Name", Trim$(Player(Index).Char(i).Name))


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Call PutVar(FileName, "CHAR" & i, "Elemento", Trim$(Player(Index).Char(i).elemento))


Agora procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

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


Abaixo Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
elemento As String


Agora na "Type AccountRec"

Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Emoticon As Long


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Element As String


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(CharNum).Magi = 0


Abaixo adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(CharNum).elemento = 0


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(i).Magi = 0


Abaixo adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(i).elemento = 0


Agora no fim do modtypes adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Function GetPlayerElemento(ByVal Index As Long) As Long
    GetPlayerElemento = Player(Index).Char(Player(Index).CharNum).elemento
End Function

Sub SetPlayerElemento(ByVal Index As Long, _
  ByVal ElementoNum As Long)
    Player(Index).Char(Player(Index).CharNum).elemento = ElementoNum
End Sub


Agora no ModServerTcp na Sub HandleData Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Dim Name As String


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Dim Element As String


Agora na "Case "addachara""

Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
CharNum = Val(Parse(4))


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
element = Parse(5)


Agora procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Call AddChar(Index, Name, Sex, Class, CharNum)


Mude para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Call AddChar(Index, Name, Sex, Class, CharNum, element)


Agora no fim da ClsCommands adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Function GetPlayerElemento(ByVal Index As Long) As Long
    GetPlayerElemento = Player(Index).Char(Player(Index).CharNum).elemento
End Function

Sub SetPlayerElemento(ByVal Index As Long, _
    ByVal ElementoNum As Long)
    Player(Index).Char(Player(Index).CharNum).elemento = ElementoNum
End Sub


Procure por

Code: -------------------------------------------------------------Selecionar conteúdo

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

Code: -------------------------------------------------------------Selecionar conteúdo

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 element As String)


Abaixo de :

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(CharNum).Class = ClassNum


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(CharNum).elemento = element


Agora na "Sub LoadPlayer" Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(i).Class = Val(GetVar(FileName, "CHAR" & i, "Class"))


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Player(Index).Char(i).elemento = GetVar(FileName, "CHAR" & i, "Elemento")


Parte2~ Elemento nos itens

Client~side

Na frmitemeditor crie um scrl e uma label e os denominem de :


lblelement
scrlelement


Agora dê 2 clicks no scrlelement e adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Private Sub scrlelement_Change()
Select Case scrlelement.Value
Case 0
lblelement.Caption = "Elemento Requerido: Fuuton"
Case 1
lblelement.Caption = "Elemento Requerido: Kaiton"
Case 2
lblelement.Caption = "Elemento Requerido: Doton"
Case 3
lblelement.Caption = "Elemento Requerido: Suiton"
Case 4
lblelement.Caption = "Elemento Requerido: Raiton"
End Select
End Sub


Agora na "Itemeditorinit" abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
frmItemEditor.cmbType.ListIndex = Item(EditorIndex).Type


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
frmItemEditor.scrlelement.Value = Item(EditorIndex).Elemento


Agora na "itemeditorok" abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(EditorIndex).Type = frmItemEditor.cmbType.ListIndex


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(EditorIndex).Elemento = frmItemEditor.scrlelement.Value


Procure por: "Type ItemRec" e Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
AttackSpeed As Long


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Elemento As Byte


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
If (Parse(0) = "updateitem") Then


E abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(n).AttackSpeed = Val(Parse(23))


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(n).Elemento = Val(Parse(24))


Agora na:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
If (Parse(0) = "edititem") Then


Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(n).AttackSpeed = Val(Parse(23))


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(n).Elemento = Val(Parse(24))


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub Sendsaveitem


E mude a sub inteira para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendSaveItem(ByVal ItemNum As Long)
Dim Packet As String

 
   Packet = "SAVEITEM" & SEP_CHAR & ItemNum & SEP_CHAR &
 Trim(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic &
SEP_CHAR & Item(ItemNum).Type & SEP_CHAR &
Item(ItemNum).Data1 & SEP_CHAR & Item(ItemNum).Data2 &
SEP_CHAR & Item(ItemNum).Data3 & SEP_CHAR &
Item(ItemNum).StrReq & SEP_CHAR & Item(ItemNum).DefReq &
SEP_CHAR & Item(ItemNum).SpeedReq & SEP_CHAR &
Item(ItemNum).MagicReq & SEP_CHAR & Item(ItemNum).ClassReq &
 SEP_CHAR & Item(ItemNum).AccessReq & SEP_CHAR
    Packet =
Packet & Item(ItemNum).AddHP & SEP_CHAR &
Item(ItemNum).AddMP & SEP_CHAR & Item(ItemNum).AddSP &
SEP_CHAR & Item(ItemNum).AddStr & SEP_CHAR &
Item(ItemNum).AddDef & SEP_CHAR & Item(ItemNum).AddMagi &
SEP_CHAR & Item(ItemNum).AddSpeed & SEP_CHAR &
Item(ItemNum).AddEXP & SEP_CHAR & Item(ItemNum).desc &
SEP_CHAR & Item(ItemNum).AttackSpeed & SEP_CHAR &
Item(ItemNum).Elemento
    Packet = Packet & END_CHAR
    Call SendData(Packet)
End Sub


Server~side

Agora na "Type ItemRec" abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
AttackSpeed As Long


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Elemento As Byte


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Case "saveitem"


Em baixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(N).AttackSpeed = Val(Parse(23))


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Item(N).Elemento = Val(Parse(24))


Agora procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendUpdateItemTo


Mude a sub inteira para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendUpdateItemTo(ByVal Index As Long, ByVal ItemNum As Long)
    Dim Packet As String

 
   'Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR
& Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic
& SEP_CHAR & Item(ItemNum).Type & SEP_CHAR &
Item(ItemNum).Desc & END_CHAR
    Packet = "UPDATEITEM" &
SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name)
& SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR &
Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Data1 &
SEP_CHAR & Item(ItemNum).Data2 & SEP_CHAR &
Item(ItemNum).Data3 & SEP_CHAR & Item(ItemNum).StrReq &
SEP_CHAR & Item(ItemNum).DefReq & SEP_CHAR &
Item(ItemNum).SpeedReq & SEP_CHAR & Item(ItemNum).MagicReq &
 SEP_CHAR & Item(ItemNum).ClassReq & SEP_CHAR &
Item(ItemNum).AccessReq & SEP_CHAR
    Packet = Packet &
Item(ItemNum).AddHP & SEP_CHAR & Item(ItemNum).AddMP &
SEP_CHAR & Item(ItemNum).AddSP & SEP_CHAR &
Item(ItemNum).AddStr & SEP_CHAR & Item(ItemNum).AddDef &
SEP_CHAR & Item(ItemNum).AddMagi & SEP_CHAR &
Item(ItemNum).AddSpeed & SEP_CHAR & Item(ItemNum).AddEXP &
SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR &
Item(ItemNum).AttackSpeed & SEP_CHAR & Item(ItemNum).Elemento
    Packet = Packet & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendUpdateItemToAll


Mude a sub inteira para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendUpdateItemToAll(ByVal ItemNum As Long)
    Dim Packet As String

 
   'Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR
& Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic
& SEP_CHAR & Item(ItemNum).Type & SEP_CHAR &
Item(ItemNum).Desc & END_CHAR
    Packet = "UPDATEITEM" &
SEP_CHAR & ItemNum & SEP_CHAR & Trim$(Item(ItemNum).Name)
& SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR &
Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Data1 &
SEP_CHAR & Item(ItemNum).Data2 & SEP_CHAR &
Item(ItemNum).Data3 & SEP_CHAR & Item(ItemNum).StrReq &
SEP_CHAR & Item(ItemNum).DefReq & SEP_CHAR &
Item(ItemNum).SpeedReq & SEP_CHAR & Item(ItemNum).MagicReq &
 SEP_CHAR & Item(ItemNum).ClassReq & SEP_CHAR &
Item(ItemNum).AccessReq & SEP_CHAR
    Packet = Packet &
Item(ItemNum).AddHP & SEP_CHAR & Item(ItemNum).AddMP &
SEP_CHAR & Item(ItemNum).AddSP & SEP_CHAR &
Item(ItemNum).AddStr & SEP_CHAR & Item(ItemNum).AddDef &
SEP_CHAR & Item(ItemNum).AddMagi & SEP_CHAR &
Item(ItemNum).AddSpeed & SEP_CHAR & Item(ItemNum).AddEXP &
SEP_CHAR & Item(ItemNum).Desc & SEP_CHAR &
Item(ItemNum).AttackSpeed & SEP_CHAR & Item(ItemNum).Elemento
    Packet = Packet & END_CHAR
    Call SendDataToAll(Packet)
End Sub


Procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendEditItemTo


Mude a sub inteira para:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Sub SendEditItemTo(ByVal Index As Long, ByVal ItemNum As Long)
    Dim Packet As String

 
   Packet = "EDITITEM" & SEP_CHAR & ItemNum & SEP_CHAR &
 Trim$(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic &
SEP_CHAR & Item(ItemNum).Type & SEP_CHAR &
Item(ItemNum).Data1 & SEP_CHAR & Item(ItemNum).Data2 &
SEP_CHAR & Item(ItemNum).Data3 & SEP_CHAR &
Item(ItemNum).StrReq & SEP_CHAR & Item(ItemNum).DefReq &
SEP_CHAR & Item(ItemNum).SpeedReq & SEP_CHAR &
Item(ItemNum).MagicReq & SEP_CHAR & Item(ItemNum).ClassReq &
 SEP_CHAR & Item(ItemNum).AccessReq & SEP_CHAR
    Packet =
Packet & Item(ItemNum).AddHP & SEP_CHAR &
Item(ItemNum).AddMP & SEP_CHAR & Item(ItemNum).AddSP &
SEP_CHAR & Item(ItemNum).AddStr & SEP_CHAR &
Item(ItemNum).AddDef & SEP_CHAR & Item(ItemNum).AddMagi &
SEP_CHAR & Item(ItemNum).AddSpeed & SEP_CHAR &
Item(ItemNum).AddEXP & SEP_CHAR & Item(ItemNum).Desc &
SEP_CHAR & Item(ItemNum).AttackSpeed & SEP_CHAR &
Item(ItemNum).Elemento
    Packet = Packet & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub


Agora Para finalizar procure por:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Case "useitem"


Abaixo de:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
n5 = Item(GetPlayerInvItemNum(Index, InvNum)).AccessReq


Adicione:

Code: -------------------------------------------------------------Selecionar conteúdo

Código:
Dim Elemento As Long
Elemento = Item(GetPlayerInvItemNum(Index, InvNum)).Elemento

If GetPlayerElemento(Index) <> Elemento Then
                            Call PlayerMsg(Index, "Tenha o elemento certo gay!!", BrightRed)
                            Exit Sub
                            End If
[Você precisa estar registrado e conectado para ver esta imagem.]


Creditos:

Criador Do Sistema:

Athos100



Última edição por athos100 em Ter 26 Nov 2013, 20:42, editado 1 vez(es)

2Tutorial Re: Sistema de Elemento em Dom 24 Nov 2013, 21:36

Luucas Robeerto


Fundador
Fundador
Lugar errado e no Tutorias do Elysium e os créditos devidos são do Pablo o criador do sistema!!!
Tópico Movido para área correta e editado os créditos devidos
+1 Créditos pela colaboração


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

3Tutorial Re: Sistema de Elemento em Ter 26 Nov 2013, 20:38

athos100


Membro
Membro
Foi Mal ai sou novato So quero o Melhor Para Seu Forum Very Happy

4Tutorial Re: Sistema de Elemento Hoje à(s) 14:12

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum