Bangin Mp3z Player (My Version)

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 27, 2008
Last Updated	Mar 27, 2008
Tags	bangin mp3 mp3z music phoenixbot play player playlist wma

Introduction

Credit given to the owner (not sure who... I know his name was Jason)
This is my edit as an mp3 player.
--- I added 4 types of ways to increase the volume. "Volume Up" and "Volume Down" increase it larger than "Volume + Small" and "Volume - Small."
---I added a Fast Forward and Rewind; "FF >" and "FF <" are smaller than "FF >>" and ""FF <<."
---Set Mp3 Directory is set a little differently with a different Variable... No need to worry about that.
---Changed the Title, the Disabled Edit Box, and the Menu List to my own good. You can change these if you want at lines 2 (Menu List), line 9 (Title), and line 26 (Disabled Edit Box)
There is ONE little glitch. When you set the Mp3 Directory, the "Random" button the "Public Play" section seems to glitch and disappear... Any ideas how to fix? Tell me please :)

Give credit for the extra little add ons I made to it :)
But NO full credit for the entire script as I did not create the entire thing!

Grab the Code

menu status,channel,nicklist {
  Matt's mIRC Mp3 Player :/mp3z
}

####################################################################################

;This is the dialog's actual code. DO NOT EDIT!
dialog bangin_mp3z {
  title "Matt's mIRC Mp3 Player"
  size -1 -1 230 140
  option dbu
  button "Play", 1, 6 8 37 12, flat
  button "Random", 2, 47 8 37 12, flat
  button "Continous", 3, 88 8 37 12, flat
  button "Play", 4, 6 38 37 12, flat
  button "Random", 5, 47 38 37 12, flat
  button "Continous", 6, 88 38 37 12, flat
  box "Private Play", 7, 3 0 125 27
  box "Public Play", 8, 3 30 125 27
  button "Pause", 9, 6 68 37 12, flat
  button "Stop", 10, 47 68 37 12, flat
  button "Resume", 11, 88 68 37 12, flat
  box "Options", 12, 3 60 125 44
  button "Set Mp3 Directory", 13, 42 86 47 12, flat
  button "Done", 14, 3 106 37 12, flat ok cancel
  edit "Matt's mIRC Mp3 Player", 15, 45 106 181 11, disable
  edit "", 16, 130 3 47 10, disable
  edit "", 17, 130 15 47 10, disable
  edit "", 18, 130 27 47 10, disable
  edit "", 19, 130 39 47 10, disable
  edit "", 20, 130 52 47 10, disable
  edit "", 21, 130 65 47 10, disable
  edit "", 22, 130 77 47 10, disable
  edit "", 23, 130 90 47 10, disable
  button "Add", 24, 178 3 15 10, flat
  button "Add", 25, 178 15 15 10, flat
  button "Add", 26, 178 27 15 10, flat
  button "Add", 27, 178 39 15 10, flat
  button "Add", 28, 178 52 15 10, flat
  button "Add", 29, 178 65 15 10, flat
  button "Add", 30, 178 77 15 10, flat
  button "Add", 31, 178 90 15 10, flat
  button "Remove", 32, 195 3 30 10, flat
  button "Remove", 33, 195 15 30 10, flat
  button "Remove", 34, 195 27 30 10, flat
  button "Remove", 35, 195 39 30 10, flat
  button "Remove", 36, 195 52 30 10, flat
  button "Remove", 37, 195 65 30 10, flat
  button "Remove", 38, 195 77 30 10, flat
  button "Remove", 39, 195 90 30 10, flat
  button "Volume Up", 40, 3 120 35 15,left push flat 
  button "Volume Down", 41, 40 120 35 15,left push flat
  button "< FF", 42, 78 120 35 15,left push flat
  button "FF >", 43, 115 120 35 15,left push flat 
  button "<< FF", 44, 150 120 35 15,left push flat
  button "FF >>", 45, 185 120 35 15,left push flat
  button "Vol + Small", 46, 6 84 35 15,left push flat 
  button "Vol - Small", 47, 90 84 35 15,left push flat
}

####################################################################################

;this is the alias to open the dialog.
alias mp3z {
  dialog -dm bangin_mp3z bangin_mp3z
}

