/ScriptServ

[script]
n0=alias /jukebox {
n1=  /window -apmd +nxs @jukebox 500 400 205 375 Fixedys 12
n2=  /drawpic -c @jukebox 0 0 jukebox.bmp
n3=}
n4=
n5=menu MenuBar {
n6=  ( mIRC64 JukeBox  ):{
n7=    /jukebox
n8=    /me  using %ver2 JukeBox
n9=    /me  Feel the power of %ver2
n10=
n11=  }
n12=}
n13=
n14=menu @jukebox {
n15=  sclick: {
n16=    /if ( $inrect($mouse.x,$mouse.y,85,134,40,15) = $true ) {
n17=      /splay stop
n18=    }
n19=    /if ( $inrect($mouse.x,$mouse.y,77,165,50,10) = $true ) {
n20=      /run $mircdirWINAMP.EXE
n21=    }
n22=
n23=    /if ( $inrect($mouse.x,$mouse.y,77,185,50,10) = $true ) {
n24=      set %midis.select $$?=" Type 'A' to choose  midi or 'B' to play random"
n25=      if (%midis.select == A ) { 
n26=        set %soundfile $file="JukeBox  " $mircdirsounds\*.mid
n27=        if (%soundfile == $null) { echo @jukebox 12***No file specified. | halt }
n28=        set %soundfilesize $lof( %soundfile ) / 1024
n29=
n30=        echo  12* File: [ $nopath(%soundfile) ]
n31=        echo  12* Size: %soundfilesize Kb
n32=
n33=        /sound %soundfile   
n34=        unset %soundfile | unset %soundfilesize
n35=      }      
n36=      if (%midis.select == B ) {
n37=        set %midi.files $findfile($mididir,*mid,0)
n38=        set %soundfile $findfile($mididir,*.mid,$r(1,%midi.files))
n39=        set %soundfilesize $lof( %soundfile ) / 1024
n40=
n41=        echo  12* File: [ $nopath(%soundfile) ]
n42=        echo  12* Size: %soundfilesize Kb
n43=        /sound   %soundfile
n44=        unset %midi.files | unset %soundfile | unset %soundfilesiz     
n45=      }
n46=
n47=    }  
n48=    /if ( $inrect($mouse.x,$mouse.y,77,200,50,10) = $true ) {
n49=      set %wav.select $$?=" Type 'A' to choose  wav or 'B' to play random"
n50=      if (%wav.select == A ) { 
n51=        set %soundfile $file="Jukebox  " $mircdirwaves\*.wav
n52=        if (%soundfile == $null) { echo -a 12***No file specified. | halt }
n53=        set %soundfilesize $lof( %soundfile ) / 1024
n54=
n55=        echo  12* File: [ $nopath(%soundfile) ]
n56=        echo  12* Size: %soundfilesize Kb
n57=
n58=        /sound %soundfile
n59=        unset %soundfile | unset %soundfilesize
n60=      }   
n61=      if (%wav.select == B ) {
n62=        set %wave.files $findfile($wavedir,*wav,0)
n63=        set %soundfile $findfile($wavedir,*.wav,$r(1,%wave.files))
n64=        set %soundfilesize $lof( %soundfile ) / 1024
n65=
n66=        say  12* File: [ $nopath(%soundfile) ]
n67=        say  12* Size: %soundfilesize Kb
n68=
n69=        /sound  %soundfile
n70=        unset %wave.files | unset %soundfile | unset %soundfilesize
n71=      }
n72=    } 
n73=  }