Naruto Amp

+ 0 likes

Please Register to submit score.

Average Score	4.5
Scores Submitted	4
Date Added	Jan 03, 2006
Last Updated	Jan 03, 2006

Introduction

This is a Mp3 Player with Dialog. It keeps count of your Mp3's, you can change the skin color. The options are 'Play' 'Pause' 'Resume' 'Stop' 'Mp3 Directory' and 'Close'. At the bottom right hand corner it shows what song you are playing. You have two other options, Public Play On or Public Play Off. And to change your volume. If you have public play on for example, when it messages the channel, it will show the volume you have allong with some more information.

Grab the Code

alias mp3 {
  dialog -mdnie mp3 mp3 
}
alias info {
  if ($mp3(%mp3).length == 0) { set %mp3.length 0 }
  else { set %mp3.length $duration($calc($mp3(%mp3).length / 1001.02564102564096)) }
  if ($mp3(%mp3).bitrate == $null) { set %mp3.bitrate n/a }
  else { set %mp3.bitrate $mp3(%mp3).bitrate }
  if ($mp3(%mp3).sample == $null) { set %mp3.sample n/a }
  else { set %mp3.sample $calc($mp3(%mp3).sample / 1000) }
  if (Stereo isin $mp3(%mp3).mode) { set %mp3.mode Stereo }
  else { set %mp3.mode Mono }
  if ($file(%mp3).size == 0) { set %mp3.size 0 }
  else { set %mp3.size $round($calc($file(%mp3).size / 1048576),2) }
  if ($mp3(%mp3).info == $null) { return $remove($nopath(%mp3),.mp3) }
  else { return $mp3(%mp3).info }
}
dialog mp3 {
  title "Mp� Player"
  size 75 125 283 115
  option dbu
  list 2, 2 7 162 93, sort size vsbar
  edit "", 4, 167 103 115 10, read multi autohs center
  button "Play", 5, 184 10 22 10, flat
  button "Stop", 6, 184 32 22 10, flat
  button "Pause", 7, 168 21 22 10, flat
  button "Close", 100, 198 73 22 10, flat ok
  button "Mp� Folder", 9, 169 73 29 10, flat
  radio "On", 10, 227 28 25 12
  box "", 666, 0 2 166 100
  box "Controls", 667, 166 2 58 42
  radio "Off", 12, 251 28 23 12
  box "Public Play", 3, 224 20 57 21
  text "", 11, 228 9 29 11, center
  box "Mp�'s", 1, 224 2 36 17
  box "Skin Color", 13, 224 44 57 20
  scroll "", 25, 170 52 50 8, range 20 horizontal
  box "Volume", 24, 166 44 56 20
  combo 28, 231 52 44 41, size drop
  scroll "", 8, 1 103 165 8, range 100 horizontal
  box "Options", 16, 167 65 55 20
  button "Resume", 17, 200 21 22 10, flat
}
on *:dialog:mp3:init:*:{ 
  set %list.total $findfile(%mp3dir,*.mp*,0)
  did -a mp3 11 %list.total
  did -r mp3 2 | var %mp3.total = $findfile(%mp3dir,*.mp3,0, did -a mp3 2 $nopath($1-)) { did -a mp3 2 $nopath($findfile(%mp3dir,*.mp3,%x)) | inc %x } 
  did -a mp3 4 $remove($nopath(%mp3),.mp3)
  if ($group(#mp3) == on) { did -c mp3 10 }
  did -c $dname %mp3.action  
  did -i mp3 28 1 White
  did -i mp3 28 2 Black
  did -i mp3 28 3 Blue
  did -i mp3 28 4 Green
  did -i mp3 28 5 Light Red
  did -i mp3 28 6 Brown 
  did -i mp3 28 7 Purple
  did -i mp3 28 8 Orange
  did -i mp3 28 9 Yellow
  did -i mp3 28 10 Light Green
  did -i mp3 28 11 Cyan
  did -i mp3 28 12 Light Cyan
  did -i mp3 28 13 Light Blue
  did -i mp3 28 14 Pink
  did -i mp3 28 15 Grey
  did -i mp3 28 16 Light Grey
  did -c mp3 28 $calc(%mp3.c +1) 
  did -c mp3 25 %mp3.vol
}
on *:dialog:mp3:*:28:{
  set %mp3.c $chr(3) $+ $calc($did(mp3,28).sel -1)
}
on *:dialog:mp3:sclick:5:{
  if (%mp3.action == 10) { splay -p $shortfn(%mp3) | info | amsg $mp3skin } 
  if (%mp3.action == 12) { splay -p $shortfn(%mp3) | info | echo $active $mp3skin }
  set %mp3.time 5
  scroll2
}
on *:dialog:mp3:sclick:*:{
  if ($did == 2) { .set %mp3 %mp3dir $+ $did(mp3,2,$did(mp3,2).sel).text | did -ra mp3 4 $remove($nopath(%mp3),.mp3) }
  if ($did isnum 10-12) { set %mp3.action $did } 
  if ($did == 7) { .splay -p pause }
  if ($did == 17) { .splay -p resume }
  if ($did == 6) { .splay -p stop }
  if ($did == 9) { .set %mp3dir $sdir="Select Mp� List" | did -r mp3 2 | var %x = 1 | while ($findfile(%mp3dir,*.mp3,%x)) { did -a mp3 2 $nopath($findfile(%mp3dir,*.mp3,%x)) | inc %x } }
  if ($did == 100) { .splay -p stop }
}   
on *:dialog:mp3:scroll:25:{
  if ($did == 25) {
    if ($did(25).sel == 20) { vol -p 65535) | set %mp3.vols 4||||||||||||||||||| } 
    elseif ($did(25).sel == 19) { vol -p 57000) | set %mp3.vols  8||7||||4||||||||||||| } 
    elseif ($did(25).sel == 18) { vol -p 54000) | set %mp3.vols  8|||7|||4||||||||||||| } 
    elseif ($did(25).sel == 17) { vol -p 51000) | set %mp3.vols 9|8|||7|||4|||||||||||| } 
    elseif ($did(25).sel == 16) { vol -p 48000) | set %mp3.vols 9||8||||7|||4|||||||||| } 
    elseif ($did(25).sel == 15) { vol -p 45000) | set %mp3.vols 9|||8||||7||||4||||||||| } 
    elseif ($did(25).sel == 14) { vol -p 42000) | set %mp3.vols 9|||8||||7||||4|||0|||||| } 
    elseif ($did(25).sel == 13) { vol -p 39000) | set %mp3.vols 9|||8||||7||||4||0||||||| } 
    elseif ($did(25).sel == 12) { vol -p 36000) | set %mp3.vols 9|||8||||7||||4|0|||||||| } 
    elseif ($did(25).sel == 11) { vol -p 33000) | set %mp3.vols 9|||8||||7||||4|0|||||||| } 
    elseif ($did(25).sel == 10) { vol -p 30000) | set %mp3.vols 9|||8||||7||||0||||||||| } 
    elseif ($did(25).sel == 9) { vol -p 27000) | set %mp3.vols 9|||8||||7||0||||||||||| } 
    elseif ($did(25).sel == 8) { vol -p 24000) | set %mp3.vols 9|||8||||7|0|||||||||||| } 
    elseif ($did(25).sel == 7) { vol -p 21000) | set %mp3.vols 9|||8||||0||||||||||||| } 
    elseif ($did(25).sel == 6) { vol -p 18000) | set %mp3.vols 9|||8|||0|||||||||||||| } 
    elseif ($did(25).sel == 5) { vol -p 15000) | set %mp3.vols 9|||8||0||||||||||||||| } 
    elseif ($did(25).sel == 4) { vol -p 12000) | set %mp3.vols 9|||8|0|||||||||||||||| } 
    elseif ($did(25).sel == 3) { vol -p 9000) | set %mp3.vols 9|||0||||||||||||||||| } 
    elseif ($did(25).sel == 2) { vol -p 6000) | set %mp3.vols 9||0|||||||||||||||||| } 
    elseif ($did(25).sel == 1) { vol -p 3000) | set %mp3.vols 9|0||||||||||||||||||| } 
    elseif ($did(25).sel == 0) { vol -p 0) | set %mp3.vols 0|||||||||||||||||||| }
    set %mp3.vol $did(25).sel
  }
}
on *:dialog:mp3:scroll:8:{
  if ($inmp3 == $true) {
    var %perc = $round($calc($did(mp3,8).sel / 22000 * $inmp3.length),0)
    .splay seek  $calc((%perc + $did(mp3,8).sel) * 200)
    .timer 1 2 scroll2
  }
}
alias scroll2 {
  .timerscroll -m 0 1 scroll
}
alias -l scroll {
  if ($dialog(mp3) != $null) && ($inmp3 == $true) { 
    did -c mp3 8 $round($calc($calc($insong.pos / $insong.length) * 100),0)
  }
  elseif ($dialog(mp3) != $null) && ($inmp3 == $true) {
    .timerscroll off
  }
  if ($inmp3 != $true) {
    .timerscroll off
    if ($dialog(mp3) != $null) {
    }
  }
}
menu channel {
  Mp� Player:mp3
}
alias logo { return [Naruto Amp] }
alias mp3skin { return $logo $+ $chr(3) $+ %mp3.c $+  �14[15Mp�14:15 $remove($nopath(%mp3),.mp3) $+ 14] $+ $char(3) $+ %mp3.c $+ �14)( $+ $chr(3) $+ %mp3.c $+ �14[15Length14:15 %mp3.length $+ 14] $+ $chr(3) $+ %mp3.c $+ �14)( $+ $chr(3) $+ %mp3.c $+ �14[15Performance14:15 $+ %mp3.bitrate $+ $chr(3) $+ %mp3.c $+ . $+ $chr(3) $+ Kbs $char(3) $+ %mp3.c $+ � $+ 15 %mp3.sample $+ $chr(3) $+ %mp3.c $+ . $+ $chr(3) $+ Khz14] $+ $char(3) $+ %mp3.c $+ �14)( $+ $chr(3) $+ %mp3.c $+ �14[15Size14:15 %mp3.size $+ Mb14] $+ $chr(3) $+ %mp3.c $+ �14)( $+ $chr(3) $+ %mp3.c $+ �14[15Mode14:15 %mp3.mode $+ 14] $+ $chr(3) $+ %mp3.c $+ �14)( $+ $chr(3) $+ %mp3.c $+ �14[15Volume: $+ %mp3.vols $+ 14] $+ $chr(3) $+ %mp3.c $+ � }

