Radyobot Radyo Kod Çalışması - IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

**immortaL** · 05 Haziran 2016, 14:13

Merhaba Sevgili MİRCFORUM.COM Forum Sevenleri

Evet Sevgili Arkadaşlar Radyo Çalışması Hakkında Anlıyabilceğiniz Şekilde Resimli Örnekler Halinde Verceğim Codeleri Kendinize Göre Düzenleyip Düzelte

Bilirsiniz.

Dj, DjMisafiR, DjAop, DjSop, DjFoundeR, RadyoFoundeR İdenti Kullanan Kişiler Dj Takısı Aldıkları Zaman #Radyo Kanalına Dj Görevlisi Yayına

Başladı ve Dj Görevlisi Yayını Bıraktı Diye Uyarı Vercektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Dj Görevlisi Yayın Aldı Yayını Bıraktı
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:NICK:{
  if ($gettok($gettok($fulladdress,2,$asc(!)),1,$asc(@)) == Dj) {
    if dj* iswm $nick { msg #radyo 4Dj 2GörevLisi10 $newnick 1Radyo 2Yayınını BırakmıştıR4.. | msg #radyo 4Dj1'2in 2Yayından aYrıLış SaaT1'2i 4;1 $time }
    if dj* iswm $newnick { msg #radyo 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. | msg #radyo 2ßaşarıLaR DiLeriz10 $nick $+ 4... | msg #radyo 4Dj1'2in 2Yayına 

BaşLayış Saati 4:1 $time  | .nflash 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. }
  }
  elseif ($gettok($gettok($fulladdress,2,$asc(!)),1,$asc(@)) == DjMisafiR) {
    if dj* iswm $nick { msg #radyo 4Dj 2GörevLisi10 $newnick 1Radyo 2Yayınını BırakmıştıR4.. | msg #radyo 4Dj1'2in 2Yayından aYrıLış SaaT1'2i 4;1 $time }
    if dj* iswm $newnick { msg #radyo 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. | msg #radyo 2ßaşarıLaR DiLeriz10 $nick $+ 4... | msg #radyo 4Dj1'2in 2Yayına 

BaşLayış Saati 4:1 $time  | .nflash 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. }
  }
  elseif ($gettok($gettok($fulladdress,2,$asc(!)),1,$asc(@)) == DjAop) {
    if dj* iswm $nick { msg #radyo 4Dj 2GörevLisi10 $newnick 1Radyo 2Yayınını BırakmıştıR4.. | msg #radyo 4Dj1'2in 2Yayından aYrıLış SaaT1'2i 4;1 $time }
    if dj* iswm $newnick { msg #radyo 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. | msg #radyo 2ßaşarıLaR DiLeriz10 $nick $+ 4... | msg #radyo 4Dj1'2in 2Yayına 

BaşLayış Saati 4:1 $time  | .nflash 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. }
  }
  elseif ($gettok($gettok($fulladdress,2,$asc(!)),1,$asc(@)) == DjSop) {
    if dj* iswm $nick { msg #radyo 4Dj 2GörevLisi10 $newnick 1Radyo 2Yayınını BırakmıştıR4.. | msg #radyo 4Dj1'2in 2Yayından aYrıLış SaaT1'2i 4;1 $time }
    if dj* iswm $newnick { msg #radyo 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. | msg #radyo 2ßaşarıLaR DiLeriz10 $nick $+ 4... | msg #radyo 4Dj1'2in 2Yayına 

BaşLayış Saati 4:1 $time  | .nflash 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. }
  }
  elseif ($gettok($gettok($fulladdress,2,$asc(!)),1,$asc(@)) == RadyoFoundeR) {
    if dj* iswm $nick { msg #radyo 4Dj 2GörevLisi10 $newnick 1Radyo 2Yayınını BırakmıştıR4.. | msg #radyo 4Dj1'2in 2Yayından aYrıLış SaaT1'2i 4;1 $time }
    if dj* iswm $newnick { msg #radyo 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. | msg #radyo 2ßaşarıLaR DiLeriz10 $nick $+ 4... | msg #radyo 4Dj1'2in 2Yayına 

BaşLayış Saati 4:1 $time  | .nflash 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. }
  }
  elseif ($gettok($gettok($fulladdress,2,$asc(!)),1,$asc(@)) == DjFoundeR) {
    if dj* iswm $nick { msg #radyo 4Dj 2GörevLisi10 $newnick 1Radyo 2Yayınını BırakmıştıR4.. | msg #radyo 4Dj1'2in 2Yayından aYrıLış SaaT1'2i 4;1 $time }
    if dj* iswm $newnick { msg #radyo 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. | msg #radyo 2ßaşarıLaR DiLeriz10 $nick $+ 4... | msg #radyo 4Dj1'2in 2Yayına 

BaşLayış Saati 4:1 $time  | .nflash 4Dj 2GörevLisi10 $nick 2Yayına ßaşLamıştıR.. }
  }
}

Dj, DjSop, DjMisafiR, DjFoundeR, RadyoFoundeR, identiyle #Dj Kanalına Giriş Yapan Kişilere Uyarı Vercektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Dj Kanalında Djlere Uyarı 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:join:#dj: { 
  if (*!Dj@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.))  7 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 1 # 2kanalına vereceğim istekleri yayında bulunan 4Dj 7 # 2Kanalında takip etsin..
    notice $nick 7 #Dj 2KanaLında Kullanacağınız Komutlar..
    notice $nick 1!istekvar Nick 4, 12!istekyok Nick 4, 5!isteklist 4, 10!sıradaki 4, 7!sıfırla 4, 6!duyuru
    notice $nick 
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 6Sanal alemin tadını birkez daha keşfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!DjSop@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.))  7 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 1 # 2kanalına vereceğim istekleri yayında bulunan 4Dj 7 # 2Kanalında takip etsin..
    notice $nick 7 #Dj 2KanaLında Kullanacağınız Komutlar..
    notice $nick 1!istekvar Nick 4, 12!istekyok Nick 4, 5!isteklist 4, 10!sıradaki 4, 7!sıfırla 4, 6!duyuru
    notice $nick 
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 6Sanal alemin tadını birkez daha keşfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!DjMisafiR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.))  7 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 1 # 2kanalına vereceğim istekleri yayında bulunan 4Dj 7 # 2Kanalında takip etsin..
    notice $nick 7 #Dj 2KanaLında Kullanacağınız Komutlar..
    notice $nick 1!istekvar Nick 4, 12!istekyok Nick 4, 5!isteklist 4, 10!sıradaki 4, 7!sıfırla 4, 6!duyuru
    notice $nick 
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 6Sanal alemin tadını birkez daha keşfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!DjFoundeR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.))  7 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 1 # 2kanalına vereceğim istekleri yayında bulunan 4Dj 7 # 2Kanalında takip etsin..
    notice $nick 7 #Dj 2KanaLında Kullanacağınız Komutlar..
    notice $nick 1!istekvar Nick 4, 12!istekyok Nick 4, 5!isteklist 4, 10!sıradaki 4, 7!sıfırla 4, 6!duyuru
    notice $nick 
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 6Sanal alemin tadını birkez daha keşfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!RadyoFoundeR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.))  7 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 1 # 2kanalına vereceğim istekleri yayında bulunan 4Dj 7 # 2Kanalında takip etsin..
    notice $nick 7 #Dj 2KanaLında Kullanacağınız Komutlar..
    notice $nick 1!istekvar Nick 4, 12!istekyok Nick 4, 5!isteklist 4, 10!sıradaki 4, 7!sıfırla 4, 6!duyuru
    notice $nick 
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 6Sanal alemin tadını birkez daha keşfedin! 4 $token($server,2-,$asc(.))
  }
}

