Radyo DJ kayıt listesi(MP3)

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..

#DJ kanalında

!kayit DJ-Nick
!durdur

alias rip return radyo.kelebekfm.gen.tr
alias rport return 9352
 
on *:text:*:#DJ:{
  if $regex($1,/^&#91;!.-]kay&#91;ı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,/^&#91;!.-]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 &amp;rkayit
  .bwrite $+(MP3/,%:knick) -1 -1 &amp;rkayit
}

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

}

önceki yazımızda « [!.]saklambaç oyunu makelemiz var.

Makale Yazarı : admin

4 Aralık, 2019

733

Yazı kategorisi : Uncategorized

yorum yok

Radyo DJ kayıt listesi(MP3)

Etiketler

Radyo DJ kayıt listesi(MP3) İle Benzer Sohbet Yazıları

[!.]saklambaç oyunu

Radyo DJ kayıt listesi(MP3)

Radyo DJ kayıt listesi(MP3) İle Benzer Sohbet Yazıları

Radyo DJ kayıt listesi(MP3) yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?