Radyo kick.tcl (Eggdrop Botlara Özel Bir TCL)

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

**AkGün** · 26 Haziran 2021, 23:14

emeğine sağlık üstadım

26 Haziran 2021, 23:11	#1
No_FeaR ✓ Sen Geleceksin Diye, Ben Hep Yarım Kaldım.	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

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