Forums Scripts & Popups Font Color

#redtalk off
On *^&:INPUT:#:{
  if ($left($1,1) != /) {
  msg $chan [color:red]$1-[/color] 
  halt
}
}
#redtalk end
menu channel {
Red Talk
.Enable:/.enable #redtalk
.Disable:/.disable #redtalk
}

#redtalk on
on &*:INPUT:#:{
  if ( $left($1,1) != / ) && ( $left($1,1) != $readini($mircini,n,text,commandchar) ) {
    msg # 04 $+ $1-
    halt
  }
}
#redtalk end
menu channel {
  Red Talk
  .Enable:.enable #redtalk
  .Disable:.disable #redtalk
}

on 1:LOAD: {
  /echo -s Initializing Color Chatter
  /set %chat.color 4
  /echo -s Chat color initialised to 4Red Please right click in the channel or query window to change the text color.
}

on 1:UNLOAD: {
  /echo -s Clearing Variables For Chatter
  /unset %chat.color
  /echo -s Chatter Uninstalled
}

#chat.color off
on *:INPUT:#,?: {
  if ($left($1, 1) !isin $+(/,$readini($mircini,text,commandchar))) {
    /msg $active $+(,%chat.color,,$1-)
    /halt
  }
}
#chat.color end

alias -l chat.color.pop {
  var %c = White,Black,Dark Blue,Dark Green,Red,Dark Red,Violet,Orange,Yellow,Green,Cyan,Teal,Blue,Pink,Dark Gray,Gray, %n = $$1 - 1
  if ($$1 isin beginend) return -
  else return $gettok(%c, $$1, 44) : /chat.color.set %n $gettok(%c, $$1, 44)
}

alias -l chat.color.set {
  /set %chat.color $$1
  /echo -a Chat Color has been set to $+(,%chat.color,$$2)
}

menu channel,query {
  Chat Color
  .Toggle Chat Color ( $+ $iif($group(#chat.color) == on, Enabled, Disabled) $+ ): {
    var %action = $iif($group(#chat.color) == on, disable, enable)
    /. [ $+ [ %action ] ] #chat.color
    /echo -a Color chatter has been $+($upper($left(%action, 1)),$right(%action, -1),d)
  }
  .Change Color
  ..$submenu($chat.color.pop($$1))
}