Mine

alias blist {
  if (!%blist. [ $+ [ $address($1,2) ] ]) {
    set %blist. [ $+ [ $address($1,2) ] ] yo
    set %breason. [ $+ [ $address($1,2) ] ] $iif($2,$2-,No reason)
    echo -at [ADDED] $1 $chr(124) $address($1,2) - Reason: $iif($2,$2-,No reason)
  }
  else echo -at [ERROR] $1 is already blacklisted

}
alias unblist {
  if (%blist. [ $+ [ $address($1,2) ] ]) {
    unset %blist. [ $+ [ $address($1,2) ] ] 
    unset %breason. [ $+ [ $address($1,2) ] ] 
    echo -at [DELETED] $1 $chr(124) $address($1,2)
  }
  else echo -at [ERROR] $1 is not blacklisted
}
menu channel {
  Mass slap!
  .$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
  .$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
}
#slap on
alias slapall {
  if $($+(%,sent,.,$chan),2) { return }
  beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
  if (%warn == $yes) {
    var %x = 1, %y = $nick($active,0)
    while (%x <= %y) {
      if (!$istok($me,$nick($active,%x),32)) {
        $+(.timer,.,$chan,.,%x) 1 %x describe # slaps $nick($active,%x) around a bit with a large trout
      }
      inc %x
    }
    set -u10 $+(%,sent,.,$chan) 1
  }
} 
#Talker on 
on *:INPUT:*: { 
  if ($1 == ty): { //say 15,1†4,1 »12,1[§]4,1«15,1T14,1ha15,1nk15,1 Y14,1o15,1u4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == wb): { //say 15,1†4,1 »12,1[§]4,1«15,1W14,1elco15,1me15,1 B14,1ac15,1k!4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == yw): { //say 15,1†4,1 »12,1[§]4,1«15,1Y14,1ou15,1r15,1 W14,1elco15,1me4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == tc): { //say 15,1†4,1 »12,1[§]4,1«15,1T14,1ak15,1e15,1 C14,1ar15,1e4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == lmao): { //say 15,1†4,1 »12,1[§]4,1«15,1L14,1aughi15,1ng15,1 M14,1y15,1 A14,1s15,1s15,1 O14,1ff4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == brb): { //say 15,1†4,1 »12,1[§]4,1«15,1B14,1e15,1 R14,1ig15,1ht15,1 B14,1a15,1c14,1k4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == gn): { //say 15,1†4,1 »12,1[§]4,1«15,1G14,1oo15,1d15,1 N14,1ig15,1ht4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == spam): { //say 15,1†4,1 »12,1[§]4,1«15,1N14,1o15,1 S14,1pammi15,1ng.4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == ad): { //say 15,1†4,1 »12,1[§]4,1«15,1N14,1o15,1 A14,1dvertiseme15,1nts4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == bbl): { //say 15,1†4,1 »12,1[§]4,1«15,1B14,1e15,1 B14,1a15,1c14,1k15,1 Lat15,1er4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == rofl): { //say 15,1†4,1 »12,1[§]4,1«15,1R14,1olli15,1ng15,1 O14,1n15,1 T14,1he15,1 F14,1lo15,1or15,1 L14,1aughi15,1ng4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == lol): { //say 15,1†4,1 »12,1[§]4,1«15,1L14,1augh15,1ing15,1 O14,1ut15,1 L14,1ou15,1d4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == idk): { //say 15,1†4,1 »12,1[§]4,1«15,1I15,1 D14,1on15,1't15,1 K14,1no15,1w4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == idc): { //say 15,1†4,1 »12,1[§]4,1«15,1I15,1 D14,1on15,1't15,1 C14,1ar15,1e4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == omg): { //say 15,1†4,1 »12,1[§]4,1«15,1O14,1h15,1 M14,1y15,1 G14,1os15,1h!4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == atm): { //say 15,1†4,1 »12,1[§]4,1«15,1A14,1t15,1 T14,1h15,1e15,1 M14,1om15,1ent4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == higt): { //say 15,1†4,1 »12,1[§]4,1«15,1H14,1o15,1w's15,1 I14,1t15,1 G14,1oi15,1ng15,1 T14,1oda15,1y?4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == flood): { //say 15,1†4,1 »12,1[§]4,1«15,1N14,1o15,1 F14,1loodi15,1ng.4,1 »12,1[§]4,1«15,1 † $2- | halt } 
  if ($1 == battle): { //say 14--† 4Battle 12Royale! 14†-- $2- | halt } 
  if ($1 == ftw): { //say 14-11-12† 4F8o9r12T13h8e9W11i12n 14†-13- 9 :) $2- | halt }
  if ($1 == ftl): { //say 9F4O9R 4T9H4E 12L13O12O13S12E8!4 :(  $2- | halt }
  if ($1 == :]) { //say 8SMILEY FACE! $2- | halt }
  if ($1 == sdfu) { //say 12SHUT 4THE 9FUCK 13UP 11WHORE!1 $2- | halt }
  if ($1 == stfu) { //say 12S11H12U11T 12T11H12E 11F12U11C12K 11U12P!1 $2- | halt } 
  if ($1 == <3) { //say 4I 13LOVE 4YOU 13! 4<3 $2- | halt }
}  
on *:load:{ /echo -a 14,1Loaded Succesfully, Thanks For Using channel Stats15 $nick $+ 14! :o)
}
alias chanstats {
  msg # 14,1In This Channel There Are Ops: 15 $+  $opnick(#,0) $+  $chr(40) $+ $round($calc(($Opnick(#,0) / $nick(#,0)) * 100),1) $+ % $+ $chr(41), 14Regular: 15 $+  $nopnick(#,0) $+  $chr(40) $+ $round($calc(($nopnick(#,0) / $nick(#,0)) * 100),1) $+ % $+ $chr(41), 14Voiced: 15 $+  $vnick(#,0) $+  $chr(40) $+ $round($calc(($vnick(#,0) / $nick(#,0)) * 100),1) $+ % $+ $chr(41), 14Non-Voiced: 15 $+ $nvnick(#,0) $+  $chr(40) $+ $round($calc(($nvnick(#,0) / $nick(#,0)) * 100),1) $+ % $+ $chr(41), 14Total People 15 $+  $nick(#,0) $+
} 
menu channel { 
  |Channel Stats|:/chanstats