IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   Radyobot Radyo Kod Çalışması (https://www.ircforumu.net/hazir-kodlar/897-radyobot-radyo-kod-calismasi.html)

immortaL 05 Haziran 2016 14:13

Radyobot Radyo Kod Çalışması
 
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:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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:

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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:49.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.