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...

Mirage Creation - HP, MP e EXP em Porcentagem

2 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines

Ir para baixo

Mirage Creation - HP, MP e EXP em Porcentagem Empty Mirage Creation - HP, MP e EXP em Porcentagem

Mensagem por Caio~ C10 Sex 11 Jan 2013, 11:00

- Descrição -

Nesse tutorial iremos aprender como deixar as barras de HP, MP e EXP (também na janela do personagem) em porcentagem. O tutorial é bem simples, basta prestar atenção para não colocar o código de HP em MP, pois é bem parecido ^^.

- Tutorial -

Abra o Client~Side e na modHandleData proucure pela Private Sub HandlePlayerHp. Nela, proucure por esta parte: HPBar_Text. Substitua a linha toda dela por essa:
Código:
        HPBar_Text = Round((Player(MyIndex).Vital(Vitals.HP) / Player(MyIndex).MaxVital(Vitals.HP) * 100), 2) & "%"

Agora na Private Sub HandlePlayerMp proucure por esta parte: MPBar_Text. Substitua a linha toda por essa:
Código:
        MPBar_Text = Round((Player(MyIndex).Vital(Vitals.MP) / Player(MyIndex).MaxVital(Vitals.MP) * 100), 2) & "%"

Agora substitua toda a Private Sub HandlePlayerExp por isso:
Código:
Private Sub HandlePlayerExp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
   
    Call Buffer.WriteBytes(Data())
   
    Player(MyIndex).Exp = Buffer.ReadLong
    Player(MyIndex).MaxExp = Buffer.ReadLong
   
    'GameWindow.Character.Surface(Stats.Stat_Count + 3).Text.Caption = StatNames(Stats.Stat_Count + 1) & Round((Player(MyIndex).Exp / Player(MyIndex).MaxExp * 100), 2) & "%"
   
    If Player(MyIndex).Exp > 0 Then
        EXPBar_MaxWidth = Int(((Player(MyIndex).Exp / GUIBar_Width) / (Player(MyIndex).MaxExp / GUIBar_Width)) * GUIBar_Width)
        EXPBar_Text = Round((Player(MyIndex).Exp / Player(MyIndex).MaxExp * 100), 2) & "%"
        GameWindow.Character.Surface(Stats.Stat_Count + 3).Text.Caption = StatNames(Stats.Stat_Count + 1) & Round((Player(MyIndex).Exp / Player(MyIndex).MaxExp * 100), 2) & "%"
    End If

End Sub

Pronto! Este tutorial foi testado.

- Créditos -

Caio~ C10
Caio~ C10
Caio~ C10
Membro Veterano
Membro Veterano

Mensagens : 803

http://www.mmorpgbr.com/t10695-evolution-games

Ir para o topo Ir para baixo

Mirage Creation - HP, MP e EXP em Porcentagem Empty Re: Mirage Creation - HP, MP e EXP em Porcentagem

Mensagem por Caio~ C10 Dom 13 Jan 2013, 20:29

Tutorial atualizado.
Bug na porcentagem de EXP nos status corrigido. Siga o tutorial abaixo:

Substitua a sua Private Sub HandlePlayerExp por essa:
Código:
    Private Sub HandlePlayerExp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
        Dim Buffer As clsBuffer
        Set Buffer = New clsBuffer
     
        Call Buffer.WriteBytes(Data())
     
        Player(MyIndex).Exp = Buffer.ReadLong
        Player(MyIndex).MaxExp = Buffer.ReadLong
     
        'GameWindow.Character.Surface(Stats.Stat_Count + 3).Text.Caption = StatNames(Stats.Stat_Count + 1) & Round((Player(MyIndex).Exp / Player(MyIndex).MaxExp * 100), 2) & "%"
     
        If Player(MyIndex).Exp > 0 Then
            EXPBar_MaxWidth = Int(((Player(MyIndex).Exp / GUIBar_Width) / (Player(MyIndex).MaxExp / GUIBar_Width)) * GUIBar_Width)
            EXPBar_Text = Round((Player(MyIndex).Exp / Player(MyIndex).MaxExp * 100), 2) & "%"
            GameWindow.Character.Surface(Stats.Stat_Count + 3).Text.Caption = StatNames(Stats.Stat_Count + 1) & Round((Player(MyIndex).Exp / Player(MyIndex).MaxExp * 100), 2) & "%"
        End If

    End Sub
Caio~ C10
Caio~ C10
Membro Veterano
Membro Veterano

Mensagens : 803

http://www.mmorpgbr.com/t10695-evolution-games

Ir para o topo Ir para baixo

Mirage Creation - HP, MP e EXP em Porcentagem Empty Re: Mirage Creation - HP, MP e EXP em Porcentagem

Mensagem por *Star* Seg 14 Jan 2013, 09:16

não testei e não sei se pega...Mais Concerteza ajudará muita Gente aqui na MMORPG. Por Isso você ganha + 1 Cred meu!
*Star*
*Star*
Membro Sênior
Membro Sênior

Mensagens : 285

Ir para o topo Ir para baixo

Mirage Creation - HP, MP e EXP em Porcentagem Empty Re: Mirage Creation - HP, MP e EXP em Porcentagem

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

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