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

Transformar vip?

3 participantes

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

Ir para baixo

Transformar vip? Empty Transformar vip?

Mensagem por wallace7401 Qui 31 maio 2012, 17:19

eu estou com esse codigo para transformar

Spoiler:

nesse somente vips podem se transformar,eu queria colocar para quando a pessoa nao for vip e tentar se transformar aparecer uma mensagem falando que é somente para vips.
wallace7401
wallace7401
Novato
Novato

Mensagens : 17

http://dwar-online.blogspot.com.br/

Ir para o topo Ir para baixo

Transformar vip? Empty Re: Transformar vip?

Mensagem por Del Piero Qui 31 maio 2012, 18:04

tenta esse fiz de cabeça:
Código:
If Lcase(Trim(TextSay)) = "/ssj" Then
If GetPlayerAccess(Index) = 1
If GetPlayerClass (index) = 1 Then
If GetPlayerLevel(index) => 400 Then
If GetPlayerSprite(index) = 4 Then
Call SetPlayerSprite(index, 5)
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 500)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 500)
Call PlaySound(Index, "ssjtransform.wav")
Call PlayerMsg(index, "Você é um Super Saiyajin 4!", 4)
Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False)
Else
Call PlayerMsg(index, "Somente para vips!", 1)
Exit Sub
End If
End If
End If
End If
Del Piero
Del Piero
Membro Vitalicio
Membro Vitalicio

Mensagens : 602

http://www.exodusgames.com.br/

Ir para o topo Ir para baixo

Transformar vip? Empty Transformar vip?

Mensagem por wallace7401 Qui 31 maio 2012, 18:26

agora nao funciona mas nada
wallace7401
wallace7401
Novato
Novato

Mensagens : 17

http://dwar-online.blogspot.com.br/

Ir para o topo Ir para baixo

Transformar vip? Empty Re: Transformar vip?

Mensagem por Pablo Qui 31 maio 2012, 19:34

tente por

Código:
If Lcase(Trim(TextSay)) = "/ssj" Then
If GetPlayerAccess(Index) >= 1
If GetPlayerClass (index) = 1 Then
If GetPlayerLevel(index) => 400 Then
If GetPlayerSprite(index) = 4 Then
Call SetPlayerSprite(index, 5)
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 500)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 500)
Call PlaySound(Index, "ssjtransform.wav")
Call PlayerMsg(index, "Você é um Super Saiyajin 4!", 4)
Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False)
Else
Call PlayerMsg(index, "Você precisa ser vip!!", 1)
Exit Sub
End If
End If
End If
End If
End If
Pablo
Pablo
Moderador Global
Moderador Global

Mensagens : 1371

Ir para o topo Ir para baixo

Transformar vip? Empty Re: Transformar vip?

Mensagem por Del Piero Qui 31 maio 2012, 20:32

faltou um end if no meu kkk fiz rapido :3
Del Piero
Del Piero
Membro Vitalicio
Membro Vitalicio

Mensagens : 602

http://www.exodusgames.com.br/

Ir para o topo Ir para baixo

Transformar vip? Empty Re: Transformar vip?

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

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