on *:TEXT:!whoison*:#:{ if ($nick isop $chan) {
    msg $chan 4,1The whois script is now on.
set %var OFF } } 

on *:TEXT:!whoisoff*:#:{ if ($nick isop $chan) {
    msg $chan 4,1The whois script is now off.
set %var ON } }
}

on *:JOIN:#:{ if (%var == ON) {
  set %list on
  set %chan.list $chan
  set %nick.list $nick
  .whois $nick
}

raw 319 :*:{ 
  if (%list) {
    /msg %chan.list %nick.list is on the following channels: $3-
    unset %list
    unset %chan.list
    unset %nick.list
  } 
}