| SuLh | 16 Aralık 2015 22:54 |
mIRC Mp3 Player / Dosya seçmeli
Görsel anlamda olmasa da, dialog anlamında aklımda oluşan fikirle bir şeyler yapmaya çalıştım. Umarım görsel anlamda da bu dialog geliştirilir ve daha etkileyici bir şekilde sunuma konur.
Parçaları ekle deyip, windows dosya açma panelinden mp3'e tıklayınız. Dialog otomatik olarak mp3'ü mIRC içerisine kopyalayacak, addona alacak, ve mp3.txt'ye yazdıracaktır.
Dialog özellikleri: Basit amsg özelliği: çalan parçayı göndere tıklayarak amsg ile tüm sunucuya dağıtabilirsiniz: winamptaki gibi.
Sıradaki parça: dinlediğiniz parça dialogta seçili olacak şekilde sıradakine tıkladığınız zaman bir alt parça çalmaya başlar.
Otomatik dosya kopyalama: seçtiğiniz dosyayı otomatik olarak alır ve işler.
Çal dediğinizde çalar ve durdur dediğinizde durdurur. Dialogu kapatsanızda parça çalmaya devam eder. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
aldığınız hatalar ve önerileri iletebilirsiniz. Kod:
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
}
|
