Chat desenhada para a tela!

por Lucas Roberto Qua 13 Abr 2011, 21:05

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 Exit Sub End Sub

Depois em "HandleSayMsg" em:

Código:
frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text) - 1

Adicionar:

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

Depois em "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

-Obrigado evilbunnie

por Ian Qua 13 Abr 2011, 21:12

boa lucas traduzio perfeitamente +1 cred

por nicholas Qua 13 Abr 2011, 21:21

+1 DE CREDITO LUCAS

por Ricardo Qui 14 Abr 2011, 06:15

Pra que serve isso?

por nicholas Qui 14 Abr 2011, 06:26

pra chat desenhada para a tela

por Ricardo Qui 14 Abr 2011, 06:29

Agora eu vi a imagem
Nicholas disso eu sei, pq olha o nome do topico ¬¬

por nicholas Qui 14 Abr 2011, 06:29

Nen e por que ue vi a imagen

por Valentine Sex 15 Abr 2011, 22:01

Não entendi bem o que significa chat desenhada na tela...seria deixar ele transparente no fundo, mecher nos textos, o que?

por Ian Sáb 16 Abr 2011, 07:26

Simples mente marlos o chat acho que ficaria na tela mais ficaria diferente dele invisivel na tela da 1 test pra ver XP

por V-Force Sáb 16 Abr 2011, 08:06

Não entendi bem o que significa chat desenhada na tela...seria deixar ele transparente no fundo, mecher nos textos, o que?

Num é que o chat fica invisivel,ele simplesmente pega o comando do DrawText que é onde vem as mensagem de atack entre outras para fazer aparecer as msg do chat

por Valentine Sáb 16 Abr 2011, 11:36

V-ƒorce escreveu:
Não entendi bem o que significa chat desenhada na tela...seria deixar ele transparente no fundo, mecher nos textos, o que?

Num é que o chat fica invisivel,ele simplesmente pega o comando do DrawText que é onde vem as mensagem de atack entre outras para fazer aparecer as msg do chat

Ah sim, bem legal então
+1 crédito

So faltou explicar isso no tópico, porque não da pra entender muito, muitas pessoas deram crédito sem saber pra que serve