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

Douu Creditos

3 participantes

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

Ir para baixo

Douu Creditos Empty Douu Creditos

Mensagem por 60 Qui 02 Ago 2012, 23:06

Coloquei Tras Por Foto Funciono Normal Maais Nao Almenta os Pontos pq ?
60
60
Membro
Membro

Mensagens : 102

Ir para o topo Ir para baixo

Douu Creditos Empty Re: Douu Creditos

Mensagem por PlayerBeer Qui 02 Ago 2012, 23:44

Provavelmente botou algum codigo errado ^^
PlayerBeer
PlayerBeer
Membro
Membro

Mensagens : 103

Ir para o topo Ir para baixo

Douu Creditos Empty Re: Douu Creditos

Mensagem por 60 Qui 02 Ago 2012, 23:46

- Nada Aveerr --'
60
60
Membro
Membro

Mensagens : 102

Ir para o topo Ir para baixo

Douu Creditos Empty Re: Douu Creditos

Mensagem por PlayerBeer Qui 02 Ago 2012, 23:49

É oque entao oh profissional em vb
PlayerBeer
PlayerBeer
Membro
Membro

Mensagens : 103

Ir para o topo Ir para baixo

Douu Creditos Empty Re: Douu Creditos

Mensagem por Yan Roberto Sex 03 Ago 2012, 00:02

Nessa linha abaixo..
Código:
Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 2 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 1)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub

Sub HandleTrans(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 1 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 2)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) + 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) + 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub


voçê coloca isso.
Código:
    Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50)
    Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)

Vai fica assim!

Código:
Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 2 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 1)
            Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1)
            Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1)
        End If
    End If
   
    Set Buffer = Nothing
End Sub

Sub HandleTrans(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
   
    If GetPlayerSprite(Index) = 1 Then
        If GetPlayerClass(Index) = 1 Then
            Call SetPlayerSprite(Index, 2)
                Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50)
    Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)
        End If
    End If
   
    Set Buffer = Nothing
End Sub
Yan Roberto
Yan Roberto
Novato
Novato

Mensagens : 27

Ir para o topo Ir para baixo

Douu Creditos Empty Re: Douu Creditos

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

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

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