Comments

(11) RSS

Go to Bottom

Kakashi_Hatake

Comments: 7

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 2:36 pm

Generous score. ;)

RoninWarrior

Comments: 252

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 3:38 pm

well i loaded the mp3 player and upon useing the popup , and the player opening i get this error.
-
* /did: insufficient parameters (line 162, events.mrc)
-
and also when you are playing the mp3 player and you are not connected to a server you get this error
-
* /amsg: not connected to server (line 186, events.mrc)
-
all in all there is no inital load of variables like the radio boxes for the on off for public play, skin color , and the scroll bar at the bottom doesnt work either ,also for the scroll id num. 25 you have set %mp3.vols 4||||||||||||||||||| color codes this is for what ? to show the volume going up and down and if so were is it at ? and the amsg song name to all channels not good for not every channel allows spam,colors so on that note i will list improvments

1 list box needs to be smaller , to large for the dialog
2 button alignment the letters / words all look cramped
3 overall alignment for the dialog in genral needs improvment
read on did -r and -h
4 the radio button for on needs resized it rund over the off radio
5 finally to get a bit fancy you can resize the dialog and listbox to match and add in a resizable button to hide / show the rest of the options

Kakashi_Hatake

Comments: 7

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 5:08 pm

This worked perfectly fine for me Ronin, I never had any of those errors except the /did command thing. I'm still fixing that, I seriously don't know what is wrong with it but for me it's perfect. The dialog box where it shows the songs is large because some of my files are large and I'd rather see the full song instead of it being cramped. None of the buttons are cramped when I use it, the scroll bar works also, when I unloaded then loaded it again to test nothing was wrong with it. I don't know what's wrong, Sorry,

