on *:text:!autowhois*:#: {
  if ($2 == $null) { notice $nick Sorry you have to say On/Off to do that. | halt }
  if ($nick !isop $chan) { notice $nick Sorry you have to be (@)Op to do that. | halt }
  if ($2 == on) {
    if (%whoisonjoin [ $+ [ $chan ] ] == on) { notice $nick The on join whois script for $chan is already on. | halt }
    msg $chan The on join whois script for $chan is now on.
    set %whoisonjoin [ $+ [ $chan ] ] on 
    if ($2 == off) {
      if (%whoisonjoin [ $+ [ $chan ] ] == $null) { notice $nick The on join whois script for $chan isnt on. | halt }
      msg $chan The on join whois script for $chan is now off.
      unset %whoisonjoin [ $+ [ $chan ] ] 
    }
  }
}
ON *:JOIN:#: { 
  if ($chan == #*bot*) { halt }
  if (%whoisonjoin [ $+ [ $chan ] ] == on) {
    set %thisuser $nick 
    set %chan2whois $chan 
    .whois $nick 
  } 
}
ON *:text:!whois*:#: { 
  if ($chan == #*bot*) { halt }
  set %thisuser $2 
  set %chan2whois $chan 
  .whois $2
} 
raw 319:*: { 
  /msg %chan2whois  $+ %thisuser is on: $3- 
  unset %chan2whois 
}