Mp3 Player

[IrcdMaster]

; Mp3 Player By CaRtOs
alias mp3 { dialog -dm mp3 mp3 | set %mp3 $findfile(%location,*.mp3 ,0,1,did -a mp3 1 $nopath($1-)) }
menu menubar,channel {
-
Lecteur mp3:/mp3
-
}
on *:load:{
/echo -a 4Mp3 Player Yuklendi.
}
dialog mp3 {
title "Mp3 Player By CaRtOs "
size -1 -1 152 170
option dbu
text "Mp3 Player", 1, 0 10 150 8, center
button "Play", 2, 6 26 36 12
button "Stop", 3, 6 44 36 12
button "Pause", 4, 6 64 36 12
button "Tekrar", 5, 6 84 36 12
button "+", 7, 6 124 13 12
button "-", 8, 30 138 12 12
list 11, 46 54 102 102, size
box "Bilgiler", 12, 46 19 102 34
text "Title :", 13, 48 28 16 8
text "sure :", 16, 48 40 24 8
box "Volume", 18, 2 112 44 44
box "Control", 19, 2 18 44 82
text "© 2006 CaRtOs", 20, 2 160 62 8
edit "", 21, 66 26 82 10, disable autohs
edit "", 24, 68 39 40 10, disable autohs
button "repertuari seciniz ", 25, 0 0 150 8
button "kapat", 6, 71 159 76 10, ok cancel
}

On *:dialog:init:*:*{
/autoauth

On *:dialog:mp3:sclick*:*:{
if ($did == 25) {
set %location $sdir="repertuari seciniz" C:\
did -ra mp3 1 %location
set %mp3 $findfile(%location,*.mp3 ,0,1,did -a mp3 11 $nopath($1-))
}
if ($did == 8) {
vol -v $calc($vol(master) - 5000)
}
if ($did == 4) {
splay -p pause
}
if ($did == 2) {
set %mp3 %location $+ $did(11).seltext
set %mp3titre $mp3(%mp3).title
set %mp3time $duration($calc($mp3(%mp3).length / 1000 ))
if (%mp3 == $null) { /echo -a 4Error ! 1Lutfen Listeden bir mp3 seciniz ! }
if (%mp3titre == $null) { set %mp3titre [Inconnu] }
if (%mp3time == $null) { set %mp3time [Inconnu] }
did -ra mp3 21 %mp3titre
did -ra mp3 24 %mp3time
/msg $chan 7¬ 10Mp³ 4•2 %mp3titre 4• 7-»2 %mp3time 7¬
splay %mp3
}
if ($did == 5) {
splay -p resume
}
if ($did == 7) {
vol -v $calc($vol(master) + 5000)
}
if ($did == 3) {
splay -p stop
}
}

[endorex]

kardeş bunları nerden ekliyoruz hala anlmış değilim alt + r den mi?

[ApachE]

payLa$ım qüzeL , Emeqine saqLiq .