;You can not rip anything from here! If u want u can use JUST this file as an addon for your script
;My A-Amp by AdyB. E-mail me at: adib@assist.ro !
dialog My-Amp {

  title "A-mIRC My Amp v2.0"
  size -1 -1 300 350 
  button "Close",1, 120 260 60 20, ok hide, tab 1
  icon 26, 80 215 130 90, $mircdir\a-sys\a-amp.bmp
  tab "Mp3 Controls:",6, 5 1 280 320
  button "play |>",20, 23 70 46 22, tab 6
  button "pause /",21, 68 70 46 22, tab 6
  button "resume\",22, 113 70 46 22, tab 6
  button "stop[ ]",23, 158 70 46 22, tab 6
  button "Money",24, 203 70 46 22, tab 6
  button "forward >>",39, 68 140 70 22, tab 6
  button "<< backward ",40, 158 140 70 22, tab 6
  edit "Volume:",43, 40 200 60 23, tab 6 read autohs  
  button "<-35%",41, 120 200 40 22, tab 6
  button "->70%",42, 165 200 40 22, tab 6
  button "100%",44, 210 200 40 22, tab 6
  button "Refresh Mp3 List",1454, 100 325 110 20
  button "Set Mp3 Dir",4, 216 325 70 20

  tab "Mp3 Files:",100, 9 6 280 320   
  list 19, 20 40 255 250, hsbar tab 100
  tab "About:",500, 12 7 280 320  
  text " About A-mIRC My Amp v2.0", 2019, 18 40 265 100, left tab 500  
  text "This is the Newest A-mIRC Mp3 Player made by AdyB... I've fixed the pause, resume, stop forward and backward buttons! Added a REFRESH button for the playlist! Now it works trough mIRC.. :) Hope u'll like it and don't foget to click on -=(REFRESH)=-  AFTER U SET THE MP3 DIR !                                                    You can NOW close the My AMP Player and the music will continue playing :)", 2017, 18 70 265 110, left tab 500
  text "P.S please click on tha money button! :)                       And don't forget to vote 4me !", 2018, 18 200 265 100, left tab 500
  text "Copyright 2000 AdyB - ", 2020, 78 280 180 30, left tab 500
  link "adib@assist.ro", 90, 180 280 70 28, left tab 500
}
on *:dialog:My-Amp:sclick:90: {
  url adib@assist.ro 
}
on *:dialog:My-Amp:menu:*: {
  if ($did == 3) { mp3.options }
  if ($did == 5) { dialog -x My-Amp }
}
on *:dialog:My-Amp:sclick:1454: refresh.mp3
on *:dialog:My-Amp:init:0:{
  set %g.up2 0
  :start
  inc %g.up2
  if ($findfile(%mp3.dir,*.mp3,%g.up2) != $null) { did -a $dname 19 $nopath($findfile(%mp3.dir,*.mp3,%g.up2)) | goto start }
  else halt
}
alias refresh.mp3 {
  did -r $dname 19
  set %g.up2 0
  :start
  inc %g.up2
  if ($findfile(%mp3.dir,*.mp3,%g.up2) != $null) { did -a $dname 19 $nopath($findfile(%mp3.dir,*.mp3,%g.up2)) | goto start }
  else halt
}
on *:dialog:My-Amp:sclick:21: {
  splay pause
}
on *:dialog:My-Amp:sclick:22: {
  splay resume
}
on *:dialog:My-Amp:sclick:23: {
  splay stop
}
on *:dialog:My-Amp:sclick:24: {
  url http://www.e-money.go.ro
}
on *:dialog:My-Amp:sclick:39: {
  splay seek return $calc($inmp3.pos + 17000)
}
on *:dialog:My-Amp:sclick:40: {
  splay seek return $calc($inmp3.pos - 17000)
}
on *:dialog:My-Amp:sclick:41: {
  /vol -v 25000
}
on *:dialog:My-Amp:sclick:42: {
  /vol -v 43000
}
on *:dialog:My-Amp:sclick:44: {
  /vol -v 100000
}
alias a-amp {
  dialog -md My-Amp My-Amp
}
on *:dialog:My-Amp:sclick:20: { 
  /set %mp3.file $findfile(%mp3.dir,*.mp3,$did(My-Amp,19).sel) 
  /set %mp3.file " $+ %mp3.file $+ "
  splay %mp3.file
  set %song.title $findfile(%mp3.dir,*.mp3,$did(My-Amp,19).sel)
  if ($server == $null) { halt }
}

alias mp3.options {
  dialog -m mp3.options mp3.options
}

dialog mp3.options {
  title "Options"
  size -1 -1 200 100 
  button "Ok",1,70 80 60 20, ok
  box "",2,5 1 190 75
  button "Set Mp3 Dir",4, 80 50 70 20
}

on *:dialog:My-Amp:sclick:*: {
  if ($did == 4) { .timer 1 0 set.mp3.dir }
}

alias set.mp3.dir {
  set %mp3.dir $sdir="Select your mp3 directory:"
}