'Dim SDB
'Set SDB = CreateObject("SongsDB.SDBApplication")

Sub OnStartup
  Dim SetDef
  Set SetDef = SDB.UI.addMenuItem(SDB.UI.Menu_Pop_Tree,1,1)
  SetDef.caption = SDB.Localize("Random track from Playlist")
  SetDef.OnClickFunc = "RandomPlaylistTrack"
  SetDef.useScript = Script.ScriptPath
  SetDef.Hint = "Random Track From Playlist"
End Sub

Sub RandomPlaylistTrack(arg)
  Script.Reload Script.ScriptPath
  Dim res
  If (SDB.MainTree.CurrentNode.NodeType = 61) Or (SDB.MainTree.CurrentNode.NodeType = 71) Then
    Set playlst = SDB.PlaylistByID(SDB.MainTree.CurrentNode.RelatedObjectID)
    Randomize
    Call SDB.Player.PlaylistAddTrack(playlst.tracks.item(Int((playlst.Tracks.Count+1) * Rnd)))
  Else
    res = SDB.MessageBox( "You must select Playlist!", mtError, Array(mbOk))
 End If
End Sub