[theme]
name=four theme by silence
sounds=no
ircn7script=$true

[loadmsg]
n1=my theme number four. it is also named four because 4 is the
n2=mirc color code for red, which is a color used alot in this theme.
n3=to bad irc is getting more and more boring, making new themes
n4=is the only fun thing left, or something like that.
n5=please respect my wishes and use this ONLY with courier new.

[credit]
n1=BARtMAN, jdc and Quietust for nickcomps.

[ircN]
hc=00
sc=04
ac=14

iecho=$sc(&) $+ $hc(>)
multisay=echo $colour(Own) -ti2 $gettok($1,%i.msg,44) $sc(<) $+ $ac($me) $+ $pst2($me,$gettok($1,%i.msg,44)) $+ $sc(>) $2-
say=echo $colour(Own) -ti2 $1 $sc(<) $+ $ac($me) $+ $pst2($me,$1) $+ $sc(>) $2-
multimsg=iiecho $sc(..) $+ $ac(msg) $+ $chr(40) $+ $hc($gettok($1,%i.msg,44)) $+ $chr(41) $+ $sc(..) $+ $2-
msg=iiecho $sc(..) $+ $ac(msg) $+ $sc($chr(40)) $+ $hc($1) $+ $sc($chr(41)) $+ $ac(..) $+ $sc($2-)
multidescribe=echo $colour(Action) -ti2 $gettok($1,%i.describe,44) $b($hc(=)) $pst($me,$gettok($1,%i.describe,44)) $2-
describe=echo $colour(Action) -ti2 $1 $b($hc(=)) $pst($me,$1) $2-
multiprivdescribe=echo $colour(Action) -tai2 $sc(..) $+ $ac(act) $+ $chr(40) $+ $hc($gettok($1,%i.describe,44)) $+ $chr(41) $+ $sc(..) $b($hc(=)) $me $2-
privdescribe=echo $colour(Action) -tai2 $sc(..) $+ $ac(act) $+ $chr(40) $+ $hc($1) $+ $chr(41) $+ $sc(..) $b($hc(=)) $me $2-
action=echo $colour(Action) -tai2 $b($hc(=)) $pst($me,$chan) $1-
ctcp=$hc(..) $+ $ac(ctcp) $+ $chr(40) $+ $hc($1) $+ $chr(41) $+ $hc(..) $+ $upper($2) $+ $iif($3-,$hc(.)) $+ $3-
channotice=echo $colour(Notice) -ti2 $1 $sc(-) $+ $pst($me,$1) $+ $sc(:) $+ $1 $+ $sc(-) $2-
multichannotice=echo $colour(Notice) -ti2 $gettok($1,%i.notice,44) $sc(-) $+ $pst($me,$gettok($1,%i.notice,44)) $+ $sc(:) $+ $gettok($1,%i.notice,44) $+ $sc(-) $2-
notice=$sc(..) $+ $ac(notice) $+ $sc($chr(40)) $+ $hc($1) $+ $sc($chr(41)) $+ $hc(..) $+ $sc($2-)
multinotice=$sc(..) $+ $ac(notice) $+ $chr(40) $+ $hc($gettok($1,%i.notice,44)) $+ $chr(41) $+ $sc(..) $+ $2-
lmsg=$sc(..) $+ $ac(msg) $+ $hc($chr(40)) $+ $ac(selected nicks) $+ $hc($chr(41)) $+ $sc(..) $+ $1-
lnotice=$sc(..) $+ $ac(notice) $+ $hc($chr(40)) $+ $ac(selected nicks) $+ $hc($chr(41)) $+ $sc(..) $+ $1-
shownicktext=$hc(<) $+ $nick $+ $sc(:) $+ $chan $+ $hc(>) %tmp
shownickaction=$b($hc(=)) $nick $+ $sc(:) $+ $chan %tmp
invite=$sc(..) $+ invited $hc($1) to $hc($2) $+ $sc(..)
back=joo are back.
away=joo are away.

