Something

alias wc1 { return $+(14,$1-) } 
alias wc2 { return $+(04,$1-) }
alias wc3 { return $+(07,$1-) }
on *:TEXT:!whois on*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == [-God-]) {
    if (%whois) {
      notice $nick $wc1 Whois check is already on for $wc2 $+ $chan
    }
    else {
      set %whois $addtok(%channel,$chan,44)
      msg $chan $wc1 $+ Whois check is now on for $wc2 $+ $chan
    }
  }
}
on *:TEXT:!whois off*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == [-God-]) {
    if (%whois) { 
      set %whois $remtok(%channel,$chan,1,44)
      msg $chan $wc1 $+ Whois check is now off for $wc2 $+ $chan
    }     
    else { 
      notice $nick $wc1 $+ Whois check is not on for $wc2 $+ $chan    
    }  
  }
}
on *:JOIN:%whois: {
  whois $nick
  set %msgchan msg $chan
  set %nick $nick
}
raw 319:*:{
  %msgchan $wc1 $+ %nick is on: - $wc3 $+ $replace($3-,$chr(43),$chr(32))
  unset %chan
  unset %nick
}