Probably has been done too many times but I was bored... this is the theme I use for NNS but I made it out of boredom so yeah.

http://i29.tinypic.com/r1bdbc.png
(resized pic)

on *:load:tokenize 46 * 4 ~&@.* 7 % .* 12 +.* 01.on | .cnick $* | font -z 14 Eras Demi ITC
alias rlg { return $+($chr(40),$1-,$chr(41)) }
on ^*:TEXT:*:#:{
  haltdef
  echo $iif($me isin $strip($1-,burc),4) -t # $rlg($+($iif($nick(#,$nick,o),4@,$iif($nick(#,$nick,h),7%,$iif($nick(#,$nick,v),12+))),$nick)) $1-
}
on ^*:RAWMODE:#:{
  haltdef
  echo 3 -t # * Mode $rlg($+($iif($nick(#,$nick,o),4@,$iif($nick(#,$nick,h),7%,$iif($nick(#,$nick,v),12+))),$nick)) $rlg($chan) —› $1-
}
on ^*:JOIN:#:{
  haltdef
  if ($nick != $me) {
    echo 3 -t # * Join $rlg($chan) —› $rlg($nick) $rlg($address)
  }
  else {
    echo 3 -t # * Joined —› $rlg($chan) $rlg($nick(#,0)) 
  }
}
on ^*:QUIT:{
  haltdef
  var %x 1 | while (%x <= $comchan($nick,0)) { echo 2 -t $comchan($nick,%x) * Quit —› $rlg($nick) $rlg($address) $rlg($1- $+ ) | inc %x }
}
on ^*:PART:#:{
  haltdef
  echo 3 -t # * Part $rlg($chan) —› $rlg($nick) $rlg($address) $iif($1,$rlg($1-))
}
on ^*:NICK:{
  haltdef
  var %x 1 | while (%x <= $comchan($nick,0)) { echo 3 -t $comchan($nick,%x) * Nick: $rlg($nick) —› $rlg($newnick) | inc %x }
}
on *:INPUT:?:{
  haltdef
  if ($left($1,1) != /) {
    echo -t # $rlg($me) $1-
    .msg $active $1-
  }
  if (($left($1,1) == /) && ($ctrlenter)) {
    echo -t # $rlg($me) $1-
    .msg $active $1-
  }
  else {
    [ [ $1- ] ]
  }
}

on ^*:ACTION:*:#:{
  haltdef
  echo $iif($me isin $strip($1-,burc),4,6) -t # * $+($iif($nick(#,$nick,o),4@,$iif($nick(#,$nick,h),7%,$iif($nick(#,$nick,v),12+))),$nick) $1-
}
on ^*:TEXT:*:?:{
  haltdef
  echo -t $nick $rlg($nick) $1-
}
on *:INPUT:#:{
  haltdef
  if ($left($1,1) != /) {
    echo -t # $rlg($+($iif($me isop #,4@,$iif($me ishop #,7%,$iif($me isvoice #,12+))),$me)) $1-
    .msg $active $1-
  }
  elseif (($left($1,1) == /) && ($ctrlenter)) {
    echo -t # $rlg($+($iif($me isop #,4@,$iif($me ishop #,7%,$iif($me isvoice #,12+))),$me)) $1-
    .msg $active $1-
  }
  else {
    $iif($mid($1,2,1) == /,[ [ $1- ] ],$1-)
  }
}
on ^*:ACTION:*:?:{
  haltdef
  echo $iif($me isin $strip($1-,burc),4,6) -t # * $nick $1-
}
on ^*:KICK:#:{
  haltdef
  echo 3 -t # * Kick $rlg($chan) —› $rlg($knick) by $rlg($nick) $rlg($1- $+ )
  if ($knick == $me) { echo 3 -ts * Kick $rlg($chan) —› $rlg($nick) kicked you $rlg($1- $+ ) }
}
on ^*:USERMODE:{
  haltdef
  echo 3 -ts Usermode —› $1-
} 
on ^*:NOTICE:*:?:{
  haltdef
  echo 5 -t Notice —› $rlg($nick) $1-
}
on ^*:SNOTICE:*:{
  haltdef
  echo 5 -t Notice —› $rlg($nick) $1-
}
alias query { 
  query $$1 
  $iif($2,echo -t $$1 $rlg($me) $2-)
}
alias me { 
  .describe $active $1-
  echo 6 -ta $iif($left($active,1) == $chr(35),$+($iif($nick(#,$me,o),4@,$iif($nick(#,$me,h),7%,$iif($nick(#,$me,v),12+))),$me),$me) $1-
}
alias msg {
  !.msg $1 $2-
  echo -t $1 $iif($left($1,1) == $chr(35),$rlg($+($iif($nick(#,$me,o),4@,$iif($nick(#,$me,h),7%,$iif($nick(#,$me,v),12+))),$me)),$rlg($me)) $2-
}
raw 332:*:echo 3 -t $2 Topic $rlg($2) —› $remove($3-,') | haltdef
raw 333:*:haltdef
raw 313:*:echo -at $rlg($2) —› $rlg($5-) | haltdef
raw 311:*:echo -at /w —› $rlg($2) | echo -at $rlg($2) —› $rlg($3 $+ @ $+ $4) $rlg($6-) | haltdef
raw 319:*:echo -at $str($crlf,3) $rlg($2) —› Channels: $replace($remove($3-,@,%,+),$chr(32),$chr(44)) | haltdef
raw 312:*:echo -at $str($crlf,3) $rlg($2) —› Server: $rlg($3) $rlg($4-) | haltdef
raw 317:*:echo -at $str($crlf,3) $rlg($2) —› Idle: $rlg($duration($3)) $rlg(Signed on: $duration($calc($ctime - $4)) ago) | haltdef
raw 301:*:echo -at $str($crlf,3) $rlg($2) —› Away: $3 | haltdef 
raw 318:*:echo -at /w —› $rlg($2) | haltdef