Ajuda com Quest Lv

Código:


'Aqui ele vai ganhar +1 de rank, por exemplo, se ele tiver rank 1 ele ganha +1 ficando rank 2
Call SetPlayerRank(index, GetPlayerRanK(index) + 1)

Ow

'Aqui ele muda o rank para o numero 1 ou seja se tiver 10 fica 1
Call SetPlayerRank(index, 1 )


Código:

Public Sub QuestLevel(ByVal Index As Long)
Dim i As Byte
Dim l As Integer
i = GetPlayerClass(Index)
l = GetPlayerLevel(Index)
    Select Case i ' seleciona i
        Case 0 ' Número da Classe(no caso a primeira = 0)
            If Val(l + 1) = 5 Then ' Level da primeira [b]quest[/b]
                Call PlayerMsg(Index, "Parabéns, você chego no level 5!, você completo - ", 3)
                Call PlayerMsg(Index, "A [b]Quest[/b] Inicial!", 3)
                Call SetPlayerExp(Index, GetPlayerExp(Index) + 500) ' personagem ganha 500 de xp
                Call RankChange(index)
            End If
    End Select
End Sub

Código:


Sub ChangeRank(ByVal index as Long)

Select Case GetPlayerRank(index)

          Case 1 ' Seu rank 1
            SetPlayerRank(index, 2) 'Muda o Rank para 2
            Playermsg index, "Seu Rank Mudou!" , White

        Case 2
            SetPlayerRank(index, 3) 'Muda o Rank para 3
            Playermsg index, "Seu Rank Mudou!" , White

        Case 3
            SetPlayerRank(index, 4) 'Muda o Rank para 4
            Playermsg index, "Seu Rank Mudou!" , White

        Case 4
            SetPlayerRank(index, 5) 'Muda o Rank para 5
            Playermsg index, "Seu Rank Mudou!" , White

        Case 5
            SetPlayerRank(index, 6) 'Muda o Rank para 6
            Playermsg index, "Seu Rank Mudou!" , White

        Case 6
            SetPlayerRank(index, 7) 'Muda o Rank para 7
            Playermsg index, "Seu Rank Mudou!" , White

        End Select

    Else
End if

End Sub

lucas100vzs escreveu:Ou coloque uma dinâmica melhor nisso assim, na sub "QuestLevel", mude para:

Código:

Public Sub QuestLevel(ByVal Index As Long)
Dim i As Byte
Dim l As Integer
i = GetPlayerClass(Index)
l = GetPlayerLevel(Index)
    Select Case i ' seleciona i
        Case 0 ' Número da Classe(no caso a primeira = 0)
            If Val(l + 1) = 5 Then ' Level da primeira [b]quest[/b]
                Call PlayerMsg(Index, "Parabéns, você chego no level 5!, você completo - ", 3)
                Call PlayerMsg(Index, "A [b]Quest[/b] Inicial!", 3)
                Call SetPlayerExp(Index, GetPlayerExp(Index) + 500) ' personagem ganha 500 de xp
                Call RankChange(index)
            End If
    End Select
End Sub

E no "Server.vbp", no final do "ModPlayer" adicione:

Código:


Sub ChangeRank(ByVal index as Long)

Select Case GetPlayerRank(index)

          Case 1 ' Seu rank 1
            SetPlayerRank(index, 2) 'Muda o Rank para 2
            Playermsg index, "Seu Rank Mudou!" , White

        Case 2
            SetPlayerRank(index, 3) 'Muda o Rank para 3
            Playermsg index, "Seu Rank Mudou!" , White

        Case 3
            SetPlayerRank(index, 4) 'Muda o Rank para 4
            Playermsg index, "Seu Rank Mudou!" , White

        Case 4
            SetPlayerRank(index, 5) 'Muda o Rank para 5
            Playermsg index, "Seu Rank Mudou!" , White

        Case 5
            SetPlayerRank(index, 6) 'Muda o Rank para 6
            Playermsg index, "Seu Rank Mudou!" , White

        Case 6
            SetPlayerRank(index, 7) 'Muda o Rank para 7
            Playermsg index, "Seu Rank Mudou!" , White

        End Select

    Else
End if

End Sub

Mais dinâmico que isso?

Adicione o sistema de quest do Alatar meu amigo....Que aí sim fica bom...