Untitled

on ^*:TEXT:*:?:{
  if ( *.mp3* iswm $strip($1-) ) { 
    aline @results $strip($1-)
    close -m $nick
    halt
  }
  close -m $nick
  halt
}
menu @results {
  Search:var %i = $?="For what?" | if ( %i != "" ) { msg #mp3passion @find %i } | clear
  Clear:clear
  Get:get
}
menu @requests {
  Request Again:get
  Clear:clear
}
alias get {
  var %t $sline(@results,0)
  if ( %t > 0 ) {
    var %i 1
    while ( %i <= %t ) {
      if ( *.mp3* iswm $sline(@results,1) ) { 
        msg #mp3passion $sline(@results,1)
        aline @Requests $sline(@results,1)
        dline @Results $sline(@results,1).ln
      }
      inc %i
    }
  }
}
on ^*:NOTICE:*:?:{
  aline @notices 5 $+ $timestamp $+(-,$nick,-) $1-
  halt
}
on *:START:{
  window -lk0 @Results
  window -k0 @Notices
  window -lk0 @Requests
  window -lk0 @Songs
}
on ^*:CLOSE:@:{
  halt
}
on *:JOIN:#mp3passion:{
  if ( $nick == $me ) { window -h $chan }
}
on *:CONNECT:{
  join #mp3passion
  .timer 0 10 if ( $me !ison #mp3passion ) { .join #mp3passion }
  mode $me +d
}
on 1:OPEN:@:{
  echo -s hi $target
  var %i = $findfile($getdir(*.mp3),*.mp3,*,aline @Songs $nopath($1-))
}
menu @songs {
  dclick:splay " $+ $findfile($getdir(*.mp3),$sline(@songs,1),1) $+ "
  Open Dir:run $getdir(*.mp3)
  Play Random:playrand | .timerplayrand 0 2 playrand
  Play:splay " $+ $findfile($getdir(*.mp3),$sline(@songs,1),1) $+ "
  Reload:clear | var %i = $findfile($getdir(*.mp3),*.mp3,*,aline @Songs $nopath($1-))
  Stop:.timerplayrand off | splay stop
  Delete:remove " $+ $getdir(*.mp3) $+ $sline(@songs,1) $+ " | dline @songs $sline(@songs,1).ln
}
menu @notices {
  Clear:clear
}
menu @completed {
  Clear:clear
}
alias playrand {
  if ( $insong != $true ) {
    var %i $line(@songs,0)
    var %l $rand(1,%i)
    var %s $line(@songs,%l)
    splay " $+ $findfile($getdir(*.mp3),%s,1) $+ "
    sline @songs %l
  }
}
on *:GETFAIL:*.mp3:{
  .remove $filename
}