On *:JOIN:#:{
  if (%chan. [ $+ [ $chan ] ] == on) {
    set %channel $chan
    set %nickz $nick
    whois %nickz
  }
}
Raw 319:*:{
  echo -at boo
  msg %channel 4 $+ $2 12is on the following channels: $regsubex($3-,/(?<=^| )([@%+])/g,$+($chr(3),$iif(\1 == @,04,$iif(\1 == %,04,04)),\1,$chr(3),12))  
  unset %channel
  unset %nickz
} 

Alias Whois {
  if ($1 == on) {
    set %chan. [ $+ [ $chan ] ] on
    msg $chan 12I just Set 4AutoJoin12 whois 4on12 for this channel.
  }
  elseif ($1 == off) {
    set %chan. [ $+ [ $chan ] ] off
    msg $chan 12I just Set 4AutoJoin12 whois 4off12 for this channel.
  }
  else { 
    halt
  }
} 


On $*:TEXT:/^[!@]Whois/Si:#:{
  if ($nick isvoice $chan) || ($nick isreg $chan) {
    msg $chan 12You Cannot turn this 4on 12or 4off12 $nick
  }
  elseif ($2 == on) {
    set %chan. [ $+ [ $chan ] ] on
    msg $chan 12Whois script is now 4on 12for4 $chan
  }
  elseif ($2 == off) {
    set %chan. [ $+ [ $chan ] ] off
    msg $chan 12Whois script is now 4off 12for4 $chan
  }
  else { 
    msg $chan 12Please specify If your turning it 4on12 or 4off
  }
}