Dj, DjSop, DjMisafiR, DjFoundeR, RadyoFoundeR, identiyle #Dj Kanalına Giriş Yapan Kişilere Uyarı Vercektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Dj Kanalında Djlere Uyarı 2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:join:#dj: { 
  if (*!Dj@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.)) 4 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 4 # 2kanalına vereceğim istekleri yayında bulunan 12Dj 4 # 2Kanalında takip etsin..
    notice $nick 4 #Radyo 2KanaLında Yapılan iStek ve Önceden iStenilmiş iSteKLeRi Görmek iÇin 4!isteklist 2Yazabilirsiniz.
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!komutlar 2Yazınız..
    notice $nick 6Sanal alemin tadini birkez daha kesfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!DjSop@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.)) 4 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 4 # 2kanalına vereceğim istekleri yayında bulunan 12Dj 4 # 2Kanalında takip etsin..
    notice $nick 4 #Radyo 2KanaLında Yapılan iStek ve Önceden iStenilmiş iSteKLeRi Görmek iÇin 4!isteklist 2Yazabilirsiniz.
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!komutlar 2Yazınız..
    notice $nick 6Sanal alemin tadini birkez daha kesfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!DjMisafiR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.)) 4 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 4 # 2kanalına vereceğim istekleri yayında bulunan 12Dj 4 # 2Kanalında takip etsin..
    notice $nick 4 #Radyo 2KanaLında Yapılan iStek ve Önceden iStenilmiş iSteKLeRi Görmek iÇin 4!isteklist 2Yazabilirsiniz.
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!komutlar 2Yazınız..
    notice $nick 6Sanal alemin tadini birkez daha kesfedin! 4 $token($server,2-,$asc(.))
  }
  if (*!DjFoundeR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick Nick Nick Nick3,$nick,32) { return }
    notice $nick 4 $token($server,2-,$asc(.)) 4 # 12Kanalına hoş geldiniz. 
    notice $nick 2Lütfen 4 # 2kanalına vereceğim istekleri yayında bulunan 12Dj 4 # 2Kanalında takip etsin..
    notice $nick 4 #Radyo 2KanaLında Yapılan iStek ve Önceden iStenilmiş iSteKLeRi Görmek iÇin 4!isteklist 2Yazabilirsiniz.
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!djkomut 2Yazınız..
    notice $nick 4 #Radyo 2Kanalında kullanabileceğiniz komutları görmeniz için özelime 4!komutlar 2Yazınız..
    notice $nick 6Sanal alemin tadini birkez daha kesfedin! 4 $token($server,2-,$asc(.))
  }
}

