mp3 playa

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 01, 2008
Last Updated	Mar 01, 2008
Tags	mp3 playa

Introduction

first mp3 playa just copy and paste in remotes then click in channel click on sToOpIdzm�3�� feed back much needed thanks

Grab the Code

alias pmp3 {
  dialog -dxm mp3 mp3
}
menu channel {
  -
  sToOpIdzm�3����:/pmp3
}
dialog Mp3 {
  title "sToOpIdzm�3����"
  size -1 -1 200 120
  option dbu
  list 1, 1 29 105 90, size vsbar
  edit "", 2, 108 109 26 10, read
  edit "", 3, 111 1 30 10, read
  text "Total Mp3's", 4, 147 2 30 8
  text "Time Left", 5, 109 100 25 8
  button "Play", 6, 107 16 37 12
  button "Pause", 7, 107 32 37 12
  button "Stop", 8, 107 48 37 12
  button "Next", 9, 107 63 37 12
  button "Previous", 10, 107 79 37 12
  button "Set Mp3 Directory", 11, 138 107 56 12
  edit "", 12, 17 15 64 10, read center
  text "Playlist", 13, 39 5 18 8
  radio "Echo", 18, 149 24 42 11, push
  radio "Active", 19, 149 41 42 11, push
  radio "Amsg", 20, 149 56 42 11, push
  radio "None", 21, 149 72 42 11, push
}
on 1:dialog:mp3:sclick:22:{
  set %newlist $$?"Playlist name:?"
  if (%newlist == $read(playlists.txt,s,%newlist)) halt
  did -a mp3 15 %newlist
  write playlists.txt %newlist
}

on 1:dialog:mp3:sclick:14:{
if (%random != on) {
  set %random on
}
else {
  set %random off
}
alias plist2 {
  var %z = 1
  :loop
  if ($read(playlists.txt,%z) == $null) halt

inc %z
  goto loop
}
on 1:dialog:mp3:sclick:11:{
  set %popdir $$sdir(,sToOpIdZ m�3 Select your music folder.)
  .window -elhns @playlist
  .aline @playlist $findfile(%popdir,*.mp?,0,aline @playlist $1-)
  .if ( $exists(playlist.txt) == $true ) { .remove playlist.txt }
  .filter -wf @playlist playlist.txt *.mp?
  .window -c @playlist
  .timer 1 1 /plist
  .set %playlist Playlist
  if ($read(playlists.txt,1) == $null) {
    .timer 1 1 /did -a mp3 15 AllMp3s
    .timer 1 1 /write playlists.txt AllMp3s
  }
  .did -ra mp3 12 AllMp3s
  .did -ra mp3 3 $lines(%playlist $+ .txt)
}
alias Lines {
  var %x = 1
  set %lines 0
  :next
  if ($read($1,%x) == $null) {
    goto end
  }
  inc %lines
  inc %x 
  goto next
  :end
  return %lines
  unset %lines
  halt
}
on 1:dialog:mp3:sclick:9:{
  set %lastline $did(1).sel 
  inc %playline
  if ($read(%playlist $+ .txt,%playline) == $null) {
    set %playline 1
  }
  if (%random != on) {
    .splay $read(%playlist $+ .txt,%playline)
  }
  else {
    set %playline $rand(1,$lines(%playlist $+ .txt))
    .splay $read(%playlist $+ .txt,%playline)
  }
  ptime2
  .did -ck mp3 1 %playline
  .set %song $nopath($read(%playlist $+ .txt,%playline))
  .timer 1 1 /inform
}
on 1:dialog:mp3:sclick:10:{
  if (%random != on) {
    dec %playline
  }
  else {
    set %playline %lastline
  }
  ptime2
  .splay $read(%playlist $+ .txt,%playline)
  .set %song $nopath($read(%playlist $+ .txt,%playline))
  .did -ck mp3 1 %playline
  .timer 1 1 /inform
}
on 1:dialog:mp3:dclick:1:{
  if (%lastline == $null) {
    set %lastline $did(1).sel
  }
  splay -p %popdir $+ $did(1).seltext $+ .mp3
  .ptime2
  set %playline $did(1).sel
  set %song $did(1).seltext
  /timer 1 1 /inform
}

on 1:dialog:mp3:sclick:6:{
  if (%pause == on) {
    /splay resume
    /ptime2
    .unset %pause
    halt
  }
  if (%lastline == $null) {
    set %lastline $did(1).sel
  }
  /ptime2
  splay -p %popdir $+ $did(1).seltext $+ .mp3
  set %playline $did(1).sel
  set %song $did(1).seltext
  /timer 1 1 /inform
}
alias ptime2 {
  if (%pause != on) {
    set %ptime $calc($sound($read(%playlist $+ .txt,%playline)).length - 3000)
  }
  timerpt 0 1 /eptime
  timerpt2 0 1 /ptime1
}
alias eptime {
  did -r mp3 2
  var %time = $remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s)
  if ($calc(%ptime / 1000) < 59) {
    if ($len($gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 1 , 32)) == 2) {
      .did -a mp3 2 0: $+ $gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 1 , 32))
    }
    else {
      .did -a mp3 2 0:0 $+ $gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 1 , 32))
    }
  } 
  elseif ($len($gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 2 , 32)) == 2) {
    .did -a mp3 2 $gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 1 , 32) $+ : $+ $iif($gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 2 , 32) == $null , 0 , $gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 2 , 32)) 
  }
  else {
    .did -a mp3 2 $gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 1 , 32) $+ : $+ 0 $+ $iif($gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 2 , 32) == $null , 0 , $gettok($remove( $duration($calc(%ptime / 1000)) , sec , secs , mins , min , s) , 2 , 32)) 
  }
}

