$if($stricmp($left(%_playlist_name%,3),-s-),$puts(albummode,0))

$puts(color_text,000000|FFFFFF)
$puts(color_1,FF0000|FFFFFF)
$puts(color_2,408000|FFFFFF)
$puts(color_3,C08000|FFFFFF)

$get(color_text)

$if(%album%,

// formatiing for albums

$select(%tracknumber%,$repeat('-',999),
$get(color_1)$char(32)$char(32)%artist%,
$get(color_2)$char(32)$char(32)%album%)

$tab(1)

$get(color_3)$pad_right($num(%tracknumber%,2).,4, )
$get(color_2)$char(32)$char(32)%title%
$select(%tracknumber%,$get(color_text)$char(32)$repeat('-',999))

$tab(2)
$get(color_3)$pad_right(%_length%,7, )  ,

// formatting for other stuff

$get(color_3)$pad_right($num(%_playlist_number%,2).,5, )
$get(color_2)$char(32)$char(32)$if(%title%,%title%,%_filename_ext%)

$tab(2)
$if(%_length%,$get(color_3)$pad_right(%_length%,7, ),)  

)

Artist / Album - Tracknumber - Title

Album / Artist - Tracknumber - Title

[B]artist           tracknumber        bitrate[/B]
 a-ha                   01                 128
 a-ha                   02                 128

$muldiv(%__bitrate%,100,1411)

$puts(ratio,$muldiv(%__bitrate%,1000,1411))
$div($get(ratio),10)'.'$mod($get(ratio),10)

track1 (album1)
track2 (album1)
track3 (album1)
track4 (album1)
  track5 (album1) <-NOW PLAYING
track1 (album2)
track2 (album2)
track3 (album2)
track4 (album2)
track5 (album2)

  track1 (album1)
  track2 (album1)
  track3 (album1)
  track4 (album1)
  track5 (album1) <-NOW PLAYING
track1 (album2)
track2 (album2)
track3 (album2)
track4 (album2)
track5 (album2)

//    COLOUR VARIABLES

// colour_bg:     background
// colour_grid:   grid
// colour_num:    play-list number / track number / time
// color_artist:  artist
// colour_album:  album
// colour_tech:   tech. information / date
// colour_title:  title
// colour_ind:    playing indicator (NOT USED)
// colour_file:   file name
// colour_dir:    directory
// colour_va:     artist on various-artist album




//    SET COLOURS

$puts(colour_bg,804000|A85400)
$puts(colour_grid,AA9E9A|AA9E9A)
// $puts(colour_num,474141|474141)
$puts(colour_artist,000000|000000)
$puts(colour_album,5D5D5D|5D5D5D)
// $puts(color_con,AA9E9A|AA9E9A)
$puts(colour_tech,AA9E9A|AA9E9A)
$puts(colour_title,$if(%_isplaying%,000000|000000,A36852|A36852))
// $puts(colour_ind,$if(%_isplaying%,000000|000000,000000|000000))
$puts(colour_file,$if(%_isplaying%,FFFFFF|FFFFFF,C08080|B5804A))
$puts(colour_dir,81460C|81460C)
// $puts(colour_va,$if(%_isplaying%,FFFFFF|FFFFFF,FF8855|FF8855))
$puts(colour_num,$if(%_isplaying%,000000|000000,AA9E9A|AA9E9A))
// $puts(color_rpg,AE5700|804000)




//    SET COLUMN WIDTHS

$puts(column_1,2)
$puts(column_2,6)
$puts(column_3,50)
$puts(column_4,100)
$puts(column_5,30)




