on *:text:*:#: {
  if $regex($1,/^([.!]seslen)/Si) {
    if !$istok(Nick1 Nick2 Nick3 Nick4 Nick5,$nick,32) { msg # 4Bu komutu kullanmaya yetkiniz yok. | return }
    unset %y | set %s 0 | var %i = 1  | while %i <= $nick(#,0) { 
      if !$istok(Muaf1 Muaf2 Muaf3 Muaf4 Muaf5,$nick(#,%i),32) {
    $iif(%y,set %y %y $nick(#,%i),set %y $nick(#,%i)) | inc %s | if %s = 15 {  msg # 0,6 %y | set %s 0 | unset %y } } | inc %i }  
    msg # 0,6 ~ %y ~ | msg # 3 - 
  }
}