Arena RPG Maker
Olá, visitante!
Seja bem-vindo ao fórum Arena RPG Maker, caso queira aprender sobre criação de jogos, está no fórum certo. Esperamos que possa aprender tanto quanto possa nos ensinar aqui.

Atenciosamente,
Equipe Arena RPG Maker.
Arena RPG Maker

Estamos de volta o/ ... Ou não.Eu amo a -Dark
Doações para o fórum abertas, clique aqui e saiba mais.
Últimos assuntos
» Pokémon Genesis Online! (PGO)
Qua 05 Jul 2017, 17:08 por Lexar

» Tileset Converter to MV
Sex 12 Maio 2017, 13:07 por Douggi

» [Dúvida] Como tirar a porcentagem de esquiva
Ter 09 Maio 2017, 22:15 por Neil Flame Runner

» Pack Resources, Sprites e etc
Qua 23 Dez 2015, 09:30 por raydengv

» Download RPG Maker 2003 + RTP em português
Ter 22 Dez 2015, 08:14 por ::KimMax::

» Fantasy Art Online
Dom 18 Out 2015, 16:42 por daviih123

» Você vai ter medo do Nerve gear?
Sab 25 Jul 2015, 16:02 por Kirito-kun

» O Barato é louco
Sab 27 Jun 2015, 15:26 por Halt

» Download RPG Maker 2000 + RTP em português
Qui 21 Maio 2015, 19:28 por Wismael

» Divulgando meu grupo e página do Facebook
Ter 19 Maio 2015, 13:06 por Halt


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Quebra de texto do Chat desenhado na tela em Sex 11 Jan 2013, 15:16

Halt

avatar
Administrador
Administrador
Valentine escreveu:Tópico Original
[Você precisa estar registrado e conectado para ver este link.]

Ryoku Hasu: Incomoda-me que o texto desenhado na tela se apaga com bastante facilidade, quando o texto é muito longo e maior que a tela. então eu me sentei aqui por seis horas para conseguir finalizar. E desde que eu estou postando isso, eu acho que eu tenho que trabalhar.

Eu o editei para fazer a quebra de texto, em vez de caracteres embrulho! Woot!

Isso exibe oito mensagens, NÃO 8 linhas.

'Corrigido por Rob Janes (não inteiramente certo porque lol)


** Para alterar o comprimento da quebra automática de texto, altere todos os "60" no código abaixo

Lado do cliente

em modText

Enconte "Public Sub DrawChat()" e substitua por
Código:
'Evilbunnie's DrawnChat system, Word wrapping by RyokuPublic , lammer by Rob Janes
Sub DrawChat()
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim wrap As Integer
Dim text As String
Dim SubString As String
Dim ChatArray() as String

x = 0
   For i = 1 To 8   
      text = Chat(i).text   
      y = 1   
      ChatArray = Split(text," ")

      Do While Len(text) > 60       
         If y = 1 Then           
            wrap = Len(text) Mod 60       
         Else           
            wrap = 60       
         End If
                   
         'Our Array has more than 1 Word!
         If UBound(ChatArray) > 0 Then
            Do Until Asc(Mid$(text, Len(text) - wrap, 1)) = 32 'break line on spaces only.           
               wrap = wrap + 1       
            Loop 
         'Our Array only has 1 Word!
         ElseIf UBound(ChatArray) <= 0 Then
                 Exit Do
                  wrap = 1
             End If
             
         SubString = Right$(text, wrap)
     
         Call DrawText(TexthDC, Camera.Left + 10, (Camera.Bottom - 20) - ((i + x) * 20), SubString, Chat(i).Colour)                   
         text = Left$(text, Len(text) - wrap)
               
         x = x + 1       
         y = y + 1   
      Loop
     
      Call DrawText(TexthDC, Camera.Left + 10, (Camera.Bottom - 20) - ((i + x) * 20), text, Chat(i).Colour)   
   Next I
End Sub

Créditos:
Ryoku Hasu (Por criar o tutorial original no TouchofDeath)
Valentine (Por traduzir, simplificar a explicação e postar aqui na Aldeia RPG)


__________________________________________

Ei Convidado, sim você mesmo! Ajude o fórum à crescer postando coisas úteis, dê sugestões para melhorar-mos e divulgue o fórum.

Step inside, see the devil in I.

Gifts-
Fantasy - Fantasy - Fantasy - ~Razor - Darkmel

Zerei a internet
Ver perfil do usuário http://arenarpgmaker.eclipserpg.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum