IRCForumu.ORG   Sohbet
bizim mekan


Ağaç Şeklinde Aç1Beğeni
  • 1 Post By AkGün

 
Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 26 Haziran 2021, 23:11   #1
Nick kopyalandı!
Standart 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########
############################






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)
 

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

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



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

IRCForumu.Org

IRC dünyasının buluşma noktası. Sohbet, bilgi ve eğlence burada!