on badnick:JOIN:#: { if (# !ishop $me) {  mode # +b $nick | kick # $nick Bu nickle kanala giremezsiniz,nick degisiniz... } }

alias badekle {
  auser badnick $1
  echo -a $1 Badnick Eklendi.
}
alias badsil {
  ruser badnick $1
  echo -a $1 Badnick Eklendi.
}
alias badlist {
  var %s 1
  while (%s <= $ulist(*,badnick,0)) {
    echo -a $ulist(*,badnick,%s)
    inc %s
  }
}