on *:JOIN:#: {
  if (%whois [ $+ [ $chan ] ] == on) {
    whois $nick
    set %msgchan msg $chan
    set %nick $nick
  }
}
raw 319:*:{
  %msgchan %nick is on: $3-
  unset %msgchan
  unset %nick
}

on *:TEXT:!whois on*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == [-God-]) {
    if (%whois [ $+ [ $chan ] ] == on) {
      notice $nick Whois check is already on for $chan
    }
    else {
      set %whois [ $+ [ $chan ] ] on
      msg $chan Whois check is now on for $chan
    }
  }
}
on *:TEXT:!whois off*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == [-God-]) {
    if (%whois [ $+ [ $chan ] ] == off) { 
      notice $nick it isn't even on in $chan
    }     
    else { 
      set %whois [ $+ [ $chan ] ] off
      msg $chan whois check is now off for $chan
    }  
  }
}


------------------------------------------
Colors

alias wc1 { return $+(14,$1-) } 
alias wc2 { return $+(04,$1-) }
alias wc3 { return $+(07,$1-) }