/ScriptServ

menu status,channel,nicklist,menubar {
  -
  Mp3
  .Setup
  ..Set mp3 dir:if (%mp3.dir != $null) set %mp3.dir.temp $mp3dir | set %mp3.dir $sdir="Locate your mp3s" | if (%mp3.dir != $null) echo -a -4,1Mp3 directory is now:8 $+ %mp3.dir | if (%mp3.dir == $null) set %mp3.dir %mp3.dir.temp | if (%mp3.dir.temp != $null) unset %mp3.dir.temp | writeini mirc.ini dirs mp3s %mp3.dir
  ..Messages
  ...$iif(%mp3.amsg != Self,Self):set %mp3.amsg Self
  ...$iif(%mp3.amsg == Self,Self <):halt
  ...$iif(%mp3.amsg != Active Chan,Active Window):set %mp3.amsg Active Chan
  ...$iif(%mp3.amsg == Active Chan,Active Window <):halt
  ...$iif(%mp3.amsg != All Chan,All Chan):set %mp3.amsg All Chan
  ...$iif(%mp3.amsg == All Chan,All Chan <):halt
  ..DCC AutoGrab
  ...$iif(%mp3.dcc.grab == On,On <):halt
  ...$iif(%mp3.dcc.grab != On,Off):
  .Play Previous (F5):mp3.prev
  .Play an Mp3   (F6):mp3.play
  .Random Mp3 (F7):mp3.rand
  .Stop Mp3       (F8):mp3.stop
  .-
  .Mp3 List
  ..Make list:/playlist
  .-
  Wav
  .Play       (F4):wav.play
  .Remote (F8):wav.remote
  .Setup
  ..Set wav dir:if (%wav.dir != $null) set %wav.dir.temp $wavedir | set %wav.dir $sdir="Locate your wavs" | if (%wav.dir != $null) echo -a -4,1Wav directory is now:8 $+ %wav.dir | if (%wav.dir == $null) set %wav.dir %wav.dir.temp | if (%wav.dir.temp != $null) unset %wav.dir.temp | writeini mirc.ini dirs waves %wav.dir
  ..Messages
  ...$iif(%wav.amsg != Self,Self):set %wav.amsg Self
  ...$iif(%wav.amsg == Self,Self <):halt
  ...$iif(%wav.amsg != All Chan,All Chan):set %wav.amsg All Chan
  ...$iif(%wav.amsg == All Chan,All Chan <):halt
  CD Player
  .Setup
  ..Set CD Drive:/set %cd.dir $sdir="CD Drive"
  ..CD Msg
  ...$iif(%cd.msg != echo -a,Yourself):set %cd.msg echo -a | set %cd.say Say To You
  ...$iif(%cd.msg == echo -a,Yourself <):halt
  ...$iif(%cd.msg != amsg,All Chan):set %cd.msg amsg | set %cd.say All Channels
  ...$iif(%cd.msg == amsg,All Chan <):halt
  .Previous  (F9):cd.prev
  .Play         (F10):cd.play
  .Random  (F11):cd.rand
  .-
  .Setup This CD (F12):cd.setup
  Advertise:me 8,1I4s 8U4sing 8`-=4ÐìÅÐéM§ §ºµñÐ §¥§†éM8=-.,4 by: þHí£MµÇKí±±! 8G4et 8I4t 8A4t 8HTTP://www.Angelcities.com/members/philmuckitt/Diadems.html
}
alias mp3.play {
  .timermp3 off
  if (%mp3.dir == $null) set %mp3.dir $sdir="Locate your mp3s"
  set %mp3.prev %mp3.temp
  set %mp3.temp $hfile="Which mp3?" %mp3.dir
  set %mp3.nopath $nopath(%mp3.temp)
  if (%mp3.temp != $null) {
    .splay " $+ %mp3.temp $+ "
    mp3msg
  }
  else echo -8,4ERROR4,1 Pick a song
}
alias F5 mp3.prev
alias mp3.rand {
  .splay stop
  .timermp3 off
  if (%mp3.dir == $null) set %mp3.dir $sdir="Locate your mp3s"
  set %mp3.prev %mp3.temp
  set %mp3.temp $findfile(%mp3.dir,*.mp3,$rand(1,$findfile(%mp3.dir,*.mp3,0)))
  set %mp3.nopath $nopath(%mp3.temp)
  if (%mp3.temp != $null) {
    .splay " $+ %mp3.temp $+ "
    .timermp3 1 $mp3timerlength mp3.rand
    mp3msg
  }
}
alias F6 mp3.play
alias mp3.stop {
  if ($inmp3 == $false) { echo -a 8,4ERROR4,1 Mp3 not playing | halt }
  .timermp3 off
  .splay stop
  if (%mp3.amsg == $null) set %mp3.amsg All Chan
  if (($chan(1) == $null) || ($server == $null) || (%mp3.amsg == self)) { echo -a 5,4Mp3 play has been Stopped8,1`·-=4,1ÐìÅÐéM§ MÞ³ §¥§±éM8,1=-., | halt }
  if (%mp3.amsg == all chan) { amsg 5,4Mp3 play has been Stopped8,1`·-=4,1ÐìÅÐéM§ MÞ³ §¥§±éM8,1=-., | halt }
  if (%mp3.amsg == active chan) { msg # 5,4Mp3 play has been Stopped8,1`·-=4,1ÐìÅÐéM§ MÞ³ §¥§±éM8,1=-., | halt }
}
alias F8 mp3.stop
alias mp3.prev {
  .timermp3 off
  if (%mp3.dir == $null) set %mp3.dir $sdir="Locate your mp3s"
  if (%mp3.temp != $null) {
    set %mp3.prev2 %mp3.temp
    set %mp3.nopath $nopath(%mp3.prev)
    set %mp3.send ! $+ $me $+ --- $+ %mp3.nopath
    set %mp3.temp %mp3.prev
    set %mp3.time.msg %len3
    set %mp3.time2.msg %len3
    .splay " $+ %mp3.prev $+ "
    mp3msg
    set %mp3.prev %mp3.prev2
  }
}
alias F7 mp3.rand

alias wav.play {
  if (%wav.dir == $null) set %wav.dir $sdir="select your wav directory"
  set %wav.dira %wav.dir $+ *.wav
  set %wav.temp $hfile="select a wav" %wav.dira
  if (%wav.temp == $null) { echo -a -8,4ERROR4,1 No wav selected | halt }
  .sound # %wav.temp
  if ($server != $null) {
    say 8,1`·-=4ÐìÅÐéM§ `//ÅV ޣťé®8=-., 5,4 WAV 8,1[[4To get this, type: ! $+ $me $nopath(%wav.temp) $+ 8]]5,4 size 8,1[[4 $calc($file(%wav.temp).size / 1000) KB 8]]
  }
  else {
    echo -a 8,1`·-=4ÐìÅÐéM§ `//ÅV ޣťé®8=-., 5,4 WAV 8,1[[4 $+ $nopath(%wav.temp) $+ 8]]5,4 size 8,1[[4 $calc($file(%wav.temp).size / 1000) KB 8]]
  }
}
alias F3 wav.play
alias F4 wav.playlist

alias wav.playlist {
  if ($window(@Wavs) != $null) { window -ar @Wavs | halt }
  window -alsok0 +t @Wavs 258 42 488 397 @Wavs
  clear @Wavs
  if %wav.dir != $null { set %wav.put.temp $findfile(%wav.dir,*.wav,@Wavs) }
  :end
}
menu @Wavs {
  dclick {
    set %clicked $1
    set %wav.temp $line(@Wavs,$1)
    cline 5 @Wavs %clicked
    if (%Put.Temp == 0) { halt }
    wav.listplay
  }
}
alias wav.listplay {
  set %wav.nopath $nopath(%wav.temp)
  if (%wav.temp != $null) {
    window -c @Wavs
    if ($server != $null) {
      .splay %wav.temp
      if (%wav.amsg == $null) set %wav.amsg All Chan
      if (%wav.amsg == all chan) amsg 8,1`·-=4ÐìÅÐéM§ \\'ÅV §¥§±éM8=-.,5,4 WAV 8,1[[4! $+ $me $nopath(%wav.temp) $+ 8]]5,4 size 8,1[[4 $calc($file(%wav.temp).size / 1000) KB 8]] | elseif (%wav.amsg == active chan) msg %wav.active 8,1`·-=4ÐìÅÐéM§ \\'ÅV §¥§±éM8=-.,5,4 WAV 8,1[[4! $+ $me $nopath(%wav.temp) $+ 8]]5,4 size 8,1[[4 $file(%wav.temp).size KB 8]] | elseif (%wav.amsg == Self) echo -a 8,1`·-=4ÐìÅÐéM§ \\'ÅV §¥§±éM8=-.,5,4 WAV 8,1[[4! $+ $me $nopath(%wav.temp) $+ 8]]5,4 size 8,1[[4 $file(%wav.temp).size KB 8]]
    } 
    elseif ($server == $null) {
      .splay %wav.temp
      echo -a 8,1`·-=4ÐìÅÐéM§ \\'ÅV §¥§±éM8=-.,5,4 WAV 8,1[[4! $+ $me $nopath(%wav.temp) $+ 8]]5,4 size 8,1[[4 $calc($file(%wav.temp).size / 1000) KB 8]]
    }
  }
}