My MP3 Player

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.5
Scores Submitted	8
Date Added	Apr 13, 2007
Last Updated	Apr 14, 2007
Tags	ascii dialog mp3 sound xstatic

Introduction

ok, fairly simple to use, right click in channel, click MP3 Player, set up ya dir, setup the message format(can use colors), set up if you want ascii or normal and if you want it to paste channel or no where.... simple

Thanks RussellReal for a little bit of help

Grab the Code

alias mpn { if ($dialog(mpnew)) dialog -v mpnew | else dialog -md mpnew mpnew }
alias mp3data { return $+(",$shortfn($scriptdirmp3data.ini),") }

dialog mpnew {
  title "Paul's Mp3 Player"
  size -1 -1 230 173
  option dbu
  box "Playlist", 1, 6 1 194 83
  list 2, 11 8 185 80, sort extsel
  button "Close", 3, 205 38 22 11, ok cancel
  box "Controls", 4, 2 95 108 39
  button "Rewind", 5, 3 104 34 11
  button "Play", 6, 38 104 34 11
  button "Stop", 7, 15 118 34 11
  button "Pause", 8, 72 104 34 11
  button "Forward", 9, 57 118 34 11
  box "Browse", 10, 3 146 226 24
  button "Mp3 Dir", 11, 6 154 34 11
  button "Refresh", 12, 193 154 34 11
  edit "", 13, 41 154 151 11, read
  box "Volume", 14, 110 87 60 24
  button "+", 15, 113 96 10 11
  button "-", 16, 125 96 10 11
  button "Mute", 17, 142 96 24 11
  box "Tunes Found", 18, 110 110 46 24
  edit "", 19, 113 119 40 11, read
  box "Message", 20, 156 110 71 26
  check "Message in Channel", 21, 162 117 64 10
  check "Use Ascii Art", 22, 162 125 64 10
  edit "Is now playing: <song>", 23, 49 136 177 11
  text "Message Format:", 24, 3 137 44 8
}

on *:dialog:mpnew:init:0: { if (%mp.pause == 1) { did -r mpnew 8 | did -a mpnew 8 Resume } | if ($vol(master).mute == $true) { did -o mpnew 17 1 Unmute } | set %mp.format $did(23) | if (%mp.msg == On) { did -c mpnew 21 } | if (%mp.ascii == On) { did -c mpnew 22 } | did -o mpnew 13 1 %mp.dir | set %mp.found $findfile(%mp.dir, *.mp3,0,did -a mpnew 2 $nopath($1-)) | did -o mpnew 19 1 %mp.found }
on *:dialog:mpnew:dclick:4: { splay %mp.temp | set %mp.play 1 | set %mp.pause 0 | did -r mp 8 | did -a mp 8 Pause | mpmsg }
on *:dialog:mpnew:sclick:2: { set %mp.file $did(2).seltext | set %mp.temp %mp.dir $+ %mp.file | set %mp.bitrate $mp3(%mp.temp).bitrate | set %mp.length $mplength | set %mp.size $round($calc($lof(%mp.temp) / 1048576),2) }
on *:dialog:mpnew:sclick:5: { if (%mp.play == 0) { halt } | else { splay seek $calc($inmp3.pos -5000) } }
on *:dialog:mpnew:sclick:6: { splay %mp.dir $+ %mp.file | set %mp.play 1 | set %mp.pause 0 | did -r mpnew 8 | did -a mpnew 8 Pause | set %mp.format $did(23) | mpmsg }
on *:dialog:mpnew:sclick:7: { splay stop | set %mp.play 0 | set %mp.pause 0 | did -r mpnew 8 | did -a mpnew 8 Pause  }
on *:dialog:mpnew:sclick:8: { if (%mp.play == 0) { halt } | elseif (%mp.pause == 1) { splay resume | set %mp.pause 0 | did -r mpnew 8 | did -a mpnew 8 Pause } | elseif ((%mp.play == 1) && (%mp.pause == 0)) { splay pause | set %mp.pause 1 | did -r mpnew 8 | did -a mpnew 8 Resume  } }
on *:dialog:mpnew:sclick:9: { if (%mp.play == 0) { halt } | else { splay seek $calc($inmp3.pos +5000) } | halt }
on *:dialog:mpnew:sclick:11: { did -r mpnew 2 | set %mp.dir $sdir="Mp3 directory" c: | did -o mpnew 13 1 %mp.dir | set %mp.found $findfile(%mp.dir, *.mp3,0,did -a mpnew 2 $nopath($1-)) | did -o mpnew 19 1 %mp.found }
on *:dialog:mpnew:sclick:12: { did -r mpnew 2 | set %mp.found $findfile(%mp.dir, *.mp3,0,did -a mpnew 2 $nopath($1-)) | did -o mpnew 19 1 %mp.found }
on *:dialog:mpnew:sclick:15: { if (%mp.play == 0) { halt } | if ($vol(master).mute == $true) { halt } | else { set %mp.vol $calc($vol(master)+7000) | vol -v %mp.vol | set %mp.vol 0 } }
on *:dialog:mpnew:sclick:16: { if (%mp.play == 0) { halt } | if ($vol(master).mute == $true) { halt } | else { if ($vol(master) < 7000) { vol -v 0 } | elseif ($vol(master) == 0) { halt } | else { set %mp.vol $calc($vol(master)-7000) | vol -v %mp.vol | set %mp.vol 0  } } }
on *:dialog:mpnew:sclick:17: { if (%mp.play == 0) { halt } | if ($vol(master).mute == $false) { vol -vu1 | did -o mpnew 17 1 Unmute } | elseif ($vol(master).mute == $true) { vol -vu2 | did -o mpnew 17 1 Mute } }
on *:dialog:mpnew:sclick:21: { if (%mp.msg == On) { set %mp.msg Off } | else { set %mp.msg On } }
on *:dialog:mpnew:sclick:22: { if (%mp.ascii == On) { set %mp.ascii Off } | else { set %mp.ascii On } }

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

