Entrar
Criar Conta
Mensagens
Data de inscrição
LocalizaçãoBom esse sistema faz Com que o Lv Do player Apareça Abaixo do Nome dele Vamo Lah'
Cliente ~ Side Procure Por Draw Player Names Baixo de:
Adicione:
Procure Por:
Mude Toda Para:
Loga Abaixo dessa Sub Adicione Essa Sub:
Procure Por:
Mude A Sub Inteira Por:
Bom e Isso Não e Muito Complicado
"
Obs: Para que o Level apareça corretamente, é necessário ter o GetPlayerlevel ativado pelo cliente!
Cliente ~ Side Procure Por Draw Player Names Baixo de:
- Código:
Call BltPlayerName(I)
Adicione:
- Código:
Call BltPlayerLevel(I)
Procure Por:
- Código:
Sub BltPlayerName(ByVal Index As Long)
Mude Toda Para:
- 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(Yellow)
Case 1
Color = QBColor(BrightBlue)
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) - (12)
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, GetPlayerName(Index), Color)
End Sub
Loga Abaixo dessa Sub Adicione Essa Sub:
- Código:
Sub BltPlayerLevel(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(Yellow)
Case 1
Color = QBColor(BrightBlue)
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) - (SIZE_Y - PIC_Y)
Call DrawText(TexthDC, TextX - (NewPlayerX * PIC_X) - NewXOffset, TextY - (NewPlayerY * PIC_Y) - NewYOffset, "Level: " & GetPlayerLevel(Index), Color)
End Sub
Procure Por:
- Código:
Sub BltPlayerGuildName(ByVal Index As Long)
Mude A Sub Inteira Por:
- 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 / 4) - 34
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
Bom e Isso Não e Muito Complicado
"Obs: Para que o Level apareça corretamente, é necessário ter o GetPlayerlevel ativado pelo cliente!
