Forums Scripts & Popups Random sound and sound browser

alias ListSounds {
 var %i = $findfile([color:green]"c:\directory of files"[/color],*.wav,0)
 while (%i) {
  hadd -m SoundList $nopath($findfile([color:green]"c:\directory of files"[/color],*.wav,%i))
  dec %i
 }
 dialog -m Sounds Sounds
}
on *:DIALOG:Sounds:init:*: {
  var %x = $hget(SoundList,0).item
  while (%x) { 
   did -a Sounds 1 $hget(SoundList,%x).item $hget(SoundList,%x).data
   dec %x
  }
  hfree SoundList
}
dialog Sounds {
  title "Sounds"
  size -1 -1 167 170
  option dbu notheme
  list 1, 4 4 159 149, vsbar size sort
  button "Close", 2, 128 156 32 12, ok
}

on *:TEXT:[color:blue]!random sound*[/color]:[color:red]#[/color]: {
 var %y = $findfile([color:green]"c:\directory of files"[/color],*.wav,0)
 dcc send $nick $findfile([color:green]"c:\directory of files"[/color],*.wav,$rand(1,%y))
} 

alias ListSounds {
 var %i = $findfile([color:red]"c:\directory of files"[/color],*.wav,0)
 while (%i) {
  hadd -m SoundList $nopath($findfile([color:red]"c:\directory of files"[/color],*.wav,%i))
  dec %i
 }
 dialog -m Sounds Sounds
}
on *:DIALOG:Sounds:init:*: {
  var %x = $hget(SoundList,0).item
  while (%x) {
   did -a Sounds 1 $hget(SoundList,%x).item $hget(SoundList,%x).data
   dec %x
  }
  hfree SoundList
}
on *:DIALOG:Sounds:dclick:1: sound $active $did(1).seltext
dialog Sounds {
  title "Sounds"
  size -1 -1 167 170
  option dbu notheme
  list 1, 4 4 159 149, vsbar size sort
  button "Close", 2, 128 156 32 12, ok
}

alias [color:blue]randomsound[/color] {
 var %y = $findfile([color:red]"c:\directory of files"[/color],*.wav,0)
 sound $active $findfile([color:red]"c:\directory of files"[/color],*.wav,$rand(1,%y))
}