InícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se
Os que mais criam tópicos
Sonart
 
Alenaldo
 
Over~
 
Warrior
 
Caio~
 
SSO
 
newbie123
 
Kaue
 
Jim
 
yuri godinho
 
Conectar-se
Nome de usuário:
Senha:
Conexão automática: 
:: Esqueci minha senha

Compartilhe | 
 

  Tutorial Sistema de Titulo ( Visual , Sem Atributos )

Ir em baixo 
AutorMensagem
Alenaldo
Membro
Membro


Mensagens : 38
Moeda : 104
Pontos : 4
Data de inscrição : 05/01/2013
Idade : 25
Localização : São luis MA

MensagemAssunto: Tutorial Sistema de Titulo ( Visual , Sem Atributos )   Sab Jan 05, 2013 12:36 pm

- Client Side -

No Modtext Procure por :


Código:
Public Sub DrawPlayerName(ByVal Index As Long)


E Depois de :


Código:
End Sub


Adicione :


Código:
Public Sub DrawTitulo(ByVal Index As Long)
Dim Titulo 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
'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
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4)
    End If


If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If


If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If



If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If



If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If


    Call DrawText(TexthDC, ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Titulo))), TextY - 18, Titulo, QBColor(Blue))


End Sub


Depois Procure Por :


Código:
For I = 1 To Player_HighIndex


E Abaixo de :


Código:
Call DrawPlayerName(I)
            If CurX = GetPlayerX(I) And CurY = GetPlayerY(I) Then

Adicione :


Código:
Call DrawTitulo(I)


Ao passar o Mouse em cima do Player O Titulo aparecerá
Créditos :
Kurogane pelo sistema
Eu por posta aki
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Kaue
Membro
Membro


Mensagens : 25
Moeda : 33
Pontos : 1
Data de inscrição : 04/01/2013

MensagemAssunto: Re: Tutorial Sistema de Titulo ( Visual , Sem Atributos )   Sab Jan 05, 2013 12:38 pm

Eu peguei esse codigo editei e fiz um simplificado so que para naruto ^^

_________________
[b]Objetivos:
()Virar Moderador GLOBAL
()Ter 5 Rep.
()Ter 20 Rep.
()Ajudar 10 pessoas.
/b]
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Over~
Moderador.G
Moderador.G
avatar

Mensagens : 149
Moeda : 214
Pontos : 11
Data de inscrição : 04/01/2013

MensagemAssunto: Re: Tutorial Sistema de Titulo ( Visual , Sem Atributos )   Sab Jan 05, 2013 1:01 pm

Muito bom cara obrigado por disponibilizar.

_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Tutorial Sistema de Titulo ( Visual , Sem Atributos )   

Voltar ao Topo Ir em baixo
 
Tutorial Sistema de Titulo ( Visual , Sem Atributos )
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Tutorial/PHP] Criando Sistema de Noticias PHP & MySQL
» [TUTORIAL] Modificar o titulo do blog
» [TUTORIAL] Modificar o título do blog
» [TUTORIAL] Sistema de curtir nas mensagens
» [TUTORIAL] Alterar o Título de Widgets Padrão

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
 :: Desenvolvimento de Jogos :: Engines :: Eclipse Origins :: Tutoriais-
Ir para: