/ScriptServ

[aliases]
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=playasound {
n4=  %chantoplay = $parm1
n5=  %typeofsound = $parm2
n6=  if %typeofsound == WAV { inc %wavplayct 1 | set %wavtoplay $dir="Pick your Wave" [ $wavedir $+ *.wav ] | sound %chantoplay %wavtoplay | /describe %chantoplay 5is 4playing 5a 4wave5 < $nopath(%wavtoplay) > < $+ $lof(%wavtoplay) bytes> $ver | unset %wavtoplay %chantoplay %typeofsound | goto end }
n7=  if %typeofsound == MID { inc %midplayct 1 | set %midtoplay $dir="Pick your Midi" [ $mididir $+ *.mid ] | sound %chantoplay %midtoplay | /describe %chantoplay 5is 4playing 5a 4midi5 < $nopath(%midtoplay) > < $+ $lof(%midtoplay) bytes> $ver  | unset %midtoplay %chantoplay %typeofsound | goto end }
n8=  if %typeofsound == MP3 { inc %mp3playct 1 | set %mp3toplay $dir="Pick your MP3" [ %mp3dir $+ *.MP3 ] | run %mp3player " $+ %mp3toplay $+ " | %sizeofit = $lof(%mp3toplay) / 1000000 | /describe %chantoplay 5Having 4Fun 5listening 4to 5MP3 < $nopath(%mp3toplay) > < $+ $left(%sizeofit,4) Mb> $ver  | .ctcp %chantoplay MP3 $nopath(%mp3toplay) | set %size $lof( %mp3toplay ) | %cccn = %size / 14000 | %cccm = %cccn / 60 |  .timer7729 1 %cccn set %mp3playing off  | unset %mp3toplay %chantoplay %typeofsound | goto end }
n9=  if %typeofsound == RAM { inc %ramplayct 1 | set %ramtoplay $dir="Pick your RAM" [ %ramdir $+ *.R* ] | run %ramplayer %ramtoplay  | %sizeofit = $lof(%ramtoplay) / 1000000 | /describe %chantoplay  5Real 4Audio 5Clip 4Is 5active5 < $nopath(%ramtoplay) > < $+ $left(%sizeofit,4) Mb> $ver | .ctcp %chantoplay RAM $nopath(%ramtoplay)  | unset %ramtoplay %chantoplay %typeofsound | goto end }
n10=  echo -a $ver 14 Error in Playasound alias
n11=  :end
n12=}
n13=playmusic {
n14=  %nicktoplay = $$1
n15=  %typeofsound = $parm2
n16=  if %typeofsound == WAV { inc %wavplayct 1 | set %wavtoplay $dir="Pick your Wave" [ $wavedir $+ *.wav ] | sound %nicktoplay %wavtoplay | /say %nicktoplay  5is 4playing 5a 4wave5 < $nopath(%wavtoplay) > < $+ $lof(%wavtoplay) bytes> $ver | unset %wavtoplay %nicktoplay %typeofsound | goto end }
n17=  if %typeofsound == MID { inc %midplayct 1 | set %midtoplay $dir="Pick your Midi" [ $mididir $+ *.mid ] | sound %nicktoplay %midtoplay | /describe %nicktoplay 5is 4playing 5a 4midi5 < $nopath(%midtoplay) > < $+ $lof(%midtoplay) bytes> $ver  | unset %midtoplay %nicktoplay %typeofsound | goto end }
n18=  if %typeofsound == MP3 { inc %mp3playct 1 | set %mp3toplay $dir="Pick your MP3" [ %mp3dir $+ *.MP3 ] | run %mp3player " $+ %mp3toplay $+ " | %sizeofit = $lof(%mp3toplay) / 1000000 | /say %nicktoplay 5Having 4Fun 5listening 4to 5MP3< $nopath(%mp3toplay) > < $+ $left(%sizeofit,4) Mb> $ver  | .ctcp %nicktoplay MP3 $nopath(%mp3toplay) | set %size $lof( %mp3toplay ) | %cccn = %size / 14000 | %cccm = %cccn / 60 |  .timer7729 1 %cccn set %mp3playing off  | unset %mp3toplay %nicktoplay %typeofsound | goto end }
n19=  if %typeofsound == RAM { inc %ramplayct 1 | set %ramtoplay $dir="Pick your RAM" [ %ramdir $+ *.R* ] | run %ramplayer %ramtoplay  | %sizeofit = $lof(%ramtoplay) / 1000000 | /say %nicktoplay   5Real 4Audio 5Clip 4Is 5active5 < $nopath(%ramtoplay) > < $+ $left(%sizeofit,4) Mb> $ver | .ctcp %nicktoplay RAM $nopath(%ramtoplay)  | unset %ramtoplay %nicktoplay %typeofsound | goto end }
n20=  echo -a $ver 14 Error in Playasound alias
n21=  :end
n22=}
n23=soundrand {
n24=  %chantoplay = $1
n25=  %typeofsound = $2
n26=  if %typeofsound == WAV && $exists($mircdirsoundsys\allwavs.log) == $true { inc %wavplayct 1 | set %wavtoplay $read [ $mircdir $+ soundsys\allwavs.log ] | sound %chantoplay %wavtoplay | /say  %nicktoplay 5is 4playing 5a 4random 5wave < $nopath(%wavtoplay) > < $+ $lof(%wavtoplay) bytes> $ver | unset %wavtoplay %nicktoplay %typeofsound | goto end }
n27=  if %typeofsound == MID && $exists($mircdirsoundsys\allmids.log) == $true { inc %midplayct 1 | set %midtoplay $read [ $mircdir $+ soundsys\allmids.log ] | sound %chantoplay %midtoplay | /say %nicktoplay  5is 4playing 5a 4random 5midi < $nopath(%midtoplay) > < $+ $lof(%midtoplay) bytes> $ver |  unset %midtoplay %nicktoplay %typeofsound | goto end }
n28=  if %typeofsound == MP3 && $exists($mircdirsoundsys\allmp3s.log) == $true { inc %mp3playct 1 | set %mp3toplay $read [ $mircdir $+ soundsys\allmp3s.log ] | run %mp3player " $+ %mp3toplay $+ " | %sizeofit = $lof(%mp3toplay) / 1000000 | /say %nicktoplay  5is 4playing 5a 4random 5MP3 < $nopath(%mp3toplay) > < $+ $left(%sizeofit,4) Mb> $ver  | .ctcp %nicktoplay MP3 $nopath(%mp3toplay) | set %size $lof( %mp3toplay ) | %numn = %size / 14000 | %numm = %numn / 60 | .timer7729 1 %numn | set %mp3playing off | unset %mp3toplay %nicktoplay %typeofsound | goto end }
n29=  if %typeofsound == RAM && $exists($mircdirsoundsys\allrams.log) == $true { inc %ramplayct 1 | set %ramtoplay $read [ $mircdir $+ soundsys\allrams.log ] | run %ramplayer %ramtoplay | %sizeofit = $lof(%ramtoplay) / 1000000 | /say %nicktoplay  5is 4playing 5a 4random 5Real Audio Clip < $nopath(%ramtoplay) > < $+ $left(%sizeofit,4) Mb> $ver | unset %ramtoplay %nicktoplay %typeofsound | goto end }
n30=  echo -a $ver E14rror in soundplaynow alias (have you updated your sound logs in Sound Setup?)
n31=  :end
n32=}
n33=soundplaynow {
n34=  %chantoplay = $1
n35=  %typeofsound = $2
n36=  if %typeofsound == WAV && $exists($mircdirsoundsys\allwavs.log) == $true { inc %wavplayct 1 | set %wavtoplay $read [ $mircdir $+ soundsys\allwavs.log ] | sound %chantoplay %wavtoplay | /describe %chantoplay 12is 14playing 12a 14random wave < $nopath(%wavtoplay) > < $+ $lof(%wavtoplay) bytes> $ver | unset %wavtoplay %chantoplay %typeofsound | goto end }
n37=  if %typeofsound == MID && $exists($mircdirsoundsys\allmids.log) == $true { inc %midplayct 1 | set %midtoplay $read [ $mircdir $+ soundsys\allmids.log ] | sound %chantoplay %midtoplay | /describe %chantoplay  12is 14playing 12a 14random midi < $nopath(%midtoplay) > < $+ $lof(%midtoplay) bytes> $ver |  unset %midtoplay %chantoplay %typeofsound | goto end }
n38=  if %typeofsound == MP3 && $exists($mircdirsoundsys\allmp3s.log) == $true { inc %mp3playct 1 | set %mp3toplay $read  $mircdir $+ soundsys\allmp3s.log  | run %mp3player " $+ %mp3toplay $+ " | %sizeofit = $lof(%mp3toplay) / 1000000 | /describe %chantoplay  12is 14playing 12a 14random MP3 < $nopath(%mp3toplay) > < $+ $left(%sizeofit,4) Mb> $ver  | .ctcp %chantoplay MP3 $nopath(%mp3toplay) | set %size $lof( %mp3toplay ) | %cccn = %size / 14000 | %cccm = %cccn / 60 | /timer7729 1 %cccn | set %mp3playing off | unset %mp3toplay %chantoplay %typeofsound | goto end }
n39=  if %typeofsound == RAM && $exists($mircdirsoundsys\allrams.log) == $true { inc %ramplayct 1 | set %ramtoplay $read [ $mircdir $+ soundsys\allrams.log ] | run %ramplayer %ramtoplay | %sizeofit = $lof(%ramtoplay) / 1000000 | /describe %chantoplay  12is 14playing 12a 14random Real Audio Clip < $nopath(%ramtoplay) > < $+ $left(%sizeofit,4) Mb> $ver | unset %ramtoplay %chantoplay %typeofsound | goto end }
n40=  echo -a $ver E14rror in soundplaynow alias (have you updated your sound logs in Sound Setup?)
n41=  :end
n42=}
n43=mp3play { 
n44=  inc %mp3playct 1
n45=  set %mp3Path $findfile(%mp3dir , %filename ,1)
n46=  if ( %mp3path != $null ) { run %mp3player " $+ %mp3path $+ " | %size = $lof( %mp3path ) | %cccn = %size / 14000 | %cccm = %cccn / 60 | set %mp3playing on | .timer7729 1 %cccn set %mp3playing off | unset %mp3path }
n47=}
n48=ramplay { 
n49=  inc %ramplayct 1
n50=  set %ramPath $findfile(%ramdir , %filename ,1)
n51=  if ( %rampath != $null ) { run %ramplayer %rampath | unset %rampath }
n52=}
n53=setthetimer {
n54=  set %Timer.Type $1
n55=  %ranmins = $$?="Minutes between Sounds?"
n56=  %ransecs = %ranmins * 60 
n57=  .timerranplay 0 %ransecs soundplaynow # %Timer.Type
n58=  soundplaynow # %Timer.Type
n59=  set %timerplay %ransecs seconds on # ( $+ %Timer.Type $+ ) 
n60=  echo -a $ver 14Sound Timer Play is %timerplay
n61=}
n62=
n63=timersound {
n64=  set %Timer.Type $1
n65=  %ranmins = $$?="Minutes between Sounds?"
n66=  %ransecs = %ranmins * 60 
n67=  .timerranplay 0 %ransecs soundrand $$1 %Timer.Type
n68=  soundrand $$1 %Timer.Type
n69=  set %timerplay %ransecs seconds on $$1 ( $+ %Timer.Type $+ ) 
n70=  echo -a $ver 14Sound Timer Play is %timerplay
n71=}
n72=mircdde {}
n73=update.all.logs { run lister.bat $wavedir $+ *.wav $mircdir $+ soundsys\allwavs.log | run lister.bat $mididir $+ *.mid $mircdir $+ soundsys\allmids.log | run lister.bat %mp3dir $+ *.mp3 $mircdir $+ soundsys\allmp3s.log | run lister.bat %ramdir $+ *.r* $mircdir $+ soundsys\allrams.log | .timer 1 30 /wavlines }
n74=;wavlines { write -l1 $mircdir $+ \soundsys\allwavs.log $lines($mircdirsoundsys\allwavs.log)  | write -l1 $mircdir $+ \soundsys\allmids.log $lines($mircdirsoundsys\allmids.log)  | write -l1 $mircdir $+ \soundsys\allmp3s.log $lines($mircdirsoundsys\allmp3s.log)  | write -l1 $mircdir $+ \soundsys\allrams.log $lines($mircdirsoundsys\allrams.log) }
n75=soundsend {
n76=  set %sendquetext $mircdir $+ soundsys\sendque.txt
n77=  if $readini $mircdirsoundsys\Doubleup.ini %nick %filename == $null {
n78=    .writeini $mircdirsoundsys\Doubleup.ini %nick %filename $ctime
n79=    goto type
n80=  }
n81=  else echo -a $ver 14 %nick attempted to request %filename - already in send queue!
n82=  .ctcp %nick $ver Audio The sound you have ordered is already queued. It will be sent as soon as I have a free DCC Send slot. $ver
n83=  halt
n84=  :type  
n85=  if ( .wav isin %filename) goto sendwav 
n86=  if ( .mid isin %filename ) goto sendmid
n87=  if ( .mp3 isin %filename ) goto sendmp3
n88=  if ( .ram isin %filename ) goto sendram
n89=  halt
n90=  :sendwav
n91=  set %DirPath $findfile($wavedir , %filename ,1)
n92=  If ( $lof( %DirPath ) == $null ) goto nofile
n93=  inc %wavsendct 1
n94=  write $mircdir $+ soundsys\sendque.txt %nick %DirPath $ctime
n95=  .ctcpreply %nick $ver  Audio 14 Your request has been added to my send queue ( line number $lines(%sendquetext) ) (number %wavsendct wav ordered from me since %wcdate - ) $ver
n96=  echo 2 -a $nopath(%filename) queued to $nick ( line number $lines(%sendquetext) )
n97=  halt 
n98=  :sendmid
n99=  %DirPath = $findfile($mididir , %filename ,1)
n100=  If ( $lof( %DirPath ) == $null ) goto nofile
n101=  inc %midsendct 1
n102=  /write $mircdir $+ soundsys\sendque.txt %nick %DirPath $ctime
n103=  .ctcpreply %nick $ver Audio 14 Your request has been added to my send queue ( line number $lines(%sendquetext) ) (number %midsendct mid ordered from me since %wcdate - ) $ver
n104=  echo 2 -a $nopath(%filename) queued to $nick ( line number $lines(%sendquetext) )    
n105=  halt
n106=  :sendmp3
n107=  %DirPath = $findfile( %mp3dir , %filename ,1 )
n108=  If ( $lof( %DirPath ) == $null ) goto nofile
n109=  inc %mp3sendct 1
n110=  /write $mircdir $+ soundsys\sendque.txt %nick %DirPath $ctime
n111=  .ctcpreply %nick $ver SOUND-ORDER 3 Your request has been added to my send queue ( line number $lines(%sendquetext) ) (number %mp3sendct MP3 ordered from me since %wcdate - If you leave before getting this file, I will send it next time I see you) %version
n112=  echo 2 -a $nopath(%filename) queued to $nick ( line number $lines(%sendquetext) )
n113=  halt  
n114=  :sendram
n115=  %DirPath = $findfile( %ramdir , %filename ,1 )
n116=  If ( $lof( %DirPath ) == $null ) goto nofile
n117=  inc %ramsendct 1
n118=  /write $mircdir $+ soundsys\sendque.txt %nick %DirPath $ctime
n119=  .ctcpreply %nick Audio 14Your request has been added to my send queue ( line number $lines(%sendquetext) ) (number %ramsendct RAM ordered from me since %wcdate - If you leave before getting this file, I will send it next time I see you) %version
n120=  echo 2 -a $nopath(%filename) queued to $nick ( line number $lines(%sendquetext) )
n121=  halt  
n122=  :nofile
n123=  ctcp %Nick Audiofile-REPLY 14Sorry, but I don't have 12 %filename $ver
n124=  halt
n125=}
n126=senditsound {
n127=  set %nick $parm1
n128=  /FCount %Nick
n129=  If %sc >= %musersends goto false  
n130=  set %how.long.ago.1 $ctime - $3
n131=  set %how.long.ago $duration(%how.long.ago.1)
n132=  set %DirPath $$2
n133=  set %nick $$1
n134=  if $comchan(%nick ,1) != $null  {
n135=    .notice %nick I am about to send $nopath(%dirpath) to you.... Please enable your DCC's $ver 14FileSend WaRNinG | .timer 1 15 dcc send %nick %dirpath
n136=    remini $mircdirsoundsys\doubleup.ini %nick $nopath(%dirpath)
n137=    .timer 1 15 .ctcp %nick Audio Send 3 Here comes2 $nopath( %dirpath) 3 %nick . You ordered this sound from me2 %how.long.ago 3ago. $ver
n138=    echo 2 -a Sending $nopath( %dirpath ) to %nick ( ordered %how.long.ago ago. )      
n139=    return $true
n140=  }
n141=  :false
n142=  else return $false
n143=}
n144=FCount {
n145=  %s = $send(0)
n146=  %sc = 0
n147=  %n = $1
n148=  :FCLoop
n149=  %ps = $send( %S )
n150=  If ( %n isin %ps ) %sc = %sc + 1
n151=  %s = %s - 1
n152=  If %s > 0 goto FCLoop
n153=}
n154=sendqueon { .timer700 0 30 sendque | echo 2 -a Send Queue is Active | set %sendque ON }
n155=sendqueoff { .timer700 off | echo 2 -a Send Queue is Deactivated | set %sendque OFF }
n156=sendque { 
n157=  if $send( 0 )  >= %sysmax halt
n158=  set %stop $lines($mircdir [ $+ soundsys\sendque.txt ] )
n159=  if %stop == $null halt
n160=  set %sendquetext $mircdir $+ soundsys\sendque.txt
n161=  set %slno 1
n162=  :sendloop
n163=  if (( %stop != $null ) && ( %stop >= %slno )) {
n164=    set %sendline $read -nl $+ %slno %sendquetext
n165=    if ( $senditsound( %sendline ) == $true ) {
n166=      if ( %stop == 1 ) .remove %sendquetext
n167=      else write -dl $+ %slno %sendquetext
n168=    }
n169=    else {
n170=      inc %slno 1
n171=      goto sendloop 
n172=    }
n173=    unset %sendline
n174=  }
n175=}
n176=count.wavs set %wav.files $lines( $mircdirsoundsys\allwavs.log ) 
n177=count.mids set %mid.files $lines( $mircdirsoundsys\allmids.log )  
n178=count.mp3s set %mp3.files $lines( $mircdirsoundsys\allmp3s.log )
n179=count.rams set %ram.files $lines( $mircdirsoundsys\allrams.log )
n180=checkauto.play {
n181=  if %nowav == OFF echo  -a $ver WAV Autoplay is OFF
n182=  elseif %nowav == $null echo  -a $ver WAV Autoplay is ON
n183=  if %nomid == OFF echo -a $ver MID Autoplay is OFF
n184=  elseif %nomid == $null echo -a $ver MID Autoplay is ON
n185=  if %nomp3 == OFF echo -a $ver MP3 Autoplay is OFF
n186=  elseif %nomp3 == $null echo -a $ver MP3 Autoplay is ON
n187=  if %noram == OFF echo -a $ver RAM Autoplay is OFF
n188=  elseif %noram == $null echo -a $ver RAM Autoplay is ON
n189=}
n190=autoplay.on {
n191=  set %typeoffile $1
n192=  if %typeoffile == WAV { unset %nowav }
n193=  if %typeoffile == MID { unset %nomid }
n194=  if %typeoffile == MP3 { unset %nomp3 }
n195=  if %typeoffile == RAM { unset %noram }
n196=}
n197=autoplay.off {
n198=  set %typeoffile $1
n199=  if %typeoffile == WAV { set %nowav OFF }
n200=  if %typeoffile == MID { set %nomid OFF }
n201=  if %typeoffile == MP3 { set %nomp3 OFF }
n202=  if %typeoffile == RAM { set %noram OFF }
n203=}
n204=wavdisecho { 
n205=  echo $ver 14Sound Counters
n206=  echo 14 I have played 12 %wavplayct 14Wavs, 12 %midplayct 14Midi's 12 %mp3playct 14 MP3's &12 %ramplayct 14RAMs
n207=  echo 14 I have sent 12 %wavsendct 14Wavs, 12 %midsendct 14Midi's 12 %mp3sendct 14 MP3's &12 %ramsendct 14RAMs
n208=  echo 14 Since 12 %wcdate 14at 12 %wctime
n209=}
n210=wavdissay { 
n211=  say 14 I have played 12 %wavplayct 14Wavs, 12 %midplayct 14Midi's 12 %mp3playct 14MP3's &12 %ramplayct 14RAMs
n212=  say 14 I have sent 12 %wavsendct 14Wavs, 12 %midsendct 14Midi's 12 %mp3sendct 14MP3's &12 %ramsendct 14RAMs
n213=  say 14 Since 12 %wcdate 14at 12 %wctime $ver
n214=}
n215=/wavcountecho {
n216=  count.wavs
n217=  count.mids
n218=  count.mp3s
n219=  count.rams
n220=  echo 14 I have12 %wav.files 14Wavs, 12 %mid.files 14Midi's12 %mp3.files 14MP3's &12 %ram.files 14RAMs $ver
n221=}
n222=/wavcountsay {
n223=  count.wavs
n224=  count.mids
n225=  count.mp3s
n226=  count.rams
n227=  say 14 I have12 %wav.files 14Wavs, 12 %mid.files 14Midi's12 %mp3.files 14MP3's &12 %ram.files 14RAMs
n228=  set %version  3קuþêr§çriþt§× 7PRO
n229=  set %kup Hell`Fire
n230=}
n231=listrequest {
n232=  set %mp3.list $lines( $mircdirsoundsys\allmp3s.log )
n233=  set %mp3.list2 2
n234=  set %mp3.list4 2
n235=  remove $mircdirsoundsys\ $+ [ $me ] $+ -MP3-LIST.txt 
n236=  write -l1 $mircdirsoundsys\ $+ [ $me ] $+ -MP3-LIST.txt $me $+ 's MP3 LIST - $strip(%version)  
n237=  write -l2 $mircdirsoundsys\ $+ [ $me ] $+ -MP3-LIST.txt 
n238=  :loop
n239=  inc %mp3.list4 1
n240=  set %mp3.list5 %mp3.list4 - 2
n241=  set %mp3.list3 $read -l $+ %mp3.list2 $mircdirsoundsys\allmp3s.log
n242=  set %mp3.list6 $nopath(%mp3.list3)
n243=  write -l $+ %mp3.list4 $mircdirsoundsys\ $+ [ $me ] $+ -MP3-LIST.txt   %mp3.list5 $+ . %mp3.list6
n244=  inc %mp3.list2 1
n245=  if %mp3.list2 >= %mp3.list goto end
n246=  goto loop
n247=  :end 
n248=  inc %mp3.list4 1
n249=  write -l $+ %mp3.list4 $mircdirsoundsys\ $+ [ $me ] $+ -MP3-LIST.txt End of $me $+ 's MP3 LIST - $strip($ver)  
n250=  echo -a $ver 14MP3 List Completed
n251=}