* Create and save as → startup_Simple Disk Jockey.vbs * This Script will announce the title ,artist at each track change

• useing the id3 tags of the file.

* You may start the start the code at Dimm TTS, if you don’t like/have “Kick Llama xxx” demo mp3.

• (It only plays demo.mp3 when the play list is empty on startup.)

‘

‘

' This Script has been Made by Morris Hanson, mrrrhanson yahoo.com
'----
 If PlayList.Count=0 then
	Set d = LoadItem("C:\Program Files\Winamp\demo.mp3")
	d.Enqueue
	Play
 End If
'-----
 
 Dim TTS : Set TTS = Createobject("sapi.spvoice")
 
'##############################
 Sub Application_ChangedTrack()
'##############################
 If PlayState=1 then Pause()
'TTS.speak (PlayList(PlayList.Position).ATFString("%title% by %artist%"))
 TTS.speak (PlayList(PlayList.Position).ATFString("[$if2(%title%,$filepart(%filename%))] [$if2(by %artist%,a %album%)]"))
 Pause
'#######
 End Sub
'#######
 
 
'#############################
 Sub Application_PlaybackEOF()
'#############################
 If PlayList.Count=PlayList.Position then 
 TTS.Speak "Hey. My Play List has Finished."
 Else 
 If PlayState=1 then Pause()
 End If
'#######
 End Sub
'#######