/ScriptServ

[script]
n0=on 1:TEXT:%mp3check:*:{ 
n1=  if (%pmp3.send == off) { halt }
n2=  set %pmp3.blah $findfile(%pmp3.dir,$2-,1)
n3=  if %pmp3.blah = $null { .notice $nick %version - Invalid Filename | halt }
n4=  else {
n5=    dcc send $nick " $+ %pmp3.blah $+ "
n6=    close -m $nick
n7=    .notice $nick sending you %pmp3.blah courtesy of %version
n8=  }
n9=}
n10=alias mp3 {
n11=  set %pMP3.player $dir="select mp3 player" $mircdir
n12=  set %pMP3.dir $sdir="select mp3 directory" $mircdir
n13=  echo -a %version mp3 player set to: $remove($nopath(%pmp3.player),.exe)
n14=  echo -a %version mp3 directory set to: %pmp3.dir
n15=  set %mp3check ! $+ $me $+ *
n16=}
n17=alias rawtime { return $calc($lof($1-)/16000) }
n18=alias pmtime { return $duration($calc($lof($1-)/16000)) }
n19=alias mtime { return $duration($calc(($lof($1) * .008) / 56)) }
n20=alias pmcont {
n21=  set %pm.cont $?!="continuous mp3 play on?"
n22=  if %pm.cont == $true { echo -a  %version continuos mp3 play is set to on, type /rmp3 off to turn off. }
n23=}
n24=alias pmpub {
n25=  set %pm.pub $?!="show mp3s to channel?"
n26=  if %pm.pub == $true { echo -a %version Amp public play is now on. }
n27=}
n28=alias rmp3 { 
n29=  if $1 = off { set %pm.cont $false | halt }
n30=  set %pmp3.shit $findfile(%pmp3.dir,*.mp3,0)
n31=  set %pmp3.rand $r(1,%pmp3.shit)
n32=  set %pmp3.song $findfile(%pmp3.dir,*.mp3,%pmp3.rand)
n33=  echo -a 9,1Plast1k Amp playing %pmp3.song ( $+ $pmtime(%pmp3.song) $+ )
n34=  run " $+ %pmp3.player $+ " " $+ %pmp3.song $+ "
n35=  if (%pm.pub == $true) && ($active ischan) {
n36=    amsg ..( $+ $nopath(%pmp3.song) $+ ).. [ $+ $pmtime(%pmp3.song) $+ ] %ver.2
n37=  }
n38=  :next2
n39=  if (%pm.cont == $true) { 
n40=    .timer65 1 $rawtime(%pmp3.song) /rmp3
n41=  }  
n42=  set %mp3check ! $+ $me $+ *
n43=}
n44=alias mp3list {
n45=  set %mp3.dir $sdir="select mp3 directory"
n46=  set %max.mp3s $findfile(%mp3.dir,*.mp3,0)
n47=  set %cur.mp3
n48=  write $mircdirmp3lists.txt 9,1By phys1ks
n49=  :loop
n50=  inc %cur.mp3
n51=  if %cur.mp3 > %max.mp3s { goto done }
n52=  write $mircdir\mp3lists.txt $findfile(%mp3.dir,*.mp3,%cur.mp3)
n53=  goto loop
n54=  :done
n55=  echo 4 -a Plast1k Amp list completed. saved to: $mircdir\mp3list.txt
n56=  run notepad c:\mp3lists.txt
n57=}
n58=
n59=alias smp3 {
n60=  set %pm.shit $dir="select song" %pmp3.dir 
n61=  run " $+ %pmp3.player $+ " " $+ %pm.shit $+ "
n62=  if (%pm.pub == $true) && ($active ischan) {
n63=    amsg ..( $+ $nopath(%pm.shit) $+ ).. [ $+ $pmtime(%pm.shit) $+ ] %ver.2
n64=  }
n65=  if (%pm.cont == $true) { 
n66=    .timer65 1 $rawtime(%pmp3.shit) /rmp3
n67=  }  
n68=}
n69=alias unpm3 { echo -a %version Amp: unsetting variables.. | unset %pm.* | unset %pmp3.* | echo -a %version Amp by phys1ks. | unload -rs shmackamp.mrc }