//    GET VORBIS QUALITY INFORMATION
$puts(v_ogg_qset,$if($strcmp(%__bitrate_nominal%,80),1.0)
$if($strcmp(%__bitrate_nominal%,88),1.5)$if($strcmp(%__bitrate_nominal%,96),2.0)
$if($strcmp(%__bitrate_nominal%,104),2.5)$if($strcmp(%__bitrate_nominal%,112),3.0)
$if($strcmp(%__bitrate_nominal%,120),3.5)$if($strcmp(%__bitrate_nominal%,128),4.0)
$if($strcmp(%__bitrate_nominal%,144),4.5)$if($strcmp(%__bitrate_nominal%,160),5.0)
$if($strcmp(%__bitrate_nominal%,176),5.5)$if($strcmp(%__bitrate_nominal%,192),6.0)
$if($strcmp(%__bitrate_nominal%,208),6.5)$if($strcmp(%__bitrate_nominal%,224),7.0)
$if($strcmp(%__bitrate_nominal%,240),7.5)$if($strcmp(%__bitrate_nominal%,256),8.0)
$if($strcmp(%__bitrate_nominal%,288),8.5)$if($strcmp(%__bitrate_nominal%,320),9.0)
$if($strcmp(%__bitrate_nominal%,410),9.5)$if($strcmp(%__bitrate_nominal%,499),10.0))




' '



// { -------- }

$if(%artist%,



//    FIRST TRACK (GRID)

$if($strcmp($num(%tracknumber%,1),1),$get(colour_grid)$repeat('?',100),)


//    SECOND TRACK (ARTIST)

$if($strcmp($num(%tracknumber%,1),2),
$iflonger(%artist%,50,$get(colour_artist) $cut(%artist%,50)...,
$get(colour_artist) %artist%))


//    THIRD TRACK (ALBUM)

$if($strcmp($num(%tracknumber%,1),3),
$iflonger(%album%,50,$get(colour_album) $cut(%album%,50)...
$if($strstr(%_directoryname%,disc 0),
$get(colour_tech)' ('%_directoryname%')',),
$get(colour_album) %album%
$if($strstr(%_directoryname%,disc 0),
$get(colour_tech)' ('%_directoryname%')',)))


//    FOURTH TRACK (DATE)

$if($stricmp($num(%tracknumber%,1),4),$get(colour_tech) [%date%],)


//    FIFTH TRACK (CODEC INFORMATION)

//        MP3
$if($stricmp($info(codec),mp3),
$puts(v_codec,$info(codec):)
$puts(v_compression,$if($stricmp(%__extrainfo%,vbr),VBR,%__bitrate% kbps)),)

//        VORBIS
$if($stricmp($info(codec),vorbis),
$puts(v_codec,$info(codec):)
$iflonger($get(v_ogg_qset),1,
$puts(v_compression,-q $get(v_ogg_qset) $char(40)
%__bitrate_nominal% kbps nominal$char(41)),
$puts(v_compression,%__bitrate_nominal% kbps nominal)),)

//        AAC
$if($stricmp($info(codec),AAC),
$puts(v_codec,$info(codec))
$puts(v_compression,%__bitrate%kbps),)

//        FLAC
$if($stricmp($info(codec),FLAC),
$puts(v_codec,$info(codec)),)

//        APE
$if($stricmp($info(codec),monkey''s audio),
$puts(v_codec,$info(codec))
$puts(v_version,$info(version))
$puts(v_compression,$caps($info(compression))),)

//        MPC
$if($stricmp($info(codec),musepack),
$puts(v_codec,$caps($info(codec)))
$puts(v_version,$info(mpc_encoder))
$puts(v_compression,$info(mpc_profile)))

//       DISPLAY IT
$if($strcmp($num(%tracknumber%,1),5),
$get(colour_tech) $get(v_codec)[' '$get(v_version)]
[' '$get(v_compression)],),)

// { -------- }




//    IF THERE'S NO TRACK NUMBER...

$if($not(%tracknumber%),
// 1

$if($and(%artist%,%title%),
// 2

$get(colour_artist)' '

$puts(no_track,%artist%[  $get(colour_grid)-  $get(colour_album)
%album%]$if($strstr(%_directoryname%,disc 0),
$get(colour_tech)' ('%_directoryname%')',))

$iflonger($get(no_track),80,$cut($get(no_track),80)...,$get(no_track))))

$repeat($char(9),$get(column_3))




//    TRACK NUMBER

$char(32)$get(colour_bg)
$if(%artist%,
$if(%tracknumber%,
$get(colour_num)$pad_right(%tracknumber%,2,' '),$get(colour_num)--),)
$if(%artist%,$get(colour_num)') ',)




//    TITLE

$iflonger(%title%,90,$get(colour_title)$cut(%title%,90)...,
$get(colour_title)%title%)

$if(%artist%,
$if($strcmp($num(%tracknumber%,1),1),
$get(colour_grid)' '$repeat('?',100),),$get(colour_file)%_filename_ext%)

$repeat($char(9),$get(column_4))




//    TIME

$get(colour_num)$pad_right(%_length%,5,0)' '

$if(%title%,
$puts(maxlen,38)
$puts(actlen,$add($len(%artist%),$len(%album%),$len(%title%)))
$puts(artist,%artist%)
$puts(lr,$len(%artist%))
$puts(album,%album%)
$puts(ll,$len(%album%))
$puts(title,%title%)
$puts(lt,$len(%title%))

//If the entry needs to be abbreviated...
$if($greater($get(actlen),$get(maxlen)),

//Abbreviate everything based on a weighted system of what I'd rather see.
//Artist
$puts(tl,$muldiv($get(ll),4,3))
$puts(tt,$muldiv($get(lt),3,4))
$if(
$and(
$greater(
$get(lr),
$get(tl)
),
$not(
$greater(
$get(tt),
$get(lr))
)
),
$puts(artist,$abbr(%artist%))
$puts(abbed,artist)
)

//Album
$puts(t1,$muldiv($get(lr),3,4))

$if(
$and(
$not($greater(
$get(t1),
$get(ll)
)),
$not($greater(
$get(tt),
$get(ll)
))
),
$puts(album,$abbr(%album%))
$puts(abbed,album)
)

//Title
$puts(t1,$muldiv($get(lr),4,3))
$if(
$and(
$greater(
$get(lt),
$get(t1)
),
$greater(
$get(lt),
$get(tl)
)),
$puts(title,$abbr(%title%))
$puts(abbed,title)
)
)

//Further abbreviate if it's still too long
$puts(actlen,$add($len($get(artist)),$len($get(album)),$len($get(title))))
$if($greater($get(actlen),$get(maxlen)),

//If the artist was abbreviated
$if($strcmp($get(abbed),artist),
$if(
$greater(
$get(lt),
$muldiv($get(la),3,2)
),
$puts(title,$abbr(%title%)),
$puts(album,$abbr(%album%))
)
)

//If the album was abbreviated
$if($strcmp($get(abbed),album),
$if(
$greater(
$get(lt),
$muldiv($get(lr),4,3)
),
$puts(title,$abbr(%title%)),
$puts(artist,$abbr(%artist%))
)
)

//If the title was abbreviated
$if($strcmp($get(abbed),title),
$if(
$greater(
$get(lr),
$muldiv($get(ll),4,3)
),
$puts(artist,$abbr(%artist%)),
$puts(album,$abbr(%album%))
)
)

)

//Highlight the entry if it's playing
$if(%_isplaying%,FF0000)
%_playlist_number%:

//Show the info
$get(artist) /
$get(album)
'('$num(%tracknumber%,)')' -
$get(title)

//If some idiot forgot metatags, just display the filename.
,%_filename_ext%)

$char(9)
//Show the song length and a play/paused icon
$if(%_isplaying%,FF0000|$if(%_ispaused%,'|','>') )%_length%

font: Lucida Console 8
bgcolor: 0,0,0
selection color: 25,25,25
item frame: 116,116,116

//       FONT:
//  font: Lucida Console 8

//       COLOURS THAT I PREFER:
//  bgcolor: 0,0,0              (black, eventually dark blue)
//  selection color: 25,25,25   (dark grey)
//  item frame: 116,116,116     (medium grey)



