ISupport parser for Koragg v1.3

; --- Settings ---

alias -l ui_font { return Fixedsys }
alias -l ui_font_size { return 12 }
alias -l ui_checkbox_sign { return $chr(10004) }
alias -l ui_column_sign { return $chr(166) }
alias -l ui_line_separator { return $chr(160) } ; Use 0 to disable it
alias -l ui_name_color { return 05 }
alias -l ui_value_color { return 03 }

; --- Settings ---

RAW 351:*: {
  var %win = @ISUPPORT_ $+ $server

  if ($window(%win))  { haltdef }
}

RAW 005:*: {
  var %win = @ISUPPORT_ $+ $server

  if (!$window(%win)) { return }

  haltdef

  var %t = $numtok($2-,32)
  var %i = 1

  while (%i <= %t) {
    var %w = $gettok($2-,%i,32)
    var %n = $gettok(%w,1,61)
    var %v = $gettok(%w,2-,61)
    var %p = $calc(20 - $len(%n))

    if (*=* !iswm %w) && (%w !isupper) { goto next }
    if (!%w) || (!%n) { goto next }

    if (%n) && (!%v) { aline %win $+($chr(3),$ui_name_color,%n,$chr(3)) $str($chr(160),%p) $ui_column_sign $+($chr(3),$ui_value_color,$ui_checkbox_sign,$chr(3)) }
    if (%n) && (%v) { aline %win $+($chr(3),$ui_name_color,%n,$chr(3)) $str($chr(160),%p) $ui_column_sign $+($chr(3),$ui_value_color,%v,$chr(3)) }

    if ($ui_line_separator) { aline %win $ui_line_separator }

    :next
    inc %i
  }

}

alias ui_isupport {
  if ($status !== connected) { return }

  var %win = @ISUPPORT_ $+ $server

  if ($window(%win)) { window -c $v1 }

  window %win $ui_font $ui_font_size

  .quote version
}