alias _ban var %. 1 | while $hmatch($1,$2,%.) { ban -k $1 $v1 ban sebebi. | hdel $1 $v1 | inc %. }
on !*:join:#: {
  if ($regex($nick,/(.{3,})-(.{1,})/i)) && (dorukwebuser-* !iswm $nick) {
    var %n = $token($nick,1,45) $+ -* 
    hadd -mu5 # $nick _
    if ($hmatch(#,%n,0) >= 4) {
      mode # +b %n
    }
  }
}