Insert 20 uplayed songs in the currently selected song’s genre, randomized.

dim i,j,Dict1,keys,tracks,num,idxs
Set Dict1 = CreateObject("Scripting.dictionary")
Dict1.CompareMode = BinaryCompare
x = playlist.getselection()
mlq = medialibrary.runqueryarray("type = 0 AND Playcount == 0 AND genre = """ + x(1).genre + """")
i = 0
for each track in mlq
   Dict1(track.artist)=Dict1(track.artist) + ":" + CStr(i)
   i = i + 1
next
Randomize
itms = Dict1.Items
num = 20
do while (tracks<num)
   Rand = Int(   (Dict1.Count-1) * Rnd)
   idxs = Split(itms(Rand), ":", -1, 1)
   Rand2 = CInt(idxs(Int(ubound(idxs)+1 * Rnd)))
   mlq(Rand2).insert(x(1).position)
   tracks=tracks+1
Loop
quit