Text Color Changer With Color Nicks v1.0 for mikri

menu * {
  >> Xromatismos Minimatos ( $+ $iif(%text_color,$v1,OFF) $+ ) <<
  .$iif(!%text_color,$style(3)) Apenergopoihsh: { unset %text_color | noop $input(Molis apenergopoihses ta xrwmata!,ouidbk30,OK) }
  .-
  .$iif(%text_color == ASPRO,$style(3)) Aspro: { set %text_color ASPRO | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == MAURO,$style(3)) Mauro: { set %text_color MAURO | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == SKOURO_MPLE,$style(3)) Skouro mple: { set %text_color SKOURO_MPLE | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == PRASINO,$style(3)) Prasino: { set %text_color PRASINO | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == KOKKINO,$style(3)) Kokkino: { set %text_color KOKKINO | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == KAFE,$style(3)) Kafe: { set %text_color KAFE | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == MOB,$style(3)) Mob: { set %text_color MOB | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == PORTOKALI,$style(3)) Portokali: { set %text_color PORTOKALI | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == KITRINO,$style(3)) Kitrino: { set %text_color KITRINO | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == ANOIXTO_PRASINO,$style(3)) Anixto Prasino: { set %text_color ANOIXTO_PRASINO | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == KYANI,$style(3)) Kyani: { set %text_color KYANI | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == ANOIXTO_MPLE,$style(3)) Anixto Mple: { set %text_color ANOIXTO_MPLE | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == MPLE,$style(3)) Mple: { set %text_color MPLE | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == ROZ,$style(3)) Roz: { set %text_color ROZ | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == GRI,$style(3)) Gri: { set %text_color GRI | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
  .$iif(%text_color == ANOIXTO_GRI,$style(3)) Anoixto gri: { set %text_color ANOIXTO_GRI | noop $input(Molis energopoihses to $qt(%text_color) xrwma!,ouidbk30,OK) }
}

alias -l text_color {
  if (!$1) { return }

  if ($1 == ASPRO) { return 0 }
  if ($1 == MAURO) { return 1 }
  if ($1 == SKOURO_MPLE) { return 2 }
  if ($1 == PRASINO) { return 3 }
  if ($1 == KOKKINO) { return 4 }
  if ($1 == KAFE) { return 5 }
  if ($1 == MOB) { return 6 }
  if ($1 == PORTOKALI) { return 7 }
  if ($1 == KITRINO) { return 8 }
  if ($1 == ANOIXTO_PRASINO) { return 9 }
  if ($1 == KYANI) { return 10 }
  if ($1 == ANOIXTO_MPLE) { return 11 }
  if ($1 == MPLE) { return 12 }
  if ($1 == ROZ) { return 13 }
  if ($1 == GRI) { return 14 }
  if ($1 == ANOIXTO_GRI) { return 15 }
}

ON *:INPUT:*: {
  tokenize 32 $strip($1-)

  if (!$inpaste) && (!$ctrlenter) && ($comchar !== $left($1,1)) && ($active !== Status Window) && (%text_color) && ($1 !== $null) && ($istok(IRCchat.eu mIRC,$network,32)) {
    var %msg = $1-

    if ($active !ischan) { goto end }

    var %i = 1
    while (%i <= $numtok(%msg,32)) {
      var %nick = $gettok($1-,%i,32)

      if (%nick ison $active) {
        var %new_nick = $chr(3) $+ 4 $+ $chr(2) $+ $chr(2) $+ %nick $+ $chr(2) $+ $chr(2) $+ $chr(3) $+ $text_color(%text_color)
        var %msg = $replace(%msg,%nick,%new_nick)
      }

      inc %i
    }

    :end

    msg $target $chr(3) $+ $text_color(%text_color) $+ $chr(2) $+ $chr(2) $+ %msg $+ $chr(15)
    halt
  }
}