Text Color Changer 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:*: {
  if (!$inpaste) && (!$ctrlenter) && ($comchar !== $left($1,1)) && ($active !== Status Window) && (%text_color) && ($1 !== $null) {
    msg $target $chr(3) $+ $text_color(%text_color) $+ $chr(2) $+ $chr(2) $+ $1- $+ $chr(15)
    halt
  }
}