Mp3 help - 23/08/03 08:22 PM
I'm making an mp3player on my mIRC , but it doesn't work , could any1 help me out ?that would be very
here is the code
here is the code
Code:
dialog boogymp3 { title "Mp3 Player by C3ll` aka Bøøgyman" size -1 -1 165 172 option dbu list %amout.mp3, 5, 4 4 156 119, size box "Options", 15, 4 124 120 29 button "Play", 1, 37 132 25 16, flat button "[ ]", 2, 66 132 25 16, flat button "Select Dir", 8, 130 132 27 16, flat button "Random", 13, 95 132 25 16, flat button "Pause", 3, 8 132 25 8, flat button "Bitch", 30, 141 322 75 25, hide ok cancel button "Close", 6, 4 156 158 12, flat ok box "", 56, 125 124 37 29 button "Resume", 4, 8 140 25 8, flat } on *:dialog:boogymp3:sclick:* { if ($did == 1) { splay %mp3.dir $+ $did($dname,5).seltext ame BøøgyMp3 ~ Listening 2 :: $did($dname,5).seltext set %mp3 $did($dname,5).seltext did -a mp3 14 %mp3 set %playtype off } if ($did == 2) { splay stop set %playtype off did -a mp3 14 set %mp3 set %playtype } if ($did == 8) { %mp3.dir = $sdir(Select your new mp3 directory.) did -a mp3 5 set %amout.mp3 = $findfile(%mp3.dir,*.mp3,0,did -a mp3 5 $nopath($1-)) } if ($did == 3) { splay pause } if ($did == 4) { splay resume } if ($did == 13) { var %x = $findfile(%mp3.dir,*.mp3,0,write randplay.txt $1-) set %mp3 $read(randplay.txt) splay %mp3 amsg BøøgyMp3: $did($dname,5).seltext did -a mp3 14 $replace(%mp3,%mp3.dir, ) set %playtype Rand mp3chan } } on *:dialog:boogymp3:init:0: { if (%mp3.dir == $null) { %mp3.dir = $sdir(Select your mp3 directory.) ;Sets the mp3 dir on start } set %amout.mp3 = $findfile(%mp3.dir,*.mp3,0,did -a mp3 5 $nopath($1-)) } on *:mp3end: { If ( %playtype == off ) { set %mp3 did -a mp3 14 %mp3 } If ( %playtype == Rand ) { var %x = $findfile(%mp3.dir,*.mp3,0,write randplay.txt $1-) set %mp3 $read(randplay.txt) splay %mp3 did -a mp3 14 $replace(%mp3,%mp3.dir, ) set %playtype Rand mp3chan } } if ($did == buttoncode) { if (%mp3.vol <= 0) { set %mp3.vol 0 | goto endd } elseif (%mp3.vol != 0) { goto down } :down %mp3.vol = $calc(%mp3.vol -6.5) vol -p $calc(%mp3.vol * 1000) :endd } if ($did == buttoncode) { if (%mp3.vol >= 65) { set %mp3.vol 65 | goto endd } elseif (%mp3.vol != 65) { goto upp } :upp %mp3.vol = $calc(%mp3.vol +6.5) vol -p $calc(%mp3.vol * 1000) :endw } on ^*:LOAD:#:echo # 4(2Loaded BøøgyMp34) | echo # 4(2Made by Bøøgyman4) | echo # 4(2Type /boogymp3 to open it or use popups4) alias boogymp3 { if ($dialog(boogymp3) == $null { dialog -m boogymp3 boogymp3 }) }