Conexão Maker

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

    Mudando a cor do nome da guild (Do acesso)

    Khaws
    Khaws
    Khaws
    Membro


    Mensagens : 5
    Level : 0
    Data de inscrição : 12/02/2012
    • Mensagem nº1

    Mudando a cor do nome da guild (Do acesso) Empty Mudando a cor do nome da guild (Do acesso)

    Mensagem por Khaws Dom Fev 12, 2012 11:53 pm

    Começando

    Client~Side

    Procure pela sub:
    Código:
    Sub BltPlayerGuildName(ByVal Index As Long)

    Nessa parte:

    Código:
        ' Check access level
        If GetPlayerPK(Index) = NO Then
            Select Case GetPlayerGuildAccess(Index)
                Case 0
                    If GetPlayerSTR(Index) > 0 Then
                        Color = QBColor(Red)
                    Else
                        Color = QBColor(Red)
                    End If
                Case 1
                    Color = QBColor(BrightCyan)
                Case 2
                    Color = QBColor(Yellow)
                Case 3
                    Color = QBColor(BrightGreen)
                Case 4
                    Color = QBColor(Yellow)
            End Select
        Else
            Color = QBColor(BrightRed)
        End If

    Você escolhe a cor dos acessos, tipo:


    Código:
        ' Check access level
        If GetPlayerPK(Index) = NO Then
            Select Case GetPlayerGuildAccess(Index)
                Case 0
                    If GetPlayerSTR(Index) > 0 Then
                        Color = QBColor(Red)
                    Else
                        Color = QBColor(Red)
                    End If
                Case 1
                    Color = QBColor(Cor do acesso 1 em Ingles)
                Case 2
                    Color = QBColor(Cor do acesso 2 em Ingles)
                Case 3
                    Color = QBColor([Cor do acesso 3 em Ingles)
                Case 4
                    Color = QBColor(Cor do acesso 4 em Ingles)
            End Select
        Else
            Color = QBColor(BrightRed)
        End If



    Creditos:

    Ricardo XD
    And
    Khaws por Postar aki xD
    • Ir para o topo
      Data/hora atual: Sex Abr 26, 2024 3:31 pm