This is a simple peak script that tells the channel when their maximum user count has been passed.

Usage: !peak

Author: Lord-Harlot @ #mIRC on Purplesurge

on *:text:*:#:{
  if ($strip($1,burc) == !peak) {
    if (!$readini(peak.ini, $chan, peak) || $readini(peak.ini, $chan, peak) < $nick(#,0)) {
      writeini peak.ini $chan peak $nick(#,0)
      writeini peak.ini $chan date $date
    }
  }
}
on *:join:#:{
  if ($readini(peak.ini, $chan, peak) < $nick(#,0)) || (!$readini(peak.ini, $chan, peak)) {
    writeini peak.ini $chan peak $nick(#,0)
    writeini peak.ini $chan date $date
    msg # New Peak for this channel is $readini(peak.ini,$chan,peak) set on $readini(peak.ini,$chan,date)
  }
}