# XChat-AmaroK script by Fl0w3D - Source originale : SIYB
# Script sous licence GNU/GPL - Modifications et redistributions autorisées

##### Configuration

# L'alias pour appeler le script
set ::config(alias) "np"


#### Code

proc getsong {} {
   set ::info(nowplaying) [exec dcop amarok player nowPlaying]
   set ::info(artist)  [exec dcop amarok player artist]
   if {[exec dcop amarok player album] !=  ""} {
      set ::info(album)  04(14[exec dcop amarok player album]04)
   }
   if {[exec dcop amarok player album] ==  ""} {
      set ::info(album)  ""
   }
   set ::info(title)  [exec dcop amarok player title]
   set ::info(track)  [exec dcop amarok player track]
   set ::info(time) [exec dcop amarok player totalTime]
   set ::info(ctime) [exec dcop amarok player currentTime]
   set ::info(bitrate) [exec dcop amarok player bitrate]
   set ::info(path) [exec dcop amarok player path]
   set ::info(playCount) [exec dcop amarok player trackPlayCounter]
   set ::info(note) [exec dcop amarok player rating]

   # Vérification de l'état du lecteur
   if {$::info(nowplaying) ==  "call failed"} {
      print "Amarok n'est pas lancé.."
      return
   }

   ###  "Skins"

   set d(1) "$::info(artist) - $::info(title) $::info(album) \[$::info(ctime)/$::info(time)\] \[$::info(bitrate) kbps\]"
   set ::config(format) "$d(1)"
}

alias $config(alias) {
   getsong
   /say $::config(format)
   complete
}

 \[Écouté $::info(playCount) fois - Noté $::info(note)/10\]