#####################################
Sample Script Theme
#####################################

[theme]
name=LiGHT dEZiGN v1.0 theme
sound=no
ircn7script=$true

[loadmsg]
n1=thanx for using light dezign
n2=To contact, write to: kane@lightloop.com

[ircN]
sc=02
ac=01
hc=01
iecho=$b $+ ( $+ $hc(*) $+ ) $+ $b
multisay=echo $colour(Own) -ti2 $gettok($1,%i.msg,44) $hc: $+ $pst($me,$gettok($1,%i.msg,44)) $+ : $2-
say=echo $colour(own) -ti2 [ $+$pst($me,$1) ] $2-

multimsg=iiecho $sc(-) $+ > [[ $+ $sc(msg) $+ $u($chr(40)) $+ $hc($gettok($1,%i.msg,44)) $+ $u($chr(41)) $+ ]] $2-
msg=iiecho $sc(-) $+ > [[ $+ $sc(msg) $+ $u($chr(40)) $+ $hc($1) $+ $u($chr(41)) $+ ]] $2-
multidescribe=echo $colour(Action) -ti2 $gettok($1,%i.describe,44) * $pst($me,$gettok($1,%i.describe,44)) $2-
describe=echo $colour(Action) -ti2 $1 * $pst($me,$1) $2-
multiprivdescribe=echo $colour(Action) -tai2 $sc(-) $+ > [[ $+ $sc(act) $+ $u($chr(40)) $+ $hc($gettok($1,%i.describe,44)) $+ $u($chr(41)) $+ ]] * $me $2-

privdescribe=echo $colour(Action) -tai2 $sc(-) $+ > [[ $+ $sc(act) $+ $u($chr(40)) $+ $hc($1) $+ $u($chr(41)) $+ ]] * $me $2-
action=echo $colour(Action) -tai2 * $pst($me,$chan) $1-
ctcp=$sc(-) $+ > [[ $+ $sc(ctcp) $+ $u($chr(40)) $+ $hc($1) $+ $u($chr(41)) $+ ]] $upper($2) $3-
channotice=echo $colour(Notice) -ti2 $1 - $+ $pst($me,$1) $+ : $+ $1 $+ - $2-
multichannotice=echo $colour(Notice) -ti2 $gettok($1,%i.notice,44) - $+ $pst($me,$gettok($1,%i.notice,44)) $+ : $+ $gettok($1,%i.notice,44) $+ - $2-

notice=$sc(-) $+ > [[ $+ $sc(not) $+ $u($chr(40)) $+ $hc($1) $+ $u($chr(41)) $+ ]] $2-
multinotice=$sc(-) $+ > [[ $+ $sc(not) $+ $u($chr(40)) $+ $hc($gettok($1,%i.notice,44)) $+ $u($chr(41)) $+ ]] $2-
lmsg=$u([) $+ $sc(msg) $+ ( $+ $ac(Selected Nicks) $+ ) $+ $u(]) $1-
lnotice=$u([) $+ $sc(not) $+ ( $+ $ac(Selected Nicks) $+ ) $+ $u(]) $1-
shownicktext=< $+ $nick $+ : $+ $sc($chan) $+ > %tmp
shownickaction=* $nick $+ : $+ $sc($chan) %tmp
invite=Invited $hc($1) to $hc($2) at $hc($atime) $+ .

back=yOU aRE nOW bACK!
away=yOU aRE nOW aWAY, sO lEAVE tHE gATdAMN kEYBOARD!
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 is back! $+ %tmp.back $+ .*. $+ gone for $+ $b(:) $+ $gone $+ $u

[nickcolors]
shitted=04
user=01
protected=01
voice=01
halfop=01
op=01
bot=01
master=01
owner=01

[mIRCcolours]
action=01
ctcp=01
highlight=06
info=01
info2=01
invite=01
join=01
kick=06
mode=01
nick=01
normal=02
notice=07
notify=07
other=02
own=01
part=01
quit=01
topic=06
wallops=06
whois=01
editbox=01
listbox=01
editbg=0
listbg=0
background=0

[mIRC]
action=echo $colour(Action) -ti2 $chan * $pst($nick,$chan) $1-

ban=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: +b $banmask
ctcp=CTCP $hc($1) $sc(rEQUEST) by $u($hc($nick)) at $hc($atime) $+ $cpms($2-)
pwctcp1=CTCP $hc($1) $sc(rEQUEST) bY $u($hc($nick)) at $hc($atime) $+ $cpms($str(*,$len($2))) $3-
pwctcp2=CTCP $hc($1) $sc(rEQUEST) bY $u($hc($nick)) at $hc($atime) $+ $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 $u($hc($nick)) $+ : $2-

ctcppingreply=CTCP $hc(PING) $sc(reply) fROM $u($hc($nick)) $+ : $iduration(%pt)
ctcppingreply0=CTCP $hc(PING) $sc(reply) fROM $u($hc($nick)) $+ : 0 sECONDS
dehelp=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: -h $hnick
deop=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: -o $opnick
devoice=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: -v $vnick
help=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: +h $hnick
invite1=echo $colour(Invite) -tsi2 *** $nick ( $+ $address $+ ) iNViTES yOU tO $chan

invite2=echo $colour(Invite) -tai2 *** $nick ( $+ $address $+ ) iNViTES yOU tO $chan
joined=echo $colour(Join) -ti2 $chan .----KiCKiNG-aSS-iN- $chan -- --- --  -    -
join1=echo $colour(Join) -ti2 $chan *** $nick ( $+ $address $+ ) jOiNEd $chan
join2=echo $colour(Join) -ti2 $chan *** jOiNS: $nick ( $+ $address $+ )
kick=echo $colour(Kick) -ti2 $chan *** $knick wAS KiCKEd bY $nick ( $+ $1- $+ $o $+ )
kickme=echo $colour(Kick) -ti2 $chan *** yOU wERE KiCKEd bY $nick ( $+ $1- $+ $o $+ )

kickrejoin=echo $colour(Info) -i2 $chan *** aTEEMPTiNG tO rEJOiN...
mode=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: $1-
nick=echo $colour(Nick) -ti2 $comchan($newnick,%i) *** $nick iS nOW kNOWN aS $newnick
notice=echo $colour(Notice) -ti2 $chan - $+ $pst($nick,$chan) $+ : $+ $chan $+ - $1-
op=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: +o $opnick
part1=echo $colour(Part) -ti2 $chan *** $nick ( $+ $address $+ ) pARTEd $chan $paren($1-)
part2=echo $colour(Part) -ti2 $chan *** pARTS: $nick ( $+ $address $+ ) $paren($1-)

quit1=echo $colour(Quit) -ti2 $comchan($nick,%i) *** $nick hAS lEFT iRC $paren($1-)
quit2=echo $colour(Quit) -ti2 $comchan($nick,%i) *** qUiTS: $nick $paren($1-)
servermode=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: $1-
serverop=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: +o $opnick
servernotice1=echo $colour(Notice) -tsi2 $sc(-) $+ $hc($nick) $+ $sc(-) $1-
servernotice2=echo $colour(Notice) -tai2 $sc(-) $+ $hc($nick) $+ $sc(-) $1-
text=echo $colour(Normal) -ti2 $chan < $+ $pst($nick,$chan) $+ > $1-

topic=echo $colour(Topic) -ti2 $chan *** $pst($nick,$chan) rEBUiLDS tOPiC tO ' $+ $1- $+ $o $+ '
unban=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: -b $banmask
usermode=echo $colour(Mode) -tsi2 *** $me sETS mODE: $1-
voice=echo $colour(Mode) -ti2 $chan *** $nick sETS mODE: +v $vnick
wallops1=echo $colour(Wallops) -tsi2 $sc(!) $+ $hc($nick) $+ $sc(!) $1-
wallops2=echo $colour(Wallops) -tai2 $sc(!) $+ $hc($nick) $+ $sc(!) $1-

[nicklist]
top=$lfix(3,.) $+ $str(-,15) $+ . $+ $str(-,15) $+ . $+ $str(-,15) $+ . $+ $str(-,15) $+ .

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
namecount=4
bottom=$lfix(3,') $+ $str(-,15) $+ ' $+ $str(-,15) $+ ' $+ $str(-,15) $+ ' $+ $str(-,15) $+ '
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= .---LiGHT-dEZiGN-wHOiS---- ---  --   -     -
address= : $b($sc($2)) : $+ $3 $+ $hc(@) $+ $o $+ $4 $+
name= : $hc($addtok($b(r),EAL nAME,0)) $sc(:) $6-
chan= : $($vl) $hc($addtok($b(c),HANNELS,0)) $sc(:) $3-
server= : $($vl) $hc($addtok($b(s),ERVER,0)) $sc(:) $3
away= :  $hc($addtok($b(a),WAY,0)) $sc(:) $3-
$
ircop= : $($vl) $hc($addtok($b(i),rcop,0)) $+ $sc(:) umm... yeah!
idle= : $($vl) $hc($addtok($b(i),dle,0)) $sc(:) $duration($3-)
bottom='--------------eND-OF-WHOiS------------- ---  --   -     -       -

[cwhois]
top= .---LiGHT-dEZiGN-wHOiS---- ---  --   -     -
address= : $b($sc($2)) : $+ $3 $+ $hc(@) $+ $o $+ $4 $+
name= : $hc($addtok($b(r),EAL nAME,0)) $sc(:) $6-
chan= : $($vl) $hc($addtok($b(c),HANNELS,0)) $sc(:) $3-
server= : $($vl) $hc($addtok($b(s),ERVER,0)) $sc(:) $3
away= :  $hc($addtok($b(a),WAY,0)) $sc(:) $3-
$
ircop= : $($vl) $hc($addtok($b(i),rcop,0)) $+ $sc(:) umm... yeah!
idle= : $($vl) $hc($addtok($b(i),dle,0)) $sc(:) $duration($3-)
bottom='--------------eND-OF-WHOiS------------- ---  --   -     -       -

[whowas]
top= .---LiGHT-dEZiGN-wHOwAS---- ---  --   -     -
address=: $b($sc($2)) $u($chr(40)) $+ $3 $+ $hc(@) $+ $o $+ $4 $+ $u($chr(41))
name=: $hc( [ [ $b(n) ] $+ AME ] ) $sc(:) $6-
server=: $hc( [ [ $b(s) ] $+ ERVER ] ) $sc(:) $3
last=: $hc( [ [ $b(l) ] $+ AST ] ) $sc(:) $4-
bottom='--------------eND-OF-WHOwAS------------- ---  --   -     -       -

[cwhowas]

top= .---LiGHT-dEZiGN-wHOwAS---- ---  --   -     -
address=: $b($sc($2)) $u($chr(40)) $+ $3 $+ $hc(@) $+ $o $+ $4 $+ $u($chr(41))
name=: $hc( [ [ $b(n) ] $+ AME ] ) $sc(:) $6-
server=: $hc( [ [ $b(s) ] $+ ERVER ] ) $sc(:) $3
last=: $hc( [ [ $b(l) ] $+ AST ] ) $sc(:) $4-
bottom='--------------eND-OF-WHOwAS------------- ---  --   -     -       -

[nickcomp]
styles=default,n1,n2,n3,n4,n5
default=%nlb $+ $1 $+ %nrb
n1=$b $+ $iif($len($1) > 1,$left($1,1)) $+ $b $+ $mid($1,2,$sub($len($1),2)) $+ $u $+ $right($1,1) $+ $u $+ $b(:)
n2=$b $+ $iif($len($1) > 1,$left($1,1)) $+ $b $+ $u $+ $mid($1,2,$sub($len($1),2)) $+ $u $+ $b $+ $right($1,1) $+ $b -

n3=$lower($replace($u($1),q,$u(q),y,$u(y),p,$u(p),g,$u(g),j,$u(j)))
n4=$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 $+ :
n5=$lower($replace($u($left($1,1)),q,$under(q),y,$under(y),p,$under(p),g,$under(g),j,$under(j))) $+ $lower($replace($under($bd($mid($1,2,1))),q,$under(q),y,$under(y),p,$under(p),g,$under(g),j,$under(j))) $+ $lower($replace($under($mid($1,3,$sub($len($1),2))),q,$under(q),y,$under(y),p,$under(p),g,$under(g),j,$under(j)))