View source for Sample Auto-DJ script

This script demonstrates how to plug-in a script that manages how Auto-DJ works.

<source lang="vb">
' Sample AutoDJ script
'
' This script demonstrates how to plug-in a script that manages how Auto-DJ works.
'
' [AutoDJSample]
' FileName=AutoDJSample.vbs
' DisplayName=AutoDJ Sample Plug-in
' Language=VBScript
' ScriptType=4


' This procedure is called when this script should show some UI on Options Panel (note that it's about a very small 
' panel to be shown, more details should be configured in a separate window)
' Panel = Panel where script can place its controls
Sub InitConfigSheet( Panel)
  ' TBD: Add some UI, mainly a button that would open another dialog with more controls for setting parameters of this AutoDJ.
End Sub


' This procedure is called when this script should remove its UI from Options Panel.
' Panel = Panel where UI controls were previously placed by the script
' SaveConfig = Whether user pressed Ok and values in the dialog should be applied and saved (to registry, ini file, or so)
Sub CloseConfigSheet( Panel, SaveConfig)
  ' TBD: Save values to Registry, apply them to our internal variables.
End Sub


' This function prepares a new track to be added to Now Playing queue
Function GenerateNewTrack
  ' This example only takes a random track from DB
  Set Iter = SDB.Database.OpenSQL( "SELECT ID FROM Songs ORDER BY random(*)")
  ID = Iter.ValueByIndex(0)
  Set Iter = SDB.Database.QuerySongs( "ID=" & ID)
  Set GenerateNewTrack = Iter.Item
End Function
</source>