Well, this is my mIRC theme.
Comment on what you think about it, and ways you think I could make it look better.
And it also comes with a pretty epic highlight script.

alias arrow { return $+($chr(151),$chr(155)) }
alias c2 { return $+($chr(3),11,$1-) }
alias c1 { return $+($chr(3),14,$1-) }
alias darktheme.start {
  .timestamp -f $+($c2,8[» 6ddd mmm d 8|6 hh:nn:ss tt8 «] 1)
  .font -dz 10 Verdana
  .color background 1
  .color normal text 14
  .color listbox text 14
  .color listbox 1
  .color treebar 1
  .color treebar text 14
  .color whois text 14
  .color editbox 1
  .color editbox text 14
  echo -ae $c1(You're using) $c2(DarkTheme) $c1(version) $tc2(1) $+ $tc1(.)
}
alias -l style { return $+($c2,[,$c2,$iif($left($nick($chan,$nick).pnick,1) isin @%+,$v1),$c1,$nick,$c2,]) }
on *:START: {
  darktheme.start
}
on *:LOAD: {
  darktheme.start
}
on ^*:TEXT:*:*:{
  haltdef
  echo -t $iif(#,#,$nick) $style $c1($1-)
}
on ^*:ACTION:*:*:{
  haltdef
  echo -t $iif(#,#,$nick) $c2($arrow) $c2($+($chr(40),$nick,$chr(41))) $c1($1-)
}
on ^*:NOTICE:*:*:{
  haltdef
  echo -ast $iif(#,#) $c2($arrow) $c2($iif(#,$+(#,/,$nick - $1-),$+(-,$nick,-) $1-))
}
on ^*:SNOTICE:*:{
  haltdef
  echo -st $c2($arrow) $c2($+(-,$nick,-) $1-)
}
on ^*:INVITE:*:{
  haltdef
  echo -astm $c2($arrow) $c2(INVITE) $c1(-) $c2($nick) $c1(has invited you to) $c2($chan)
}
on ^*:RAWMODE:*:{
  haltdef
  echo -t # $c2($arrow) $c2($nick) $c1(has set $iif($len($1) > 2,modes:,mode:)) $c2($1-)
}
on ^*:KICK:*:{
  haltdef
  echo $iif($knick == $me,-ast #,-t #) $c2($arrow) $c2($nick) $c1(has kicked) $c2($knick) $c1(from) $c2($chan) $+($c1,[,$c2,$1-,$c1,])
}
on ^*:PART:*:{
  haltdef
  echo -t # $c2($arrow) $c2($nick) $c1([) $+ $c2($address) $+ $c1(] has parted) $c2(#) $iif($1,$+($c1,[,$c2,$1-,$c1,]))
}
on ^*:JOIN:*:{
  haltdef
  echo -t # $c2($arrow) $c2($nick) $c1([) $+ $c2($address) $+ $c1(] has joined) $c2(#)
}
on *:INPUT:*:{
  if ($left($1,1) == /) return
  else {
    haltdef
    .msg $active $1-
    echo -t $active $style $c1($1-)
  }
}
on ^*:BAN:*:{
  haltdef
  var %z $nick(#,0)
  while (%z) {
    if ($banmask iswm $address($nick(#,%z),5)) {
      var %b& = %b& $nick(#,%z)
    }
    dec %z
  }
  echo -t # $c2($arrow) $c2($nick) $+ $c1('s ban effects:) $c2(%b&)
}
Raw 332:*:{
  haltdef
  echo -tm $2 $c1(Topic is) $+(',$c2($3-),$c1('))
}
raw 311:*:{
  haltdef
  echo -at $c1([Whois/) $+ $c2($2) $+ $c1(])
  echo -at $c1(Nickname:) $c2($2) $c1(Username:) $c2($3) $c1(Address:) $c2($4) $c1(Realname:) $c2($strip($6-))
}
Raw 319:*:{
  haltdef
  echo -at $c2($2) $strip($c1(is on) $replace($c2($3-),~,$+($chr(3),04,~,$chr(3)),&,$+($chr(3),04,&,$chr(3)),@,$+($chr(3),04,@,$chr(3)),%,$+($chr(3),03,%,$chr(3)),+,$+($chr(3),02,+,$chr(3)))))
}
raw 473:*:{
  haltdef
  echo -as $c1(ERROR - ) $c2($2) $c1(is invite only. You must either be invited $+ $chr(44) or have mode +I set on you in the channel to join.)
}
raw 474:*:{
  haltdef
  echo -as $c1(ERROR - ) $c2(BANNED) $c1(from the channel) $c2($2) $+ $c1($chr(44) what did you do?!)
}
raw 475:*:{
  haltdef
  echo -as $c1(ERROR - ) $c2($2) $c1(You needs a key to allow you to join.)
}
raw 477:*:{
  haltdef
  echo -as $c1(ERROR - ) $c2($2) $c1(is currently allowing registered users only to join. Please) $c2(identify) $c1(to your nickname before trying to join.)
}
raw 520:*:{
  haltdef
  echo -as $c1(ERROR - ) $c2($4) $c1(is currently allowing only IRC operators and above to join. Please) $c2(oper up) $c1(before trying to join again)
}
Raw 333:*:{
  haltdef
  echo -tm $2 $c1(Set by) $c2($3) $c1(on) $c2($asctime($4-))
}
raw 312:*:{
  haltdef
  echo -at $c2($2) $c1(is using server:) $c2($3) $c1(Server info:) $tc2($4-)
}
raw 307:*:{
  haltdef
  echo -at $c2($2) $c1(has identified for this nickname.)
}
raw 317:*:{
  haltdef
  echo -at $c2($2) $c1(has been idle for) $c2($duration($3)) tc1(- Signed on) $c2($asctime($4))
}
raw 318:*:{
  haltdef
  echo -at $c1([End Whois/) $+ $c2($2) $+ $c1(])
}
raw 536:*:{
  haltdef
  echo -at $c2($2) $c1(is filtering messages (UMODE +f))
}
raw 378:*:{
  haltdef
  echo -at $c2($2) $c1(is connecting from) $c2($6) $c1(Server IP address:) $c2($7)
}
raw 671:*:{
  haltdef
  echo -at $c2($2) $c1(is using an SSL connection.)
}
raw 313:*:{
  haltdef
  echo -at $c2($2) $c1(is a(n)) $c2($5-)
}
raw 320:*:{
  haltdef
  echo -at $c1(SWHOIS:) $c2($2) $c1($3-)
}
raw 301:*:{
  haltdef
  echo -at $c2($2) $c1(is away -) $c2($3-)
}
raw 310:*:{
  haltdef
  echo -at $c2($2) $c1(is a network Help Operator (UMODE +h))
}
on ^*:TOPIC:*:{
  haltdef
  echo -t # $c2($arrow) $c2($iif($nick == $me,You,$nick)) $c1($iif($nick == $me,have,has) changed the topic to) $c2(' $+ $1- $+ ')
}
alias amsg {
  var %z 1
  while (%z <= $comchan($me,0)) {
    if (!$istok(#Idle #idlerpg #msl #mirc #rshelp,$chan(%z),32)) {
      .msg $chan(%z) $1-
      echo -t $chan(%z) $+($c1,[,$c2,$me,$c1,]) $c2($1-)
    }
    inc %z
  }
}
on ^*:NICK:{
  haltdef
  var %z 1
  while ($comchan($newnick,%z)) {
    echo -t $comchan($newnick,%z) $c2($arrow) $c2($nick) $c1(is now known as) $c2($newnick)
    inc %z
  }
  if ($nick == $me) { .cnick -r $me | .cnick $newnick 4 | .cnick on }
}

on ^*:QUIT:{
  haltdef
  var %z 1
  while ($comchan($nick,%z)) {
    echo -t $comchan($nick,%z) $c2($arrow) $c2($nick) $+($c1,[,$c2,$address,$c1,]) $c1(has quit IRC.) $iif($1,$+($c1,[,$c2,$1-,$c1,]))
    inc %z
  }
}
on *:TEXT:$($+(*,$me,*)):*:{
  haltdef
  dialog -md highlight highlight
  did -i highlight 2 1 $iif(#,#,query with $nick) | did -i highlight 3 1 By $nick saying | did -i highlight 4 1 $1-
}
dialog highlight {
  title "Highlighted"
  size -1 -1 92 59
  option dbu
  text "You have been highlighted in", 1, 1 1 90 8, center
  text "", 2, 1 10 90 8, center
  text "", 3, 1 19 90 8, center
  text "", 4, 1 28 90 30, center
}