alias big {
  biggy msg~ $+ $active $1-
}

alias servbig {
  biggy servmsg~ $+ $active $1-
}

alias small {
  set %line1 $null
  set %ii 1
  while (%ii <= $len($1-)) {
    if ($asc($mid($1-, %ii, 1)) == 32 || $asc($mid($1-, %ii, 1)) == 160) {
      set %line1 %line1 $+  
    }
    else {
      set %line1 %line1 $+ .
    }
    inc %ii 1
  }
  msg $active %line1
}

on *:TEXT:!tellmeisuck:*: {
  biggy msg~ $+ $nick YOU SUCK
}

alias biggy {
  var %bold = 0
  var %forecolor = 98
  var %backcolor = 99
  var %reverse = 0
  var %underline = 0
  var %x = $chr(160)

  if (%bigfont == $null) {
    set %bigfont default.font
  }

  var %lines = $read(resource\fonts\ $+ %bigfont, nt, 1)
  var %spacing = $read(resource\fonts\ $+ %bigfont, nt, 2)
  var %maplowercasetouppercase = $read(resource\fonts\ $+ %bigfont, nt, 3)
  var %inlineunderline = $read(resource\fonts\ $+ %bigfont, nt, 4)

  var %i = 0
  while (%i <= 256) {
    unset $eval(% $+ fontchar $+ %i, 1)
    inc %i 1
  }

  var %readline = 5
  var %filelines = $lines(resource\fonts\ $+ %bigfont)
  while (%readline <= %filelines) {
    var %char = $read(resource\fonts\ $+ %bigfont, nt, %readline)
    inc %readline 1
    var %i = 1
    while (%i <= %lines) {
      if (%i == 1) {
        set $eval(% $+ fontchar $+ %char, 1) $read(resource\fonts\ $+ %bigfont, nt, %readline)
      }
      else {
        set $eval(% $+ fontchar $+ %char, 1) $eval(% $+ fontchar $+ %char, 2) $+ $chr(127) $+ $read(resource\fonts\ $+ %bigfont, nt, %readline)
      }
      inc %readline 1
      inc %i 1
    }
  }

  var %i = 1
  while (%i <= $calc(%lines - ((1 - %inlineunderline) * 2))) {
    unset $eval(% $+ templine $+ %i, 1)
    unset $eval(% $+ line $+ %i, 1)
    inc %i 1
  }
  var %lineunder = $null

  var %needdoublespace = 0
  var %i = 1
  while (%i <= $len($2-)) {
    var %c = $mid($2-, %i, 1)
    if (%c == ) {
      var %bold = $calc(1 - %bold)
    }
    else if (%c == ) {
      var %fore = $mid($2-, $calc(%i + 1), 2)

      if ((%fore isnum 0-21) || (%fore isnum 99-99)) {
      }
      else {
        var %fore = $mid($2-, $calc(%i + 1), 1)
      }

      if ((%fore isnum 0-21) || (%fore isnum 99-99)) {
        inc %i $len(%fore)
        var %forecolor = %fore

        if (%forecolor == 99) {
          var %forecolor = 98
        }

        if ($mid($2-, $calc(%i + 1), 1) == $chr(44)) {
          inc %i 1
          var %back = $mid($2-, $calc(%i + 1), 2)

          if ((%back isnum 0-21) || (%back isnum 99-99)) {
          }
          else {
            var %back = $mid($2-, $calc(%i + 1), 1)
          }

          if ((%back isnum 0-21) || (%back isnum 99-99)) {
            inc %i $len(%back)
            if (%backcolor != %back) {
              var %needdoublespace = 1
            }
            var %backcolor = %back
          }
        }
      }
    }
    else if (%c == ) {
      if (%backcolor != 99 || %reverse != 0) {
        var %needdoublespace = 1
      }
      var %bold = 0
      var %forecolor = 98
      var %backcolor = 99
      var %reverse = 0
      var %underline = 0
    }
    else if (%c == ) {
      var %needdoublespace = 1
      var %reverse = $calc(1 - %reverse)
    }
    else if (%c == ) {
      var %underline = $calc(1 - %underline)
    }
    else {
      if (%maplowercasetouppercase > 0 && $asc(%c) >= 97 && $asc(%c) <= 122) {
        var %c = $chr($calc($asc(%c) - 32))
      }

      ;var %currmode = .
      var %currchar = $eval(% $+ fontchar $+ $asc(%c), 2)
      var %charwidth = $len($gettok(%currchar, 1, 127))
      var %j = 1
      while (%j <= %lines) {
        var %l = $gettok(%currchar, %j, 127)

        if (%needdoublespace) {
          var %k = 1
          while (%k <= %spacing) {
            if (%j == %lines && %underline > 0 && %inlineunderline) {
              if (%reverse == 0) {
                set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%forecolor, %j) $+ ,
              }
              else {
                set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%backcolor, %j) $+ ,
              }
            }
            else if (%reverse == 0) {
              set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%backcolor, %j) $+ ,

              ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
              ;  if (%backcolor != 99) {
              ;    set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 99, $+ %backcolor
              ;  }
            }
            else if (%reverse > 0) {
              set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%forecolor, %j) $+ ,

              ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
              ;  if (%forecolor != 99) {
              ;    set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 99, $+ %forecolor $+ 
              ;  }
            }
            ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ %x
            ;
            ;var %currmode = .

            inc %k 1
          }
        }

        var %k = 1
        while (%k <= %charwidth) {
          var %c = $mid(%l, %k, 1)

          if (%j == %lines && %underline > 0 && %inlineunderline) {
            var %c = $chr(35)
          }

          if (%reverse > 0) {
            if (%c == .) {
              var %c = $chr(35)
            }
            else {
              var %c = .
            }
          }

          ;if (%c != %currmode) {
          if (%c == $chr(35)) {
            set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%forecolor, %j) $+ ,
            ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
            ;if (%forecolor != 99) {
            ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 99, $+ %forecolor
            ;}
            ;else {
            ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
            ;}
          }
          else if (%c == .) {
            set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%backcolor, %j) $+ ,
            ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
            ;if (%backcolor != 99) {
            ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 99, $+ %backcolor
            ;}
          }
          ;}
          ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ %x
          ;var %currmode = %c
          inc %k 1
        }

        var %k = 1
        while (%k <= %spacing) {
          ;if (%currmode == $chr(35) && %reverse == 0) {
          if (%j == %lines && %underline > 0 && %inlineunderline) {
            if (%reverse == 0) {
              set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%forecolor, %j) $+ ,
            }
            else {
              set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%backcolor, %j) $+ ,
            }
          }
          else if (%reverse == 0) {
            set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%backcolor, %j) $+ ,

            ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
            ;if (%backcolor != 99) {
            ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 99, $+ %backcolor
            ;}
          }
          ;else if (%currmode == . && %reverse > 0) {
          else if (%reverse > 0) {
            set $eval(% $+ templine $+ %j, 1) $eval(% $+ templine $+ %j, 2) $+ $getColor(%forecolor, %j) $+ ,

            ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
            ;if (%forecolor != 99) {
            ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 99, $+ %forecolor
            ;}
            ;else {
            ;  set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ 
            ;}
          }
          ;set $eval(% $+ line $+ %j, 1) $eval(% $+ line $+ %j, 2) $+ %x

          ;var %currmode = .
          inc %k 1
        }

        inc %j 1
      }
      var %needdoublespace = 0
    }

    inc %i 1
  }

  var %i = 1
  while (%i <= %lines) {
    var %currcolor = 99

    var %j = 1
    var %max = $numtok($eval(% $+ templine $+ %i, 2), 44)

    if (%backcolor == 99 && %reverse == 0) {
      dec %max %spacing
    }

    while (%j <= %max) {
      var %c = $gettok($eval(% $+ templine $+ %i, 2), %j, 44)

      if (%c == %currcolor) {
      }
      else if (%c == 99 && %currcolor == 98) {
        set $eval(% $+ line $+ %i, 1) $eval(% $+ line $+ %i, 2) $+ 
      }
      else if (%c == 98 && %currcolor == 99) {
        set $eval(% $+ line $+ %i, 1) $eval(% $+ line $+ %i, 2) $+ 
      }
      else if (%c == 98) {
        set $eval(% $+ line $+ %i, 1) $eval(% $+ line $+ %i, 2) $+ 
      }
      else if (%c == 99) {
        set $eval(% $+ line $+ %i, 1) $eval(% $+ line $+ %i, 2) $+ 
      }
      else {
        set $eval(% $+ line $+ %i, 1) $eval(% $+ line $+ %i, 2) $+ 99, $+ %c
      }
      set $eval(% $+ line $+ %i, 1) $eval(% $+ line $+ %i, 2) $+ %x
      var %currcolor = %c

      inc %j 1
    }

    $replace($1, ~, $chr(32)) $eval(% $+ line $+ %i, 2)
    inc %i 1
  }

  if (( isin %lineunder) || ( isin %lineunder)) {
    $replace($1, ~, $chr(32))     
    $replace($1, ~, $chr(32)) %lineunder
  }
}

