Aldeia RPG

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

Suporte ao desenvolvimento de jogos


+3
loganout
HugoFreitas
joaovitor2763
7 participantes

    Deixando Chat transparente.

    joaovitor2763
    joaovitor2763
    Membro de Honra
    Membro de Honra


    Medalhas : Deixando Chat transparente. Trophy12
    Mensagens : 645
    Créditos : 137

    Deixando Chat transparente. Empty Deixando Chat transparente.

    Mensagem por joaovitor2763 Dom Jun 05, 2011 7:05 pm

    Escrito por Lucas Roberto na antiga mmorpgbr
    Upado na nova mmorpgbr por RenanR
    Postado aqui por joaovitor2763

    Chat desenhada na tela!

    Ei, eu não fiz um tutorial em muito tempo, mas eu achei que ia colocar um fora, sim, este é um sistema muito simples, mas algumas pessoas querem.
    Você pode ajustar onde o chat é desenhado no "DrawChat" sub.

    Deixando Chat transparente. 817a0cfe99ea48bce5ba0244df58281a

    Primeiro, abra o cliente e adicionar na parte inferior do "modText":
    Código:
    'Evilbunnie's DrawnChat system
    Public Sub DrawChat()
    Dim i As Integer
        For i = 1 To 6
            Call DrawText(TexthDC, Camera.left + 10, (Camera.Bottom - 20) - (i * 20), Chat(i).text, Chat(i).Colour)
        Next
    End Sub

    'Evilbunnie's DrawChat system
    Public Sub ReOrderChat(ByVal nText As String, nColour As Long)
    Dim i As Integer
       
        For i = 19 To 1 Step -1
            Chat(i + 1).text = Chat(i).text
            Chat(i + 1).Colour = Chat(i).Colour
        Next
       
        Chat(1).text = nText
        Chat(1).Colour = nColour
    End Sub

    Depois, substitua o "sub AddText" com:
    Código:
    Public Sub AddText(ByVal Msg As String, ByVal color As Integer)
    Dim S As String

        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler
       
        S = vbNewLine & Msg
        frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text)
        frmMain.txtChat.SelColor = QBColor(color)
        frmMain.txtChat.SelText = S
        frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text) - 1
       
        'Evilbunnie's DrawnChat System
        ReOrderChat Msg, QBColor(color)
       
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "AddText", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear

    Depois em "HandleSayMsg" em:
    Código:
    frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text) - 1

    Adicionar:
    Código:
    ReOrderChat Header & Name & ": " & message, Colour

    Depois na "ModTypes" em:
    Código:
    Public Options As OptionsRec

    Adicionar:
    Código:
    'Evilbunnie's DrawnChat system
    Public Chat(1 To 20) As ChatRec

    'Evilbunnie's DrawnChat system
    Private Type ChatRec
        text As String
        Colour As Long
    End Type

    Em Sub "Render_Graphics" acima:
    Código:
    ' draw fps

    Adicionar:
    Código:
    'Evilbunnie's DrawnChat System
    DrawChat

    Testado em EO1.2 - 2.0

    Créditos:
    Evilbunnie
    Lucas Roberto
    RenanR


    _________________
    Ser maker e ser capaz de dar vida a sua imaginação.

    Deixando Chat transparente. IcxBy6
    Deixando Chat transparente. H8MZe

    Nando Moura gosta desta mensagem

    HugoFreitas
    HugoFreitas
    Administrador
    Administrador


    Medalhas : Deixando Chat transparente. Medal_55
    Mensagens : 633
    Créditos : 175

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por HugoFreitas Seg Jun 06, 2011 6:59 pm

    Muito bom cara. +1cred.


    _________________
    Deixando Chat transparente. Brsnip10
    Deixando Chat transparente. DqtrI
    joaovitor2763
    joaovitor2763
    Membro de Honra
    Membro de Honra


    Medalhas : Deixando Chat transparente. Trophy12
    Mensagens : 645
    Créditos : 137

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por joaovitor2763 Ter Jun 07, 2011 3:02 pm

    HugoFreitas escreveu:Muito bom cara. +1cred.
    E bem legal esse tuto, pode não parecer útil, más da uma "diferenciada" na aparência do projeto.


    _________________
    Ser maker e ser capaz de dar vida a sua imaginação.

    Deixando Chat transparente. IcxBy6
    Deixando Chat transparente. H8MZe
    avatar
    loganout
    Novato
    Novato


    Mensagens : 22
    Créditos : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por loganout Qua Ago 31, 2011 11:21 pm

    Não entendi =)

    @
    Primeiro, abra o cliente e adicionar na parte inferior do "modText":

    Onde ta isso?
    Sakuuray775
    Sakuuray775
    Iniciante
    Iniciante


    Mensagens : 44
    Créditos : 30

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Sakuuray775 Ter Fev 21, 2012 10:14 pm

    Desculpe reviver o tópico, mais o tutorial não funfou.. D:

    Continua do mesmo jeito

    O meu chat fica encima da PicScreen :s
    giovani18
    giovani18
    Novato
    Novato


    Mensagens : 3
    Créditos : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por giovani18 Dom Jul 22, 2012 10:43 pm

    tuto não ta pegando e ta mal explicado pf ajeita ai
    Samuka_Maker
    Samuka_Maker
    Aldeia Friend
    Aldeia Friend


    Medalhas : Deixando Chat transparente. WBLhI
    Mensagens : 1204
    Créditos : 127

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Samuka_Maker Qui Jul 26, 2012 5:11 pm

    onde fica o Render_Graphics?


    _________________

    Life rpg maker, suporte para criacao de jgoos online eoffline, link do forum:(v2.0)
    http://liferpgmakerv2.forumais.com/

    Deixando Chat transparente. 6f4EA

    Deixando Chat transparente. Bxvno
    Tópico original/Tópico de Recrutamento
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : Deixando Chat transparente. ZgLkiRU
    Mensagens : 5343
    Créditos : 1164

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Valentine Qui Jul 26, 2012 7:30 pm

    no DirectDraw7

    Conteúdo patrocinado


    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Nov 14, 2024 8:29 pm