Mine

on *:join:#: {
  if ($readini(chanstats.ini, Joins, $chan) == $null) {
    /writeini chanstats.ini Joins $chan 1
  }
  else {
    /writeini chanstats.ini Joins $chan $calc($readini(chanstats.ini, Joins, $chan) + 1)
  }
}

on *:QUIT: {
  var %i = 1 | while ($comchan($nick,%i)) { var %c = $v1 | if ($readini(chanstats.ini,Quits,%c)) { writeini chanstats.ini Quits %c $calc($v1 + 1) } | else { writeini chanstats.ini Quits %c 1 } | inc %i }
}

on *:KICK:#: {
  if ($readini(chanstats.ini, Kicks, $chan) == $null) {
    /writeini chanstats.ini Kicks $chan 1
  }
  else {
    /writeini chanstats.ini Kicks $chan $calc($readini(chanstats.ini, Kicks, $chan) + 1)
  }
}

on *:BAN:#: {
  if ($readini(chanstats.ini, Bans, $chan) == $null) {
    /writeini chanstats.ini Bans $chan 1
  }
  else {
    /writeini chanstats.ini Bans $chan $calc($readini(chanstats.ini, Bans, $chan) + 1)
  }
}

on *:TEXT:*:#: {
  if ($readini(chanstats.ini, Text, $chan) == $null) {
    /writeini chanstats.ini Text $chan 1
  }
  else {
    /writeini chanstats.ini Text $chan $calc($readini(chanstats.ini, Text, $chan) + 1)
  }
}

ON $*:TEXT:/^[!@.]chanstat(s)?$/Si:#: { 
  $iif($left($1,1) == @, msg $chan, notice $nick) $&
    $c1([) $+ $c2($chan) $+ $c1(]) $c1(I have seen..) $c3(|) $&
    $c2(Messages:) $c1($iif($readini(chanstats.ini, Text, $chan), $v1, 0)) $&
    $c3(|) $c2(Kicks:) $c1($iif($readini(chanstats.ini, Kicks, $chan), $v1, 0)) $&
    $c3(|) $c2(Joins:) $c1($iif($readini(chanstats.ini, Joins, $chan), $v1, 0)) $&
    $c3(|) $c2(Bans:) $c1($c2($iif($readini(chanstats.ini, Bans, $chan)), $v1, 0)) $&
    $c3(|) $c2(Quits:) $c1($iif($readini(chanstats.ini, Quits, $chan), $v1, 0))
}