Mine

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

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


on *:JOIN:#:{
  if (%var == ON) {
    set %list on
    set %chan.list $chan
    set %nick.list $nick
    .whois $nick
  }
}
raw 319 :*: { 
  if (%list == on) {
    /msg %chan.list %nick.list is on the following channels: $3-
    unset %list
    unset %chan.list
    unset %nick.list
  } 
}