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 02 Temmuz 2016, 14:26   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
djkill Eggdrop TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######################### # Ayarlari Yapilandirin # ######################### # Komutun gecerli olacagi kanali belirtiniz. set kickkanal "#DJ" # Kill komutunu belirtiniz. set killkomut ".djkill" # Radyonuzun ip veya domain adini belirtiniz. set ip "irc.example.com" # Radyonuzun portunu belirtiniz. set port "8888" # Radyonuzun sifresini belirtiniz. set pass "radyopass" # Radyonunun admin sifresini belirtiniz. set adminpass "radyopass" ################# # Ayarlar Bitti # ################# bind pub - $killkomut djkill proc djkill {nick host handle chan arg} { global ip port pass adminpass kickkanal if {![string match -nocase $kickkanal $chan]} { return } 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 $chan :Radyoda ki DJ yayindan dusurulmustur, yayini alabilirsiniz." } 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 } ########### # The End # ###########

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######################### # Ayarlari Yapilandirin # ######################### # Komutun gecerli olacagi kanali belirtiniz. set kickkanal "#DJ" # Kill komutunu belirtiniz. set killkomut ".djkill" # Radyonuzun ip veya domain adini belirtiniz. set ip "irc.example.com" # Radyonuzun portunu belirtiniz. set port "8888" # Radyonuzun sifresini belirtiniz. set pass "radyopass" # Radyonunun admin sifresini belirtiniz. set adminpass "radyopass" ################# # Ayarlar Bitti # ################# bind pub - $killkomut djkill proc djkill {nick host handle chan arg} { global ip port pass adminpass kickkanal if {![string match -nocase $kickkanal $chan]} { return } 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 $chan :Radyoda ki DJ yayindan dusurulmustur, yayini alabilirsiniz." } 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 } ########### # The End # ###########

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
djkill, eggdrop, tcl
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