MP3 player

mIRC snippet ce creaza un mp3 player. Pentru a incarca codul, in mIRC deschidesti script editor si la Remote plasati codul sursa.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	necunoscut	media	Cod testat	571	2023-12-11 20:37:13

on *:load:{
  if (%c1 == $null) set %c1 = 2
  if (%c2 == $null) set %c2 = 6
  if (%c3 == $null) set %c3 = 
}
menu Channel,Query,MenuBar {
  Cabbit AMP 1.5
  .Setup Window:dialog -mn mp3player mp3player
  .Play Song:selectsong
  .Play Random Song:randomsong
  .Display Song:showsong
}

alias F5 { selectsong }
alias F6 { randomsong }
alias F7 { showsong }
alias F8 { dialog -mn mp3player mp3player }

dialog mp3player {
  title "Cabbit AMP 1.5"
  size -1 -1 190 60
  option dbu

  tab "Music Settings",1, 5 5 140 50
  tab "Color Picker",2

  edit %mp3.dir, 4, 10 24 130 10, read, tab 1
  button "Select Music Folder", 5, 10 39 64 12, tab 1
  button "Clear Music Folder", 6, 75 39 64 12, tab 1

  text "Color 1:", 35, 10 25 30 8, tab 2
  combo 36, 30 24 38 117, drop size, tab 2
  text "Color 2:", 37, 80 25 30 8, tab 2
  combo 38, 102 24 38 117, drop size, tab 2
  text "Color 3:", 39, 10 41 30 8, tab 2
  combo 40, 30 40 38 117, drop size, tab 2
  button "Randomize", 41, 105 39 34 12, tab 2
  button "Default", 42, 70 39 34 12, tab 2

  button "OK", 80, 150 26 34 12, ok
  button "Cancel", 81, 150 39 34 12, cancel

}
on *:dialog:mp3player:*:*:{
  if ($devent == init) {
    if (%fullmode == on) { did -c $dname 16 }
    did -r $dname 36,38,40
    did -a $dname 36,38,40 Black
    did -a $dname 36,38,40 Dark Blue
    did -a $dname 36,38,40 Dark Green
    did -a $dname 36,38,40 Red
    did -a $dname 36,38,40 Brown
    did -a $dname 36,38,40 Purple
    did -a $dname 36,38,40 Orange
    did -a $dname 36,38,40 Yellow
    did -a $dname 36,38,40 Green
    did -a $dname 36,38,40 Teal
    did -a $dname 36,38,40 Cyan
    did -a $dname 36,38,40 Blue
    did -a $dname 36,38,40 Pink
    did -a $dname 36,38,40 Dark Grey
    did -a $dname 36,38,40 Grey
    if (%c1 == ) { did -c $dname 36 1 }
    else { did -c $dname 36 $calc($right(%c1,2)) }
    if (%c2 == ) { did -c $dname 38 1 }
    else { did -c $dname 38 $calc($right(%c2,2)) }
    if (%c3 == ) { did -c $dname 40 1 }
    else { did -c $dname 40 $calc($right(%c3,2)) }
  }
  if ($devent == sclick) {
    if ($did == 5) { set %mp3.dir $sdir="Locate Mp3 Directory" | did -ra mp3player 4 %mp3.dir }
    if ($did == 6) { set %mp3.dir | did -ra mp3player 4 %mp3.dir }
    if ( $calc($did(36).sel) == 1 ) { set %c1  }
    elseif ( $calc( $did(36).sel ) < 10 ) { set %c1  $+ 0 $+ $calc($did(36).sel) }
    else { set %c1  $+ $calc($did(36).sel) }
    if ( $calc($did(38).sel) == 1 ) { set %c2  }
    elseif ( $calc($did(38).sel) < 10 ) { set %c2  $+ 0 $+ $calc($did(38).sel) }
    else { set %c2  $+ $calc($did(38).sel) }
    if ( $calc($did(40).sel) == 1 ) { set %c3  }
    elseif ( $calc($did(40).sel) < 10 ) { set %c3  $+ 0 $+ $calc($did(40).sel) }
    else { set %c3  $+ $calc($did(40).sel) }
    if ($did == 41) { did -c $dname 36 $rand(1,15) | did -c $dname 38 $rand(1,15) | did -c $dname 40 $rand(1,15) }
    if ($did == 42) { did -c $dname 36 2 | did -c $dname 38 6 | did -c $dname 40 1 }
  }
}

alias selectsong {
  set %mp3.file $$file="Select File" %mp3.dir 
  if (%mp3.file == $null) { halt } 
  else { run %mp3.file | editsong | unset %mp3.file }
}

alias randomsong {
  set %mp3.num $findfile(%mp3.dir,*.mp3,0)
  set %mp3.ran2 $rand(1,%mp3.num) 
  set %mp3.file $findfile(%mp3.dir,*.mp3,%mp3.ran2)
  run %mp3.file
  editsong
  unset %mp3.file
}

alias editsong { %mp3.file2 = $remove($nopath(%mp3.file),.mp3,.ogg,.mid,.m3u,) } 
alias showsong { describe $active is playing: %c1 $+ %mp3.file2  }