on *:TEXT:!whois*:#: { 
  if ($nick isop $chan) { 
    if ($2 == on) { 
      if (%whois [ $+ [ $chan ] ] != on) { 
        set %whois [ $+ [ $chan ] ] on 
        msg $chan 12Whois 4on 12join 4has 12been 4enabled 12for 4 $chan 12by4 $nick $+ . 
      } 
      else { 
        notice $nick 12Whois 4on 12join 4is 12already 4on 12for4 $chan $+ . | halt 
      } 
    } 
    elseif ($2 == off) { 
      if (%whois [ $+ [ $chan ] ] == on) { 
        set %whois  [ $+ [ $chan ] ] off 
        msg $chan 12Whois 4on 12join 4has 12been 4disabled 12for4 $chan 12by4 $nick $+ . 
      } 
      else { 
        notice $nick 12Whois 4on 12join 4is 12already 4off 12for4 $chan $+ . 
      } 
    } 
  } 
} 
on *:JOIN:#: { 
  if (%whois [ $+ [ $chan ] ] == on) { 
    set %whoisnick $nick 
    set %whoischan $chan 
    whois $nick 
  } 
  else { 
    halt 
  } 
} 
raw *:*: { 
  if (%whoisnick && %whoischan) { 
    if ($numeric == 319) { 
      msg %whoischan 12 %whoisnick 7is currently on: 12 $3- 
      unset %whoisnick 
      unset %whoischan 
    } 
  } 
  else { 
    halt 
  }