Suporte no desenvolvimento de jogos


    Deixando Chat transparente.

    joaovitor2763
    joaovitor2763
    Membro de Honra
    Membro de Honra

    Medalhas : Deixando Chat transparente. Trophy12
    Mensagens : 646
    Créditos : 137
    Cash : 0

    Deixando Chat transparente. Empty Deixando Chat transparente.

    Mensagem por joaovitor2763 em 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
    HugoFreitas
    HugoFreitas
    Administrador
    Administrador

    Medalhas : Deixando Chat transparente. Medal_55
    Mensagens : 634
    Créditos : 175
    Cash : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por HugoFreitas em 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 : 646
    Créditos : 137
    Cash : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por joaovitor2763 em 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
    Cash : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por loganout em 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 : 29
    Cash : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Sakuuray775 em 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
    Cash : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por giovani18 em 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 : 1199
    Créditos : 125
    Cash : 0

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Samuka_Maker em 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. 94JxvDeixando Chat transparente. ZgLkiRU
    Mensagens : 4930
    Créditos : 1093
    Cash : 0

    Ficha do personagem
    Nível: 1
    Experiência:
    Deixando Chat transparente. Left_bar_bleue0/50Deixando Chat transparente. Empty_bar_bleue  (0/50)
    Vida:
    Deixando Chat transparente. Left_bar_bleue30/30Deixando Chat transparente. Empty_bar_bleue  (30/30)

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

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

    no DirectDraw7


    _________________
    Deixando Chat transparente. AIymW

    Conteúdo patrocinado

    Deixando Chat transparente. Empty Re: Deixando Chat transparente.

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Maio 25, 2019 2:28 pm