' Show current playing song as the mood mood in Skype.
' Skype must be running before using this script.
'
' Author: Yuri Pimenov / up at fs_lv / http://blog.gate.lv
 
Set oSkype = CreateObject( "Skype4COM.Skype" )
savedMood = oSkype.CurrentUserProfile.MoodText
 
'// Start the Skype client if not running
'If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If
 
Sub SkypeUpdateMood( newMood )
    '// Create a Skype4COM object:
    Set oSkype = CreateObject( "Skype4COM.Skype" )
    oSkype.CurrentUserProfile.MoodText = newMood + newState
End Sub
 
Function WinampGetTrack
    Set mi = PlayList( PlayList.position )
    WinampGetTrack = "Current track: " + mi.ATFString( "%artist% - %title%" )
End Function
 
Sub Application_ChangedTrack
    SkypeUpdateMood( WinampGetTrack )
End Sub
 
Sub Application_ChangedStatus
    stateTxt = WinampGetTrack
 
    If ( PlayState = 0 ) then
        stateTxt = savedMood
    else
        stateTxt = stateTxt + " [Paused]"
    End If
 
    SkypeUpdateMood( stateTxt )
End Sub