Vip na Trasf Por Imagem

por zedendagua Dom 08 Jul 2012, 17:03

alguem poderia me explicar como q colocar o acesso pro player trasforma ??Tipo pra vip 1 e 2 preciso so do codigo e da linha onde coloca vlw +1 Cred pra quem ajudar Vip na Trasf Por Imagem 608858

Spoiler:

por Rodrigo JC Dom 08 Jul 2012, 20:57

Tipo a linha do Acesso tava Faltando .. :
If GetPlayerAccess(Index) => 0 Then
pra muda o acesso, so mudar o numero para qual vc quiser..!

Código:: Case "tssj4" If GetPlayerAccess(Index) => 0 Then If GetPlayerClass(Index) = 1 Then If GetPlayerLevel(Index) >= 950 Then If GetPlayerSprite(Index) = 1 Then Call SetPlayerSprite(Index, 5) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 5) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 5) Call SetPlayerMP(Index, GetPlayerMP(Index) - 200) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If ElseIf GetPlayerClass(Index) = 2 Then If GetPlayerLevel(Index) >= 950 Then If GetPlayerSprite(Index) = 12 Then Call SetPlayerSprite(Index, 16) Call SetPlayerstr(Index, GetPlayerstr(Index) * 5) Call SetPlayerDEF(Index, GetPlayerDEF(Index) * 5) Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) * 5) Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) * 5) Call SetPlayerMP(Index, GetPlayerMP(Index) - 200) Call SendPlayerData(Index) Else Call PlayerMsg(Index, "Você não tem os requisitos para se transformar!", BrightBlue) End If End If Else 'Aqui é a classe 3, que no caso do tuto, não tem transformação Exit Sub End If Call SavePlayer(Index) Exit Sub