Mine

on *:TEXT:!whois*:#: { 
  if ($nick isop $chan) { 
    if ($2 == on) { 
      if (%whois [ $+ [ $chan ] ] != on) { 
        set %whois [ $+ [ $chan ] ] on 
        msg $chan Whois on join has been enabled for $chan by $nick $+ . 
      } 
      else { 
        notice $nick Whois on join is allready on for $chan $+ . | halt 
      } 
    } 
    elseif ($2 == off) { 
      if (%whois [ $+ [ $chan ] ] == on) { 
        set %whois  [ $+ [ $chan ] ] off 
        msg $chan Whois on join has been disabled for $chan by $nick $+ . 
      } 
      else { 
        notice $nick Whois on join is allready off for $chan $+ . 
      } 
    } 
  } 
} 
on *:JOIN:#: { 
  if (%whois [ $+ [ $chan ] ] == on) { 
    set %whoisnick $nick 
    set %whoischan $chan 
    whois $nick 
  } 
  else { 
    halt 
  } 
} 
raw *:*: { 
  if (%whoisnick && %whoischan) { 
    if ($numeric == 319) { 
      msg %whoischan %whoisnick is currently on: $3- 
      unset %whoisnick 
      unset %whoischan 
    } 
  } 
  else { 
    halt 
  } 
}

-----WHOIS ^^^ -------
-----THANKS vvv -------

##########################
##   SCRIPT BY B`E`N    ##
##########################



on *:RAWMODE:#:{
  if ($chan == #PLACEEXCEPTABLE CHANS HERE) { halt }

  if (($1 == +q) && ($2 == $me)) { inc %owners | msg # 12,1{8[ 9T14hanks 9F0or 9T14he 9~0 $nick 8]12}0,1 8Owners:15,1 %owners 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == +a) && ($2 == $me)) { inc %protects | msg # 12,1{8[ 9T14hanks 9F0or 9T14he 9&0 $nick 8]12}0,1 8Protects:15,1 %protects 12,1[ 9B14ens9§9c14ript8]12} }
  if (($1 == +o) && ($2 == $me)) { inc %opz | msg # 12,1{8[ 9T14hanks 9F0or 9T14he 9@0 $nick 8]12}0,1 8Ops:15,1 %opz 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == +h) && ($2 == $me)) { inc %hopz | msg # 12,1{8[ 9T14hanks 9F0or 9T14he 9%0 $nick 8]12}0,1 8HalfOps:15,1 %hopz 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == +v) && ($2 == $me)) { inc %voicez | msg # 12,1{8[ 9T14hanks 9F0or 9T14he 9+0 $nick 8]12}0,1 8Voices:15,1 %voicez 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == -q) && ($2 == $me)) { inc %deowners | msg # 12,1{8[ 9W14hy 9D14id 9Y14ou 9T14ake 9M14y 9~0 $nick 8]12}0,1 8Deowners:15,1 %deowners 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == -a) && ($2 == $me)) { inc %deprotects | msg # 12,1{8[ 9W14hy 9D14id 9Y14ou 9T14ake 9M14y 9&0 $nick 8]12}0,1 8Deprotects:15,1 %deprotects 12,1[ 9B14ens9§9c14ript8]12} }
  if (($1 == -o) && ($2 == $me)) { inc %deopz | msg # 12,1{8[ 9W14hy 9D14id 9Y14ou 9T14ake 9M14y 9@0 $nick 8]12}0,1 8Deops:15,1 %deopz 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == -h) && ($2 == $me)) { inc %dehopz | msg # 12,1{8[ 9W14hy 9D14id 9Y14ou 9T14ake 9M14y 9%0 $nick 8]12}0,1 8DehalfOps:15,1 %dehopz 12,1{8 [ 9B14ens9§9c14ript8]12} }
  if (($1 == -v) && ($2 == $me)) { inc %devoicez | msg # 12,1{8[ 9W14hy 9D14id 9Y14ou 9T14ake 9M14y 9+0 $nick 8]12}0,1 8Devoices:15,1 %devoicez 12,1{8 [ 9B14ens9§9c14ript8]12} }
}