//     white
$puts(white,ffffff|ffffff)
//     black
$puts(black,000000|000000)
//     light grey
$puts(l_grey,D3D3D3|D3D3D3)
//     medium grey
$puts(m_grey,A2A2A2|A2A2A2)
//     dark grey
$puts(d_grey,5F5F5F|5F5F5F)
//     red
$puts(red,0500CE|0500CE)
//     dark red
$puts(d_red,03006A|03006A)



//////////////////PLAYLIST NUMBER/////////////////
$get(d_grey)
$repeat(0,$sub(4,$len2(%_playlist_number%)))
$if(%_isplaying%,$get(l_grey),$get(m_grey))%_playlist_number%



/////////////// tracknumber IF then: <normal mode>
$if(%tracknumber%,
 
$if($strcmp($num(%tracknumber%,1),1),$get(red)┼──,   )






/////////////// artist in normal mode on 1st track
$if($strcmp($num(%tracknumber%,1),1),
$get(red)╥┤ $get(white)$if(%artist%,$caps($replace(%artist%,_, )),$get(m_grey)'No '$get(white)'ARTIST '$get(m_grey)'tag...') $get(red)├$repeat(─,$sub(34,$len(%artist%)))
$if(%date%,┬,─)─────╥──
,)



/////////////// album\\date in normal mode on 2nd track
$if($strcmp($num(%tracknumber%,1),2),
$get(red)╟────┤ $get(m_grey)
$puts(album,$if(%album%,$caps($replace(%album%,_, )),$get(m_grey)'No '$get(white)'ALBUM '$get(m_grey)'tag...'))
$get(album)  
$if(%date%,$get(red)
$pad_right(└┤$get(m_grey)%date%,
$sub(53,$len($get(album))))
$get(red)║,

$pad_right($get(red)║,
$sub(53,$len($get(album))))
)
,)



/////////////// 3rd track
$if($strcmp($num(%tracknumber%,1),3),
$get(red)║ $get(m_grey)$pad_right($get(red)║,60))



/////////////// info in normal mode on 4th track
$if($strcmp($num(%tracknumber%,1),4),
$get(red)╙──
┤
$if(%genre%, $get(d_grey)$caps(%genre%) $get(red)│,)
$get(d_grey)
%__bitrate%kpbs
$get(red)│$get(d_grey)
$caps($ext(%_path%))

$get(red)├$repeat(─,
$sub(29,
$add(
$if(%genre%,$add($len(%genre%),3),),
$len(%__bitrate%),1)))
╜


,)



/////////////// vertical line in normal mode
// $ifgreater(%tracknumber%,4,$get(red)│,)





$tab(7)

$get(red)
$if($strcmp($num(%tracknumber%,1),1),
┼,├)


/////////////// tracknumber
$if(%_isplaying%,$get(l_grey),
$if($strcmp($num(%tracknumber%,1),1),$get(m_grey),$get(d_grey)))
$num(%tracknumber%,2)

$get(red)
$if($strcmp($num(%tracknumber%,1),1),
┼─
$if(%_isplaying%,──,)
─┤
,┤  )

$if(%_isplaying%,
$transition($repeat(>,2) ,$get(d_red),$get(red)),)


/////////////// title
$if(%_isplaying%,$get(white),$get(m_grey))
$if(%title%,$caps($replace(%title%,_, )),$caps($replace(%_filename_ext%,_, )))


$if($strcmp($num(%tracknumber%,1),1),
$transition(

$if(%_isplaying%,
 $repeat(<,$sub(81,$len($if(%title%,%title%,%_filename_ext%)))),
 $repeat(─,$sub(100,$len(%title%)))
)

,$get(red),$get(black))
,
$transition(
$if(%_isplaying%,
 $repeat(<,$sub(81,$len(%title%))),)
,$get(red),$get(black))
)



$tab(10)

/////////////// tracknumber IF else: <single mode>
,
 $get(red)  ─  



/////////////// artist in single mode
$get(white)$if(%artist%,$caps($replace(%artist%,_, )),$get(m_grey)'No '$get(white)'ARTIST '$get(m_grey)'tag...')

$tab(6)


$get(red)├

/////////////// album in single mode
$get(m_grey)$if(%album%,$caps($replace(%album%,_, )),
'No '$get(white)'ALBUM '$get(m_grey)'tag...')

/////////////// date in single mode
$tab(5)
$get(red)│
$if(%date%,$get(m_grey)%date%,$get(d_grey)----)



/////////////// genre in single mode
$get(red)
$if(%genre%,┤ $get(d_grey)$caps(%genre%),┤)
$get(d_grey)



$tab(5)
/////////////// title
$get(red)├


$if(%_isplaying%,
$transition($repeat(>,3) ,$get(d_red),$get(red)),)



$if(%_isplaying%,$get(white),$get(m_grey))
$if(%title%,$caps($replace(%title%,_, )),$caps($replace(%_filename_ext%,_, )))

$transition(
$if(%_isplaying%,
 $repeat(<,$sub(81,$len($if(%title%,%title%,%_filename_ext%)))),)
,$get(red),$get(black))

$tab(12)
)


