IRCDefteri - En İyi IRCForum Sayfasi

IRCDefteri - En İyi IRCForum Sayfasi (https://ircforumda.net/)
-   mIRC Parça Kodlar (https://ircforumda.net/mirc-parca-kodlar/)
-   -   Radyo DJ kayıt listesi(MP3) (https://ircforumda.net/mirc-parca-kodlar/31436-radyo-dj-kayit-listesimp3.html)

Emre 24.Ağustos.2022 13:41

Radyo DJ kayıt listesi(MP3)
 
Merhaba,
DJ'lerin yaptıkları yayınların kayıtlarını tarih bazlı kayıt eder, basit bir kod oldu burada ki amaç sadece sizlere gidilecek yolu göstermek bunun üzerinden gidip güzel bir DJ sayfası yapabilirsiniz..
Radyo botuna ekleyip DJ nicki direk oradan alıp yayını onun üzerine kayıt ettirebilirsiniz, ben radyo socketi yazmak istemedim komutlarla örnek gösterdim o kadar.. :gulucuk:

Fikir; @IrCbaStarD

Kod:

alias rip return radyo.kelebekfm.gen.tr
alias rport return 9352
 
on *:text:*:#DJ:{
  if $regex($1,/^[!.-]kay[ıiİ]t$/Si) {
    if !$2 { msg # Lütfen 4!kayit nick belirtiniz. 4ORN: !kayit Toprak }
    elseif %:knick { msg # Şuan kayit yapılmaktadır lütfen 4!durdur komutunu uygulayınız. }
    else {
      $iif(!$isdir(MP3),mkdir MP3)
      set %:knick $+($date(d-m-yyyy),_,$lower($strip($2)),.mp3)
      msg # $strip($2) nicki için yayın kayıt başlamıştır kayıt dosyası; %:knick
      msg # Kayıtı durdurmak için yada DJ değişikliği için lütfen 4!durdur yazınız.
      sockopen rkayit $rip $rport
    }
  }
  elseif $regex($1,/^[!.-]durdur$/Si) {
    if !%:knick { msg # Şuan herhangi bir kayıt yapılmaktadır.. }
    else {
      msg # DJ4 $token($token(%:knick,2,95),1,46) için kayıt durdurulmuştur..
      msg # Yayın kayıt dosyası;2 %:knick olarak kayıt edilmiştir..
      unset %:knick
      sockclose rkayit
    }
  }
}
on *:sockopen:rkayit:{
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET / HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname accept: */*
    sockwrite -nt $sockname icy-metadata:0
    sockwrite -nt $sockname connection: close
    sockwrite -nt $sockname $crlf
  }
}
on *:sockread:rkayit:{
  sockread -f &rkayit
  .bwrite $+(MP3/,%:knick) -1 -1 &rkayit
}

#DJ kanalında
  • !kayit DJ-Nick
  • !durdur


Forum Saati: 05:26. Zaman dilimi GMT +4 olarak ayarlanmıştır.

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.