/ScriptServ

[aliases]
n0=encrypt {
n1=  unset %crypt
n2=  %i = 1
n3=  %temp = $replace($1-,$chr(32),$chr(160))
n4=  :next
n5=  if ($mid(%temp,%i,1) != $null) {
n6=    %asc.temp = $mid(%temp,%i,1)
n7=    set %asc $asc(%asc.temp)
n8=    set %asc.crypt $calc( %asc + 81 ) 
n9=    %crypt = %crypt $+ $chr(%asc.crypt)
n10=    inc %i
n11=    goto next 
n12=  }
n13=  else {
n14=    return !MsCrYpT $+ $chr(32) $+ %crypt 
n15=  }
n16=  unset %crypt %i %temp %asc.temp %asc %asc.crypt 
n17=}
n18=crypt msg $active $encrypt($1-)
n19=decrypt {
n20=  unset %decrypt 
n21=  %i = 1
n22=  %temp = $replace($1-,$chr(32),$chr(160))
n23=  :next
n24=  if ( $mid(%temp,%i,1) != $null ) {
n25=    set %asc.temp $mid(%temp,%i,1)
n26=    set %asc $asc(%asc.temp)
n27=    set %asc.decrypt $calc( %asc - 81 )  
n28=    %decrypt = %decrypt $+ $chr(%asc.decrypt)
n29=    inc %i
n30=    goto next
n31=  }
n32=  else { return Decrypted Message: %decrypt }
n33=  unset %decrypt %i %temp %asc.temp %asc %asc.decrypt %decrypt
n34=} 
n35=
n36=mp3.size {
n37=  if ( $exists($1-) == $false ) { halt }
n38=  set %mp3size $file($1-).size
n39=  return $file($1-) .size
n40=}
n41=mp3play {
n42=  set %mp3play $file="Select MP3 to play" %mp3 
n43=  if ( %mp3play == $null ) { echo -a $moontxt2(No MP3 Selected) | halt }
n44=  mp3.size %mp3play 
n45=  .run %mp3play 
n46=  ame plays [ $+ $replace($nopath(%mp3play),$chr(95),$chr(32)) $+ ] [Size: $+ $round( $calc( %MP3Size / 1048576 ),2 ) $+ mb] [Selected] - $irc
n47=}
n48=mp3set set %mp3 $sdir="Select a directory for your MP3's" | echo -a $moontxt2(MP3 Directory now set to:) $moontxt(%mp3)
n49=mp3len {
n50=  %mp3len.who = %mp3 $+ $1-  
n51=  echo -a $duration($calc($calc($file(%mp3len.who).size ) / 12050))
n52=}
n53=mp3rand {
n54=  mp3lines
n55=  set %mp3.rand $findfile(%mp3,*,$r(1,%mp3lines)) 
n56=  mp3.size %mp3.rand | .run %mp3.rand | ame plays [ $+ $replace($nopath(%mp3.rand),$chr(95),$chr(32)) $+ ] [Size: $+ $round( $calc( %MP3Size / 1048576 ),2 ) $+ mb] [Random] - $irc 
n57=}
n58=
n59=
n60=mp3lines {
n61=  set %inc 1
n62=  :next
n63=  if ( $exists(%mp3) == $false ) { echo -a $moontxt2(No Directory Specified or Directory Doesn't Exist) | halt }  
n64=  if ( $exists($findfile(%mp3,*,%inc)) == $true ) { inc %inc 1 | goto next } 
n65=  elseif ( %inc < 1 ) { echo -a $moontxt2(No Files in:) $moontxt(%mp3) | halt }
n66=  else { set %mp3lines $calc(%inc - 1) }
n67=}