Djekle, Djsil Kodunu Kullana Bilmeniz İçin djfounder.txt ve root.txt metin belgelerinde bu Codeyi Kullanmasına İzin Vermek İstediğiniz Yetkili

Nickleri Yazacaksınız.

Kullanma Komutu Örnekleri Resimde Mevcut Ben Yinede Belirtim.

Kanala Sop, Aop, Vop, Ekleme Komut Şekli.

!djekle sop #kanal Nick
!djekle aop #kanal Nick
!djekle vop #kanal Nick

Kanalda Sop, Aop, Vop, Silme Komut Şekli.

!djsil sop #kanal Nick
!djsil aop #kanal Nick
!djsil vop #kanal Nick

Dj Listesini Görmek İçinde.

!djlist Yazacaksınız.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Dj ekle sil listele
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:text:*:#dj: {
  if !dj* iswm $1 {
    if $read(djfounder.txt,w,$nick) || $read(root.txt,w,$nick)  {
      if $1 == !djekle {
        if $2 == sop || $2 == aop || $2 == vop {
          if $3 == $null || $4 == $null { msg $chan 10 $nick 1Komutun dogru Kullanımı 4!djekle $2 #Kanal Nick 1Şeklindedir. }
          else { 
            if $read(dj.txt,w,$4) { msg $chan 1Bu Rumuz Daha Önceden Yetkili Olarak Eklenmiş. 10 $nick }
            else { 
              set %;goechannel $chan
              set %;goenick $nick
              set %;djyönetici $2
              set %;djchannel $3
              set %;djnick $4
              ns info %;djnick | enable #nskayıtbilgi
            }
          }
        }
        else { msg $chan 1Yanlış Parametre Girdiniz.Ekleyebileceginiz 14Yetkiler 4Sop1,4Aop 2ve 4Vop 1dur. }
      }
      if $1 == !djsil {
        if $2 == sop || $2 == aop || $2 == vop {
          if $3 == $null || $4 == $null { msg $chan 1Komutun dogru Kullanımı 4!djsil $2 #Kanal Nick 1Şeklindedir. }
          else { 
            if $read(dj.txt,w,$4) { cs $2 $3 del $4 | write -ds $4 dj.txt | msg $chan 10 $4 1Nicki4 $3 1Kanalından Başarı İle Silindi. | ms send $4  10 $3 1Kanalında Olan4 $2 

1Yetkiniz Silinmiştir. }
            else { msg $chan 10 $4 1Nicki Daha Önceden Silinmiş Bir Nicktir. }
          }
        }
        else { msg $chan 10 $nick 1Yanlış Parametre Girdiniz.Kullanabileceginiz Yetkiler 14Yetkiler 4Sop1,4Aop 2ve 4Vop 1dur. }
      }
      if $1 == !djlist { msg $chan 4Yetkili Nickler Listeleniyor | play $chan dj.txt 100 }
    }
    else { msg $chan 10 $nick 1Bu Komutu Kullanabilmek İcin Yetkiniz Bulunmuyor. }
  }
}
#nskayıtbilgi off
on *:notice:*:?: {
  if $nick == Nickserv  {
    if (*The nickname * is not registered* iswm $1-) ||  (*kay*tl* de*il* iswm $1-) { msg %;goechannel 1Belirtmiş Oldugunuz 10 %;djnick 1Nicki Kayıtlı Olmadıgından İşlem 

Tamamlanamadı. | disable #nskayıtbilgi | unset %;goe* }
    else { cs %;djyönetici %;djchannel add %;djnick | write dj.txt %;djnick | msg %;goechannel 10 %;djnick 1Nicki 4 %;djchannel 1Kanalına Başarıyla 10 %;djyönetici 1Olarak 

Eklendi. | ms send 10 %;djnick 2 %;djchannel 1Kanalına 7 %;djyönetici 1Olarak Eklendiniz Görevinizde Başarılar Dileriz. | disable #nskayıtbilgi | unset %;goe* }
  }
}
#nskayıtbilgi end

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo NABIZ - Twitcht.TV'de Canlı Yayında!	radyonabiz	Sunuculardan Son Haberler	0	18 Aralık 2021 00:11
Radyo NABIZ Sohbet Arayüzü Değişti	radyonabiz	Sunuculardan Son Haberler	1	14 Aralık 2021 23:21
Radyo NABIZ'dan Yenilikler Sizlerle	radyonabiz	Sunuculardan Son Haberler	0	06 Aralık 2021 01:51

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.