Hi, yes I realized too late that there was music plugin. However this is a little different, because modifies personal message (aMSN 0.96 or greater) and not nickname.
Here's the code (open source rulez asd ):
[plugininfo.xml]
<?xml version="1.0"?>
<plugin>
<name>aMSNamaroK</name>
<author>Ala nou alé & v0n0</author>
<description>This plugin adds functionality for users of amaroK and aMSN</description>
<amsn_version>0.96</amsn_version>
<plugin_version>1.0</plugin_version>
<plugin_file>amsnamarok.tcl</plugin_file>
<plugin_namespace>aMSNamaroK</plugin_namespace>
<init_procedure>Init</init_procedure>
</plugin>
[amsnamarok.tcl]
#!/usr/bin/tclsh
# Description: Plugin pour afficher dans l'espace PSM
# Il faut d'abord commencer par échanger des messages
# avant que le plugin ne fonctionne. Mais bon,
# chacun peut ajuster le comportement à sa guise.
namespace eval ::aMSNamaroK {
# var globale
set oldTitre "oldTitre"
proc Init { dir } {
::plugins::RegisterPlugin "aMSNamaroK"
#::config::setKey amarokpluginpath $dir unused
::plugins::RegisterEvent "aMSNamaroK" new_conversation received
::plugins::RegisterEvent "aMSNamaroK" OnDisconnect resetStatus
::plugins::RegisterEvent "aMSNamaroK" Unload resetStatus
}
proc received { event evpar } {
# récupérer le titre, l'artiste ssi amaroK fonctionne
if {[catch {exec dcop amarok player title} errmsg]} {
set titre "Silence in my room...:("
set artiste ""
set strPrefix ""
set strDe ""
set apex ""
set apex2 ""
set strDe2 ""
set album ""
set apex3 ""
} else {
set titre [exec dcop amarok player title]
set artiste [exec dcop amarok player artist]
#set cover [exec dcop amarok player coverImage]
set strPrefix "(8) Listening to: "
set strDe " of "
set apex "\""
set apex2 "\""
set strDe2 " from "
set album [exec dcop amarok player album]
set apex3 "\""
}
global aMSNamaroK::oldTitre
# n'afficher le titre que si celui-ci à changé
#amarok stopped
set empty ""
if { [string compare $empty $titre] == 0 } {
set titre "Silence in my room...:("
set artiste ""
set strPrefix ""
set strDe ""
set apex ""
set apex2 ""
set strDe2 ""
set album ""
set apex3 ""
}
#no mp3 tag
if { [string compare $empty $artiste] == 0 } {
set strDe ""
set apex2 ""
set strDe2 ""
set album ""
set apex3 ""
}
if { [string compare $empty $album] == 0 } {
set strDe2 ""
set apex3 ""
}
#all ok, change state
if { [string compare $oldTitre $titre] != 0 } {
set oldTitre $titre
set txt $strPrefix$apex$titre$apex$strDe$apex2$artiste$apex2$strDe2$apex3$album$apex3
# afficher le changement dans chaque fenêtre ouverte
#foreach chatid [::ChatWindow::getAllChatIds] {
# SendMessageFIFO command stack lock
#SendMessageFIFO [list ::aMSNamaroK::writeMessageToGUI $chatid $txt]
# "::amsn::messages_stack($chatid)" "::amsn::messages_flushing($chatid)"
#::amsn::set_displaypic $cover
#}
::MSN::changePSM "$txt"; # echange le message personnel
}
# après 35 secondes rafraîchir
after 1000 ::aMSNamaroK::received $event $evpar
}
#TOO INVASIVE
# écrire le message $txt dans la fenêtre $chatid
#proc writeMessageToGUI { chatid txt } {
# set color "green"
# amsn::WinWrite $chatid "\n" $color
# amsn::WinWriteIcon $chatid greyline 3
# amsn::WinWrite $chatid "\n" $color
# amsn::WinWrite $chatid "[timestamp] $txt\n" $color
# amsn::WinWriteIcon $chatid greyline 3
#}
proc resetStatus {} {
set titre "Silence in my room...:("
set artiste ""
set strPrefix ""
set strDe ""
set apex ""
set apex2 ""
set strDe2 ""
set album ""
set apex3 ""
set txt $strPrefix$apex$titre$apex$strDe$apex2$artiste$apex2$strDe2$apex3$album$apex3
::MSN::changePSM "$txt"; #
}
}
Show Posts
if you think about FIrefox's XUL ; btw the amsn dev guys DO have a point: they already know well tcl and lerarning python or ruby or whatever would mean spending a lot of time... 
