on *:join:#: {
  if (SwiftIRC isincs $network) {
    if ($readini(peak.ini,peak,$chan) <= $nick($chan,0)) {
      writeini peak.ini peak $chan $nick($chan,0)
    }
    elseif (!$readini(peak.ini,peak,$chan)) { 
      writeini peak.ini peak $chan $nick($chan,0)
    }
  }
}
alias peak {
  if (SwiftIRC isincs $network) {
    $iif($1,.notice $1,echo -a) current user count $lower($+($chan,:)) $iif($nick($chan,0),$nick($chan,0),unknown)
    $iif($1,.notice $1,echo -a) current user peak $lower($+($chan,:)) $iif($readini(peak.ini,peak,$chan),$readini(peak.ini,peak,$chan),unknown)
  }
}
on *:text:!peak:#: {
  if (SwiftIRC isincs $network) {
    var %return $iif($left($1,1) == @,.msg $chan,.notice $nick)
    %return current user peak $lower($+($chan,:)) $iif($readini(peak.ini,peak,$chan),$readini(peak.ini,peak,$chan),unknown)
    %return current user count $lower($+($chan,:)) $iif($nick($chan,0),$nick($chan,0),unknown) 
  }
}