on *:JOIN:#: {
  var %r = $read(channels\peak.txt,w,$chan $+ $chr(32) $+ *), %l = $iif(%r,$readn,$calc($lines(channels\peak.txt) + 1))
  if $nick($chan,0) > $gettok(%r,2,32) || !%r {
    msg $chan Новый рекорд посещаемости канала $nick($chan,0) человек! $iif(%r,Предыдущий был установлен $asctime($gettok(%r,3,32),dd.mm.yyyy HH:nn:ss) ( $+ $_duration($calc($ctime - $gettok(%r,3,32)),1) назад) $+ $chr(44) рекорд поставил $gettok(%r,4,32)))
    write -l $+ %l channels\peak.txt $chan $nick($chan,0) $ctime $nick
    write -c channels\peak. $+ $chan $+ .txt
    var %i = 1
    while %i <= $nick($chan,0) {
      write channels\peak. $+ $chan $+ .txt $nick($chan,%i).pnick
      inc %i
    }
  }
}
on *:TEXT:*:#: {
  if $1 == !peak {
    var %r = $read(channels\peak.txt,w,$iif($2,$2,$chan) $+ $chr(32) $+ *)
    if %r {
      msg $chan Рекорд посещаемости канала $iif($2,$2,$chan) $gettok(%r,2,32) человек $+ $iif($gettok(%r,2,32) isnum 2-4,а) $+ , установлен $asctime($gettok(%r,3,32),dd.mm.yyyy HH:nn:ss) ( $+ $_duration($calc($ctime - $gettok(%r,3,32)),1) назад), рекорд поставил $gettok(%r,4,32)
      var %i = 1, %l = $lines(channels\peak. $+ $chan $+ .txt), %o
      while %i <= %l {
        set %o %o $read(channels\peak. $+ $chan $+ .txt,%i)
        if $len(%o) > 250 {
          notice $nick %o
          unset %o
        }
        inc %i
      }
      if %o { notice $nick %o }
    }
    else { msg $chan Рекорд посещаемости $iif($2,$2,$chan) не установлен }
  }
}