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

[AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima

3 participantes

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

Ir para baixo

[AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima Empty [AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima

Mensagem por Freitas Qui 16 Set 2010, 22:04

Eae Very Happy
É o seguinte chega em um total de for,def,int agi.exemplo tenho 1200 de for dai qndo qro adicionar mais da q eu cheguei no maximo de força!
E eu qria saber como almentar a força,defesa,agilidade e inteligencia maxima! Very Happy
se alguem souber por favor me ajude Very Happy
Freitas
Freitas
Membro Vitalicio
Membro Vitalicio

Mensagens : 676

http://dragonball.6te.net

Ir para o topo Ir para baixo

[AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima Empty Re: [AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima

Mensagem por Rio Absolut Qui 16 Set 2010, 22:23

Código:
Sub UsingStatPoints(index, PointType, PointQuant)
Select Case PointType
    Case 0
    'Gives you a set max
        If GetPlayerSTR(index) + PointQuant > 1000 Then
          Call BattleMsg(index, "Você chegou ao máximo de Força!", 12, 0)
          Exit Sub
        End If
        Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant)
        Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Força!", 15, 0)
   Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
   Call SendDataTo(Index, "sound" & SEP_CHAR & "ForSubiu" & END_CHAR)
    Case 1
    'Gives you a set max
        If GetPlayerDEF(index) + PointQuant > 1000 Then
          Call BattleMsg(index, "Você chegou ao máximo de Defesa!", 12, 0)
          Exit Sub
        End If
        Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant)
        Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Defesa!", 15, 0)
   Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
   Call SendDataTo(Index, "sound" & SEP_CHAR & "DefSubiu" & END_CHAR)
    Case 2
    'Gives you a set max
        If GetPlayerMAGI(index) + PointQuant > 1000 Then
          Call BattleMsg(index, "Você chegou ao máximo de Inteligência!", 12, 0)
          Exit Sub
        End If
        Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant)
        Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Inteligência!", 15, 0)
   Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
   Call SendDataTo(Index, "sound" & SEP_CHAR & "IntSubiu" & END_CHAR)
    Case 3
    'Gives you a set max
        If GetPlayerSPEED(index) + PointQuant > 1000 Then
          Call BattleMsg(index, "Você chegou ao máximo de sua Agilidade!", 12, 0)
          Exit Sub
        End If
        Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant)
        Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Agilidade!", 15, 0)
   Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
   Call SendDataTo(Index, "sound" & SEP_CHAR & "AgiSubiu" & END_CHAR)
End Select
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - PointQuant)
End Sub
Procure por isso e mude os numero ;D
Rio Absolut
Rio Absolut
Membro Vitalicio
Membro Vitalicio

Mensagens : 655

Ir para o topo Ir para baixo

[AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima Empty Re: [AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima

Mensagem por Freitas Sex 17 Set 2010, 09:02

vlw ae geração
+ 1 cred!
Freitas
Freitas
Membro Vitalicio
Membro Vitalicio

Mensagens : 676

http://dragonball.6te.net

Ir para o topo Ir para baixo

[AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima Empty Re: [AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima

Mensagem por Gu1lh3rm3 Sex 17 Set 2010, 10:15

Dúvida/Pedido/Problema Resolvido com sucesso.
Se houver algo mais por favor pedimos que efetue a criação de um novo tópico na área de Suporte para resolução.

Topico Trancado e Movido

Atenciosamente Equipe MMORPGBR.
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

[AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima Empty Re: [AJUDA]Força,Defesa,Agilidade e Inteligencia Maxima

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 :: Assuntos resolvidos

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