[DUVIDA] Quantidade de caracteres no Chat

Haziel escreveu:Então amigos, continuei minha busca aqui, estou usando a engine Skywyre encontrei a resolução do GalinghanMaker para a questão de tamanho do texto com relação a não ultrapassar a caixa de chat ou melhor, a imagem do chat.
No entanto, mesmo que esteja bem no encaixe, ainda há o problema de poder digitar muitooooooo..
Dá até pra ficar cansado de ver até onde vai o texto, engine está em dx8 preciso colocar limite de caracteres para evitar flood de jogadores arruaceiros.

Alguém me ajuda?                 






PS: UP do Tópico que ainda não foi respondido, ainda não encontrei onde posso resolver sobre isto, se foi double post ou algo do tipo, desculpe-me, porém acho que não foi double por conta do tempo de espera.

Na verdade foi um double post sim, mas sem problemas, tenha um pouco mais de paciência, ninguém é obrigado a responder, e nem todo mundo tem tempo disponível para lhe responder imediatamente.

Vamos lá:
Na modInput, procure por:

Código:

' And if neither, then add the character to the user's text buffer
    If (KeyAscii <> vbKeyReturn) And (KeyAscii <> vbKeyBack) And (KeyAscii >= 32) Then
        If Len(MyText) >= 155 Then Exit Sub
        MyText = MyText & ChrW$(KeyAscii)
        UpdateShowChatText
    End If

Modifique apenas essa linha:

Código:

If Len(MyText) >= 155 Then Exit Sub

onde tá o 155 você mudar para o total de caracteres que desejar.

Doolly, desculpa pelo Double então.
Mas sobre o Chat, encontrei isso aqui, mas não encontrei exatamente isto que você citou acima, talvez seja algo próximo não sei..

Código:

Public Sub UpdateShowChatText()
Dim CHATOFFSET As Long, I As Long, x As Long

    CHATOFFSET = 52
    
    If EngineGetTextWidth(Font_Default, MyText) > GUIWindow(GUI_CHAT).Width - CHATOFFSET Then
        For I = Len(MyText) To 1 Step -1
            x = x + Font_Default.HeaderInfo.CharWidth(Asc(Mid$(MyText, I, 1)))
            If x > GUIWindow(GUI_CHAT).Width - CHATOFFSET Then
                RenderChatText = Right$(MyText, Len(MyText) - I + 1)
                Exit For
            End If

Código:

' And if neither, then add the character to the user's text buffer
        If (KeyAscii <> vbKeyReturn) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyTab) Then
            sDialogue = sDialogue & ChrW$(KeyAscii)
        End If

Haziel escreveu:Doolly, desculpa pelo Double então.
Mas sobre o Chat, encontrei isso aqui, mas não encontrei exatamente isto que você citou acima, talvez seja algo próximo não sei..

Código:

Public Sub UpdateShowChatText()
Dim CHATOFFSET As Long, I As Long, x As Long

    CHATOFFSET = 52
    
    If EngineGetTextWidth(Font_Default, MyText) > GUIWindow(GUI_CHAT).Width - CHATOFFSET Then
        For I = Len(MyText) To 1 Step -1
            x = x + Font_Default.HeaderInfo.CharWidth(Asc(Mid$(MyText, I, 1)))
            If x > GUIWindow(GUI_CHAT).Width - CHATOFFSET Then
                RenderChatText = Right$(MyText, Len(MyText) - I + 1)
                Exit For
            End If

Código:

' And if neither, then add the character to the user's text buffer
        If (KeyAscii <> vbKeyReturn) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyTab) Then
            sDialogue = sDialogue & ChrW$(KeyAscii)
        End If

Pronto, é esse segundo.

Código:

If (KeyAscii <> vbKeyReturn) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyTab) Then
            sDialogue = sDialogue & ChrW$(KeyAscii)
        End If

[/code]

Eu peguei da crystalshire, achei que era o mesmo, mas vamos lá

Mude ele para:

Código:

If (KeyAscii <> vbKeyReturn) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyTab) Then
            If Len(sDialogue) >= 155 Then Exit Sub ' Mude o 155 para o total de caracteres
            sDialogue = sDialogue & ChrW$(KeyAscii)
        End If

Infelizmente não funcionou...

Substitui pelo que mandou abaixo e deu a mesma coisa, consigo digitar uma redação do Enem no chat...
Estou usando a Skyware Primitive Edition disponibilizada no site da E.O.

Código:

http://pastebin.com/sJqu8mee


Passei para o Pastebin a fonte onde encontrei os códigos acima, caso queira dar uma olhada, mas agradeço desde já toda a sua ajuda!