02 Temmuz 2016, 14:26
|
#1 |
Çevrimdışı | djkill Eggdrop TCL 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 #
########### |
| |
IRCForumu.Net - Reklam Alanı |
|