MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

Como por Level na frm mirage??

2 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos

Ir para baixo

Como por Level na frm mirage?? Empty Como por Level na frm mirage??

Mensagem por Coyotte Qui 06 Jan 2011, 20:51

Olá galera gostaria que alguem me passa-se um tutorial encinando a por o level no frm mirage, ja consegui por o nick e a classe, o level naum...

alguem me ajuda??

darei creds...
Coyotte
Coyotte
Membro
Membro

Mensagens : 111

Ir para o topo Ir para baixo

Como por Level na frm mirage?? Empty Re: Como por Level na frm mirage??

Mensagem por Lucas Roberto Sáb 08 Jan 2011, 16:33

Criei uma labe com Capition "Seu level"

Criei uma label embaixo da label "Seu level" e de o nome de:
Código:
lbll

Agora procure no ModClientTCP e procure por:

Código:
    ' :::::::::::::::::::::::::
        ' :: Player Stats Packet ::
        ' :::::::::::::::::::::::::

Mude para:

Código:
    ' :::::::::::::::::::::::::
        ' :: Player Stats Packet ::
        ' :::::::::::::::::::::::::
        If (Parse(0) = "playerstatspacket") Then
            Dim SubStr As Long, SubDef As Long, SubMagi As Long, SubSpeed As Long
            SubStr = 0
            SubDef = 0
            SubMagi = 0
            SubSpeed = 0
         
            If GetPlayerWeaponSlot(MyIndex) > 0 Then
                SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddStr
                SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddDef
                SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddMagi
                SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerWeaponSlot(MyIndex))).AddSpeed
            End If
            If GetPlayerArmorSlot(MyIndex) > 0 Then
                SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddStr
                SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddDef
                SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddMagi
                SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerArmorSlot(MyIndex))).AddSpeed
            End If
            If GetPlayerShieldSlot(MyIndex) > 0 Then
                SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddStr
                SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddDef
                SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddMagi
                SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerShieldSlot(MyIndex))).AddSpeed
            End If
            If GetPlayerHelmetSlot(MyIndex) > 0 Then
                SubStr = SubStr + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddStr
                SubDef = SubDef + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddDef
                SubMagi = SubMagi + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddMagi
                SubSpeed = SubSpeed + Item(GetPlayerInvItemNum(MyIndex, GetPlayerHelmetSlot(MyIndex))).AddSpeed
            End If
         
            If SubStr > 0 Then
                frmMirage.lblSTR.Caption = "Força - " & Val(Parse(1)) - SubStr & " (+" & SubStr & ")"
            Else
                frmMirage.lblSTR.Caption = "Força - " & Val(Parse(1))
            End If
            If SubDef > 0 Then
                frmMirage.lblDEF.Caption = "Defesa - " & Val(Parse(2)) - SubDef & " (+" & SubDef & ")"
            Else
                frmMirage.lblDEF.Caption = "Defesa - " & Val(Parse(2))
            End If
            If SubMagi > 0 Then
                frmMirage.lblMAGI.Caption = "Inteligência - " & Val(Parse(4)) - SubMagi & " (+" & SubMagi & ")"
            Else
                frmMirage.lblMAGI.Caption = "Inteligência - " & Val(Parse(4))
            End If
            If SubSpeed > 0 Then
                frmMirage.lblSPEED.Caption = "Agilidade - " & Val(Parse(3)) - SubSpeed & " (+" & SubSpeed & ")"
            Else
                frmMirage.lblSPEED.Caption = "Agilidade - " & Val(Parse(3))
            End If
            frmMirage.lblKi.Caption = Val(Parse(1)) * Val(Parse(2))
            frmMirage.lblEXP.Caption = Val(Parse(6)) & " / " & Val(Parse(5))
         
            frmMirage.shpTNL.Width = (((Val(Parse(6)) / frmMirage.lblEXP.Width) / (Val(Parse(5)) / frmMirage.lblEXP.Width)) * frmMirage.lblEXP.Width)
            frmMirage.lblLevel.Caption = "Level " & Val(Parse(7))
            frmMirage.lbll.Caption = Trim(Parse(7))
         
            Exit Sub
        End If

Simples!!! Uu
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

Como por Level na frm mirage?? Empty Re: Como por Level na frm mirage??

Mensagem por Coyotte Sáb 08 Jan 2011, 16:44

hauhauha vlw mais ja tinha conseguido ^^

fiz de outro geito tipo

recortei o level e colei no FRM mirage *-*

ai tirei a FOR DEF INT e AGI tbm....

mais muito obrigado vo ti da creds.... abraço!
Coyotte
Coyotte
Membro
Membro

Mensagens : 111

Ir para o topo Ir para baixo

Como por Level na frm mirage?? Empty Re: Como por Level na frm mirage??

Mensagem por Lucas Roberto Sáb 08 Jan 2011, 16:46

Bls...

topico trancado e movido
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

Como por Level na frm mirage?? Empty Re: Como por Level na frm mirage??

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos

 
Permissões neste sub-fórum
Não podes responder a tópicos