Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Deixando Chat transparente.
+3
loganout
HugoFreitas
joaovitor2763
7 participantes
Página 1 de 1
Deixando Chat transparente.
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.
Primeiro, abra o cliente e adicionar na parte inferior do "modText":
Depois, substitua o "sub AddText" com:
Depois em "HandleSayMsg" em:
Adicionar:
Depois na "ModTypes" em:
Adicionar:
Em Sub "Render_Graphics" acima:
Adicionar:
Testado em EO1.2 - 2.0
Créditos:
Evilbunnie
Lucas Roberto
RenanR
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.
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.
joaovitor2763- Membro de Honra
- Medalhas :
Mensagens : 645
Créditos : 137
Nando Moura gosta desta mensagem
Re: Deixando Chat transparente.
E bem legal esse tuto, pode não parecer útil, más da uma "diferenciada" na aparência do projeto.HugoFreitas escreveu:Muito bom cara. +1cred.
_________________
Ser maker e ser capaz de dar vida a sua imaginação.
joaovitor2763- Membro de Honra
- Medalhas :
Mensagens : 645
Créditos : 137
Re: Deixando Chat transparente.
Não entendi =)
@
Primeiro, abra o cliente e adicionar na parte inferior do "modText":
Onde ta isso?
@
Primeiro, abra o cliente e adicionar na parte inferior do "modText":
Onde ta isso?
loganout- Novato
- Mensagens : 22
Créditos : 0
Re: Deixando Chat transparente.
Desculpe reviver o tópico, mais o tutorial não funfou.. D:
Continua do mesmo jeito
O meu chat fica encima da PicScreen :s
Continua do mesmo jeito
O meu chat fica encima da PicScreen :s
Re: Deixando Chat transparente.
tuto não ta pegando e ta mal explicado pf ajeita ai
giovani18- Novato
- Mensagens : 3
Créditos : 0
Re: Deixando Chat transparente.
onde fica o Render_Graphics?
_________________
Life rpg maker, suporte para criacao de jgoos online eoffline, link do forum:(v2.0)
http://liferpgmakerv2.forumais.com/
Tópico original/Tópico de Recrutamento
Tópicos semelhantes
» Chat do Eo Transparente
» [Resolvido] Chat transparente
» [Pedido] - Chat transparente para EO3.0
» Deixando o Player Mudo
» Movido: Xat Box Transparente
» [Resolvido] Chat transparente
» [Pedido] - Chat transparente para EO3.0
» Deixando o Player Mudo
» Movido: Xat Box Transparente
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos