Forums Bug Reports $wrap control codes

alias testwrap {
  set -l %frase 9,37 😺 37    13Testtest      9😻 37www.9testtest.com     9😽  13Testtest 9$Test 13 É o 1º projeto 3,8 100% 8,3 <12@8> 3,8 Brasileiro 12 rodando na rede 0,59  🧊 Fantom Opera   13Agora também no 40,15 IR41C . 59Canal do Telegram ⇨ 9https://t.me/testtest
  set -l %x 1
  echo -ea %frase
  while $wrap(%frase, $window($active).font, $window($active).fontsize, 400, 1, %x) {
    echo -a $v1
    inc %x
  }
}

alias wrap2 {
  if (!$isid) return
  if ($3 !isnum) || ($4 !isnum) || ($5 !isnum) || (($6) && ($6 !isnum)) {
    echo -esc info * Invalid parameters: $!wrap2
    halt
  }
  set -l %n $5
  set -l %wrap $!wrap($1,$2,$3,$4,%n)
  if ($6 != $null) {
    %n = $6
    %wrap = $!wrap($1,$2,$3,$4,$5,%n)
  }
  if (%n < 1) return [ [ %wrap ] ]
  set -l %t %n
  %n = 1
  while (%n < %t) {
    set -l %m $gettok(%r $+ [ [ %wrap ] ],-1,15)
    set -l %r
    if (2 \\ $count(%m,$chr(2))) %r = $chr(2)
    if (2 \\ $count(%m,$chr(31))) %r = $+(%r,$chr(31))
    if (2 \\ $count(%m,$chr(29))) %r = $+(%r,$chr(29))
    if (2 \\ $count(%m,$chr(22))) %r = $+(%r,$chr(22))
    set -l %x $count(%m,$chr(3))
    if (!%x) goto b
    if (!$regex(k,$mid(%m,$pos(%m,$chr(3),%x),3),/^\x03(\d\d?)/)) goto b
    %r = $+(%r,$chr(3),$base($regml(k,1),10,10,2))
    :a
    if ($regex(k,$mid(%m,$pos(%m,$chr(3),%x),6),/^\x03(\d\d?)(?:\x2c(\d\d?))?/)) && ($regml(k,2) != $null) %r = $+(%r,$chr(44),$base($v1,10,10,2))
    elseif ($regml(k,0) == 1) && (%x > 1) {
      dec %x
      goto a
    }
    :b
    inc %n
  }
  if ([ [ %wrap ] ] != $null) return %r $+ $v1
}

alias testwrap {
  set -l %frase 9,37 😺 37    13Testtest      9😻 37www.9testtest.com     9😽  13Testtest 9$Test 13 É o 1º projeto 3,8 100% 8,3 <12@8> 3,8 Brasileiro 12 rodando na rede 0,59  🧊 Fantom Opera   13Agora também no 40,15 IR41C . 59Canal do Telegram ⇨ 9https://t.me/testtest
  set -l %x 1
  echo -ea %frase
  while $wrap2(%frase, $window($active).font, $window($active).fontsize, 400, 1, %x) {
    echo -a $v1
    inc %x
  }
}

alias testwrap {
  set -l %frase 9,37 😺 37    13Testtest      9😻 37www.9testtest.com     9😽  13Testtest 9$Test 13 É o 1º projeto 3,8 100% 8,3 <12@8> 3,8 Brasileiro 12 rodando na rede 0,59  🧊 Fantom Opera   13Agora também no 40,15 IR41C . 59Canal do Telegram ⇨ 9https://t.me/testtest
  set -l %bold $iif($window($active).fontbold, 1, 0)
  set -l %italic $iif($window($active).fontitalic, 1, 0)
  set -l %x 1
  echo -ea %frase
  while $wrap(%frase, $window($active).font, $window($active).fontsize, 400, $+(b,%bold,i,%italic,p1t1w1), %x) {
    echo -a $v1
    inc %x
  }
}

alias testwrap {
  set -l %frase 9,37 😺 37    13Testtest      9😻 37www.9testtest.com     9😽  13Testtest 9$Test 13 É o 1º projeto 3,8 100% 8,3 <12@8> 3,8 Brasileiro 12 rodando na rede 0,59  🧊 Fantom Opera   13Agora também no 40,15 IR41C . 59Canal do Telegram ⇨ 9https://t.me/testtest
  set -l %bold $iif($window($active).fontbold, 1, 0)
  set -l %italic $iif($window($active).fontitalic, 1, 0)
  set -l %x 1
  echo -ea %frase
  while $wrap(%frase, $window($active).font, $window($active).fontsize, 400, $+(b,%bold,i,%italic,p1t1w1), %x) {
    echo -a $v1
    inc %x
  }
}

wraptest {
  var %test 2,11 test 
  echo -a %test
  echo -a $wrap(%test,Fixedsys,20,1000,p1t1w1,1)
}

alias testewrap { 
 var %bt.conferir = 1░▒▓1██2,0🖤12🖤11🖤71██71▓▒░59 GRÊMIO FOOT-BALL PORTO ALEGRENSE 77⭐96⭐53⭐71 IMORTAL TRICOLOR CAMPEÃO DE TUDO 77⭐96⭐53⭐ 59Lar de LUISITO SUÁREZ, El Pistolero! 71CAMPEÃO GAÚCHO 2023 3░▒▓3█4██8█8▓▒░ 71Próximo jogo 1░▒▓█59,0GRÊMIO71█▓▒░1⚽3░▒▓█1,3AMÉRICA3█▓▒░ 71Sábado 28/10 às 19h

  var %wraptl = $wrap(%bt.conferir,%fonte,%fonte.s,950,p1t1w1,0)
  var %wrapl = 0
  while (%wrapl < %wraptl) {
    inc %wrapl
    drawtext -p @preview $color(topic) %fonte %fonte.s 1 $calc((%fonte.s + 4) * (%wrapl + 1))     $wrap(%bt.conferir,%fonte,%fonte.s,950,p1t1w1,%wrapl)
  }
}

alias testewrap { 
  var %bt.conferir = 1░▒▓1██2,0🖤12🖤11🖤71██71▓▒░59 GRÊMIO FOOT-BALL PORTO ALEGRENSE 77⭐96⭐53⭐71 IMORTAL TRICOLOR CAMPEÃO DE TUDO 77⭐96⭐53⭐ 59Lar de LUISITO SUÁREZ, El Pistolero! 71CAMPEÃO GAÚCHO 2023 3░▒▓3█4██8█8▓▒░ 71Próximo jogo 1░▒▓█59,0GRÊMIO71█▓▒░1⚽3░▒▓█1,3AMÉRICA3█▓▒░ 71Sábado 28/10 às 19h

  window -p +fL @preview 0 0 1000 200
  drawfill @preview $color(background) $color(background) 0 0

  var %wraptl = $wrap(%bt.conferir,Consolas,20,950,p1t1w1,0)
  var %wrapl = 0
  while (%wrapl < %wraptl) {
    inc %wrapl
    drawtext -p @preview $color(topic) Consolas 20 1 $calc((20 + 4) * (%wrapl + 1))     $wrap(%bt.conferir,Consolas,20,950,p1t1w1,%wrapl)
  }
}