alias millet { if $active == $$chan { .remove nickler.txt | var %a 1 
    while %a <= $nick(#,0) { bwrite nickler.txt -1 -1 $nick(#,%a) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a } 
    var %b 1 | while %b <= $lines(nickler.txt) { say $replace($read(nickler.txt,%b),$chr(160),$chr(32)) | inc %b }  
  }
}
-
Muaflı
alias millet { if $active == $$chan { .remove nikler.txt | var %a 1 
    while %a <= $nick(#,0) { bwrite nickler.txt -1 -1 $iif(!$regex($nick(#,%a).pnick,/^(@|&|\.|~|%)/),$nick(#,%a)) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a } 
    var %b 1 | while %b <= $lines(nickler.txt) { say $replace($read(nickler.txt,%b),$chr(160),$chr(32)) | inc %b }  
  }
}

on *:input:#: {
  if ($1 == !seslen) {
    var %message = $2- 
    var %nickList
    var %a 1

    
    while (%a <= $nick($active,0)) {
      if ($nick($active,%a) != $me) { 
        %nickList = %nickList $nick($active,%a)
      }
      inc %a
    }

    if (%nickList) {
      msg $active %nickList
      msg $active -----------
      msg $active %message
    }
    halt 
  }

  elseif ($1 == !seslenMuafli) {
    var %message = $2-
    var %nickList
    var %a 1

    while (%a <= $nick($active,0)) {
      if (($nick($active,%a) != $me) && !$regex($nick($active,%a).pnick, /^(@|&|\.|~|%)/)) {
        %nickList = %nickList $nick($active,%a)
      }
      inc %a
    }

    if (%nickList) {
      msg $active %nickList
      msg $active -----------
      msg $active %message
    }
    halt 
  }
}