IRCDForum - IRC ve mIRC Kullanıcı Topluluğu  
Geri Git   IRCDForum - IRC ve mIRC Kullanıcı Topluluğu > IF- mIRC Scripting > mIRC Scripting Hazır Kodlar


mIRC Mp3 Player

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.


Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
Konu Araçları Görünüm Modları
Old 05 Aralık 2023, 16:58   #1
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan mIRC Mp3 Player

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
}

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29

Cevapla

Yer İmleri

Etiketler
mirc, mp3, player

Konu Araçları
Görünüm Modları

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı