mIRC Homepage
Posted By: Dr4g0n im scripting once again - 10/05/04 07:20 PM
lo there i posted this a year ago!! and i stopped scripting i lost my files and i searched for my mp3 script

alias /mp3 { dialog -m mp3 mp3 | did -r mp3 11 | var %x = $findfile(%mp3dir,*mp3,0,did -a mp3 11 $nopath($1-)) }
alias f3 mp3

dialog mp3 {
title "Mp³ Player"
size -1 -1 130 80
option dbu
tab "Main", 1, 1 -2 128 69
button "Play", 2, 90 22 32 8, tab 1
button "Pause", 3, 90 30 32 8, tab 1
button "Stop", 4, 90 46 32 8, tab 1
button "Resume", 5, 90 38 32 8, tab 1
button "Refresh", 6, 90 54 32 8, tab 1
button "Exit", 7, 1 71 23 8, ok
text "© by Dragon", 8, 91 71 32 8, disable
box "Mp³ List", 9, 4 14 84 50, disable tab 1
box "Navigation", 10, 88 14 36 50, tab 1
list 11, 6 21 80 41, tab 1 sort size
tab "Gadgets", 12, 1 -2 128 69
box "Hide Message", 13, 5 14 47 18, tab 12
check "Yes", 14, 7 21 22 10, tab 12
check "No", 15, 30 21 20 10, tab 12
box "Switch Layout", 16, 5 34 47 19, tab 12
check "[ 1 ]", 17, 7 41 19 10, tab 12
check "[ 2 ]", 18, 30 41 20 10, tab 12
button "Mp3 Count", 20, 80 22 33 8, tab 12
box "Navigation", 22, 78 14 37 27, tab 12
button "Set Dir", 23, 80 30 33 8, tab 12
text "©2003 Dragon", 24, 77 48 39 8, tab 12 disable
}

on *:dialog:mp3:sclick:*: {
if $did = 3 { .splay pause }
if $did = 4 { .splay stop }
if $did = 5 { .splay resume }
if $did = 6 { did -r mp3 11 | var %x = $findfile(%mp3dir,*mp3,0,did -a mp3 11 $nopath($1-)) }
if $did = 14 { .set %mp3msg yes }
if $did = 15 { .set %mp3msg no }
if $did == 23 { .set %mp3dir $sdir="Select Prefered Directory" }
if $did == 20 {
if (%mp3dir == $null) {
echo -a $dstime 15(9C15ant count no dir selecte9d15)
return
}
.msg $active 9(15( 9D15emon I9S 15)9) 15(9C15oun9T15: $findfile(%mp3dir,*.mp3,0) 9m15p3'z15) 15(9D15ir: %mp3dir $+ 15)
echo $active $dstime $dsme 9(15( 9D15emon I9S 15)9) 15(9C15oun9T15: $findfile(%mp3dir,*.mp3,0) 9m15p3'z15) 15(9D15ir: %mp3dir $+ 15) | Halt }
}
if $did == 2 {
if $did(mp3,11).seltext == $null {
echo -a $dstime 15(9C15ant play no file selecte9d15)
return
}
.set %mp3activ %mp3dir $+ $did(mp3,11,$did(mp3,11).sel).text
if (%mp3msg == no) {
.splay %mp3activ
.msg $active 9(15( 9D15emon I9S 15)9) 15(9M15p³) (9F15ile: $nopath($remove(%mp3activ,*,.mp3)) $+ 15) 9(15( $+ $left($calc($file( $+ %mp3activ $+ ).size / 1000000),4) M9b9)15) 9(15( $+ $remove($duration($calc($mp3(%mp3activ).length / 1000 )),ins,ecs) $+ 9)15) 9(15( $+ $mp3(%mp3activ).bitrate 9K15b/P9s $+ 9)15)
echo $active $dstime $dsme 9(15( 9D15emon I9S 15)9) 15(9M15p³) (9F15ile: $nopath($remove(%mp3activ,*,.mp3)) $+ 15) 9(15( $+ $left($calc($file( $+ %mp3activ $+ ).size / 1000000),4) M9b9)15) 9(15( $+ $remove($duration($calc($mp3(%mp3activ).length / 1000 )),ins,ecs) $+ 9)15) 9(15( $+ $mp3(%mp3activ).bitrate 9K15b/P9s $+ 9)15) }
if (%mp3msg == yes) {
.splay %mp3activ
echo $active $dstime $dsme 15(9H15idden15) 9(15( 9D15emon I9S 15)9) 15(9M15p³) (9F15ile: $nopath($remove(%mp3activ,*,.mp3)) $+ 15) 9(15( $+ $left($calc($file( $+ %mp3activ $+ ).size / 1000000),4) M9b9)15) 9(15( $+ $remove($duration($calc($mp3(%mp3activ).length / 1000 )),ins,ecs) $+ 9)15) 9(15( $+ $mp3(%mp3activ).bitrate 9K15b/P9s $+ 9)15) }
}

and offcourse it doesnt works the buttons dont respond to my clicks :S
Posted By: Iori Re: im scripting once again - 10/05/04 09:58 PM
This fixes a bracket mismatch only.
Code:
on *:dialog:mp3:sclick:*: {
  if $did = 3 { .splay pause }
  if $did = 4 { .splay stop }
  if $did = 5 { .splay resume }
  if $did = 6 { did -r mp3 11 | var %x = $findfile(%mp3dir,*mp3,0,did -a mp3 11 $nopath($1-)) }
  if $did = 14 { .set %mp3msg yes }
  if $did = 15 { .set %mp3msg no }
  if $did == 23 { .set %mp3dir $sdir="Select Prefered Directory" }
  if $did == 20 {
    if (%mp3dir == $null) {
      echo -a $dstime 15(9C15ant count no dir selecte9d15)
      return
    }
    .msg $active 9(15( 9D15emon I9S 15)9) 15(9C15oun9T15: $findfile(%mp3dir,*.mp3,0) 9m15p3'z15) 15(9D15ir: %mp3dir $+ 15)
    [color:red]; here was the mismatch
    echo $active $dstime $dsme 9(15( 9D15emon I9S 15)9) 15(9C15oun9T15: $findfile(%mp3dir,*.mp3,0) 9m15p3'z15) 15(9D15ir: %mp3dir $+ 15)
    Halt
  }
  ;[/color]
  if $did == 2 { 
    if $did(mp3,11).seltext == $null {
      echo -a $dstime 15(9C15ant play no file selecte9d15)
      return
    }
    .set %mp3activ %mp3dir $+ $did(mp3,11,$did(mp3,11).sel).text
    if (%mp3msg == no) {
      .splay %mp3activ
      .msg $active 9(15( 9D15emon I9S 15)9) 15(9M15p³) (9F15ile: $nopath($remove(%mp3activ,*,.mp3)) $+ 15) 9(15( $+ $left($calc($file( $+ %mp3activ $+ ).size / 1000000),4) M9b9)15) 9(15( $+ $remove($duration($calc($mp3(%mp3activ).length / 1000 )),ins,ecs) $+ 9)15) 9(15( $+ $mp3(%mp3activ).bitrate 9K15b/P9s $+ 9)15)
      echo $active $dstime $dsme 9(15( 9D15emon I9S 15)9) 15(9M15p³) (9F15ile: $nopath($remove(%mp3activ,*,.mp3)) $+ 15) 9(15( $+ $left($calc($file( $+ %mp3activ $+ ).size / 1000000),4) M9b9)15) 9(15( $+ $remove($duration($calc($mp3(%mp3activ).length / 1000 )),ins,ecs) $+ 9)15) 9(15( $+ $mp3(%mp3activ).bitrate 9K15b/P9s $+ 9)15)
    }
    if (%mp3msg == yes) { 
      .splay %mp3activ
      echo $active $dstime $dsme 15(9H15idden15) 9(15( 9D15emon I9S 15)9) 15(9M15p³) (9F15ile: $nopath($remove(%mp3activ,*,.mp3)) $+ 15) 9(15( $+ $left($calc($file( $+ %mp3activ $+ ).size / 1000000),4) M9b9)15) 9(15( $+ $remove($duration($calc($mp3(%mp3activ).length / 1000 )),ins,ecs) $+ 9)15) 9(15( $+ $mp3(%mp3activ).bitrate 9K15b/P9s $+ 9)15)
    }
  }
}
Posted By: Dr4g0n Re: im scripting once again - 11/05/04 07:47 PM
well thanks but it aint working yet :x
© mIRC Discussion Forums