;these are the button click remotes. DO NOT EDIT!
on *:dialog:bangin_mp3z:sclick:1: {
  unset %admp3
  unset %plplay
  mp3play
}
on *:dialog:bangin_mp3z:sclick:2: {
  unset %admp3
  unset %plplay
  rplay
}
on *:dialog:bangin_mp3z:sclick:3: {
  unset %admp3
  set %plplay $true
  rplay
}
on *:dialog:bangin_mp3z:sclick:4: {
  set %admp3 $true
  unset %plplay
  mp3play
}
on *:dialog:bangin_mp3z:sclick:5: {
  set %admp3 $true
  unset %plplay
  rplay
}
on *:dialog:bangin_mp3z:sclick:6: {
  set %plplay $true
  set %admp3 $true
  rplay
}
on *:dialog:bangin_mp3z:sclick:9: {
  splay pause
}
on *:dialog:bangin_mp3z:sclick:10: {
  splay stop
}
on *:dialog:bangin_mp3z:sclick:11: {
  splay resume
}
on *:dialog:bangin_mp3z:sclick:100: {
  set %mp3directory $$?="Enter Path to Mp3z:"
}

####################################################################################

on 1:dialog:bangin_mp3z:sclick:13:{
  set %mp3dir $sdir="Please Select Your Mp3 Directory" | echo -a 12M2p3 12D2irectory 12S2et 12T2o: 12 %mp3dir
  did -r bangin_mp3z 2
}

####################################################################################

on *:dialog:bangin_mp3z:sclick:24: {
  set %mpchan1 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 16 %mpchan1
}
on *:dialog:bangin_mp3z:sclick:25: {
  set %mpchan2 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 17 %mpchan2
}
on *:dialog:bangin_mp3z:sclick:26: {
  set %mpchan3 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 18 %mpchan3
}
on *:dialog:bangin_mp3z:sclick:27: {
  set %mpchan4 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 19 %mpchan4
}
on *:dialog:bangin_mp3z:sclick:28: {
  set %mpchan5 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 20 %mpchan5
}
on *:dialog:bangin_mp3z:sclick:29: {
  set %mpchan6 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 21 %mpchan6
}
on *:dialog:bangin_mp3z:sclick:30: {
  set %mpchan7 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 22 %mpchan7
}
on *:dialog:bangin_mp3z:sclick:31: {
  set %mpchan8 $$?="Enter Channel eg. #CasualChat"
  did -a bangin_mp3z 23 %mpchan8
}

####################################################################################

on *:dialog:bangin_mp3z:sclick:32: {
  unset %mpchan1
  did -r bangin_mp3z 16 %mpchan1
}
on *:dialog:bangin_mp3z:sclick:33: {
  unset %mpchan2
  did -r bangin_mp3z 17 %mpchan2
}
on *:dialog:bangin_mp3z:sclick:34: {
  unset %mpchan3
  did -r bangin_mp3z 18 %mpchan3
}
on *:dialog:bangin_mp3z:sclick:35: {
  unset %mpchan4
  did -r bangin_mp3z 19 %mpchan4
}
on *:dialog:bangin_mp3z:sclick:36: {
  unset %mpchan5
  did -r bangin_mp3z 20 %mpchan5
}
on *:dialog:bangin_mp3z:sclick:37: {
  unset %mpchan6
  did -r bangin_mp3z 21 %mpchan6
}
on *:dialog:bangin_mp3z:sclick:38: {
  unset %mpchan7
  did -r bangin_mp3z 22 %mpchan7
}
on *:dialog:bangin_mp3z:sclick:39: {
  unset %mpchan8
  did -r bangin_mp3z 23 %mpchan8
}

####################################################################################

on *:dialog:bangin_mp3z:init:*: {
  did -a bangin_mp3z 16 %mpchan1
  did -a bangin_mp3z 17 %mpchan2
  did -a bangin_mp3z 18 %mpchan3
  did -a bangin_mp3z 19 %mpchan4
  did -a bangin_mp3z 20 %mpchan5
  did -a bangin_mp3z 21 %mpchan6
  did -a bangin_mp3z 22 %mpchan7
  did -a bangin_mp3z 23 %mpchan8
}

####################################################################################

on *:dialog:bangin_mp3z:sclick:40:{ 
  /vol -v $calc( $vol(master) + 2000) 
} 
on *:dialog:bangin_mp3z:sclick:41:{ 
  /vol -v  $calc( $vol(master) - 2000) 
} 
on *:dialog:bangin_mp3z:sclick:42:{ 
  /splay -p seek $calc($insong.pos - 5000) 
} 
on *:dialog:bangin_mp3z:sclick:43:{ 
  /splay -p seek $calc($insong.pos + 5000) 
}
on *:dialog:bangin_mp3z:sclick:44:{ 
  /splay -p seek $calc($insong.pos - 10000) 
} 
on *:dialog:bangin_mp3z:sclick:45:{ 
  /splay -p seek $calc($insong.pos + 10000) 
} 
on *:dialog:bangin_mp3z:sclick:46:{ 
  /vol -v $calc( $vol(master) + 500) 
} 
on *:dialog:bangin_mp3z:sclick:47:{ 
  /vol -v  $calc( $vol(master) - 500) 
}

