IRCForumu.Org

**No_FeaR** · 26 Haziran 2021, 23:11

Merhaba arkadaşlar,
Bildiğimiz üzere şuan da bu işlevi sock botlar yapmaktadır. Bazen Sock botlar da güncelleme gibi durumlar sunuculardan ayrılabiliyor. Bu bot ise tam da bu zamanlar için.
Oto Dj var ve Sock botlarınız sunucu da yok mu ? Önemli değil. Eggdrop botunuz ile yine aynı işlemi yaptırabilirsiniz.
Botunuzun Nicki kayıtlı olmalı ve en az services admin olup OS admin listte olup kick TCL'yi düzgün bir şekil de doldurduğunuz zaman OtoDj'i kick attırıp yerine geçecek olan Dj'i aynı düzen de yayını alabilir...

Günümüz de pek işe yaramayacak gözüyle bakılsa da ben gibi garantici arkadaşların işine yaracağını düşündüğümden buraya bırakma gereksimi duydum.

Kod:

##Buraya Radyonun İp Adresini Yazın..
set ip "94.242.238.61"
##Buraya Radyonun Portunu Yazın..
set port "8888"
##Buraya Radyonun Şifresini Yazın..
set pass "asdasdasd"
##Buraya Radyonun Admin Şifresini Yazın..
set adminpass "asdasdasd"
## Buraya Komutun Geçerli Olacağı Kanalı Yazın..
set kickkanal "#Dj"
## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim ;)

bind pub - !kickradyo kickradyo
proc kickradyo {nick host handle chan arg} {
global ip port pass adminpass kickkanal
if {$chan != $kickkanal} {return 0}
set sock [socket [duzelt $ip] [duzelt $port]]
puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $ip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
close $sock
putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür.. Lütfen Yayını Alınız.."
}

proc duzelt { a } {
regsub -all {\}} $a "" a
regsub -all {\{} $a "" a
regsub -all {\;} $a "" a
regsub -all {\*} $a "" a
regsub -all " " $a "" a
return $a
}

######kickradyo.tcl########
############################

Benzer Konular:

26 Haziran 2021, 23:11	#1
No_FeaR ✓ 5 Nick kopyalandı!	Radyo kick.tcl (Eggdrop Botlara Özel Bir TCL) Merhaba arkadaşlar, Bildiğimiz üzere şuan da bu işlevi sock botlar yapmaktadır. Bazen Sock botlar da güncelleme gibi durumlar sunuculardan ayrılabiliyor. Bu bot ise tam da bu zamanlar için. Oto Dj var ve Sock botlarınız sunucu da yok mu ? Önemli değil. Eggdrop botunuz ile yine aynı işlemi yaptırabilirsiniz. Botunuzun Nicki kayıtlı olmalı ve en az services admin olup OS admin listte olup kick TCL'yi düzgün bir şekil de doldurduğunuz zaman OtoDj'i kick attırıp yerine geçecek olan Dj'i aynı düzen de yayını alabilir... Günümüz de pek işe yaramayacak gözüyle bakılsa da ben gibi garantici arkadaşların işine yaracağını düşündüğümden buraya bırakma gereksimi duydum. Kod: ##Buraya Radyonun İp Adresini Yazın.. set ip "94.242.238.61" ##Buraya Radyonun Portunu Yazın.. set port "8888" ##Buraya Radyonun Şifresini Yazın.. set pass "asdasdasd" ##Buraya Radyonun Admin Şifresini Yazın.. set adminpass "asdasdasd" ## Buraya Komutun Geçerli Olacağı Kanalı Yazın.. set kickkanal "#Dj" ## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim ;) bind pub - !kickradyo kickradyo proc kickradyo {nick host handle chan arg} { global ip port pass adminpass kickkanal if {$chan != $kickkanal} {return 0} set sock [socket [duzelt $ip] [duzelt $port]] puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0" puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" puts $sock "Host: $ip" puts $sock "Connection: close" puts $sock "" flush $sock close $sock putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür.. Lütfen Yayını Alınız.." } proc duzelt { a } { regsub -all {\}} $a "" a regsub -all {\{} $a "" a regsub -all {\;} $a "" a regsub -all {\} $a "" a regsub -all " " $a "" a return $a } ######kickradyo.tcl######## ############################ Benzer Konular: Örnek Bir Eggdrop Conf Dosyası (ircforumu.conf) Eggdrop bot (Conf ve TCL) İçerikleri Eggdrop bot farklı TCL (Özele !komutlar) Eggdrop Kurulumu & Kullanimi! Özel Eğitim Nedir, Kimlere Özel Gereksinimli Birey Nedir ? Sabrettiğimi Sanarken, Vazgeçtiğimi Öğrendim..*
	Alıntı Yap

26 Haziran 2021, 23:14	#2
AkGün ✓ 5 Nick kopyalandı!	İçerik gizlenmiştir. İçerikleri görebilmek için üye olmalı ve üye girişi yapmalısınız. Giriş Yap Kayıt Ol No_FeaR bunu beğendi. *۰۪۫.۪۫۰𝓑𝓪𝔃𝓲 𝓲𝓷𝓼𝓪𝓷𝓵𝓪𝓻 ,𝓫𝓪𝔃𝓮𝓷 𝓲𝓷𝓼𝓪𝓷𝓵𝓪𝓻۰۪۫.۪۫۰* 𝑪𝒊𝒌𝒂𝒓 𝒊𝒍𝒊𝒔𝒌𝒊𝒍𝒆𝒓𝒊𝒏𝒊𝒛 , 𝒔𝒂𝒉𝒕𝒆 𝒅𝒐𝒔𝒕𝒍𝒖𝒌𝒍𝒂𝒓𝒊𝒏𝒊𝒛 𝒎𝒊𝒅𝒆𝒎𝒊 𝒃𝒖𝒍𝒂𝒏𝒅𝒊𝒓𝒊𝒚𝒐𝒓 ۰۪۫.۪۫۰AkGün۰۪۫.۪۫۰
	Alıntı Yap

Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)

İçerik gizlenmiştir.

İçerikleri görebilmek için üye olmalı ve üye girişi yapmalısınız.