Deixando Chat transparente. Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

Deixando Chat transparente.

+3
loganout
HugoFreitas
joaovitor2763
7 participantes

Ir para baixo

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
joaovitor2763
joaovitor2763
Membro de Honra
Membro de Honra

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

Nando Moura gosta desta mensagem

Ir para o topo Ir para baixo

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
HugoFreitas
HugoFreitas
Administrador
Administrador

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

http://www.aldeiarpgbr.com

Ir para o topo Ir para baixo

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
joaovitor2763
joaovitor2763
Membro de Honra
Membro de Honra

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

Ir para o topo Ir para baixo

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?

loganout
Novato
Novato

Mensagens : 22
Créditos : 0

Ir para o topo Ir para baixo

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
Sakuuray775
Sakuuray775
Iniciante
Iniciante

Mensagens : 44
Créditos : 30

http://narutoghostonline.blogspot.com

Ir para o topo Ir para baixo

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
giovani18
giovani18
Novato
Novato

Mensagens : 3
Créditos : 0

Ir para o topo Ir para baixo

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
Samuka_Maker
Samuka_Maker
Aldeia Friend
Aldeia Friend

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

http://liferpgmaker.forumfacil.net

Ir para o topo Ir para baixo

Deixando Chat transparente. Empty Re: Deixando Chat transparente.

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

no DirectDraw7
Valentine
Valentine
Administrador
Administrador

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

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Deixando Chat transparente. Empty Re: Deixando Chat transparente.

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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