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

#Radyo Kanalında İstek Parça Yaparak Radyo Kanalında İsteğinizin Değerlendirilmesi İçin İstek ve Radyo Hakkında Kısa Bilgiler.

Bu Kod Ciprix den Alıntı.Ben Sadece Kendime Göre Düzenlemiştim.

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;istek isteme, istekyok, istekvar uyarı

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:text:*:#:{

  if $chan == #radyo {

    if !istek* iswm $1- {

      if $read(istekler.txt,w,$nick $+ *) {

        msg $chan 4Zaten bekleyen bir isteğiniz var

      }

      else {

        if $2 == $null {

          msg $chan 12Lütfen Bir İstek Parça Belirtin 13 $nick

        }

        else {

          inc %isayi

          msg #radyo 7,71R *1,7 isteginiz DJ'lerimize iletilmistir 

          msg #radyo 7,71a *7,1 İstenilen istek sayısı:7 %isayi 

          msg #radyo 7,71d *7,1 İstek Yapan Nick: 0 $nick  

          msg #radyo 7,71y *7,1 Yapılan İstek : 0 ( $2- ) -

          msg #radyo 7,71o *7,1 Radyomuzu WEB'den dinlemek icin 13,1|0 8 $server

          msg #radyo 7,71B 1,7 Radyomuzu Winampdan Dinlemek İçin Tıklayın :  8,1https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls 

          msg #radyo 7,71o *7,1 Isteklerinizi Radyo kanalinda göndermek istiyorsaniz; 

          msg #radyo 7,71T *7,1 !istek   seklinde istekte bulunabilirsiniz. 
 

          msg #dj 4,4 0,1Radyo İstek 

          msg #dj 4,4 0,1

          msg #dj 4,4 2 $server 12Radyo Yönetim AiLeSi

          msg #dj 4,4 0,1

          msg #dj 4,4 0,1  $nick 6(7 $+ $2- $+ 6)

          msg #dj 4,4 0,1

          msg #dj 4,4 0,1 İsteniLen İstek Sayısı:11 %isayi

          .write istekler.txt $+($nick,$chr(11),$2-)

        }

      }

    }

  }

  if $chan == #dj  {

    if !istekvar* iswm $1- {

      if $2 == $null {

        msg $chan 2Lütfen Bir Nick Belirtin.. 4ÖRN: 1!istekvar Araf

      }

      else {

        if $read(istekler.txt,w,$2 $+ *) {

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4 $+ $remove($server,irc.) 2Radyo Yönetim AiLeSi

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5Nickiniz4;10 $nick 

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5iSTeK Yaptığınız Parça4:7 $gettok($read(istekler.txt,w,$2 $+ *),2,11)    

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 6Web Adresimiz:2 $server 6Radyo Yayın Linkimiz: 7 $+ https:// $+ %ipport3 $+ : 
 

$+ %ipport1 $+ /listen.pls

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 12R4adyo 12kanalında yapmış olduğunuz 7istek 12sıraya alınmıştır.2En kısa sürede yayınlanacaktır.4[ 12Sizin 
 

Sesiniz 7Radyo10 $remove($server,irc.) 7'dasınız. 4] 4İyi dinletiler..

          write $+(-,dl,$readn) istekler.txt

          .halt

        }

        if !$read(istekler.txt,w,$2 $+ *) {

          msg $chan 10 $2 2Nicki Listede Gözükmüyor

        }

      }

    }

    if !istekyok* iswm $1- {

      if $2 == $null {

        msg $chan 2Lütfen Bir Nick Belirtin.. 4ÖRN: 1!istekyok Araf

      }

      else {

        if $read(istekler.txt,w,$2 $+ *) {

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4 $+ $remove($server,irc.) 2Radyo Yönetim AiLeSi

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5Nickiniz4;10 $nick 

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5iSTeK Yaptığınız Parça4:7 $gettok($read(istekler.txt,w,$2 $+ *),2,11)    

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 6Web Adresimiz:2 $server 6Radyo Yayın Linkimiz: 7 $+ https:// $+ %ipport3 $+ : 
 

$+ %ipport1 $+ /listen.pls

          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4,4*9,1Radyo kanalında yapmış olduğunuz istek Dj'imizin Arşivinde olmadığından,Sıradaki çalışma Dj tarafından 
 

size Armağan edilecektir.Yada yeni bir istekte bulunabilirsiniz.4[ 12Sizin Sesiniz 7Radyo10 $remove($server,irc.) 7'dasınız. 4] 4İyi dinletiler ..

          write $+(-,dl,$readn) istekler.txt

          .halt

        }

        if !$read(istekler.txt,w,$2 $+ *) {

          msg $chan 10 $2 2Nicki Listede Gözükmüyor

        }

      }

    }

  }

}

Dj Kanalında Botun Op Olması ve Sizinde Op Olmanız Şart Dj Kanalında Kullana Bilceğiniz Şekilde Resimli Örnekler Halinde Sundum.Siz Kendinize Göre

Düzenliyebilirsiniz.

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;Sıradaki Parça Hakkında Bilgi

;;;-

;;;İstekvar Nick, İstekyok Nick 

;;;-

;;;İstenilen İstek Parçaları sıfırla

;;;-

;;;İstenilen İstek Parçaları Listele

;;;-

;;;Şifre,Şifreler,Pass,Radyopass 

;;;-

;;;Radyo Hakkında Bilgi Almalar

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on @*:text:*:#dj: {

  if $regex($1,/^(!|.)sıradaki/i) {

    if $lines(istekler.txt) == 0 { msg #dj 0,7 ** 14,1 Sırada Bekleyen İstek Bulunmuyor. | return }

    var %sıradaki = $read(istekler.txt)

    msg #dj 4,4 0,1Radyo Sıradaki Parça 

    msg #dj 4,4 0,1

    msg #dj 4,4 2 $server 12Radyo Yönetim AiLeSi

    msg #dj 4,4 0,1 

    msg #dj 4,4 0,1 7İstek Yapan : 5 $gettok($read(istekler.txt,w,$2 $+ *),1,11)

    msg #dj 4,4 0,1

    msg #dj 4,4 0,1 7Yapılan İstek :6 $gettok($read(istekler.txt,w,$2 $+ *),2,11)

    msg #dj 4,4 0,1

    msg #dj 4,4 0,1 0Bekleyen isTek Sayısı :12 $lines(istekler.txt)

    echo -a 2Sıradaki iSTeK Parça Başarıyla Kanala Verilmiştir.

    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4 $+ $remove($server,irc.) 2Radyo Yönetim AiLeSi

    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5Nickiniz4;10 $nick 

    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5iSTeK Yaptığınız Parça4:7 $gettok($read(istekler.txt,w,$2 $+ *),2,11)    

    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 6Web Adresimiz:2 $server 6Radyo Yayın Linkimiz: 7 $+ https:// $+ %ipport3 $+ : $+ 
 

%ipport1 $+ /listen.pls

    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 12R4adyo 12kanalında yapmış olduğunuz 7istek 12sıraya alınmıştır.2En kısa sürede yayınlanacaktır.4[ 12Sizin 
 

Sesiniz 7Radyo10 $remove($server,irc.) 7'dasınız. 4] 4İyi dinletiler..

    write $+(-dl,$readn) istekler.txt

  }

  if $regex($1,/^(!|.)sıfırla/i) {

    msg #dj 4,4 0,1 Silinen İstek Sayısı: $lines(istekler.txt)

    msg #dj 4,4 0,1 

    msg #dj 4,4 0,1

    msg #dj 4,4 0,1 İstekler Sıfırlanmıştır.

    remove istekler.txt 

    write istekler.txt

  }

  if $regex($1,/^(!|.)isteklist/i) {

    if $lines(istekler.txt) == 0 { msg #dj 1iStek Listesi Boş. | return } 

    msg #dj 5 $nick 4iSteK Listesi SıraLanıyoR.

    var %- 1 | while %- <= $lines(istekler.txt) { msg #dj  $+(%-,-) $read(istekler.txt,%-) | inc %- }

    msg #dj 4iStek LisTeSi TamamLandı.

  }

  if $regex($1,/^[.!](şifre|şifreler|sifreler|pass|radyopass)/i) {

    if $nick isop #dj  {

      notice $nick 4,4 0,1 Radyo Bilgileri 4,4 

      notice $nick 4Şifre 1BiLgileri Tarafınıza GönderiLiyor4.1 Lütfen Bekleyin4.

      notice $nick 4Bu Bilgileri Lütfen Ki mseyle Paylaşmayın.        

      notice $nick 14 $str($chr(45),45)         

      notice $nick 5 Port 1: 4 %ipport1 

      notice $nick 5 Şifre 1: 4 $regsubex(%ipport2,/./ig,$chr(42)) 

      notice $nick 5 İp 1: 4 %ipport3

      notice $nick 14 $str($chr(45),45)

      notice $nick 1Şifre 7:1 Radyo 4 SorumLusundan1 ALıcakSınız4.

      notice $nick 14 $str($chr(45),45)

      notice $nick 5 Radyo Bilgilerinin Sonu.

      notice $nick 14 $str($chr(45),45)

      notice $nick 4 Radyo Bilgilerini Alan Nick 1( 5 $nick 1)

      notice $nick 14 $str($chr(45),45)

      notice $nick 5 Hoş Sohbetler 1,5 İyi Yayınlar 7 $nick

      notice $nick 14 $str($chr(45),45)

      notice $nick 2BU bilgiler 4Gizlidir, 2Paylaşılması halinda kişi hakkında tespit  ve işlem başlatılır..

      notice $nick 14 $str($chr(45),45)

      notice $nick 4 Yapımcı : 1*** 4CR 10C1o12d1eman 10Goemon 1***

      notice $nick 14 $str($chr(45),45)

      notice $nick 4,4 0,1 Radyo Bilgileri 4,4  

    }

    else {

      msg $chan 10 $nick 5Kanal 4operatörü 5değilsiniz. 

    }

  }

}

Radyo Kanalında Link Yazarak Radyo Kanalının Yayın Linkini Alabilirsiniz.

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;Radyo Link Alma

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:text:*:#radyo:{

  if !link* iswm $1 {

    msg $chan 8,1Radyomuzu 11Winamp7'tan 8,1Dinlemek İçin Tıklayın 13»0,1 https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls

    msg $chan 

    msg $chan 8,1Radyomuzu 11Winamp7'tan 8,1Dinlemek İçin Tıklayın 13»0,1 https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls

  }

}

Dj, DjSop, DjMisafiR, DjFoundeR, RadyoFoundeR, identleri İle #Radyo Kanalına Giriş Yapan Kişilere Karşılama Yapar.

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;Dj Karşılama Mesajı

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:join:#radyo: { 

  if (*!Dj@* iswm $fulladdress) { 

    if $istok( $+ $me Nick1,$nick,32) { return }

    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..

  } 

  if (*!DjSop@* iswm $fulladdress) { 

    if $istok( $+ $me Nick1,$nick,32) { return }

    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..

  } 

  if (*!DjMisafiR@* iswm $fulladdress) { 

    if $istok( $+ $me Nick1,$nick,32) { return }

    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..

  } 

  if (*!DjFoundeR@* iswm $fulladdress) { 

    if $istok( $+ $me Nick1,$nick,32) { return }

    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..

  }

  if (*!RadyoFoundeR@* iswm $fulladdress) { 

    if $istok( $+ $me Nick1,$nick,32) { return }

    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..

  }

}

