[DUVIDA] Quantidade de caracteres no Chat

    Compartilhe

    Seth
    Ocasional
    Ocasional

    Mensagens : 183
    Créditos : 26

    [DUVIDA] Quantidade de caracteres no Chat

    Mensagem por Seth em Dom Nov 01, 2015 4:00 pm

    Alguém sabe onde posso alterar a quantidade de caracteres no meu Eclipse Origins 2.0?


    Pois aqui dá pra escrever até O senhor dos anéis inteirinho nesse chat Sad






    Tá complicado, já tentei até as coisas que o GalinghanMaker fez, mas não tive sucesso.

    Seth
    Ocasional
    Ocasional

    Mensagens : 183
    Créditos : 26

    Re: [DUVIDA] Quantidade de caracteres no Chat

    Mensagem por Seth em Seg Nov 02, 2015 11:28 pm

    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.

    Sad 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.

    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1175
    Créditos : 125

    Re: [DUVIDA] Quantidade de caracteres no Chat

    Mensagem por Dooolly em Ter Nov 03, 2015 9:45 am

    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.

    Sad 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.

    Seth
    Ocasional
    Ocasional

    Mensagens : 183
    Créditos : 26

    Re: [DUVIDA] Quantidade de caracteres no Chat

    Mensagem por Seth em Ter Nov 03, 2015 3:45 pm

    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

    Dooolly
    Moderador Global
    Moderador Global

    Medalhas :
    Mensagens : 1175
    Créditos : 125

    Re: [DUVIDA] Quantidade de caracteres no Chat

    Mensagem por Dooolly em Ter Nov 03, 2015 6:37 pm

    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

    Seth
    Ocasional
    Ocasional

    Mensagens : 183
    Créditos : 26

    Re: [DUVIDA] Quantidade de caracteres no Chat

    Mensagem por Seth em Ter Nov 03, 2015 10:53 pm

    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!


    _________________
    {...}
    Todo mundo quer ter o seu XP, mas ninguém está disposto a enfrentar as suas batalhas pra isso. #ProvérbioRPGista xD

      Data/hora atual: Sex Dez 09, 2016 4:38 am