alias ptime1 {
  set %ptime $calc(%ptime - 1000)
}
on 1:dialog:mp3:sclick:8:{
  timerpt off
  timerpt2 off
  /splay stop
}
on 1:dialog:mp3:sclick:7:{
  timerpt off
  timerpt2 off
  set %pause on
  /splay pause
}
on 1:dialog:mp3:init:0:{
  if (%amsg == on) did -c mp3 20
  if (%active == on) did -c mp3 19
  if (%echo == on) did -c mp3 18
  if (((%active != on) && (%amsg != on) && (%echo != on))) did -c mp3 21

if (%playlist == playlist) {
    did -a mp3 12 AllMp3s
  }
  else {
    did -a mp3 12 %playlist
  }
  did -r mp3 3
  .did -a mp3 3 $lines(%playlist $+ .txt)
  if (%random == on) {
    did -c mp3 14
  }
  plist
  timer 1 1 /plist2
}
on 1:dialog:mp3:sclick:28:{
  vol -v $calc($vol(master) + 5000)
  did -r mp3 26
  .did -a mp3 26 $vol(master)
}
on 1:dialog:mp3:sclick:29:{
  vol -v $calc($vol(master) - 5000)
  did -r mp3 26
  .did -a mp3 26 $vol(master)
}
on 1:dialog:mp3:sclick:31:{
  if (%playlist == playlist) halt
  if ($did(1).seltext == $null) halt
  write -dl $+ $did(1).sel %playlist $+ .txt
  .plist
}
on 1:dialog:mp3:sclick:23:{
  if ($did(15).seltext == $null) halt
  if ($did(15).seltext == AllMp3s) halt
  remove $did(15).seltext $+ .txt
  write -dl $+ $did(15).sel playlists.txt 
  did -r mp3 15
  .plist2
}
on 1:dialog:mp3:sclick:30:{
  if ($did(15).seltext == AllMp3s) {
    set %playlist playlist
    .did -ra mp3 12 AllMp3s
  }
  else {
    set %playlist $did(15).seltext
    .did -ra mp3 12 %playlist
  }
  .set %playline 1
  .plist
  .splay $read(%playlist $+ .txt,%playline)
  .did -ck mp3 1 %playline
  .did -ra mp3 3 $lines(%playlist $+ .txt)
  .ptime2
  .set %song $nopath($read(%playlist $+ .txt,%playline))
  .timer 1 1 /inform
}
on 1:dialog:mp3:sclick:17:{
  if (%playlist == $did(15).seltext ) halt
  if (%playlist == $did(15).seltext) halt
  if (($did(1).seltext == $null) || ($did(15).seltext == $null)) halt
  if ($did(15).seltext == Allmp3s) {
    write playlist $+ .txt $read(%playlist $+ .txt,$did(1).sel)
    halt
  }
  write $did(15).seltext $+ .txt $read(%playlist $+ .txt,$did(1).sel)
}
on 1:mp3end:{
  set %lastline %playline
  if (%random != on) {
    inc %playline
  }
}
  else {
    set %playline $rand(1,$lines(%playlist $+ .txt))
  }
  /ptime2
  did -ck mp3 1 %playline
  splay $read(%playlist $+ .txt,%playline)
  set %song $nopath($read(%playlist $+ .txt,%playline))
  .timer 1 1 /inform

