on *:join:#:{
  var %lol $lines(badnick.mercy)
  while (%lol >= 1) {
    if ($remove($read(badnick.mercy,%lol),$chr(32),*,/,\, .,$chr(44),-,_,!, iswm $nick) { /set %nomercysıralama %lol | /ban -k $chan $nick %nomercysıralama | //echo -a %nomercysıralama }
    /dec %lol
  }
}

if $2 == JOIN {
  var %nick = $remove($gettok($1,1,33),:),%chan = $right($3,-1) 
  var %lol $lines(badnick.mercy)
  while (%lol >= 1) {
    if ($remove($read(badnick.mercy,%lol),$chr(32),*,/,\, .,$chr(44),-,_,!, iswm %nick) { 
      /set %nomercysıralama %lol | sockwrite -nt $sockname mode %chan +b %nick | sockwrite -nt $sockname kick %chan %nick %nomercysıralama | //echo -a %nomercysıralama 
    }
    /dec %lol
  }
}