alias sendmsg {
  if ($me ison $1) && ($2-) && (%sendmsg.status != off) {
    set %sendmsg.status on
    set %sendmsg.chan $1
    set %sendmsg.msg $2-
    gen.nicks csnicks.txt
    .timer 1 1 start.send
  }
}

alias gen.nicks {
  if ($1) {
    var %x $nick(%sendmsg.chan,0,r)
    var %i 1
    while (%i <= %x) {
      write $1 $nick(%sendmsg.chan,%i,r)
      inc %i
    }
  }
  else echo -a Nick'u iregistravimo klaida!
}

alias start.send {
  if (%sendmsg.status != off) {
    var %tmp.lines $lines(csnicks.txt)
    if (%tmp.lines > 6) %tmp.lines = 6
    if (!%tmp.lines) { echo -a Zinuciu siuntimas baigtas | set %sendmsg.status off | halt }
    var %i 1
    while (%i <= %tmp.lines) {
      var %tmp.nick $read(csnicks.txt,1)
      msg %tmp.nick %sendmsg.msg
      write -dl1 csnicks.txt
      inc %i
    }
    .timer 1 60 start.send
  }
}

on *:join:#: {
  if ($chan == %sendmsg.chan) && (%sendmsg.status != off) write csnicks.txt $nick
}

on !*:part:#: {
  if ($chan == %sendmsg.chan) && (%sendmsg.status != off) write -ds $+ $nick csnicks.txt
}

on !*:quit: {
  echo -a kazkas: $chan
  if (%sendmsg.status != off) write -ds $+ $nick csnicks.txt
}