Forums Scripts & Popups Wrapping Colors

  
alias sockbuf {
  var %buf = $null, %string = $2-, %num = 0
  while (%string) {
    %buf = $gettok(%string,1,32)
    %string = $deltok(%string,1,32)
    if (%num != 0) { %buf =  $+ $chr(32) $+  $+ %buf }
    while ($len(%buf) < 75 && %string) {
      %buf = %buf $gettok(%string,1,32)
      %string = $deltok(%string,1,32)
    }
    if ($len(%buf) > 75) { %string = $instok(%string,$gettok(%buf,$numtok(%buf,32),32),1,32) | %buf = $deltok(%buf,$numtok(%buf,32),32) | sockwrite -n $1 %buf }
    else { sockwrite -n $1 %buf }
    inc %num
  }
}

get_last_col {
  ;Usage: $get_last_col(<text>)
  ; returns colour last colour codes contained in string (minus colour control code itself)
  ; .pos property returns position of first number
  ; .lpos property returns position of last number
  var %re = /(\d{1,2}(?:,\d{1,2})*)(?:[^]*)$/
  !.echo -q $regex(get_last,$$1,%re)
  if ($prop == pos) return $iif($regml(get_last,1).pos,$ifmatch,0)
  elseif ($prop == lpos) return $iif($regml(get_last,1).pos,$calc($ifmatch + $len($regml(get_last,1)) - 1),0)
  return $iif($regml(get_last,1),$ifmatch,$null)
}