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

Suporte na criação de jogos de todos tipos!

Últimos assuntos
» Eclipse naruto V1.0,1.1
[TUTO]Classe em Baixo do Nome. I_icon_minitimeTer Out 28, 2014 8:44 am por Kaue

» { Equipemanto }
[TUTO]Classe em Baixo do Nome. I_icon_minitimeQua Mar 26, 2014 8:24 pm por Emanuelb2

» Ajuda :D plis
[TUTO]Classe em Baixo do Nome. I_icon_minitimeTer Mar 11, 2014 9:00 pm por jamethon

» [Deleta por favo esse topico]
[TUTO]Classe em Baixo do Nome. I_icon_minitimeSeg Mar 10, 2014 10:55 pm por Emanuelb2

» [PERGUNTA] Como Por sistemas de reset automático e diminuir os mapas? [ EEB ]
[TUTO]Classe em Baixo do Nome. I_icon_minitimeSeg Mar 10, 2014 10:25 pm por Kaue

» [Recrutamento] PA ( para quem sabe manusear Pixel Art )
[TUTO]Classe em Baixo do Nome. I_icon_minitimeDom Mar 09, 2014 8:41 pm por Kaue

» Eclipse Origins 2.0 DOWLOAD(ATT)
[TUTO]Classe em Baixo do Nome. I_icon_minitimeDom Mar 09, 2014 6:10 pm por Emanuelb2

» Ganhar Item ao Matar Player
[TUTO]Classe em Baixo do Nome. I_icon_minitimeDom Mar 09, 2014 6:15 am por Kaue

» Oque acontece com o administrador do forum!
[TUTO]Classe em Baixo do Nome. I_icon_minitimeSex Mar 07, 2014 3:21 pm por Kaue

Parceiros
Fórum grátis


[TUTO]Classe em Baixo do Nome.

MMORPG :: Engines Para Criação De Jogos :: Elysium :: Tutoriais

Ir para baixo

[TUTO]Classe em Baixo do Nome. Empty [TUTO]Classe em Baixo do Nome.

Mensagem por *Star* Qui Dez 20, 2012 10:38 am

Client~side

Procure por:

Código:
If Player(I).Pet.Alive = YES And Player(I).Pet.Map = GetPlayerMap(MyIndex) Then

Acima adicione:

Código:
BltPlayerClass(I)

Agora Procure Por :

Código:
Sub BltPlayerName(ByVal Index As Long)

e mude a sub 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(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

e embaixo dessa sub adicione essa :

Código:
Sub BltPlayerClass(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, "Classe: " & GetPlayerClass(Index), Color)
End Sub

pra terminar mude a sub '' Sub BltPlayerGuildName(ByVal Index As Long) '' 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

Fim.

Ajudei? Aperte no + no cantinho. bounce
*Star*
*Star*

Mensagens : 9
Pontos : 28
Reputação : 1
Data de inscrição : 19/12/2012
Idade : 28

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG :: Engines Para Criação De Jogos :: Elysium :: Tutoriais

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