alias herkes { 
  var %:t = $nick(#,0) | while %:t { var %:say = %:say $+($nick(#,%:t),$chr(44)) | dec %:t }
  say %:say
}

alias herkes { 
  var %:t = $nick(#,0) | while %:t { if !$istok(Nick Nick2 Nick3,$nick(#,%:t),32) { var %:say = %:say $+($nick(#,%:t),$chr(44)) } | dec %:t }
  say %:say
}

alias herkes { say $regsubex($str(-,$nick(#,0)),/./g,$iif(!$istok(Nick Nick2 Nick3,$nick(#,\n),32),$+($nick(#,\n),$chr(32)))) }

alias herkes {
  var %a = $nick(#,0)
  while %a {
    if $nick(#,%a) != $me && $nick(#,%a) != muafnick && $nick(#,%a) != muafnick2 {
      %b = $addtok(%b,$nick(#,%a),32)
    }
    dec %a
  }
  say %b $1- | unset %b
}

alias herkes { 
  var %:t = $nick(#,0) | while %:t { if !$istok(G-Bot KadifeSohbet S-PUAN SENSATION SProxy Fikret[bNc] Kadife Fikret KOMIKBOT,$nick(#,%:t),32) { var %:say = %:say $+($nick(#,%:t),$chr(44)) } | dec %:t }
  say %:say
}

ON *:TEXT:!seslen:#: { seslen $chan }
ON *:INPUT:#: { 
  if ($1 == !seslen) { .timer 1 0 seslen $chan }
}
 
alias -l seslen {
  var %not_nicks = muaf1 muaf2 muaf3
  var %t = $nick($1,0)
 
  while (%t) {
    var %n = $nick($1,%t)
 
    if (%n !== $me) && (!$istok(%not_nicks,%n,32)) { var %tot = $addtok(%tot,%n,32) }
 
    dec %t
  }
 
  if (%tot) { msg $1 %tot }
  else { msg $1 kişiler yok }
}