Heres the changes Iv made so that it shows web msn clients with (WebMsn) before there nick names so that you know who is using it.
open "abook.tcl"
Find
set nick [::abook::getNick $user_login]
Replace with
if { [::abook::getContactData $user_login client] == "Webmessenger" } {
set nick "(WebMSN) [::abook::getNick $user_login]"
} else {
set nick [::abook::getNick $user_login]
}
Save and exit.
###########################################################################################################
Heres some more If you want it to change there DP to one that says web messanger, heres the code for that.
Open "skins.tcl"
Find
set picName displaypicture_std_$email
Add below
if { [::abook::getContactData $email client] == "Webmessenger" } {
set file [::skin::GetSkinFile displaypic webmsn.gif]
image create photo $picName -file "$file" -format cximage
return $picName
}
Find
set picName displaypicture_tny_$email
Add below
if { [::abook::getContactData $email client] == "Webmessenger" } {
set file [::skin::GetSkinFile displaypic webmsn.gif]
image create photo $picName -file "$file" -format cximage
::picture::ResizeWithRatio $picName $height $height
return $picName
}
Save and exit
Dont know what versions it works on but i guess the top half should work on all amsn versions that have DPs and the bottom half the ones that support showing there DPs in the contact list. Iv only tryed it on 0.97b
Well heres the image that i used

Put that in the displaypic folder of each of the skins that you use.
######################################################################################
Something else you might be interested in is adding a option to showing what client people are useing before there name, Not just limited to webmsn.
This will add a option to the advance tab in the preferences of amsn to enable or disable showing of them.
Open "abook.tcl"
Find
set nick [::abook::getNick $user_login]
!!!!!!!!!!! If you havent done done the changes above replace it with !!!!!!!!!!!
if { [::config::getKey showclient] == 1 } {
set nick "([::abook::getContactData $user_login client]) [::abook::getNick $user_login]"
} else {
set nick [::abook::getNick $user_login]
}
!!!!!!!!!!! If you have done the changes above replace the changes and it with !!!!!!!!!!!
if { [::abook::getContactData $user_login client] == "Webmessenger" } {
set nick "(WebMSN) [::abook::getNick $user_login]"
} elseif { [::config::getKey showclient] == 1 } {
set nick "([::abook::getContactData $user_login client]) [::abook::getNick $user_login]"
} else {
set nick [::abook::getNick $user_login]
}
Save and exit
Open "config.tcl"
Find
::config::setKey globaloverride 0
Add below
::config::setKey showclient 0 ;
Find
[list local globaloverride bool globaloverride ] \
Add below
[list local showclient bool showclient ] \
Save and exit
Open your lang file
For example mine is "langen"
Find
showcontactemail Show Contacts with E-mail
Add above
showclient Show client tag before nick
Save and exit
Rember to change it on every lang that you use.