alias -l mpmsg {
  if (!%mp.format) {
    splay stop
    echo -a 04Error: Please write a format of how you want it to show in the channel
    echo -a 07Example: is now play: <song>
  }
  elseif (%mp.msg == On) && (%mp.ascii == Off) && (%mp.format != $null) {
    set %mp.song1 $remove(%mp.file,.mp3)
    set %mp.song $replace(%mp.format,<song>,%mp.song1)
    ame %mp.song
  }
  elseif (%mp.msg == On) && (%mp.ascii == On) && (%mp.format != $null) {
    set %mp.song1 $remove(%mp.file,.mp3)
    set %mp.song2 $replace(%mp.format,<song>,%mp.song1)
    set %mp.name $replacecs(%mp.song2,a,�,A,�,b,�,B,�,c,�,C,�,d,�,D,�,e,�,E,�,f,�,F,�,i,�,I,�,l,�,L,�,n,�,N,�,o,�,O,�,p,�,P,�,q,�,Q,�,r,�,R,�,s,�,S,�,u,�,U,�,x,�,X,�,y,�,Y,�,!,�,?,�,>,�,<,�,2,�,3,�,half,�,fourth,�,/,�,.,�,ae,�,tm,�,TM,�)
    ame %mp.name
  }
}

menu channel,menubar {
  -
  MP3 Player (NEW):/mpn
  -
}

Comments

(34) RSS

Go to Bottom

S*A*U*R*A*B*H

Comments: 40

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:07 am

Nice, thanks FURBY ^^

Lindrian

Comments: 755

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:10 am

Havent tested it, but u could improve ur dialog coding a little :P

BrainBryce

Comments: 55

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:48 am

I dunno how to get it to work i rate it 0/10000

BrainBryce

Comments: 55

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:49 am

And how do you post scripts?

S*A*U*R*A*B*H

Comments: 40

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:50 am

and yah give a auto msg in the active chan like /me is playing <Song> <lenght>

like that with colors

BrainBryce

Comments: 55

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:55 am

hey saurabah

How do you post scripts i wanna post one

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 9:50 pm

but, the more pipes(|) i have, the harder the coding looks, so better feedback i get :P, BrainBryce to get this to work, you need to put the entire code into Remotes (alt+r) and then in any channel window right click on the background, and click MP3 PLAYER(NEW)

DarthReven

Comments: 468

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:05 pm

Its not a bad lil code

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Apr 13, 2007 11:12 pm

posted an image of it :) thanks darthreven

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Apr 14, 2007 4:19 am

all this positive feedback and only a score of 6?

Lindrian

Comments: 755

mIRC Snippet: My MP3 Player
Posted on Apr 14, 2007 6:43 am

First off, the pipes in your code doesnt make it look more advanced, but made from a user who wants it to look advanced, when it really isnt. And as ive said before, the dialog could be made better, for example, adding autohs to the edit boxes, incase someone felt for making their messages extremely long, etc.
I havent tested it, but if i would select both ascii art and normal text message, how would that work?

Id suggest using something else for that ;).

And what about adding info for how long the song is, and how long its been played?

I belive u got quite some way to go before you get a really nice code.

Lindrian

Comments: 755

mIRC Snippet: My MP3 Player
Posted on Apr 14, 2007 6:47 am

also, sorry for doubble posting but:
some if's/else's can be remade to $iif's.

there was some grammar misstakes in the code, and at the menu u dont need /

I would also suggest adding a tab, or a menu, and then add a new part on top of this dialog, to be able to exclude channels, incase you dont want to use "ame".