RoninWarrior

Comments: 252

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 5:36 pm

because you are loading and unload in the same mirc with the same variables still loaded in the mirc that is why and yes look at the buttons the button "Mp� Folder", 9, 169 73 29 10, flat the mp3 folder runs into the edges of the buttons

RoninWarrior

Comments: 252

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 5:41 pm

upon loading this as stated before and when you open as stated before there are not options set there fore you get the $did error have it to were when it is loaded it auto sets these variables
%x 3
%mp3.action 10
%mp3.vols 4|||||||||||||||||||
%mp3.vol 20
and also the %x 3 is setting to 3 when it should be 0 or maybe 1 being i havent loaded a dir into it yet so it shouldnt be showing %x 3 for 3 songs.

RoninWarrior

Comments: 252

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 5:42 pm

%list.total
here is another variable it is setting on opening the dialog the very first time with no dir set also

Kakashi_Hatake

Comments: 7

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 5:52 pm

It doesn't run on the edge for me. I never saw %list.total when I cleared my Variables and loaded the script.

RoninWarrior

Comments: 252

mIRC Snippet: Naruto Amp
Posted on Jan 3, 2006 6:58 pm

%list.total loads as a variable before
%x 1 thats the inc %x var.

xDaeMoN

Comments: 696

mIRC Snippet: Naruto Amp
Posted on Jan 4, 2006 12:17 am

I agree with Ronin with the %list.total variable being set upon opening the mp3 player through the popup. Also there should be set defaults upon first use so there would be no error message, example is the %mp3.action variable. Also I found errors on the mp3skin alias. There are some "$char" that should be "$chr". Other than that, not bad. =)

RoninWarrior

Comments: 252

mIRC Snippet: Naruto Amp
Posted on Jan 5, 2006 11:42 am

upon reading of the other snippets / addons from Kakashi Hatake i got to wondering and found this same mp3 player minus a couple of the normal variables being changed that this is infact ripped from the crucify v1 script by ravi_1 i think is his nick im not for sure if ravi_1 ripped it also or not i am not for sure
http://www.mircscripts.com/cgi-bin/file.php?id=185
now Kakashi_Hatake did add a couple buttons and change the variables around but the 2 mp3 players do set the basic variable exactly the same way and the lay out is the same also before being changed with a dialog editor.

Yoinx

Comments: 424

mIRC Snippet: Naruto Amp
Posted on Jan 6, 2006 1:48 pm

the reason for the size difference in the earlier comments is because dbu doesnt translate into a certain number of pixels.. so the size will always change depending on the resolution.

Kakashi_Hatake

		Home, duh
Last seen: Jan 04, 2006 Profile Snippets (3) Comments Received (19) Comments Submitted (7)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Naruto Amp

Introduction

Grab the Code

Comments

Kakashi_Hatake

My Snippet Tags

Contact

Sponsors