Just a basic multi channel stats script for ur bot,
commands are ' !stats ' (to say ur stats ) or !stats ( will ' says nick ' stats , hf :)

on 1:TEXT:!stats*:#:{
  if ($2) {
    msg $chan :.: $2 $+ 's Stats For $chan Are :.: Lines. %lines. $($+(%,lines.,$address($2,1)),2) . Words. %words. $($+(%,words.,$address($2,1)),2) . Characters. %letters. $($+(%,letters.,$address($2,1)),2) . Kicks. %kicks. $($+(%,kicks.,$address($2,1)),2) . Joined. %joined. $($+(%,joined.,$address($2,1)),2) . Topics. %topics $($+(%,topics.,$address($2,1)),2) . Deoped. %deoped. $($+(%,deoped.,$address($2,1)),2) . Actions. %actions $($+(%,actions.,$address($2,1)),2) $+ .
  }
  else {
    msg $chan :.: Your Stats For $chan Are :.: Lines. %lines. $($+(%,lines.,$address($nick,1)),2) . Words. %words. $($+(%,words.,$address($nick,1)),2) . Characters. %letters. $($+(%,letters.,$address($nick,1)),2) . Kicks. %kicks. $($+(%,kicks.,$address($nick,1)),2) . Joined. %joined. $($+(%,joined.,$address($nick,1)),2) . Topics. %topics $($+(%,topics.,$address($nick,1)),2) . Deoped. %deoped. $($+(%,deoped.,$address($nick,1)),2) . Actions. %actions $($+(%,actions.,$address($nick,1)),2) $+ .
  }
}

on *:kick:#: { 
  inc $+(%,kicks.,$address($nick,1))
} 
on *:topic:#: { 
  inc $+(%,topics.,$address($nick,1)) 
} 
on *:action:*:#: { 
  inc $+(%,actions.,$address($nick,1)) 
} 
on *:join:#: { 
  inc $+(%,joined.,$address($nick,1)) 
} 
on *:deop:*#: { 
  inc $+(%,deoped.,$address($nick,1))
} 
on *:text:*:#:{ 
  inc $+(%,lines.,$address($nick,1)) 
  inc $+(%,words.,$address($nick,1)) $numtok($1-,32) 
  inc $+(%,letters.,$address($nick,1)) $len($1-) 
}