alias ayikla {
  var %i 1 , %r
  while %i <= $len($1-) {
    %f = $mid($1-,%i,1)
    if %f != $right(%r,1) {
      %r = $+(%r,$mid($1-,%i,1))
    }
    inc %i
  }
  return %r
}
on *:text:*:#: {
  if $nick isreg # {
    inc -u60 %t. [ $+ [ $+($nick,#,$ayikla($strip($1-))) ] ] 1
    if %t. [ $+ [ $+($nick,#,$ayikla($strip($1-))) ] ] == 3 {
      kick # $nick tekrar korumasi
    }
  }
}