/!\/!\/!\ MP3 Player /!\/!\/!\

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	1.0
Scores Submitted	2
Date Added	Nov 03, 2007
Last Updated	Nov 03, 2007
Tags	color lyrics mp3 other songs

Introduction

Well i made a useful mp3 player hope you like it

Grab the Code

alias acemp3 { 
  set %script.address $mircdiracemp3/acemp3dat.ini
  if (($dialog(acemp3) == $null) && ($readini %script.address acemp3 relative == no))  { dialog -md acemp3 acemp3 }
  if (($dialog(acemp3) == $null) && ($readini %script.address acemp3 relative == yes)) { dialog -ma acemp3 acemp3 }
  if ($dialog(acemp3) != $null) { dialog -ve acemp3 }
  if ($dialog(acemp3) == $null) { dialog -md acemp3 }
}

dialog acemp3 {
  size -1 -1 300 200
  title "-= ( AceMP3 - MP3 System for mIRC ) =-"
  button "OK",1, 394 253 10 10,ok
  box "", 999, 5 5 183 30
  edit "", 2, 10 13 170 20,center,read
  box "", 998, 182 5 114 30
  edit "", 3, 190 13 100 20,center,read
  box "", 997, 5 32 183 30  
  icon 4, 10 40 30 20, acemp3/last_s.bmp
  icon 5, 30 40 30 20, acemp3/play.bmp
  icon 6, 50 40 30 20, acemp3/stop.bmp
  icon 7, 70 40 30 20, acemp3/pause.bmp
  icon 8, 90 40 30 20, acemp3/next_s.bmp
  icon 9, 133 40 46 20, acemp3/id3.bmp
  box "", 996, 182 32 114 30
  icon 11, 252 40 30 20, acemp3/inc.bmp
  list 12, 226 40 30 19, size, disabled
  icon 13, 200 40 30 20, acemp3/dec.bmp
  box "", 995, 5 59 183 30
  box "", 994, 182 59 114 30
  text "AceMP3 V.3.0 by Ace (c) 2oo2 ", 14, 17 70 175 25, disable 
  icon 15, 220 67 40 20, acemp3/setup.bmp
  box "", 993, 5 87 291 110 
  list 16, 10 97 279 109 vsbar, autovs, read
}

on *:DIALOG:acemp3:init:0: {
  if ($readini %script.address acemp3 dir == $null) { did -ra acemp3 12 $round($calc($vol(master) / 65535 * 100),0) $+ $chr(37)
  }
  else { set %acemp3.dir $readini %script.address acemp3 dir | add2list 
    update.boxes S.START | did -ra acemp3 12 $round($calc($vol(master) / 65535 * 100),0) $+ $chr(37)
  }
}

on *:dialog:acemp3:close:*: {
  splay -p stop
}

on *:dialog:acemp3:dclick:16: { 
  set %acemp3file $findfile(%acemp3.dir,*.mp3,$did(16).sel) 
  acemp3play dclick 
}

on *:dialog:acemp3:sclick:9: { id3 }

on *:dialog:acemp3:sclick:4: { 
  if $readini %script.address acemp3 shuffle == yes { 
    set %acemp3file $findfile(%acemp3.dir,*.mp3,$rand(1,$findfile(%acemp3.dir,*.mp3,0)))
    acemp3play end
  }
  else {
    if (%acemp3.id != 1) {       
      set %acemp3file $findfile(%acemp3.dir,*.mp3,$calc(%acemp3.id - 1))
      acemp3play end
    }
  }
}

on *:dialog:acemp3:sclick:8: { 
  if $readini %script.address acemp3 shuffle == yes { 
    set %acemp3file $findfile(%acemp3.dir,*.mp3,$rand(1,$findfile(%acemp3.dir,*.mp3,0)))
    acemp3play end
  }
  else {
    if (%acemp3.id != $did(acemp3,16).lines) {       
      set %acemp3file $findfile(%acemp3.dir,*.mp3,$calc(%acemp3.id + 1))
      acemp3play end
    }
  }
}

on *:dialog:acemp3:sclick:5: { 
  if $group(#pause).status == on { .splay -p resume | .disable #pause }
  else { acemp3play click }
}

on *:dialog:acemp3:sclick:6: {
  splay -p stop | update.boxes STOP
}

on *:dialog:acemp3:sclick:7: {
  .enable #pause | splay -p pause | update.boxes PAUSE   
}

on *:dialog:acemp3:sclick:11: { volume up }

on *:dialog:acemp3:sclick:13: { volume down }

alias set.id {  
  set %acemp3.id $didwm(acemp3,16, $remove($nopath(%acemp3file),.mp3))
  if $dialog(acemp3).ok != $null {
    did -c acemp3 16 %acemp3.id
  }  
}

alias acemp3play {
  if $1 == dclick { update.boxes PLAY | set.id | .splay -p $shortfn(%acemp3file) }
  if $1 == click { 
    if ( $did(acemp3,16).sel != $null) {  
      set %acemp3file $findfile(%acemp3.dir,*.mp3,$did(acemp3,16).sel) | update.boxes PLAY | set.id | .splay -p $shortfn(%acemp3file) 
    }
    else { if %acemp3file != $null { update.boxes PLAY | set.id | .splay -p $shortfn(%acemp3file) } }
  }
  if $1 == end  { update.boxes PLAY | set.id | .splay -p $shortfn(%acemp3file) }
}

alias mp3.length {
  var %mplayer.len $int($calc($1 / 1000))
  var %mplayer.min $int($calc(%mplayer.len / 60))
  var %mplayer.sec $calc(%mplayer.len - (%mplayer.min * 60))
  if (%mplayer.min < 10) { set %mplayer.min 0 $+ %mplayer.min }
  if (%mplayer.sec < 10) { set %mplayer.sec 0 $+ %mplayer.sec }
  set %mplayer.len %mplayer.min $+ : $+ %mplayer.sec
  return %mplayer.len
}

alias mp3.position { if ($dialog(acemp3) != $null) did -ra acemp3 3 $mp3.length($inmp3.pos) $mp3(%acemp3file).bitrate $+ kbps $left($mp3(%acemp3file).sample,2) $+ k }

alias make.filename { 
  return $nopath($remove(%acemp3file,$right(%acemp3file,4)))
}

alias update.boxes {  
  if $1 == play { 
    if $dialog(acemp3).ok != 1 { if ($readini %script.address acemp3 mp3msg == yes) { mp3msg } } 
    else {
      .timer_mp3PLAY 0 1 mp3.position
      did -ra acemp3 2 $make.filename 
      if $readini %script.address acemp3 mp3msg == yes { mp3msg }
    } 
  }
  if $1 == stop { .timer_mp3PLAY off }
  if $1 == pause { }  
  if $1 == s.start { did -ra acemp3 2 $make.filename }
}

alias mp3msg { 
  set %mp3msgchan $nopath($remove(%acemp3file,$right(%acemp3file,4)))
  set %mp3msgtime $mp3.length($mp3(%acemp3file).length)
  set %mp3msgrate $mp3(%acemp3file).bitrate $+ kbps $left($mp3(%acemp3file).sample,2) $+ khz
  if %mp3msgchan == $null { unset %mp3msg* | halt }
  if ($server == $null) { 
    if ($readini %script.address msg default == yes) { echo -a 2You are listening to: -=(7 %mp3msgchan )=- -=(7 %mp3msgtime 2minutes @7 %mp3msgrate )=- -=( 7 AceMP3  )=- }
    else { echo -a $replace.msg $+ ( 7 AceMP3  ) | unset %acemp3.rpl* }
  }
  else { 
    if ($readini %script.address msg default == yes) { /ame 4,1� L14,1istens 4,1T14,1o4,1: 14,1-4,1=14,1(4,1 %mp3msgchan 14,1)14,1=4,1- -14,1=14,1(4,1  %mp3msgtime minutes @ %mp3msgrate 4,1)14,1=4,1- 14,1-4,1=14,1( 4,1A14,1ce4,1M14,1P3 )4,1=14,1- 4,1�  }
    else { /ame $replace.msg $+ ( 7 AceMP3  ) | unset %acemp3.rpl* }
  }
  unset %mp3msg*
}

alias volume {
  if ($1 = up) { set %vol $calc($vol(master) + 655.35) }
  if ($1 = down) { set %vol $calc($vol(master) - 655.35) }
  vol -v %vol | did -ra acemp3 12 $round($calc($vol(master) / 65535 * 100),0) $+ $chr(37)
  unset %vol
}

; --------------------------------------------------------

alias loadingmp3 { if ($dialog(loadmp3) == $null) dialog -omd loadmp3 loadmp3 }
dialog loadmp3 {
  size -1 -1 167 42
  title   -= ( Loading... ) =-
  box "",2, 1 -4 165 45
  text " Loading MP3 list... please wait... ",1, 5 16 300 14
  button " OK ",888, 93 214 70 25,ok
}

; --------------------------------------------------------

alias id3open { if ($dialog(id3) == $null) dialog -m id3 id3 }
dialog id3 {
  size -1 -1 260 250
  title " -= ( AceMP3 - ID3 Tag ) =-"
  box "",565, 1 1 257  205
  text " Artist / Song: ",1, 25 16 100 14
  edit "", 11, 25 32 150 20, center,read
  text " Bitrate: ",3, 180 16 50 12
  edit "", 13, 180 32 50 20, center,read
  text " Sample: ",4, 180 55 50 12
  edit "", 14, 180 70 50 20, center,read
  text " Length: ",5, 178 95 50 14
  edit "", 15, 180 110 50 20, center,read
  text " Genre: ",8, 180 133 50 12
  edit "", 18, 180 145 50 20, center,read
  text " Year: ",21, 180 170 50 12
  edit "", 20, 180 182 50 20, center,read
  text " Version: ",6, 25 93 100 12
  edit "", 16, 25 108 150 20, center,read
  text " Album: ",2, 25 53 150 12
  edit "", 12, 25 68 150 20, center,read
  text " Mode: ",7, 25 131 100 12
  edit "", 17, 25 143 150 20, center ,read
  text " Comments: ",9, 25 168 100 12
  edit "", 19, 25 180 150 20, center,read
  box "", 887, 1 203 257 40 
  button " OK ",888, 93 214 70 25,ok
}

alias id3 {
  id3open
  did -i id3 11 11 $nopath($remove(%acemp3file,$right(%acemp3file,4)))
  did -i id3 12 12 $mp3(%acemp3file).album
  did -i id3 13 13 $mp3(%acemp3file).bitrate $+ kbps
  did -i id3 14 14 $left($mp3(%acemp3file).sample,2) $+ khz
  did -i id3 15 15 $mp3.length($mp3(%acemp3file).length) 
  did -i id3 16 16 $mp3(%acemp3file).version
  did -i id3 17 17 $mp3(%acemp3file).mode
  did -i id3 18 18 $mp3(%acemp3file).genre
  did -i id3 19 19 $mp3(%acemp3file).comment
  did -i id3 20 20 $mp3(%acemp3file).year
}

; ---------------------------------------------------------------------------------------

alias aboutacemp3 { if ($dialog(aboutacemp3) == $null) dialog -m aboutacemp3 aboutacemp3 }
dialog aboutacemp3 {
  title "  -=( AceMP3 V.3.0 )=-"
  size -1 -1 215 225
  box "",888, 3 1 210 175 
  box "",889, 3 175 210 45 
  text "AceMP3",1,10 20 90 15
  icon 900, 160 22 45 140
  text "Version:     AceMP3 V.3.0",3,10 114 150 15
  text "Author:      Ace ",2,10 129 150 15
  button "&OK",6,70 188 70 25,OK
}
on *:dialog:aboutacemp3:init:0: {
  did -g $dname 900 acemp3/logo.bmp
}

; --------------------------------------------------------

on *:dialog:acemp3setup:sclick:7 { aboutacemp3 }

alias acemp3setup { if ($dialog(acemp3setup) == $null) dialog -m acemp3setup acemp3setup }
dialog acemp3setup {
  size -1 -1 220 190
  title "   -= ( AceMP3 Setup ) =-"
  button " OK ",1, 160 95 50 85,ok
  box " Check Options ", 2, 3 3 215 80
  box "",11,3 80 146 108
  box "",12, 153 80 65 108

check "Use Channel Messaging: ",5, 9 15 200 25, style(left)
  check "AceMP3 Relative to mIRC window: ",8, 9 35 200 25, style(left)
  check "Use Shuffle play (else Continuos play): ",9, 9 55 200 25, style(left)

button " MP3 Directory ",3, 10 95 132 25
  button " Setup Messages ",10, 10 125 132 25
  button " About ",7, 10 155 132 25
}

on *:dialog:acemp3:sclick:15 { acemp3setup }

on *:dialog:acemp3setup:sclick:10 { acemp3msg }

on *:DIALOG:acemp3setup:init:0: { 
  acemp3.readvalues
}

alias acemp3.readvalues {
  if ($readini %script.address acemp3 shuffle == yes) { did -c acemp3setup 9 }
  else { did -u acemp3setup 9 }
  if ($readini %script.address acemp3 relative == yes) { did -c acemp3setup 8 }
  else { did -u acemp3setup 8 }
  if ($readini %script.address acemp3 mp3msg == yes) { did -c acemp3setup 5 }
  else { did -u acemp3setup 5 }
}

on *:dialog:acemp3setup:sclick:3: {
  set %dir.back %acemp3.dir
  set %acemp3.dir $sdir="Select your MP3 Directory" 
  if %acemp3.dir != $null {
    writeini %script.address acemp3 dir %acemp3.dir | unset %dir.back | add2list
  }
  else { .set %acemp3.dir %dir.back | unset %dir.back }
}

on *:dialog:acemp3setup:sclick:9: {
  if ($did(9).state == 1) { writeini %script.address acemp3 shuffle yes }
  if ($did(9).state == 0) { writeini %script.address acemp3 shuffle no }
}

on *:dialog:acemp3setup:sclick:8: {
  if ($did(8).state == 1) { writeini %script.address acemp3 relative yes }
  if ($did(8).state == 0) { writeini %script.address acemp3 relative no }
}

on *:dialog:acemp3setup:sclick:5: {
  if ($did(5).state == 1) { writeini %script.address acemp3 mp3msg yes }
  if ($did(5).state == 0) { writeini %script.address acemp3 mp3msg no }
}

alias add2list {
  loadingmp3   
  set %i 0 
  did -r acemp3 16  
  while (%i < $findfile(%acemp3.dir,*.mp3,0)) {
    inc %i 
    did -a acemp3 16 $remove($nopath($findfile(%acemp3.dir,*.mp3,%i)),.mp3) 
  }  
  dialog -x loadmp3
}

ctcp 1:version:ctcpreply $nick VERSION Using 
; ---------------------------------------------------------------------------------------

alias acemp3msg { if ($dialog(acemp3msg) == $null) dialog -m acemp3msg acemp3msg }
dialog acemp3msg {
  size -1 -1 305 158
  title "   -= ( Setup Channel Messaging ) =-"
  button " OK ",1, 240 12 55 82,ok
  check "Use Standard Channel Messaging ",2, 9 10 200 25, style(right)
  check "Use Custom Channel Messaging ",3, 9 30 200 25, style(right)
  edit "", 4, 25 60 200 20,center autohs
  box "",5, 2 0 300 98
  box "",6, 2 95 300 60
  text "NOTE: Insert MP3_NAME where you want the current mp3's file name to be shown. Do the same for MP3_TIME the mp3's file time, and MP3_RATE for the play rate.",7,9 107 290 50
}

on *:DIALOG:acemp3msg:init:0: { 
  if ($readini %script.address msg default == yes) {
    did -c acemp3msg 2 | did -u acemp3msg 3 
    did -ra acemp3msg 4 $readini %script.address msg message | did -b acemp3msg 4
  }
  else { 
    did -c acemp3msg 3 | did -u acemp3msg 2 
    did -ra acemp3msg 4 $readini %script.address msg message | did -e acemp3msg 4 
  }
}

on *:dialog:acemp3msg:sclick:*: {
  if ($did == 2) { did -c acemp3msg 2 | did -u acemp3msg 3 | did -b acemp3msg 4 
    writeini %script.address msg default yes
  }
  if ($did == 3) { did -c acemp3msg 3 | did -u acemp3msg 2 | did -e acemp3msg 4 
    writeini %script.address msg default no
  }
  if ($did == 1) { 
    .set %acemp3.default.msg 4,1� L14,1istens 4,1T14,1o4,1: 14,1-4,1=14,1(4,1 MP3_NAME 14,1)14,1=4,1- -14,1=14,1( MP3_TIME 4,1M14,1inutes 4,1@14,1 MP3_RATE 14,1)14,1=4,1- �
    if $did(4).text == $null { 
      writeini %script.address msg message %acemp3.default.msg
    }
    else { writeini %script.address msg message $did(4).text }
    unset %acemp3.default.msg
  }
}

alias replace.msg {
  set %acemp3.rpl $readini %script.address msg message
  set %acemp3.rpl1 $replace(%acemp3.rpl,MP3_NAME,%mp3msgchan)
  set %acemp3.rpl2 $replace(%acemp3.rpl1,MP3_TIME,%mp3msgtime)
  set %acemp3.rpl3 $replace(%acemp3.rpl2,MP3_RATE,%mp3msgrate)
  return %acemp3.rpl3
}

; ---------------------------------------------------------------------------------------

on *:MP3END: { 
  if $readini %script.address acemp3 shuffle == yes {
    set %acemp3file $findfile(%acemp3.dir,*.mp3,$rand(1,$findfile(%acemp3.dir,*.mp3,0)))
    acemp3play end
  }
  else { 
    if (%acemp3.id != $did(acemp3,16).lines) {       
      set %acemp3file $findfile(%acemp3.dir,*.mp3,$calc(%acemp3.id + 1))
      acemp3play end
    }
  }
}

menu * {
  -
  AceMP3: { acemp3 }
}

#pause on
#pause end

Comments

(8) RSS

Go to Bottom

Sora-

Comments: 19

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Nov 3, 2007 6:57 pm

Something\'s wrong with line 6

^silk

Comments: 16

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Nov 3, 2007 9:26 pm

Just by browsing your code, this snippet won\'t work. You don\'t have the bmp images, and I think you are specifying an incorrect /dialog syntax. Also, your $mp3.length alias could be reduced to $gmt($calc($insong.length / 1000),nn:ss) :] Sorry, this needs to be filtered quite a bit.

Noa Destiny

Comments: 29

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Nov 5, 2007 3:34 pm

Oh Sorry And thanx for the advice and help ^silk ^_^

SpotRedDog

Comments: 81

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Nov 5, 2007 6:02 pm

* /dialog: insufficient parameters (line 6, MP3 Script)

It does not work thats the error I get along with the 1st cat up there you need to fix it!!!

SpotRedDog

Comments: 81

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Nov 5, 2007 6:08 pm

* /dialog: insufficient parameters (line 6, MP3 Script)

It does not work thats the error I get along with the 1st cat up there you need to fix it!!!

Noa Destiny

Comments: 29

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Nov 5, 2007 6:15 pm

o_O

The_Fuzzy_Wookie

Comments: 4

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Apr 2, 2008 6:59 am

LINE 6, mp3 script..
need to fix.. and a little messy... but looks cool browsing throu it...

^Neptune

Comments: 241

mIRC Snippet: /!\/!\/!\ MP3 Player /!\/!\/!\
Posted on Apr 3, 2008 5:50 pm

In the about dialog:

Version: AceMp3
Author: Ace
..Why is AceMP3 plastered everywhere?

Honestly, I\'m getting rather pissed off by you ripping everything. All you know are popups from what I\'ve gathered, and even some of those are ripped. From what I\'ve seen you wouldn\'t even know how to make a dialog (so don\'t pretend to be \"ace\"). You don\'t even test scripts before you submit them, and if someone finds an error you reply back with all but an emoticon which obviously helps the person.

My advice: learn how to script.

[/rant]

/!\/!\/!\ MP3 Player /!\/!\/!\

Introduction

Grab the Code

Comments

Noa Destiny

My Snippet Tags

Contact

Friends (8)

Sponsors


Last seen: May 22, 2008 Profile Friends (8) Snippets (29) Images (2) Comments Received (114) Comments Submitted (29)