mIRC Mp3 Player
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
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 } |