alias inform {
  if (%amsg == on) {
    /ame 4{14iZ4}{14ޣ���n4}{14 $+ %song $+ 4}{14 $+ $remove( $duration( $calc( $sound($read(%playlist $+ .txt,%playline)).length / 1000 ) ) , secs , sec ) $+ secs4}{14sToOpIdzm�3����4}  }
  if (%active == on) {
    /msg $active 4{14iZ4}{14ޣ���n4}{14 $+ %song $+ 4}{14 $+ $remove( $duration( $calc( $sound($read(%playlist $+ .txt,%playline)).length / 1000 ) ) , secs , sec ) $+ secs4}{14sToOpIdzm�3����4}
  }
  if (%echo == on) {
    echo -a 4{14iZ4}{14ޣ���n4}{14 $+ %song $+ 4}{14 $+ $remove( $duration( $calc( $sound($read(%playlist $+ .txt,%playline)).length / 1000 ) ) , secs , sec ) $+ secs4}{14sToOpIdzm�3����4}
  }

on 1:dialog:mp3:close:0:{
  timerpt* off
  splay stop
}
on 1:dialog:mp3:sclick:*:{
  if ($did == 20) {
    set %amsg on
    set %active off
    set %echo off
    did -u mp3 19
    did -u mp3 18
    did -u mp3 21

}
  if ($did == 19) {
    set %active on
    set %amsg off
    set %echo off
    did -u mp3 20
    did -u mp3 18
    did -u mp3 21

}
  if ($did == 18) {
    set %echo on
    set %active off
    set %amsg off
    did -u mp3 19
    did -u mp3 20
    did -u mp3 21
  }
  if ($did == 21) {
    set %none on
    set %active off
    set %amsg off
    set %echo off
    did -u mp3 19
    did -u mp3 18
    did -u mp3 20
  }

alias plist {
  did -r mp3 1
  set %pm.10 1
  set %pm.11 $lines(%playlist $+ .txt)
  :loop
  set %pm.12 $read -l $+ %pm.10 %playlist $+ .txt
  set %pm.13 $nopath(%pm.12)
  if ( $right(%pm.13,4) == .mp3 ) { set %pm.13 $remove(%pm.13,.mp3) }
  did -a mp3 1 %pm.13
  inc %pm.10
  if ( %pm.10 <= %pm.11 ) goto loop
  unset %pm.10 %pm.12 %pm.13
}
on *:mp3end: { 
  splay -p $shortfn($filename) 
}

Comments

(1) RSS

Go to Bottom

jonesy44

Comments: 1,072

mIRC Snippet: mp3 playa
Posted on Mar 1, 2008 5:47 pm

Few things to say:
1) Nice script, works for me.
2) Dialog is a bit messy:s perhaps could use some better alignments
3) Your missing a close bracket at the end

Code:

on *:mp3end: {
splay -p $shortfn($filename)

4) You have one too many brackets near the start

Code:

.. did -a mp3 15 %newlist
write playlists.txt %newlist
}
}

Apart from that, gj (Y)

mp3 playa

Introduction

Grab the Code

Comments

sToOpiDPiMp

My Snippet Tags

Contact

Sponsors