awaymsg1=describe $gettok(%away.chan,%i.away,44) is away, $b($1-) $u([) $+ log $+ $b(:) $+ $upper(%msglog) $+ $u(]) $page-msg $e-mail($email) $uin(%uin)
awaymsg2=ame is away, $b($1-) $u([) $+ log $+ $b(:) $+ $upper(%msglog) $+ $u(]) $page-msg $e-mail($email) $uin(%uin)
backmsg1=describe $gettok(%away.chan,%i.back,44) has returned $+ %tmp.back $+ . $u([) $+ gone $+ $b(:) $+ $gone $+ $u(])
backmsg2=ame has returned $+ %tmp.back $+ . $u([) $+ gone $+ $b(:) $+ $gone $+ $u(])

[nickcolors]
shitted=04
user=07
protected=12
voice=06
halfop=11
op=13
bot=14
master=03
owner=09

[mIRCcolours]
action=15
ctcp=15
highlight=15
info=15
info2=15
invite=15
join=15
kick=15
mode=04
nick=15
normal=15
notice=15
notify=15
other=15
own=00
part=15
quit=15
topic=15
wallops=15
whois=14
editbox=14
listbox=15
editbg=01
listbg=01
background=01

[mIRC]
ctcp=CTCP $hc($1) $sc(request) by $hc($nick) $cpms($2-)
pwctcp1=CTCP $hc($1) $sc(request) by $hc($nick) $cpms($str(*,$len($2))) $3-
pwctcp2=CTCP $hc($1) $sc(request) by $hc($nick) $cpms($str(*,$len($2)))) $str(*,$len($3)) $4-
chanctcp=$hc($nick) has requested a channel $sc($1) on $hc($chan) at $hc($atime) $+ $cpms($2-)
ctcpreply=CTCP $hc($1) $sc(reply) from $hc($nick) $+ : $2-
ctcppingreply=CTCP $hc(PING) $sc(reply) from $hc($nick) $+ : $iduration(%pt)
ctcppingreply0=CTCP $hc(PING) $sc(reply) from $hc($nick) $+ : 0 seconds
help=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc(+h) $hc($hnick) $+ $chr(41) $ac(by) $ac($nick)
op=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc(+o) $hc($opnick) $+ $chr(41) $ac(by) $ac($nick)
voice=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc(+v) $hc($vnick) $+ $chr(41) $ac(by) $ac($nick)
dehelp=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc(-h) $hc($hnick) $+ $chr(41) $ac(by) $ac($nick)
deop=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc(-o) $hc($opnick) $+ $chr(41) $ac(by) $ac($nick)
devoice=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc(-v) $hc($vnick) $+ $chr(41) $ac(by) $ac($nick)
mode=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($nick) $ac(mode) $+ $ac($chr(41)) $chr(40) $+ $hc($1-) $+ $chr(41)
usermode=echo $colour(Mode) -tsi2 $sc(&) $+ $hc(>) $ac(usermode) $sc($chr(40)) $+ $hc($1-) $+ $sc($chr(41))
servermode=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($nick) $ac(servermode) $+ $ac($chr(41)) $chr(40) $+ $hc($1-) $+ $chr(41)
serverop=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(servermode) $+ $ac($chr(41)) $chr(40) $+ $hc(+o) $hc($opnick) $+ $chr(41) $ac(by) $ac($nick)
ban=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $sc($chr(40)) $+ $hc(+b) $hc($banmask) $+ $sc($chr(41)) $ac(by) $ac($nick)
unban=echo $colour(Mode) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $ac(mode) $+ $ac($chr(41)) $sc($chr(40)) $+ $hc(-b) $hc($banmask) $+ $sc($chr(41)) $ac(by) $ac($nick)
nick=echo $colour(Nick) -ti2 $comchan($newnick,%i) $hc(~) $+ $hc(~) $+ $hc(~) $sc(nickchange) $+ $hc(>) $ac($nick) $sc(>) $hc($newnick)
invite1=echo $colour(Invite) -tsi2 $hc($chr(40)) $+ $sc(invite) $sc($chan) $+ $hc($chr(41)) by $ac($nick) $+ ( $+ $ac($gettok($address,1,64)) $+ $sc(@) $+ $ac($gettok($address,2,64)) $+ )
invite2=echo $colour(Invite) -tai2 $hc($chr(40)) $+ $sc(invite) $sc($chan) $+ $hc($chr(41)) by $ac($nick) $+ ( $+ $ac($gettok($address,1,64)) $+ $sc(@) $+ $ac($gettok($address,2,64)) $+ )
joined=echo $colour(Join) -ti2 $chan $sc(&) $+ $hc(>) you joined $chan $+ $sc(@) $+ %irc.network
join1=echo $colour(Join) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $sc(join) $+ $ac($chr(41)) $hc($nick) $ac($chr(40)) $+ $ac($gettok($address,1,64)) $+ $sc(@) $+ $ac($gettok($address,2,64)) $+ $ac($chr(41))
join2=echo $colour(Join) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $sc(join) $+ $ac($chr(41)) $hc($nick) $ac($chr(40)) $+ $ac($gettok($address,1,64)) $+ $sc(@) $+ $ac($gettok($address,2,64)) $+ $ac($chr(41))
part1=echo $colour(Part) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $sc(part) $+ $ac($chr(41)) $hc($nick) $ac($chr(40)) $+ $ac($gettok($address,1,64)) $+ $sc(@) $+ $ac($gettok($address,2,64)) $+ $ac($chr(41)) $iif($1-,$hc(;)) $+ $ac($1-)
part2=echo $colour(Part) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $sc(part) $+ $ac($chr(41)) $hc($nick) $ac($chr(40)) $+ $ac($gettok($address,1,64)) $+ $sc(@) $+ $ac($gettok($address,2,64)) $+ $ac($chr(41)) $iif($1-,$hc(;)) $+ $ac($1-)
quit1=echo $colour(Quit) -ti2 $comchan($nick,%i) $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $hc(signoff) $+ $ac($chr(41)) $sc($nick) $iif($1-,$hc(;)) $+ $sc($1-)
quit2=echo $colour(Quit) -ti2 $comchan($nick,%i) $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $hc(signoff) $+ $ac($chr(41)) $sc($nick) $iif($1-,$hc(;)) $+ $sc($1-)
kick=echo $colour(Kick) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $ac($chr(40)) $+ $ac($chan) $sc(kick) $+ $ac($chr(41)) $ac($knick) $+ $sc($chr(40)) $+ $ac($1-) $+ $ac($o) $+ $sc($chr(41)) $sc(...) $+ $ac(by) $ac($nick)
kickme=echo $colour(Kick) -ti2 $chan $sc(&) $+ $hc(>) joo were kicked by $sc($nick) $hc($chr(40)) $+ $sc($1-) $+ $sc($o) $+ $hc($chr(41))
kickrejoin=echo $colour(Info) -i2 $chan $sc(&) $+ $hc(>) trying to rejoin $+ $sc(...)
servernotice1=echo $colour(Notice) -tsi2 $ac(-) $+ $hc($nick) $+ $ac(-) $sc($1-)
servernotice2=echo $colour(Notice) -tai2 $ac(-) $+ $hc($nick) $+ $ac(-) $sc($1-)
action=echo $colour(Action) -ti2 $chan $b($hc(=)) $pst2($nick,$chan) $+ $nick $1-
text=echo $colour(Normal) -ti2 $chan $ac(<) $+ $ac($nick) $+ $pst2($nick,$chan) $+ $ac(>) $1-
notice=echo $colour(Notice) -ti2 $chan $sc(-) $+ $pst2($nick,$chan) $+ $hc($nick) $+ $sc(:) $+ $chan $+ $sc(-) $ac($1-)
topic=echo $colour(Topic) -ti2 $chan $sc(~) $+ $ac(~) $+ $sc(~) $sc($chr(40)) $+ $sc($chan) $c $+ 7 $+ topic $+ $c $+ $sc($chr(41)) $sc($chr(40)) $+ $hc($1-) $+ $hc($o) $+ $sc($chr(41)) $sc(...) $+ $ac(by) $pst2($nick,$chan) $+ $ac($nick)
wallops1=echo $colour(Wallops) -tsi2 $hc($nick) $+ $ac(>) $sc($1-)
wallops2=echo $colour(Wallops) -tai2 $hc($nick) $+ $ac(>) $sc($1-)

