
Sound addons v1.2
		

=======================================================================


;[-Popups-];
menu menubar,channel,status,nicklist, {
  -
  &Sound
  .&Autoget sound
  ..&Turn OFF All:/set %wavget OFF | /echo $active %var 10Autoget Is now 4 2[OFF]
  ..&Complete Autoget:/set %wavget ALL | /echo $actice %var 10When a wav, Midi or Mp3 that you don't have is played in chan Autoget 4 10will Auto Ask for it
  ..&Select Sounds:/set %wavget OFF | /echo $actice %var 10When a Wav or Midi is played in chan that u dont have and would like it hit 4 10[F9]12 to ask for it and 4 10[F8]12 to ask for Mp3's
  .-
  .&Play wav:/wavs  $dir="Song To Play?"   $mircdir $+ sounds\*.wav
  .&Play mid:/mid  $dir="Song To Play?"   $mircdir $+ sounds\*.mid
  .&Play Mp3/amp3 $dir="Song To Play?"   $mircdir $+ sounds\*.mp3
  .&Private Play:/splay  $dir="Song To Play?"   $mircdir $+ sounds\*.
  .-
  .&Stop:/splay stop | .sound off
}
menu nicklist {
  &Play a list of Mp3's
  .&MP3List:{
    set %mnick $1
    mp3list
  }
  .&Advertise:/notice $$1 i have Chosen %var 10Sounds Addons | ctcp $$1 Get %ver from (http://www.projectx.princess.dk/)
}

;[-Aliases-];
alias F9 /msg $Chan %wavnick %wavname 
alias F8 /msg $Chan %mp3get %mp3file 4 Please 
alias mid {
  sound $1
  msg $active %var 10Sounds 10Title 4 2 $nopath($1) 10Size 4 2 $lof($1) Bytes
}
alias wavs {
  sound $1  
  me 10is playing %var 10Sounds  10Title 4 2 $nopath($1) 10Size 4 2 $lof($1) Bytes
}
alias amp3 {
  ctcp %mp3chan MP3 $nopath(%mpsong) 
  /msg %mp3chan %var 10Sound 10Title 4 2 $nopath(%mpsong) 10Size 4 2 $lof(%mpsong) Bytes
  run c:\program files\winamp\winamp.exe %mpsong
}
alias mp3list {
  set %cnt 1
  write -c  $mircdir $+ system\mp3list.txt 10MP3 List
  write  $mircdir $+ system\mp3list.txt 4-------------
  :loop
  if ($findfile($mircdir,*.mp3,%cnt) != $null) { 
    write  $mircdir $+ system\mp3list.txt $nopath($findfile($mircdir,*.mp3,%cnt))
    inc %cnt 1
    goto loop 
  }
  else {
    write  $mircdir $+ system\mp3list.txt 4--------------
    write  $mircdir $+ system\mp3list.txt 2end of list
    echo 2 MP3 List Done
    query %mnick
    play %mnick  $mircdir $+ system\mp3list.txt
    halt
  }
}

;[-Events-];
;________________
;### ON Start ###
;
on 1:load:{
  .set %var 10Some More Great  
  .echo 10 -a $timestamp Succesfully loaded 10Sound Addons 
  .echo 10 -a Use the Channel,status popups to configure Soundgrabber. and nicknamelist to play somebody ur mp3list 
  .set %wavget All
  halt
}
on 1:START: {
  .set %var 10Some More Great
  .unset %wavchan 
  .unset %mp3chan 
  .unset %midichan 
  .echo 10 -s Enjoy your 10Sound Addons 
}
on 1:JOIN:#: {
  if ($nick == $me)  {
    set %wavchan $chan
    set %mp3chan $chan 
    set %midichan $chan 
  } 
  else {
    halt
  }
}  
on 1:NOSOUND: {
  if (%wavget == $null) { goto end }
  if (%wavget == ALL) { msg $chan ! $+ $nick $filename 4 Please }
  if (%wavget == ON) {
    echo 10 -a %var 10 $nick Played 42 $filename 10Hit 4[F9] 2to ask for it
    set %wavnick ! $+ $nick
    set %wavname $filename 
  }
  :end
}
ctcp 1:MP3:{ 
  if ($findfile($mircdir,$2,1)) {
    run c:\justice\sounds\winamp\winamp.exe $mircdir $+ sounds\*.*\ $+ $2
    elseif
    if ($findfile($mircdir,$2,1)) {
      run c:\justice\sounds\winamp\winamp.exe $mircdir $+ sounds\mp3\*.*\ $+ $2
    }
    if (%wavget == $null) { goto end }
    if (%wavget == ALL) { msg $Chan %mp3get %mp3file 
      if (%wavget == ON) {
        echo -a %var 10 $Nick Just played 42 $2 10hit 4[F8] 2to ask for it
        set %mp3get ! $+ $nick
        set %mp3file $2 
        halt
      }
    }
  }
  
  
  =======================================================================
