r3ds

on $*:TEXT:/^[!.]whois (on|off)/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) || ($address($nick,2) == $address($me,2)) || ($readini(admin.ini,admin,$address($nick,2)) == on) { 
    if ($2 == on) { set %check. [ $+ [ $chan ] ] on
      notice $nick 2 I will whois on join now.
    } 
    elseif ($2 == off) { unset %check. [ $+ [ $chan ] ]
      notice $nick 2I will no longer whois on join now.
    } 
  } 
} 

alias -l c1 { return $+($chr(3),4,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),12,$1-,$chr(3)) }

on *:JOIN:#:{ 
  if (%check. [ $+ [ $chan ] ] == on) { 
    enable #GroupRaw 
    whois $nick 
    set %whois.nick $nick 
    set %whois.dest $chan
  } 
  else { 
    halt
  } 
}

#GroupRaw off
raw 319:*:{ 
  if (!%whois.dest) { halt } 
  var %chans $3- 
  msg %whois.dest $c2( %whois.nick) $c1(is on:) $c2(%chans) 
  unset %whois.* 
  disable #GroupRaw 
} 
#GroupRaw END 

;;kept original message for backup i gues =D
;;msg %whois.dest $+( $c1([) $+ $c2(Channels) $+ $c1(]:)) $c2( %whois.nick) $c1(is on:) $c2(%chans)