Chat desenhado na tela
Página 1 de 1
Chat desenhado na tela
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
Dracolas- Sentinela
- Mensagens : 16
Estrelas Makers : 93
Creditos : 7
Data de inscrição : 21/01/2011
Idade : 27
Localização : Vitória da Conquista/BA
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Sex Dez 05, 2014 10:00 am por Fabio-3dgames
» Lost In Dreams chapter 01
Seg Nov 24, 2014 7:22 pm por slipknot
» A Makers Brasil ressuscitara em breve!!
Sáb Nov 01, 2014 2:26 pm por Francisco Souza
» Elysium Diamond 3.3.2
Sáb Nov 01, 2014 2:17 pm por Francisco Souza
» personagens e objetos 3d game builder
Seg Jul 28, 2014 2:33 pm por Reginaldo Aparecido Zanus
» fala galera \o obs auhsaush digita galera asygasyga
Dom Jul 06, 2014 1:40 am por anastiel
» tutorial headshot fps creator
Seg Jun 09, 2014 6:08 pm por EspinhosoGamer
» SnakeMod fps creator
Seg Jun 09, 2014 5:55 pm por EspinhosoGamer
» serial fps creator
Seg maio 26, 2014 7:35 pm por slipknot