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


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 05 Haziran 2016, 14:18   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Radyobot Kod Çalışması


Reklam

#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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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 <sanatçi> <mesajiniz> 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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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:   Kodu kopyalamak için üzerine çift tıklayın!
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) } } }

#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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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 <sanatçi> <mesajiniz> 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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;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:   Kodu kopyalamak için üzerine çift tıklayın!
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) } } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
çalışması, kod, radyobot
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık