Sistema de Rank Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Sistema de Rank

2 participantes

Ir para baixo

Sistema de Rank Empty Sistema de Rank

Mensagem por Motodark Sex Jun 05, 2015 8:03 pm

Bom, quando eu upo aparece no chat que eu estou 1 level a menos EX: Brenno subiu Top 2, sendo que estou no 1 assim sucessivamente se eu estive no 8 estaria subindo top 9.

[img]Sistema de Rank 144jup[/img]

Código:
' check rank
        RankPos = CheckRank(Index)
        If RankPos > 0 Then
            ChangeRank Index, RankPos
            GlobalMsg GetPlayerName(Index) & " Subiu Top " & CheckRank(Index) & " Rank!", Green
        End If
        SendPlayerData Index
      GanharItem Index
        End If



Código:
Private Function CheckRank(ByVal Index As Long) As Byte
Dim i As Byte
    For i = 1 To MAX_RANK
        If GetPlayerLevel(Index) > Rank(i).Level Then
            CheckRank = i
            Exit Function
        End If
    Next i
End Function

Código:
Private Sub ChangeRank(ByVal Index As Long, RankPos As Byte)
Dim i As Long, ClearPos As Byte

    ' if not change position in rank
    If GetPlayerName(Index) = Trim$(Rank(RankPos).Name) Then
        Rank(RankPos).Level = GetPlayerLevel(Index)
        SaveRank
        Exit Sub
    End If

    ' search player in rank
    For i = 1 To MAX_RANK
        If GetPlayerName(Index) = Trim$(Rank(i).Name) Then
            Rank(i).Name = vbNullString
            Rank(i).Level = 0
            ClearPos = i
            Exit For
        End If
    Next i

    ' down clear position
    If ClearPos > 0 Then
        For i = ClearPos To MAX_RANK
            If i = MAX_RANK Then
                Rank(i).Name = vbNullString
                Rank(i).Level = 0
            Else
                Rank(i).Name = Rank(i + 1).Name
                Rank(i).Level = Rank(i + 1).Level
            End If
        Next i
    End If
   
    ' open space in rank to player
    For i = MAX_RANK To RankPos Step -1
        If i > RankPos Then
            Rank(i).Name = Rank(i - 1).Name
            Rank(i).Level = Rank(i - 1).Level
        End If
    Next i
   
    ' put player in rank
    Rank(RankPos).Name = GetPlayerName(Index)
    Rank(RankPos).Level = GetPlayerLevel(Index)
   
    SaveRank
End Sub
Motodark
Motodark
Ocasional
Ocasional

Mensagens : 169
Créditos : 5

Ir para o topo Ir para baixo

Sistema de Rank Empty Re: Sistema de Rank

Mensagem por Dooolly Sex Jun 05, 2015 8:12 pm

Muito simples Sistema de Rank 2835316747

Mude isso:
Código:
' check rank
        RankPos = CheckRank(Index)
        If RankPos > 0 Then
            ChangeRank Index, RankPos
            GlobalMsg GetPlayerName(Index) & " Subiu Top " & CheckRank(Index) & " Rank!", Green
        End If
        SendPlayerData Index
      GanharItem Index
        End If

Para isso:
Código:
' check rank
        RankPos = CheckRank(Index)
        If RankPos > 0 Then
            ChangeRank Index, RankPos
            GlobalMsg GetPlayerName(Index) & " Subiu Top " & RankPos & " Rank!", Green
        End If

        SendPlayerData Index
      GanharItem Index
        End If

Eu tirei o CheckRank da GlobalMsg, e pus o rank que já estava calculado. testa ai agora:
Dooolly
Dooolly
Colaborador
Colaborador

Medalhas : Sistema de Rank Trophy12
Mensagens : 1227
Créditos : 153

Ficha do personagem
Nível: 1
Experiência:
Sistema de Rank Left_bar_bleue0/0Sistema de Rank Empty_bar_bleue  (0/0)
Vida:
Sistema de Rank Left_bar_bleue30/30Sistema de Rank Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Sistema de Rank Empty Re: Sistema de Rank

Mensagem por Motodark Sex Jun 05, 2015 8:16 pm

Ah, obrigado beijo na bunda cred
Motodark
Motodark
Ocasional
Ocasional

Mensagens : 169
Créditos : 5

Ir para o topo Ir para baixo

Sistema de Rank Empty Re: Sistema de Rank

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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