Just a simple Channelpeak Counter :)

*************************************************************************************************
Channelpeak
*************************************************************************************************
on *:join:#:{ 
  if (($nick == $me) && ($readini(Stats.ini,$network $+ #,Peak) == $null)) {
    writeini Stats.ini $network $+ # Peak off 
  }
  else {
    if ($nick == $me) { halt }
    else {
      if (($readini(Stats.ini,$network $+ #,Peak) == on) && (!$readini(Stats.ini,$network $+ #, Channelpeak))) {
        writeini Stats.ini $network $+ # Channeljoins $calc($readini(Stats.ini,$network $+ #,Channeljoins) +1)
        writeini Stats.ini $network $+ # Channelpeak $nick(#,0)
        writeini Stats.ini $network $+ # Channelpeakuser $nick
        writeini Stats.ini $network $+ # Channelpeakdate $fulldate
      msg # $nick set a new Channelrecord with $nick(#,0) Users in # $+ . $nick is User No. $+ $readini(Stats.ini,$network $+ #,Channeljoins) who joined # $+ . }
      else {
        if ($readini(Stats.ini,$network $+ #,Peak) == on) {
          if ($nick(#,0) > $readini(Stats.ini,$network $+ #,Channelpeak)) {
            writeini Stats.ini $network $+ # Channeljoins $calc($readini(Stats.ini,$network $+ #,Channeljoins) +1)
            writeini Stats.ini $network $+ # Channelpeak $nick(#,0)
            writeini Stats.ini $network $+ # Channelpeakuser $nick
            writeini Stats.ini $network $+ # Channelpeakdate $fulldate
          msg # $nick set a new Channelrecord with $nick(#,0) Users in # $+ . $nick is User No. $+ $readini(Stats.ini,$network $+ #,Channeljoins) who joined # $+ . }
          else {
            writeini Stats.ini $network $+ # Channeljoins $calc($readini(Stats.ini,$network $+ #,Channeljoins) +1)
          msg # $nick is User No. $+ $readini(Stats.ini,$network $+ #,Channeljoins) who joined # $+ . }
        }
      }
    }
  }
}

on *:text:!peak*:#:{
  if ((!$2) && ($readini(Stats.ini,$network $+ #,Peak) == off)) {
    msg # Channelpeak for # is disabled.
  }
  else {
    if (!$2) {
      msg # Userrecord for # is $readini(Stats.ini,$network $+ #,Channelpeak) $+ . Record has been set by $readini(Stats.ini,$network $+ #,Channelpeakuser) on $readini(Stats.ini,$network $+ #,Channelpeakdate) 
    }
    else {
      if ($readini(Accessuser.ini,User,*!*@* $+ $right($address($nick,2),12))) {
        if (($2 == on) && ($readini(Stats.ini,$network $+ #,Peak) == on)) { notice $nick Channelpeak is already enabled.
        }
        if (($2 == off) && ($readini(Stats.ini,$network $+ #,Peak) == off)) { notice $nick Channelpeak is already disabled.
        }
        else {
          if ($2 == on) { writeini Stats.ini $network $+ # Peak on | notice $nick Peak has been enabled. 
          }
          if ($2 == off) { writeini Stats.ini $network $+ # Peak off | notice $nick Peak has been disabled. 
          }
        }
      }
    }
  }
}