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

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

Templo RPG Maker » Eclipse Origins » Tutoriais » [EO] Sistema de Titulos Beta v1.2

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

Myke ~

Myke ~
Membro Honorário I
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:

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 ~

newbie123

newbie123
Membro Honorário III
Membro Honorário III
Myke o/, nuss o thales postou um tutorial com erro? ou te mando ou MP ou msn? pra te dar uma chance de ajeitar me desculpe, é que nunca esperei o thales postando um sistema que embora simples tenha alguns errinhos, mas isso acontece com todos, obrigado por postar o tutorial aqui. +1. o/

Myke ~

Myke ~
Membro Honorário I
Membro Honorário I
Ele postou tinha 2 Errinhos mini, mas que uns kras não conseguiram arrumar, e depois que testaram ele ja tinha parado de se manifestar no Fórum! pode ter cido erro dele ao passar o Tuto prum Fórum ou algo Do Tipo ja que aquele kra é um dos melhores prog Que Existe! E Também me pediram no msn ppor que não dava para expecificar uma cor para cada Titulo, então fis isso ae, dando apenas uma melhorada num Sistema BETA sem atributos.

Beijos ~
Tio Myke

newbie123

newbie123
Membro Honorário III
Membro Honorário III
Atah tendi, ele realmente é um dos melhores mesmo. o/

SameKage

SameKage
Membro Honorário III
Membro Honorário III
Muito bom Mike, realmente muito bom, acho que vou começar a mexer com EO, me deu vontade xD

http://distritorpgmaker.com

Sieghart

Sieghart
Membro I
Membro I
em qual txt vou para encontrar: "Public Sub DrawPlayerName(ByVal Index As Long)"?

Myke ~

Myke ~
Membro Honorário I
Membro Honorário I
Amigo, caso ainda esteje com esa duvida; de Ctrl + F coloque a sub na caixa de pesquisa embaixo mude para "Current project e clique em Find, ele irá procurar em todos os mod e etc...

Beijos ~
Tio Myke

Kaue

Kaue
Membro Honorário I
Membro Honorário I
como acho os scripts fiquei fuçando meia hora e n achei onde eles ficam

Conteúdo patrocinado


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

Templo RPG Maker » Eclipse Origins » Tutoriais » [EO] Sistema de Titulos Beta v1.2

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