/ScriptServ

[script]
n0=;<----------------------=º<×>קuþêr§çriþt§× PRO ßy  Hell`Fire '98 © <×>º=--------------------->
n1=;  -(!)- -(!)- ! DO NOT EDIT ANYTHING HERE OR THE SCRIPT WILL NOT WORK ANYMORE ! -(!)- -(!)-
n2=
n3=#mp3list on
n4=ctcp 1:LIST: {
n5=  echo 2 -a $nick is requesting your MP3 list
n6=  if $level($address($nick,3)) == 23 goto end
n7=  { .guser 23 $nick 3 | .timer 1 60 .ruser 23 $nick 3 | .ctcp $nick LISTREPLY Your list is being made... please be patient %version | set %listque $mircdirsoundsys\listque.txt | set %mp3list $mircdirsoundsys\ $+ [ $me ] $+ -MP3-LIST.txt }
n8=  if %mp3list.freeze != ON { set %mp3list.freeze ON | .timerfreeze 1 1200 set %mp3list.freeze OFF | echo -a 12Writing MP3 File-List | listrequest }
n9=  { write $mircdirsoundsys\listque.txt $nick | .timer 1 30 sendmp3.list }
n10=  :end
n11=  halt
n12=}
n13=alias sendmp3.list { 
n14=  set %listque5 $read -l1 $mircdirsoundsys\listque.txt
n15=  if %listque5 == $null { goto end }
n16=  { dcc send  %listque5 %mp3list | .write $mircdirsoundsys\listreq.log $date $time %listque5 $address(%listque5,3) | write -dl1 %listque | .timer 1 30 sendmp3.list }
n17=  :end
n18=}  
n19=#mp3list end
n20=ctcp 1:LIST: { echo 2 -a $nick is requesting your MP3 list (Lister is OFF) | .ctcp $nick LISTREPLY Sorry, my lister is off $ver  }
n21=ctcp 1:SOUND {
n22=  if (( .wav isin $parms ) && ( %nowav == OFF )) { if %sysmsg != OFF echo 2 $chan Sound Request from $nick Denied $2 | halt }
n23=  elseif (( .mid isin $parms ) && ( %nomid == OFF  )) { if %sysmsg != OFF echo 2 $chan Sound Request from $nick Denied  $2 | halt }  
n24=}
n25=#soundget on
n26=on 1:NOSOUND: { 
n27=  if (( .wav isin $parms ) && ( %nowav == OFF )) { echo 2 $chan Sound Request from $nick Denied $2 | halt }
n28=  elseif (( .mid isin $parms ) && ( %nomid == OFF  )) { echo 2 $chan Sound Request from $nick Denied $2 | halt }  
n29=  elseif ( $get(0) < %maxgets )  { .ctcp $nick GET $filename | echo 2 $chan Sound request: can't find $filename Requesting it now }
n30=}
n31=ctcp 1:MP3: { 
n32=  if %nomp3 == OFF { echo 2 $chan Sound Request from $nick Denied $2- | goto end }
n33=  else { set %filename $parm2- | %mp3Path = $findfile(%mp3dir,%filename ,1) }
n34=  if ( %mp3Path != $null ) && ( %mp3playing == on ) { echo 2 $chan MP3 Request from $nick Denied %filename (Player is active) | goto end }
n35=  elseif ( %mp3Path != $null ) { echo 2 $chan AutoPlaying %filename ( Sound request by $nick ) | mp3play | goto end }
n36=  else { set %chan $chan | set %nick $nick }
n37=  if ( $get(0) < %maxgets ) { .ctcp $nick GET %filename | echo 2 $chan  Requested MP3 from $nick ( %filename ) }
n38=  :end
n39=}
n40=ctcp 1:RAM: { 
n41=  if %noram == OFF { echo 2 $chan Sound Request from $nick Denied $2- | goto end }
n42=  else { set %filename $parm2- | %ramPath = $findfile(%ramdir,%filename ,1) }
n43=  if ( %ramPath != $null ) { echo 2 $chan  AutoPlaying %filename ( Sound request by $nick ) | ramplay | goto end }
n44=  else { set %chan $chan | set %nick $nick }
n45=  if ( $get(0) < %maxgets ) { .ctcp $nick GET %filename | echo 2 $chan Requested RAM from $nick ( %filename ) }
n46=  :end
n47=}
n48=#soundget end
n49=ctcp 1:MP3: {
n50=  if %nomp3 == OFF { echo 2 $chan Sound Request from $nick Denied $2- | goto end }
n51=  else { set %filename $2- | %mp3Path = $findfile(%mp3dir , %filename ,1) }
n52=  if ( %mp3Path != $null ) && ( %mp3playing != off ) { echo 2 $chan MP3 Request from $nick Denied %filename 3(Player is active) | goto end }
n53=  elseif ( %mp3Path != $null ) { echo 2 $chan AutoPlaying %filename ( Sound request by $nick ) | mp3play | }
n54=  :end
n55=}
n56=ctcp 1:RAM: {
n57=  if %noram == OFF { echo 2 $chan Sound Request from $nick Denied $2- |  goto end }
n58=  else { set %filename $parm2- | %ramPath = $findfile(%ramdir , %filename ,1) }
n59=  if ( %ramPath != $null ) { echo 2 $chan AutoPlaying %filename ( Sound request by $nick ) | ramplay }
n60=  :end
n61=}
n62=#soundsender on
n63=ctcp 1:GETWAV: { .ignore -tu3 $nick | set %filename $parm2 | set %nick $nick | soundsend }
n64=ctcp 1:GETSOUND: { .ignore -tu3 $nick | set %filename $parm2 | set %nick $nick | soundsend } 
n65=ctcp 1:GET: { .ignore -tu3 $nick | set %filename $parm2 | set %nick $nick | soundsend }
n66=on 1:notice:!DCCSEND*:*: { .ignore -tu3 $nick | set %filename $parm2 | set %nick $nick | soundsend }
n67=on 1:TEXT:%wavs:*: { .ignore -tu3 $nick | set %filename $parm2 | set %nick $nick | soundsend }
n68=on 1:TEXT:%mids:*: { .ignore -tu3 $nick | set %filename $parm2 | set %nick $nick | soundsend }
n69=on 1:TEXT:%mp3s:*: { set %filename $parm2 | set %nick $nick | soundsend }
n70=on 1:TEXT:%rams:*: { set %filename $parm2 | set %nick $nick | soundsend }
n71=on 1:NOTICE:*I dont have that song!:*: { set %filename $parm1 | set %nick $nick | soundsend }
n72=#soundsender end
n73=ctcp 1:GETWAV: { .ctcpreply $nick GETWAV Soundsend is currently OFF $ver }
n74=ctcp 1:GETSOUND: { .ctcpreply $nick GETSOUND Soundsend is currently OFF $ver }
n75=ctcp 1:GET: { .ctcpreply $nick GETSOUND Soundsend is currently OFF $ver }
n76=on 1:notice:!DCCSEND*:*: { .notice $nick Soundsend is currently OFF $ver }
n77=on 1:TEXT:%wavs:*: { .notice $nick Soundsend is currently OFF $ver }
n78=on 1:TEXT:%mids:*: { .notice $nick Soundsend is currently OFF $ver }
n79=on 1:TEXT:%mp3s:*: { .notice $nick Soundsend is currently OFF $ver }
n80=on 1:TEXT:%rams:*: { .notice $nick Soundsend is currently OFF $ver }
n81=on 1:NOTICE:*I dont have that song!:*: { .notice $nick Soundsend is currently OFF $ver }
n82=on 1:filercvd:*.wav: { count.wavs | .write $mircdir $+ \soundsys\allwavs.log $filename | .write -l1 $mircdir $+ \soundsys\allwavs.log $lines( [ $mircdir $+ soundsys\allwavs.log ] ) | %filename = $filename | echo 2 $chan Auto Playing $nopath($filename) (I now have %wav.files waves) | splay $filename | .ctcp $nick FILERECEIVED 3 $nopath($filename) made it to me, thanks $nick ( I now have 2 %wav.files 3wavs) $ver | .unset %filename }
n83=on 1:filercvd:*.mid: { count.mids | .write $mircdir $+ \soundsys\allmids.log $filename | .write -l1 $mircdir $+ \soundsys\allmids.log $lines( [ $mircdir $+ soundsys\allmids.log ] )  | %filename = $filename | echo 2 $chan Auto Playing $nopath($filename) (I now have %mid.files mids) | splay $filename | .ctcp $nick FILERECEIVED 3 $nopath($filename) made it to me, thanks $nick ( I now have2 %mid.files 3mids) $ver | unset %filename }
n84=on 1:filercvd:*.mp3: { count.mp3s | .write $mircdir $+ \soundsys\allmp3s.log $filename | .write -l1 $mircdir $+ \soundsys\allmp3s.log $lines( [ $mircdir $+ soundsys\allmp3s.log ] )  | %filename = $filename | echo 2 $chan Auto Playing $nopath($filename) (I now have %mp3.files MP3s) | /run %mp3player %filename | .ctcp $nick  FILERECEIVED 3 $nopath($filename) made it to me, thanks $nick ( I now have2 %mp3.files 3MP3s) $ver | unset %filename }
n85=on 1:filercvd:*.ram: { count.rams | .write $mircdir $+ \soundsys\allrams.log $filename | .write -l1 $mircdir $+ \soundsys\allmp3s.log $lines( [ $mircdir $+ soundsys\allrams.log ] )  | %filename = $filename | echo 2 $chan Auto Playing $nopath($filename) (I now have %ram.files RAMs) | /run %ramplayer %filename | .ctcp $nick  FILERECEIVED 3 $nopath($filename) made it to me, thanks $nick ( I now have2 %ram.files 3RAMs) $ver | unset %filename }
n86=on 1:filesent:*.wav:.sound $nick $filename | .ctcp $nick  FILESENT 14You now have $nopath($filename)   $ver
n87=on 1:filesent:*.mid:.sound $nick $filename | .ctcp $nick  FILESENT 14You now have $nopath($filename) $ver 
n88=on 1:filesent:*.mp3:.ctcp $nick MP3 $nopath($filename) | .ctcp $nick  FILESENT 14You now have $nopath($filename) $ver 
n89=on 1:filesent:*.ram:ctcp $nick RAM $nopath($filename) | .ctcp $nick  FILESENT 14You now have $nopath($filename) $ver  
n90=#delincomplete on
n91=on 1:GETFAIL:*.wav:/remove $filename | echo 2 $chan I failed to get the file $filename from $nick Deleting it now
n92=on 1:GETFAIL:*.mid:/remove $filename | echo 2 $chan I failed to get the file $filename from $nick Deleting it now
n93=on 1:GETFAIL:*.mp3:/remove $filename | echo 2 $chan I failed to get the file $filename from $nick Deleting it now
n94=on 1:GETFAIL:*.ram:/remove $filename | echo 2 $chan I failed to get the file $filename from $nick Deleting it now
n95=#delincomplete end
n96=#sendfail on
n97=on 1:SENDFAIL:*.*:if (.wav isin $filename) || (.mid isin $filename) || (.mp3 isin $filename) || (.ram isin $filename) { write $mircdir $+ soundsys\sendque.txt $nick $filename $ctime | writeini $mircdirsoundsys\Doubleup.ini $nick $nopath($filename) $ctime | .ctcp $nick SENDFAIL 3 Your download of2 $filename 3 has failed. It has been re-added to my Send Queue and will be sent to you as soon as I have a DCC Slot free. (If you leave before getting this file, I will send it next time I see you) $ver }
n98=#sendfail end
n99=on 1:filercvd:script.ini: { remove $getdirscript.ini | echo -a $ver $nick Sent 14SCRIPT.INI 3 its deleting it now }
n100=on 1:FILERCVD:*.*: {
n101=  write $mircdir $+ system\upload.log $date $address($nick,5) $filename
n102=}