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
}