$tab(5)
/////////////// length

$if(%_isplaying%,$get(l_grey),$get(m_grey))
$if(%_length%,$pad_right(%_length%,8),)
   

/////////////// bitrate
$if(%_isplaying%,$get(m_grey),$get(d_grey))
$pad_right(%__bitrate%' kbps',8)
   

//[-- A First Letter Highlight String by Dr PerLine --]

//the normal text colour

$puts(normal_colour,FFFFFF|FFFFFF)

//the colour of the first letter in each word

$puts(highlight_colour,0000FF|0000FF)

//add to a title variable

$puts(title,

//place the highlight colour for the first letter

$get(highlight_colour)

//convert the starting letters in the %title% to uppercase

$replace($caps2(%title%),

//replace the uppercase letters and numbers with there values
//plus the normal colour, to terminate the colour from the
//space / beginning of the title

A,A$get(normal_colour),
B,B$get(normal_colour),
C,C$get(normal_colour),
D,D$get(normal_colour),
E,E$get(normal_colour),
F,F$get(normal_colour),
G,G$get(normal_colour),
H,H$get(normal_colour),
I,I$get(normal_colour),
J,J$get(normal_colour),
K,K$get(normal_colour),
L,L$get(normal_colour),
M,M$get(normal_colour),
N,N$get(normal_colour),
O,O$get(normal_colour),
P,P$get(normal_colour),
Q,Q$get(normal_colour),
R,R$get(normal_colour),
S,S$get(normal_colour),
T,T$get(normal_colour),
U,U$get(normal_colour),
V,V$get(normal_colour),
W,W$get(normal_colour),
X,X$get(normal_colour),
Y,Y$get(normal_colour),
Z,Z$get(normal_colour),
0,0$get(normal_colour),
1,1$get(normal_colour),
2,2$get(normal_colour),
3,3$get(normal_colour),
4,4$get(normal_colour),
5,5$get(normal_colour),
6,6$get(normal_colour),
7,7$get(normal_colour),
8,8$get(normal_colour),
9,9$get(normal_colour),

//some special characters, which are handled differently

'(',$get(normal_colour)'('$get(highlight_colour),
.,$get(normal_colour).$get(highlight_colour),

//replace space with space and the highlight colour

' ',' '$get(highlight_colour))
)

//display the complied title
$get(title)

$num(%_playlist_number%,$len(%_playlist_total%)). $if2(%artist% - %title%,%_filename%)
[$char(9)$if(%_isplaying%,'» ')%_length%]