alias bigfont {
  set %bigfont $1-
}

alias -l getColor {
  if ($1 == 16) {
    if ($2 == 1) {
      return 4
    }
    else if ($2 == 2) {
      return 8
    }
    else if ($2 == 3) {
      return 9
    }
    else if ($2 == 4) {
      return 11
    }
    else if ($2 == 5) {
      return 12
    }
    else if ($2 == 6) {
      return 13
    }
  }
  if ($1 == 17) {
    if ($2 == 1) {
      return 5
    }
    else if ($2 == 2) {
      return 7
    }
    else if ($2 == 3) {
      return 3
    }
    else if ($2 == 4) {
      return 10
    }
    else if ($2 == 5) {
      return 2
    }
    else if ($2 == 6) {
      return 6
    }
  }
  if ($1 == 18) {
    if ($2 == 1) {
      return 13
    }
    else if ($2 == 2) {
      return 12
    }
    else if ($2 == 3) {
      return 11
    }
    else if ($2 == 4) {
      return 9
    }
    else if ($2 == 5) {
      return 8
    }
    else if ($2 == 6) {
      return 7
    }
  }
  if ($1 == 19) {
    if ($2 == 1) {
      return 6
    }
    else if ($2 == 2) {
      return 2
    }
    else if ($2 == 3) {
      return 10
    }
    else if ($2 == 4) {
      return 3
    }
    else if ($2 == 5) {
      return 7
    }
    else if ($2 == 6) {
      return 5
    }
  }
  if ($1 == 20) {
    if ($2 == 1) {
      return 0
    }
    else if ($2 == 2) {
      return 0
    }
    else if ($2 == 3) {
      return 15
    }
    else if ($2 == 4) {
      return 15
    }
    else if ($2 == 5) {
      return 14
    }
    else if ($2 == 6) {
      return 14
    }
  }
  if ($1 == 21) {
    if ($2 == 1) {
      return 14
    }
    else if ($2 == 2) {
      return 14
    }
    else if ($2 == 3) {
      return 15
    }
    else if ($2 == 4) {
      return 15
    }
    else if ($2 == 5) {
      return 0
    }
    else if ($2 == 6) {
      return 0
    }
  }
  return $1
}