Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Vip,No Vip Ou Staff Em Cima Do Nome !

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Vip,No Vip Ou Staff Em Cima Do Nome ! em Seg 19 Dez 2011, 23:32

xvitorxzinho


Membro
Membro
Cliente

Procure no ModGamelogic pela Sub

Código:

Sub BltPlayerGuildName(ByVal Index As Long)


e mude a sub toda para

Código:

 Sub BltPlayerGuildName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long

    ' 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

If Index = MyIndex Then
    TextX = NewX + sx + Int(PIC_X / 2) - ((Len(GetPlayerGuild(MyIndex)) / 2) * 8)
    TextY = NewY + sx - Int(PIC_Y / 1) - 30
   
    Call DrawText(TexthDC, TextX, TextY, GetPlayerGuild(MyIndex), Color)
Else
    ' Draw name
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerGuild(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - 12
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerGuild(Index), Color)
End If
End Sub


Depois procure por

Código:

Sub BltPlayerName(ByVal Index As Long)

e mude a Sub toda por
Código:

Sub BltPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
   
    ' Check access level
    If GetPlayerPK(Index) = NO Then
        Select Case GetPlayerAccess(Index)
            Case 0
                Color = QBColor(Brown)
            Case 1
                Color = QBColor(DarkGrey)
            Case 2
                Color = QBColor(Cyan)
            Case 3
                Color = QBColor(Blue)
            Case 4
                Color = QBColor(Pink)
        End Select
    Else
        Color = QBColor(BrightRed)
    End If
       
    ' Draw name
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index), Color)

    ' Titulo de player não VIP em cima do Nome do Player -- Isso e para os Players que não e VIP
    If Player(MyIndex).Access = 0 Then ' Não precisa mudar
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 13)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (12)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[NO VIP]", Color)
    End If
   
    ' Titulo de VIP em cima do Nome do Player ( [VIP] )
    If Player(MyIndex).Access = 1 Then ' Mude o N° 1 para o Acesso que quiser.
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 24)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[VIP]", Color)
    End If

    ' Titulo de Administração em cima do Nome do Player ( [STAFF] )  Esse titulo e exclusivos para a Administração do jogo, " VIP " e Nem " No VIP " não aparece  Nome.
    If Player(MyIndex).Access >= 4 Then
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 13)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[STAFF]", Color)
    End If

End Sub



Para aqueles que usa o Sistema do "Guardian" de 3 VIP, Que tem os Acesso ( VIP Bronze, VIP Silver, VIP Gold ). Também pode usar desse jeito

Código:

Sub BltPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
   
    ' Check access level
    If GetPlayerPK(Index) = NO Then
        Select Case GetPlayerAccess(Index)
            Case 0
                Color = QBColor(Brown)
            Case 1
                Color = QBColor(DarkGrey)
            Case 2
                Color = QBColor(Cyan)
            Case 3
                Color = QBColor(Blue)
            Case 4
                Color = QBColor(Pink)
        End Select
    Else
        Color = QBColor(BrightRed)
    End If
       
    ' Draw name
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 2) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index), Color)
   
    ' Titulo de player não VIP em cima do Nome do Player -- Isso e para os Players que não e VIP
    If Player(MyIndex).Access = 0 Then ' Não precisa mudar
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 13)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (12)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[NO VIP]", Color)
    End If

    ' Titulo de VIP em cima do Nome do Player ( [VIP BRONZE] )
    If Player(MyIndex).Access = 1 Then ' Mude o N° 1 para o Acesso que quiser.
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 24)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[VIP BRONZE]", Color)
    End If
   
    ' Titulo de VIP em cima do Nome do Player ( [VIP SILVER] )
    If Player(MyIndex).Access = 2 Then ' Mude o N° 2 para o Acesso que quiser.
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 24)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[VIP SILVER]", Color)
    End If
   
    ' Titulo de VIP em cima do Nome do Player  (  [VIP GOLD] )
    If Player(MyIndex).Access = 3 Then  ' Mude o N° 3 para o Acesso que quiser.
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 19)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[VIP GOLD]", Color)
    End If
   
    ' Titulo de Administração em cima do Nome do Player ( [STAFF] )  Esse titulo e exclusivos para a Administração do jogo, " VIP " e Nem " No VIP " não aparece o Nome.
    If Player(MyIndex).Access >= 4 Then
    TextX = GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset + Int(PIC_X / 2) - ((Len((Index)) / 2) * 13)
    TextY = GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset - Int(PIC_Y / 1) - (15)
    Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "[STAFF]", Color)
    End If
   
End Sub

Fuciona perfeitamente!

Creditos:À Gagster (DO MMORPGBR)
E Á Mim Por Postar Aki afro

Qualquer erro arrumem ae! pq eu nao sei mecher direito nesse forum

2Tutorial Re: Vip,No Vip Ou Staff Em Cima Do Nome ! em Ter 20 Dez 2011, 18:37

ViniciusNeon


Membro
Membro
Cara, arruma isso poe os Códigos usando [*code][*/code] Sem as estrelinhas ae xD

3Tutorial Re: Vip,No Vip Ou Staff Em Cima Do Nome ! em Ter 20 Dez 2011, 20:10

Pica Pau Pilo


Membro
Membro
Bom . Pelo Menos Colokor o Nome De Quem Fez Antes Nao Tinha ! Mais Vlw por ter Postado . Bom Sistema Ja testei e Pega Very Happy



Última edição por Pica Pau Pilo em Qui 22 Dez 2011, 09:03, editado 2 vez(es)

4Tutorial Re: Vip,No Vip Ou Staff Em Cima Do Nome ! em Qua 21 Dez 2011, 14:11

RenanR


Membro
Membro
Tópico corrigido

Dá próxima vez ve se coloca corretamente.

http://mmomakerbr.ativoforum.com

5Tutorial Re: Vip,No Vip Ou Staff Em Cima Do Nome ! em Ter 07 Ago 2012, 11:10

Guiinholp


Membro
Membro
Tem como fazer um desse Mais tipo como se Foce Um sistema de vila para naruto tal de vez o acesso o LV do player ?'

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum