[No_FeaR]

Kod

##Buraya Radyonun İp Adresini Yazın.. 
 
set ip "radyoipadresi" 
 
##Buraya Radyonun Portunu Yazın.. 
 
set port "radyoport" 
 
##Buraya Radyonun Şifresini Yazın.. 
 
set pass "radyosifresi" 
 
##Buraya Radyonun Admin Şifresini Yazın.. 
 
set adminpass "radyoadminsifresi" 
 
## Buraya Komutun Geçerli Olacağı Kanalı Yazın.. 
 
set kickkanal "#DJ" 
 
## Başkada Birşeye Dokunmuyoruz.  
 
 
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######### 
 
## Coded By iSyan # 
 
############################