Radyo İp Port Diyalog Menüsü

Kod:

menu channel {

  Radyop İp Port Menü:port-panel

}

alias port-panel { if $dialog(port-panel) { !echo -a 2Radyo İp Port Şifre Dialog'u Zaten 4AÇIK! } | else { !dialog -m port-panel port-panel } }

dialog port-panel {

  title "Radyo iP Port Şifre PaneLi"

  size -1 -1 120 81

  option dbu notheme

  box "    iP Port Sifre BilgiLendirmesi", 1, 2 1 115 48

  text "  Radyo PORTU", 2, 5 12 50 8

  text "  Radyo SiFRESi", 3, 5 24 50 9

  text "  Radyo iP Adresi", 4, 5 37 50 9

  edit %ipport1, 5, 60 11 53 10, autohs autovs

  edit %ipport2, 6, 60 23 53 10, autohs autovs

  edit %ipport3, 7, 60 36 53 10, autohs autovs

  button "TAMAM", 8, 3 53 33 12, ok

  button "KAYDET", 9, 43 53 33 12, flat

  button "KAPAT", 10, 83 53 33 12, cancel

  text " * mS - CR Codeman Goemon *", 11, 25 69 76 9

}
 

on *:dialog:port-panel:*:*:{

  if $devent == sclick {

    if $istok(8 9,$did,32) {

      set %ipport1 $did($dname,5)

      set %ipport2 $did($dname,6)

      set %ipport3 $did($dname,7)

    }

  }

}