dialog mp3 {
title "Mp3 Player By SuLh"
size -1 -1 140 164
option dbu
list 1, 6 15 74 121, size
button "Ekle", 2, 6 140 34 18
button "Sil", 3, 48 140 33 18
button "Gönder", 4, 88 15 42 20
button "Sıradaki", 5, 88 40 42 20
button "Çal", 6, 88 66 42 20
button "Durdur", 7, 88 91 42 20
text "Şarkı Listesi", 8, 24 6 39 8, center
button "Kapat", 9, 88 114 42 20,ok
}
alias mp3 { dialog -m mp3 mp3 }
on *:dialog:mp3:init:*: {
var %i 1
while (%i < = $lines(mp3.txt)) {
did -a mp3 1 $read(mp3.txt,%i)
inc %i
}
}
on *:dialog:mp3:sclick:*: {
if ($did == 2) {
var %:s $sfile($mircdir)
if $chr(32) isin %:s {
echo -a Sarki adinda bosluk var! Sarki ismi yeniden bicimlendirilip kopyalaniyor.
var %:za $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
var %:new $replace(%:za, $+ $chr(32) $+ , $+ $chr(45) $+ )
rename $shortfn(%:s) %:new
echo -a Parçanın yeni ismi %:new
write mp3.txt %:new
echo -a %:new Şarkısı anadizine kopyalanıyor
did -a mp3 1 %:new
copy -a %:s $mircdirmp3
return
}
var %:a $gettok(%:s, $+ $numtok(%:s,92) $+ ,92)
var %:b $replace(%:a, $+ $chr(32) $+ , $+ $chr(45) $+ )
if %:s == $null { return }
echo -a %:b Şarkısı anadizine kopyalanıyor.
write mp3.txt %:b
did -a mp3 1 %:b
copy -a %:s $mircdirmp3
}
if ($did == 3) {
var %:hm $did(1).seltext
did -d mp3 1 $did(1).sel
echo -a 7,1 %:hm parçası silindi.
write -dl $+ %:hm mp3.txt
remove %:hm
}
if ($did = 6) {
splay $mircdir $+ $did(1).seltext
echo -a 7,1 $did(1).seltext parçası çalıyor..
}
if ($did == 7) {
splay stop
echo -a 7,1 Mp3 player durduruldu.
}
if ($did == 4) {
$amsg(Şu an mp3 playerimda $did(1).seltext parçası çalıyor..)
}
if ($did == 5) {
var %:siradaki $did(1).seltext
if $read(mp3.txt,w, $+ %:siradaki $+ ) {
var %:c $calc($readn + 1)
splay $+($mircdir,$read(mp3.txt,%:c))
return
}
if !$read(mp3.txt,w, $+ %:c $+ ) { var %:c 1 }
splay $+($mircdir,$read(mp3.txt,%:c))
}
}
menu * {
Mp3 Player:mp3
}
