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

[duvida]Eu queria ajuda poder de luta

2 participantes

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

Ir para baixo

[duvida]Eu queria ajuda poder de luta Empty [duvida]Eu queria ajuda poder de luta

Mensagem por sushi123 Sex 25 maio 2012, 12:05

como eu faço pra quando a pessoa usar /pdl adicionar em Força def e agilidade e tabem inteligencia valen do +1 credito!!
[duvida]Eu queria ajuda poder de luta 881399
sushi123
sushi123
Banido
Banido

Mensagens : 188

Ir para o topo Ir para baixo

[duvida]Eu queria ajuda poder de luta Empty Re: [duvida]Eu queria ajuda poder de luta

Mensagem por Pablo Sex 25 maio 2012, 12:39

client~side

procure por

Código:
' xxx Distribuição de Pontos por Comando xxx

mude tudo para

Código:
        ' xxx Distribuição de Pontos por Comando xxx

        ' Distribuição de Força
        If LCase(Mid(MyText, 1, 4)) = "/pdl" Then
            If Len(MyText) > 4 Then
                ChatText = Mid(MyText, 5, Len(MyText) - 4)
                ' Configuração
            For I = 1 To Len(ChatText)
                If Mid(ChatText, I, 1) <> " " Then
                Else
                Exit For
                End If
            Next I
            End If
            ' Enviar Servidor
            If Len(ChatText) - I > 0 Then
                Num = Mid(ChatText, I + 1, Len(ChatText) - I)
                If Num > 0 Then
                Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & Num & END_CHAR)
                Call SendData("usestatpoint" & SEP_CHAR & 1 & SEP_CHAR & Num & END_CHAR)
                Call SendData("usestatpoint" & SEP_CHAR & 2 & SEP_CHAR & Num & END_CHAR)
                Call SendData("usestatpoint" & SEP_CHAR & 3 & SEP_CHAR & Num & END_CHAR)
            Else
                Call AddText("Número Invalido", AlertColor)
          End If
            Else
                Call AddText("Use: /pdl <quantidade de pontos>", AlertColor)
            End If
                MyText = vbNullString
            Exit Sub
        End If
       
        ' xxx Fim da Distribuição de Pontos por Comando xxx

bom acho que devera funcionar assim, não testei mais qualquer coisa poste no tópico

Att: Pablo, Equipe Dragon Ball Kai World
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

[duvida]Eu queria ajuda poder de luta Empty Re: [duvida]Eu queria ajuda poder de luta

Mensagem por sushi123 Sex 25 maio 2012, 13:11

valeu kra vc manja em ! +1 cred!
sushi123
sushi123
Banido
Banido

Mensagens : 188

Ir para o topo Ir para baixo

[duvida]Eu queria ajuda poder de luta Empty Re: [duvida]Eu queria ajuda poder de luta

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