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

Transformaçao por foto.

2 participantes

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

Ir para baixo

Transformaçao por foto. Empty Transformaçao por foto.

Mensagem por Yan Roberto Sex 03 Ago 2012, 06:38

Amigos, estavo aqui fazendo transformaçao por foto no meu jogo quando eu compilo da esse error será que alguem pode me ajuda..

E QUANDO EU COMPILO FICA SUBLINHADO NA PRIMEIRA CASE \/

Código:
Case "tnormal"
                If GetPlayerClass(index) = 1 Then
                    If GetPlayerSprite(index) = 0 Then
                        Exit Sub
                    ElseIf GetPlayerSprite(index) = 10 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 100)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 50)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 25)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 25)
                    ElseIf GetPlayerSprite(index) = 20 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 200)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 100)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 50)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 50)
                    ElseIf GetPlayerSprite(index) = 30 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 300)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 200)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 100)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 100)
                    ElseIf GetPlayerSprite(index) = 40 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 400)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 30)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 200)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 200)
                    End If
                    Call SetPlayerSprite(index, 0)
                    Call PlayerMsg(index, "Você voltou ao normal!", BrightBlue)
                    Call BattleMsg(index, "Normal!", Yellow, 0)
                    Call SendPlayerData(index)
                ElseIf GetPlayerClass(index) = 2 Then
                    If GetPlayerSprite(index) = 11 Then
                        Exit Sub
                        Call SetPlayerstr(index, GetPlayerstr(index) - 100)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 50)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 25)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 25)
                    ElseIf GetPlayerSprite(index) = 21 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 200)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 100)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 50)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 50)
                    ElseIf GetPlayerSprite(index) = 31 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 400)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 300)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 200)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 200)
                    End If
                    Call SetPlayerSprite(index, 1)
                    Call PlayerMsg(index, "Você voltou ao normal!", BrightBlue)
                    Call BattleMsg(index, "Normal!", Yellow, 0)
                    Call SendPlayerData(index)
                Else
                    Exit Sub
                End If
             
                Call SavePlayer(index)
            Exit Sub
Yan Roberto
Yan Roberto
Novato
Novato

Mensagens : 27

Ir para o topo Ir para baixo

Transformaçao por foto. Empty Re: Transformaçao por foto.

Mensagem por Pablo Sex 03 Ago 2012, 10:51

tente mudar para

Código:
Case "tnormal"
                If GetPlayerClass(index) = 1 Then
                    If GetPlayerSprite(index) = 0 Then
                        Exit Sub
                    ElseIf GetPlayerSprite(index) = 10 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 100)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 50)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 25)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 25)
                    ElseIf GetPlayerSprite(index) = 20 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 200)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 100)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 50)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 50)
                    ElseIf GetPlayerSprite(index) = 30 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 300)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 200)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 100)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 100)
                    ElseIf GetPlayerSprite(index) = 40 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 400)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 30)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 200)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 200)
                    End If
                    Call SetPlayerSprite(index, 0)
                    Call PlayerMsg(index, "Você voltou ao normal!", BrightBlue)
                    Call BattleMsg(index, "Normal!", Yellow, 0)
                    Call SendPlayerData(index)
                ElseIf GetPlayerClass(index) = 2 Then
                    If GetPlayerSprite(index) = 11 Then
                        Exit Sub
                        Call SetPlayerstr(index, GetPlayerstr(index) - 100)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 50)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 25)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 25)
                    ElseIf GetPlayerSprite(index) = 21 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 200)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 100)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 50)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 50)
                    ElseIf GetPlayerSprite(index) = 31 Then
                        Call SetPlayerstr(index, GetPlayerstr(index) - 400)
                        Call SetPlayerDEF(index, GetPlayerDEF(index) - 300)
                        Call SetPlayerSPEED(index, GetPlayerSPEED(index) - 200)
                        Call SetPlayerMAGI(index, GetPlayerMAGI(index) - 200)
                    End If
                    Call SetPlayerSprite(index, 1)
                    Call PlayerMsg(index, "Você voltou ao normal!", BrightBlue)
                    Call BattleMsg(index, "Normal!", Yellow, 0)
                    Call SendPlayerData(index)
                Else
                    Exit Sub
                End If
              End If
             
                Call SavePlayer(index)
            Exit Sub
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

Transformaçao por foto. Empty Re: Transformaçao por foto.

Mensagem por Yan Roberto Sex 03 Ago 2012, 13:01

Já consegui aqui, peço que algum admin venha tranca o tópico.

Obrigado pela atençao.
Grato!
Yan Roberto
Yan Roberto
Novato
Novato

Mensagens : 27

Ir para o topo Ir para baixo

Transformaçao por foto. Empty Re: Transformaçao por foto.

Mensagem por Pablo Sex 03 Ago 2012, 14:07

Tópico trancado e movido para área dos resolvidos!

Att: Pablo
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

Transformaçao por foto. Empty Re: Transformaçao por foto.

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