1 [EO] Sistema de Titulos Beta v1.2 4/11/2012, 17:12
Myke ~
Membro Honorário I
Bom esse Sistema foi Feito por Thales12 Porém tinha uns errinhos, e a cor dos Titulos eram fixas por Ex: Elite Colonial Era a mesma cor que: Elite Staff 3 Pulinho! Então eu resolvi Aperfeiçoar um pouco Para Cada Titulo Ter sua própria Cor!
Começando: Procure no Cliente ~ Side por:
Abaixo dessa Sub "Abaixo do End Sub"
Coloque:
Agora procure por:
Substitue para:
Pronto!
Créditos ~
Thales12
Myke ~
Começando: Procure no Cliente ~ Side por:
- Código:
Public Sub DrawPlayerName(ByVal Index As Long)
Abaixo dessa Sub "Abaixo do End Sub"
Coloque:
- Código:
Public Sub DrawRank(ByVal Index As Long)
Dim Rank As String
Dim adm As String
Dim n(1 To MAX_PLAYERS) As String
Dim Name As String
Dim TextX As Long
Dim TextY As Long
Dim color As Long
'If Options.Debug = 1 Then On Error GoTo errohandler
TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(n(Index) & Name)))
If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 17
Else
' Determine location for text
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 17
End If
If GetPlayerLevel(Index) >= 1 Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(Green)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(BrightGreen)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(Blue)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(BrightBlue)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(White)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(Yellow)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(Black)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(BrightRed)
End If
If GetPlayerLevel(Index) >= Then ' X = Level Do Titulo
Rank = "Nome Do Titulo entre aspas"
color = QBColor(BrightRed)
End If
Call DrawText(TexthDC, ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Rank))), TextY - 18, Rank, color)
End Sub
Agora procure por:
- Código:
' draw player names
For i = 1 To Player_HighIndex
If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
Call DrawPlayerName(i)
End If
Next
Substitue para:
- Código:
' draw player names
For i = 1 To Player_HighIndex
If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
Call DrawPlayerName(i)
Call DrawRank(i)
End If
Next
Pronto!
Créditos ~
Thales12
Myke ~