####################################################################################

/*
About: Returns the length or the position of a current mp3 in a basic time format. A pretty useful snippet for those who are building mp3 players. 
Usage: $inlength or $inpos or a combination of the two: $inposlen
*/

alias inlength { 
  if ($inmp3) {
    var %variable $calc($insong.length / 1000)
    return $gmt(%variable,nn:ss)
  }
}
alias inpos { 
  is ($inmp3) {
    var %variable $calc($insong.pos / 1000)  
    return $gmt(%variable,nn:ss)
  }
}

alias inposlen { 
  if ($inmp3) {
    var %a = $calc($insong.pos / 1000), %b = $calc($insong.length / 1000)  
    return $+($gmt(%a,nn:ss),$chr(47),$gmt(%b,nn:ss))
  }
}

####################################################################################

alias mp3play {
  if (%mp3dir == $null) { set %mp3dir $$?="Enter Path To Mp3z:" }
  if (!$1) var %file = $sfile(%mp3dir,Choose a MP3,Play it!)
  else %file = $1-
  if (%file == $null) { 
    echo -a ......2......12......14......15......
    echo 12 -a You didnt choose a file, choose another 
    echo -a ......2......12......14......15......
    halt
  }
  splay %file
  var %l = $duration($calc($mp3(%file).length / 1000))
  var %br = $mp3(%file).bitrate
  var %len = $bytes($file(" $+ %file $+ ").size).suf
  if ($server != $null) && (%admp3 == $true) {
    if ($me ison %mpchan1) { msg %mpchan1  4 14( $+ $nopath(%file) $+ )14( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan2) { msg %mpchan2  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan3) { msg %mpchan3  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan4) { msg %mpchan4  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan5) { msg %mpchan5  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan6) { msg %mpchan6  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan7) { msg %mpchan7  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan8) { msg %mpchan8  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
  }

else {
    echo -a ......2......12......14......15......
    echo -a 11-12Now Playing11- 12[11 $+ $nopath(%file) $+ 12] 
    echo -a 11-12Bitrate11- 12[11 $+ %br $+ Kbps12]
    echo -a 11-12Length11- 12[11 $+ %l $+ 12]
    echo -a 11-12Size11- 12[11 $+ %len $+ 12]
    echo -a ......2......12......14......15......
  }
}

####################################################################################

alias rplay {
  if (%mp3dir == $null) { set %mp3dir $$?="Enter Path To Mp3z:" }
  set %file $findfile(%mp3dir,*.mp3,$r(1,$findfile(%mp3dir,*.mp3,0)))
  splay %file
  set %l $duration($calc($mp3(%file).length / 1000))
  set %br $mp3(%file).bitrate
  set %len $bytes($file(%file).size).suf
  if ($server != $null) && (%admp3 == $true) {
    if ($me ison %mpchan1) { msg %mpchan1  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan2) { msg %mpchan2  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan3) { msg %mpchan3  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan4) { msg %mpchan4  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan5) { msg %mpchan5  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan6) { msg %mpchan6  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan7) { msg %mpchan7  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
    if ($me ison %mpchan8) { msg %mpchan8  4 14( $+ $nopath(%file) $+ )( $+ %l $+ / $+ %br %+ kbps/ $+ %len $+ ) 47� }
  }

else { 
    echo -a ......2......12......14......15......
    echo -a 11-12Now Playing11- 12[11 $+ $nopath(%file) $+ 12] 
    echo -a 11-12Bitrate11- 12[11 $+ %br $+ Kbps12]
    echo -a 11-12Length11- 12[11 $+ %l $+ 12]
    echo -a 11-12Size11- 12[11 $+ %len $+ 12]
    echo -a ......2......12......14......15......
  }
}

####################################################################################
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

on *:MP3END:{
  if (%plplay == $true) { /rplay }
}

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
####################################################################################

Comments

(1) RSS

Go to Bottom

Bangin Mp3z Player (My Version)

Introduction

Grab the Code

Comments

Phoenix847

My Snippet Tags

Contact

		Web Designer/mIRC Scripter Lilburn, GA
Last seen: May 09, 2008 Profile \| Website Snippets (5) Images (1) Comments Received (16) Comments Submitted (8)