Çevrimdışı

radyo kıck tCL

##Buraya Radyonun İp Adresini Yazın..
set ip "ip adreS"
##Buraya Radyonun Portunu Yazın..
set port "port"
##Buraya Radyonun Şifresini Yazın..
set pass "radyosıfre"
##Buraya Radyonun Admin Şifresini Yazın..
set adminpass "admınpas"
## Buraya Komutun Geçerli Olacağı Kanalı Yazın..
set kickkanal "#Dj"
## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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 LyK`a #
############################

 

Çevrimdışı

SonRuyam Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

radyo kıck tCL ##Buraya Radyonun İp Adresini Yazın.. set ip "ip adreS" ##Buraya Radyonun Portunu Yazın.. set port "port" ##Buraya Radyonun Şifresini Yazın.. set pass "radyosıfre" ##Buraya Radyonun Admin Şifresini Yazın.. set adminpass "admınpas" ## Buraya Komutun Geçerli Olacağı Kanalı Yazın.. set kickkanal "#Dj" ## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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 LyK`a # ############################

Bu Kod Çalıştı Ama Dj Kanalındaki Herkes Kullanabiliyor Bunu Belirli Nickler iÇin Ayarlayamazmıyız?