GL.

S*A*U*R*A*B*H

Comments: 40

mIRC Snippet: My MP3 Player
Posted on Apr 15, 2007 1:46 am

BrainBryce,
go to snippets section and you will see : Code Snippets
This is a public code snippet repository. Share your snippets with other developers to gain valuable feedback. Tag your snippets with keywords to make them easy to find.

Submit Snippet �

Click there. lol

ermansanidhya

Comments: 43

mIRC Snippet: My MP3 Player
Posted on May 29, 2007 12:40 pm

This is my favorite mp3 player, thanks FUBRY

ermansanidhya

Comments: 43

mIRC Snippet: My MP3 Player
Posted on Jun 4, 2007 5:55 am

hehehehe im forget this not work on mirc 6.21, only in mirc 6.17.Something worng or maybe my mirc.Could you make it work on mirc 6.21 ? :)

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Jun 4, 2007 6:54 am

i used 6.21 when making this MP3 Player and just checked it in other version of mIRC so it must be your mIRC

EightBall

Comments: 6

mIRC Snippet: My MP3 Player
Posted on Jul 12, 2007 9:55 pm

could there be someway to add like a random play option?

Lindrian

Comments: 755

mIRC Snippet: My MP3 Player
Posted on Jul 13, 2007 5:58 am

Eightball: That should be possible.

By using something similiar:

Code:

var %line = $did(dialog,id).lines, %play = $r(1,%line)

With that, you'll calculate the specefic line, a random one. Then you would use "%play" and find the line in the list, and play it :)

HeatedHeart

Comments: 11

mIRC Snippet: My MP3 Player
Posted on Dec 29, 2007 2:10 pm

on a, err.. different note... Bullet for my valentine rocks :D

TropicalMeltdown

Comments: 76

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 7:35 pm

hey how do yu get the artist to show up?

Eugenio

Comments: 1,103

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 8:49 pm

erm I might not like furbeh and he mite not care bout the rating but 3.5?!?
GTFO ffs
least a 6 imo ;x
and good muzik in screenshot...............

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 8:59 pm

TropicalMeltdown i'm special

Eugenio, meh thanks for the attempt, but its Hawkee.com... People think they are better then everyone else... and honestly, i wouldn't give a $#it if it was rated 1, its what i learnt from it that can't be rated.

Eugenio

Comments: 1,103

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 9:03 pm

rofl well 3.5 is abit harsh....people shouldnt rate 3 if its not usefull for them.......I have like 100 codes loaded....not all used but some are really usefull AT TIMES.........some are not usefull at all but are really good codes....

napa182

Comments: 1,153

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 9:04 pm

yeah a 3.5 is abit harsh id say a 6 as well

jonesy44

Comments: 1,086

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 9:12 pm

Rated it 10 to boost furbs' score. i know this isn't a really good thing to do, but i believe he deserves a boost here.

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 9:14 pm

awww i have fans *blushes* hahaha nahhh cheers Eugenio, Napa182 and Jonesy44 ;)

Comments: 1,400

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 9:17 pm

Um yeah dialog needs lots of work,add slider volume controls and use the same for rewind an forward is the best bet,also add double click on the list to play.`-.-´

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 9:41 pm

Yeah, when i finish off my current project, might update this....

BTW Congrats EL for over 1,000 positive comments (Hope they're possitive)

Great milestone, and i believe your the first to reach it

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 11:05 pm

^_^ Here we go people, a new MP3 Player :)

Comments: 1,400

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 11:42 pm

Nice looks cool so far and rofl im not the first to reach a thou but still psot it wen yur done;p

BlueThen

Comments: 332

mIRC Snippet: My MP3 Player
Posted on Aug 16, 2008 11:47 pm

Nice! You need to work on the alignment a bit though.

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Aug 17, 2008 12:01 am

I've changed the image also ;)

EL can i get your help? :P *will jump on your server and ask ;)*

water_dragon

Comments: 51

mIRC Snippet: My MP3 Player
Posted on Aug 17, 2008 4:28 am

i must say i like it. and i must say i like the new look ur gonna use. Keep Up
The Work F*U*R*B*Y* (10/10)

F*U*R*B*Y*

Comments: 586

mIRC Snippet: My MP3 Player
Posted on Aug 17, 2008 4:47 am

That image that is above, isn't the current one atm, its alot better:)

but thanks

My MP3 Player

Introduction

Grab the Code

Comments

FUR*BY

My Snippet Tags

Contact

Friends (29)

Sponsors

		Student Adelaide
Last seen: Oct 12, 2008 Profile \| Website Likes (28) Friends (29) Snippets (47) Images (30) Comments Received (605) Comments Submitted (586) Forum Posts (681)