$if($strcmp(%__codec%,Monkey's Audio),$puts(text_extrainfo,%__compression%))
.
.
[$caps2($get(text_extrainfo))]

$if($strcmp(%__codec%,wavpack),$puts(text_extrainfo,%__compression%))
.
.
[$caps2($get(text_extrainfo))]

$puts(Tkoko,$if($greater(%_filesize%,1048576),$num($left($num($muldiv(%_filesize%,100,1048576),6),4),1).$right($muldiv(%_filesize%,100,1048576),2) MB,$num($left($num($muldiv(%_filesize%,100,1024),6),4),1).$right($muldiv(%_filesize%,100,1024),2) kB))
.
.
[<> $get(Tkoko)]

Monkey''s Audio

$puts(color_text,000000|000000)
$puts(color_1,408000|408000)
$puts(color_2,C08000|C08000)
$puts(color_3,AAAAAA|AAAAAA)

$char(32)
$get(color_3)$num(%_playlist_number%,$len(%_playlist_total%)). $get(color_2)$if(%album artist%,%album artist% - ,[%artist% - ])
$get(color_1)$if(%title%,%title%,%_filename_ext%)

$tab(1)
$get(color_2)$if(%_length%, %_length%,)$char(32)

$char(9553)%_time_elapsed%$char(9566)0500CE
$progress(%_time_elapsed_seconds%,%_time_total_seconds%,25,000000$char(9569)$select($add($mod(%_time_elapsed_seconds%,30),1),'<(^-^)v','<(^-^<)','^(^-^<)','^(^-^)^','<(-.-)>',' (>.<) ','<(O.<) ','<(O.O)>','<(o.O)v','v(o.o)v','^(º.o)v','^(º-º)^','v(O.º)^','v(O.o)>','(>o.o)>','(>-.-)^','^(^.^)^','<(^-^)>','v(^.^)v',' (>.<) ','<(o.o)>','<(O.o)>','<(o.O)>','<(O.o)>','<(o.O)>',' (>.<) ','<(º.o)>','<(o.º)>','<(º.o)>','<(º-º)v')$char(9566),0500CE$char(9552))000000$char(9569)%_time_remaining%$char(9553)
DEA368

0600FF'||'000000

$tab(6)
$if(%_ispaused%,000000
$ifgreater(
$len($if(%title%,%title%,%_filename_ext%)),57,
$cut($if(%title%,::/$caps(%title%),::/$caps(%_filename_ext%)),54)'...'/::
, $if(%title%,::/$caps(%title%)/::,::/$caps(%_filename_ext%)/::))

 is  0600FF P   A   U   S   E   D ,


$tab(6)
$if(%artist%,$caps(%artist%),)
$if(%album%,::/$caps(%album%)/,)
$ifgreater($add(
$len(%artist%),
$len(%album%),
$len($if(%title%,%title%,%_filename_ext%)),
6),90,
$cut($if(%title%,::$caps(%title%),::$caps(%_filename_ext%)),
$sub(90,$add(7,$len(%artist%),$len(%album%)))
)'...'
,
$if(%title%,::$caps(%title%),::$caps(%_filename_ext%))
))

$tab(6)
0600FF'||'000000
['['%__bitrate_dynamic%kbps']'
DEA368'/'000000]
%__bitrate%kbps
DEA368'/'000000
%_length%min
DEA368'/'000000
'['$div(%_filesize%,1048576).
$cut($mod(%_filesize%,1048576)00,2)']'MB
DEA368'/'000000
'['$caps($ext(%_path%))']'  
//►◄

ARTIST : $if(%artist%,$caps($replace(%artist%,_, )) ,Unknown) $crlf()
ALBUM : $if(%album%,$caps($replace(%album%,_, )),Unknown)$crlf()

[$caps2(<-%genre%)]
$if($and(%genre%,%date%), | ,$if(%genre%,->,)$if(%date%,<-,))
[%date%]
$if($and(%genre%,%date%),->,$if(%date%,->,))
$if($or(%genre%,%date%),$crlf(),)
TITLE : $if(%tracknumber%,$num(%tracknumber%,2) - ,)
$if(%title%,$caps($replace(%title%,_, )),$caps($replace(%_filename_ext%,_,)))