alias c1 { return $+($chr(3),%col1,$1-) } 
alias c2 { return $+($chr(3),%col2,$1-) } 
alias c3 { return $+($chr(3),%col3,$1-) } 
alias u { return $+($chr(31),$1-,$chr(31)) } 
alias setcol { 
  set %col1 $1 
  set %col2 $2 
  set %col3 $3 
} 
on *:text:*:#:{ 
  inc %letters $len($1-) 
  inc %words $0 
  inc %text 1 
  writeini -n talk.ini LINES $nick $iif($readini(talk.ini,lines,$nick),$calc($v1 + 1),1) 
  writeini -n talk.ini CHARACTERS $nick $iif($readini(talk.ini,characters,$nick),$calc($v1 + $len($1-)),1) 
} 
on *:join:#:{ 
  inc %joinz 1 
  inc %letters $len($1-) 
  inc %words $0 
} 
on *:part:#:{ 
  inc %parts 1 
  inc %letters $len($1-) 
  inc %words $0 
} 
on *:quit:{ 
  inc %quits 1 
  inc %letters $len($1-) 
  inc %words $0 
} 
on *:NICK:{ 
  inc %nickchanges 1 
  inc %letters $len($1-) 
  inc %words $0 
} 
on *:kick:#:{ 
  inc %kicks 1 
  inc %letters $len($1-) 
  inc %words $0 
} 
on *:mode:#:{ 
  inc %modes 1 
  inc %letters $len($1-) 
  inc %words $0
  inc %bans 1 
} 
on *:action:*:#: { 
  inc %actions 1 
  inc %letters $len($1-) 
  inc %words $0 
} 
alias info { 
  echo -a $+($c1($u(N)),$c2(ow) $c1($u(D)),$c2(isplaying) $c1($u(R)),$c2(egisteel001's) $c1($u(i)),$c2(nfo),$c2($u(:))) 
  echo -a $+($c1($u(m)),$c2(IRC) $c1($u(v)),$c2(ersion),$c2($u(:)),$c3(,$version,)) 
  echo -a $+($c1($u(N)),$c2(etwork),$c2($u(:)),$c3(,$network,) $c1($u(S)),$c2(erver),$c2($u(:)),$c3(,$server,) $c1($u(P)),$c2(ort),$c2($u(:)),$c3(,$port,)) 
  echo -a $+($c1([),$c2(I Have Seen),$c1(])) $+($c1($u(C)),$c2(haracters),$c2($u(:))) $c3($bytes(%letters,db)) $+($c1($u(W)),$c2(ords),$c2($u(:))) $c3($bytes(%words,db)) $+($c1($u(M)),$c2(essages),$c2($u(:))) $c3($bytes(%text,db)) $+($c1($u(W)),$c2(ords),$c1($u(P)),$c2(er),$c1($u(M)),$c2(essage)) $c3($left($calc(%words / %text),5)) $+($c1($u(L)),$c2(etters),$c1($u(P)),$c2(er),$c1($u(W)),$c2(ord)) $c3($left($calc(%letters / %words),5)) 
  echo -a $+($c1([),$c2(I Have Seen),$c1(])) $+($c1($u(K)),$c2(icks),$c2($u(:))) $c3($bytes(%kicks,db)) $+($c1($u(B)),$c2(ans),$c2($u(:))) $c3($bytes(%bans,db)) $+($c1($u(A)),$c2(ctions),$c2($u(:))) $c3($bytes(%actions,db)) $+($c1($u(J)),$c2(oins),$c2($u(:))) $c3($bytes(%joinz,db)) $+($c1($u(P)),$c2(arts),$c2($u(:))) $c3($bytes(%parts,db)) $+($c1($u(N)),$c2(ick),$c1($u(C)),$c2(hanges),$c2($u(:))) $c3($bytes(%nickchanges,db)) $+($c1($u(Q)),$c2(uits),$c2($u(:))) $c3($bytes(%quits,db)) $+($c1($u(C)),$c2(hannel),$c1($u(M)),$c2(ode),$c1($u(C)),$c2(hanges),$c2($u(:))) $c3($bytes(%modes,db)) 
} 
alias publicinfo { 
  msg $chan $+($c1($u(N)),$c2(ow) $c1($u(D)),$c2(isplaying) $c1($u(R)),$c2(egisteel001's) $c1($u(i)),$c2(nfo),$c2($u(:))) 
  msg $chan $+($c1($u(m)),$c2(IRC) $c1($u(V)),$c2(ersion),$c2($u(:)),$c3(,$version,)) 
  msg $chan $+($c1($u(N)),$c2(etwork),$c2($u(:)),$c3(,$network,) $c1($u(S)),$c2(erver),$c2($u(:)),$c3(,$server,) $c1($u(P)),$c2(ort),$c2($u(:)),$c3(,$port,)) 
  msg $chan $+($c1([),$c2(I Have Seen),$c1(])) $+($c1($u(C)),$c2(haracters),$c2($u(:))) $c3($bytes(%letters,db)) $+($c1($u(W)),$c2(ords),$c2($u(:))) $c3($bytes(%words,db)) $+($c1($u(M)),$c2(essages),$c2($u(:))) $c3($bytes(%text,db)) $+($c1($u(W)),$c2(ords),$c1($u(P)),$c2(er),$c1($u(M)),$c2(essage)) $c3($left($calc(%words / %text),5)) $+($c1($u(L)),$c2(etters),$c1($u(P)),$c2(er),$c1($u(W)),$c2(ord)) $c3($left($calc(%letters / %words),5)) 
  msg $chan $+($c1([),$c2(I Have Seen),$c1(])) $+($c1($u(K)),$c2(icks),$c2($u(:))) $c3($bytes(%kicks,db)) $+($c1($u(B)),$c2(ans),$c2($u(:))) $c3($bytes(%bans,db)) $+($c1($u(A)),$c2(ctions),$c2($u(:))) $c3($bytes(%actions,db)) $+($c1($u(J)),$c2(oins),$c2($u(:))) $c3($bytes(%joinz,db)) $+($c1($u(P)),$c2(arts),$c2($u(:))) $c3($bytes(%parts,db)) $+($c1($u(N)),$c2(ick),$c1($u(C)),$c2(hanges),$c2($u(:))) $c3($bytes(%nickchanges,db)) $+($c1($u(Q)),$c2(uits),$c2($u(:))) $c3($bytes(%quits,db)) $+($c1($u(C)),$c2(hannel),$c1($u(M)),$c2(ode),$c1($u(C)),$c2(hanges),$c2($u(:))) $c3($bytes(%modes,db)) 
}