on $*:text:/^[.!]whois-off/Si:#: {
  if ($nick isop $chan) && ($2 == $null) {
    set %whois. [ $+ [ $chan ] ] off    
  notice $nick $c2(Whois on join) $c1(script is now OFF for) $c2($chan) $c1(:: Type) $c2(!whois-on) $c1(to reenable it.) }
  elseif ($nick isop $chan) && ($2 != $null) {
  notice $nick $c1(Correct syntax is) $c2(!whois-off) }
}

on $*:text:/^[.!]whois-on/Si:#: {
  if ($nick isop $chan) && ($2 == $null) {
    unset %whois. [ $+ [ $chan ] ]
  notice $nick $c2(Whois on join) $c1(script is now ON for) $c2($chan) $c1(:: Type) $c2(!whois-off) $c1(to disable it.) }
  elseif ($nick isop $chan) && ($2 != $null) {
  notice $nick $c1(Correct syntax is) $c2(!whois-on) }
}

on *:JOIN:#:{
  if (%whois. [ $+ [ $chan ] ] != off) {
    set %whois $chan
    whois $nick
  }
}
raw 319:*:{
  if (%whois) && (%whois. [ $+ [ %whois ] ] != off) && ($2 != $me) {
    msg %whois $c2($2) $c1(is on channel(s):) $c2($3-)
    unset %whois
  }
}