[nicklist]
top=$lfix(3,.) $+ $str(-,15) $+ . $+ $lfix(15,$chr(32)) $+ . $+ $str(-,15) $+ . $+ $lfix(15,$chr(32)) $+ .
names=$lfix(3,$vl) $fix(13,$nll($gettok($1-,%i.nline,32))) $vl $fix(13,$nll($gettok($1-,$pls(1,%i.nline),32))) $vl $fix(13,$nll($gettok($1-,$pls(2,%i.nline),32))) $vl $fix(13,$nll($gettok($1-,$pls(3,%i.nline),32))) $vl
bottom=$lfix(3,') $+ $lfix(15,$chr(32)) $+ ' $+ $str(-,15) $+ ' $+ $lfix(15,$chr(32)) $+ ' $+ $str(-,15) $+ '
namecount=4
namestop1=$lfix(3,.) $+ $str(-,63) $+ .
namestop2a=$lfix(3,$vl) Names [[ $+ $hc($3) $+ : $+ $sc($fix(2,%jstat.num2)) $+ ]] $lfix($sub(51,$len($3)),$vl)
namestop2b=$lfix(3,$vl) Next [[ $+ $hc($3) $+ : $+ $sc($fix(2,%jstat.num2)) $+ ]] $lfix($sub(52,$len($3)),$vl)

[whois]
top=$sc(------.)
address=host $lfix(2,$sc($vl)) $hc($3) $+ $sc(@) $+ $hc($o) $+ $hc($4)
name=name $lfix(2,$sc($vl)) $hc($6-)
chan=chans $sc($vl) $hc($3-)
server=server $+ $sc($vl) $hc($3)
away=away $lfix(2,$sc($vl)) $hc($3-)
ircop=ircop $sc($vl) $hc(to packet him press) $sc(F11)
idle=idle $lfix(2,$sc($vl)) $hc($duration($3))
bottom=$sc(------') $lfix(15,$chr(40)) $+ eow for $hc($2) $+ $chr(41))

[cwhois]
top=$sc(------.)
address=host $lfix(2,$sc($vl)) $hc($3) $+ $sc(@) $+ $hc($o) $+ $hc($4)
name=name $lfix(2,$sc($vl)) $hc($6-)
chan=chans $sc($vl) $hc($3-)
server=server $+ $sc($vl) $hc($3)
away=away $lfix(2,$sc($vl)) $hc($3-)
ircop=ircop $sc($vl) $hc(to packet him press) $sc(F11)
idle=idle $lfix(2,$sc($vl)) $hc($duration($3))
bottom=$sc(------') $lfix(15,$chr(40)) $+ eow for $hc($2) $+ $chr(41))

[whowas]
top=$sc(------.)
address=host $lfix(2,$sc($vl)) $hc($3) $+ $sc(@) $+ $hc($o) $+ $hc($4)
name=name $lfix(2,$sc($vl)) $hc($6-)
server=server $+ $sc($vl) $hc($3)
last=last $lfix(2,$sc($vl)) $hc($4-)
bottom=$sc(------') $lfix(15,$chr(40)) $+ eow for $hc($2) $+ $chr(41))

[cwhowas]
top=$sc(------.)
address=host $lfix(2,$sc($vl)) $hc($3) $+ $sc(@) $+ $hc($o) $+ $hc($4)
name=name $lfix(2,$sc($vl)) $hc($6-)
server=server $+ $sc($vl) $hc($3)
last=last $lfix(2,$sc($vl)) $hc($4-)
bottom=$sc(------') $lfix(15,$chr(40)) $+ eow for $hc($2) $+ $chr(41))

[nickcomp]
styles=lower,default,fristbold,fristunder,lastbold,lastunder,f&l_bold,f&l_under,f&l_b&u,fb_lu,lu_fb,f&lu_mb,f&lb_mu,2imNu,qt,qt2,qt3,qt4,replace,l337,silence,silence2,silence3,silence4,pst
lower=%nlb $+ $lower($1) $+ %nrb
default=%nlb $+ ¯ $+ $lower($1) $+ %nrb
fristbold=$b($left($1,1)) $+ $iif($mid($1,2,0) > 0,$mid($1,2,$mid($1,2,0))) $+ %nrb
fristunder=$u($left($1,1)) $+ $iif($mid($1,2,0) > 0,$mid($1,2,$mid($1,2,0))) $+ %nrb
lastbold=$left($1,1) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$b($right($1,1))) $+ %nrb
lastunder=$left($1,1) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$u($right($1,1))) $+ %nrb
f&l_bold=%nlb $+ $b($left($1,1)) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$b($right($1,1))) $+ %nrb
f&l_under=%nlb $+ $u($left($1,1)) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$u($right($1,1))) $+ %nrb
f&l_b&u=%nlb $+ $u($b($left($1,1))) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$u($b($right($1,1)))) $+ %nrb
fb_lu=$b($left($1,1))) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$u($right($1,1)))) $+ %nrb
lu_fb=$u($left($1,1))) $+ $iif($len($1) > 2,$mid($1,2,$calc($mid($1,2,0) - 1))) $+ $iif($len($1) > 1,$b($right($1,1)))) $+ %nrb
f&lu_mb=%nlb $+ $u($left($1,1)) $+ $iif($len($1) > 2,$b($mid($1,2,$calc($mid($1,2,0) - 1)))) $+ $iif($len($1) > 1,$u($right($1,1))) $+ %nrb
f&lb_mu=%nlb $+ $b($left($1,1)) $+ $iif($len($1) > 2,$u($mid($1,2,$calc($mid($1,2,0) - 1)))) $+ $iif($len($1) > 1,$b($right($1,1))) $+ %nrb
2imNu=$u $+ $left($1,$int($div($sub($len($1),1),2))) $+ $u $+ $b $+ $mid($1,$pls($int($div($sub($len($1),1),2)),1),$sub(2,$mod($len($1),2))) $+ $b $+ $u $+ $right($1,$int($div($sub($len($1),1),2))) $+ $u $+ %nrb
qt=$u $+ $left($1,$int($div($sub($len($1),1),2))) $+ $b $+ $mid($1,$pls($int($div($sub($len($1),1),2)),1),$sub(2,$mod($len($1),2))) $+ $u $+ $right($1,$int($div($sub($len($1),1),2))) $+ $b $+ %nrb
qt2=$b $+ $left($1,$int($div($sub($len($1),1),2))) $+ $u $+ $mid($1,$pls($int($div($sub($len($1),1),2)),1),$sub(2,$mod($len($1),2))) $+ $b $+ $right($1,$int($div($sub($len($1),1),2))) $+ $u $+ %nrb
qt3=$b $+ $left($1,$int($div($sub($len($1),1),2))) $+ $b $+ $mid($1,$pls($int($div($sub($len($1),1),2)),1),$sub(2,$mod($len($1),2))) $+ $u $+ $right($1,$int($div($sub($len($1),1),2))) $+ $u $+ %nrb
qt4=$u $+ $left($1,$int($div($sub($len($1),1),2))) $+ $u $+ $mid($1,$pls($int($div($sub($len($1),1),2)),1),$sub(2,$mod($len($1),2))) $+ $b $+ $right($1,$int($div($sub($len($1),1),2))) $+ $b $+ %nrb
replace=%nlb $+ $lower($replace($u($1),q,$u(q),y,$u(y),p,$u(p),g,$u(g),j,$u(j),_,$u(_),$vl,$u($vl),[,$u([),],$u(]),$chr(123),$u($chr(123)),$chr(125),$u($chr(125)),$chr(47),$u($chr(47)),$chr(92),$u($chr(92))))) $+ %nrb
silence=%nlb $+ $lower($u($left($1,1))) $+ $iif($len($1) > 1,$lower($b($mid($1,2,1)))) $+ $iif($len($1) > 2,$lower($right($1,$calc($len($1) - 2)))) $+ %nrb
silence2=%nlb $+ $lower($b($left($1,1))) $+ $iif($len($1) > 1,$lower($u($mid($1,2,1)))) $+ $iif($len($1) > 2,$lower($right($1,$calc($len($1) - 2)))) $+ %nrb
silence3=%nlb $+ $lower($u($left($1,1))) $+ $iif($len($1) > 1,$lower($u($mid($1,2,1)))) $+ $iif($len($1) > 2,$lower($right($1,$calc($len($1) - 2)))) $+ %nrb
silence4=%nlb $+ $lower($b($left($1,1))) $+ $iif($len($1) > 1,$lower($b($mid($1,2,1)))) $+ $iif($len($1) > 2,$lower($right($1,$calc($len($1) - 2)))) $+ %nrb
pst=%nlb $+ $pst2($1,$chan) $+ $lower($1) $+ %nrb