Çevrimdışı

S.a iyi geceler arkadaslar bana #opers Kanalından !komutlar dediğimiz zaman

!zline ac
!spamekle
!global at
vs..

bunu gibi bi tcl lazım elinde olan varsa bi zahmet verebilirmi tşkler simdiden..

 

Çevrimdışı

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

S.a iyi geceler arkadaslar bana #opers Kanalından !komutlar dediğimiz zaman !zline ac !spamekle !global at vs.. bunu gibi bi tcl lazım elinde olan varsa bi zahmet verebilirmi tşkler simdiden..

Bu nasıl bir proje belirtme şekli?
!komutlar dediğin zaman
!zline ac
!spamekle
!global
vs..
diye bir istek olabilir mi?
!komutlar dediğinde bu işlemleride yapacak mı? Yoksa sadece bunları yazdırmayı mı düşünüyorsun


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

!komutlar dediğin zaman
!zline ac
!spamekle
bunları yazdımız zaman işlemde yapsın evet zlinede acsın tam anlamadım konuyu pardon
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

S-Botdur OO s botda paralı

 

Çevrimdışı

Abi bana s-bot lazım deil sadece o işlemleri yapıcak tcl lazım.. kimsede yokmu o tcl size zahmet bi yardımcı olun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimiçi

set admin_chan "#opers"
bind pub - !bansil ban:kaldirma
proc ban:kaldirma { n u h c a } {
global admin_chan
if {[onchan $n $admin_chan]==1} {
set komut "[string tolower [lindex $a 0]]"
if {$komut==""} {
putquick "PRIVMSG $c : __________________________________________________ ______"
putquick "PRIVMSG $c :| \00305 Banları kaldırmak için kullanabileceğiniz komutlar By AspavA EditioN.\003 |"
putquick "PRIVMSG $c :|________________________________________________ ______|"
putquick "PRIVMSG $c :\002\00302!bansil g :\002\00307 Bütün gline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil gz:\002\00307 Bütün gzline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil k :\002\00307 Bütün kline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil z :\002\00307 Bütün zline'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil s :\002\00307 Bütün shun'ları açar."
putquick "PRIVMSG $c :\002\00302!bansil banlar :\002\00307 Bütün banları açar."
putquick "PRIVMSG $c : --------Her Bişe SizLer İçin By AspavA----------"
return 0
} elseif {$komut=="g"} {
putquick "PRIVMSG $c :\00312Bütün glinelar açılıyor."
putquick "STATS g"
return 0
} elseif {$komut=="k"} {
putquick "PRIVMSG $c :\00312Bütün klinelar açılıyor."
putquick "STATS k"
return 0
} elseif {$komut=="gz"} {
putquick "PRIVMSG $c :\00312Bütün gzlinelar açılıyor."
putquick "STATS g"
return 0
} elseif {$komut=="s"} {
putquick "PRIVMSG $c :\00312Bütün shunlar açılıyor."
putquick "STATS s"
return 0
} elseif {$komut=="z"} {
putquick "PRIVMSG $c :\00312Bütün zlinelar açılıyor."
putquick "STATS k"
return 0
} elseif {$komut=="banlar"} {
putquick "PRIVMSG $c :\00312Bütün banlar açılıyor."
putquick "STATS g"
putquick "STATS k"
putquick "STATS s"
return 0
} else {
putquick "PRIVMSG $c :\00304Bilinmeyen komut! \00301Ban silme komutlarını görmek için \002!Bansil \002yazınız."
}
return 0
}
if {[onchan $n $admin_chan]==0} {
putquick "NOTICE $n
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
u komutu kullanmaya yetkiniz yok!"
}
}
bind raw - 223 serverban_listesi
proc serverban_listesi {from keyword arg} {
set bz [lindex [split $arg] 1]
set ip [lindex [split $arg] 2]
if {$bz == "Z"} {
putquick "GZLINE -$ip"
}
if {$bz == "z"} {
putquick "ZLINE -$ip"
}
if {$bz == "G"} {
putquick "GLINE -$ip"
}
if {$bz == "s"} {
putquick "SHUN -$ip"
}
if {$bz == "K"} {
putquick "KLINE -$ip"
} else {
return 0
}
}

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer

 

Çevrimdışı

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

__________________________________________________ ______" putquick "PRIVMSG $c :| \00305 Banları kaldırmak için kullanabileceğiniz komutlar By AspavA EditioN.\003 |" putquick "PRIVMSG $c :|________________________________________________ ______|" putquick "PRIVMSG $c :\002\00302!bansil g :\002\00307 Bütün gline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil gz:\002\00307 Bütün gzline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil k :\002\00307 Bütün kline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil z :\002\00307 Bütün zline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil s :\002\00307 Bütün shun'ları açar." putquick "PRIVMSG $c :\002\00302!bansil banlar :\002\00307 Bütün banları açar." putquick "PRIVMSG $c : --------Her Bişe SizLer İçin By AspavA----------" return 0 }

Bu kodlar ScanX botundan alınma kodlar..
hadi lazım oldu sadece bu kodları aldın kullanıyorsun..
hadi yapımcısınıda kim takar dedin..
sunucunda kendin yapmış gibi de gösterdin..
hadi amacın yardımcı olmak paylaşmak..
ama bu şekilde bari ulu orta yerlere serme..
en azından göz önünde bulunan bir ortama paylaşırken..
bu şekilde paylaşma..
yapımcısının gözüne soka soka ayıptır yahu..

 

Çevrimdışı

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

set admin_chan "#opers" bind pub - !bansil ban:kaldirma proc ban:kaldirma { n u h c a } { global admin_chan if {[onchan $n $admin_chan]==1} { set komut "[string tolower [lindex $a 0]]" if {$komut==""} { putquick "PRIVMSG $c : __________________________________________________ ______" putquick "PRIVMSG $c :| \00305 Banları kaldırmak için kullanabileceğiniz komutlar By AspavA EditioN.\003 |" putquick "PRIVMSG $c :|________________________________________________ ______|" putquick "PRIVMSG $c :\002\00302!bansil g :\002\00307 Bütün gline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil gz:\002\00307 Bütün gzline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil k :\002\00307 Bütün kline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil z :\002\00307 Bütün zline'ları açar." putquick "PRIVMSG $c :\002\00302!bansil s :\002\00307 Bütün shun'ları açar." putquick "PRIVMSG $c :\002\00302!bansil banlar :\002\00307 Bütün banları açar." putquick "PRIVMSG $c : --------Her Bişe SizLer İçin By AspavA----------" return 0 } elseif {$komut=="g"} { putquick "PRIVMSG $c :\00312Bütün glinelar açılıyor." putquick "STATS g" return 0 } elseif {$komut=="k"} { putquick "PRIVMSG $c :\00312Bütün klinelar açılıyor." putquick "STATS k" return 0 } elseif {$komut=="gz"} { putquick "PRIVMSG $c :\00312Bütün gzlinelar açılıyor." putquick "STATS g" return 0 } elseif {$komut=="s"} { putquick "PRIVMSG $c :\00312Bütün shunlar açılıyor." putquick "STATS s" return 0 } elseif {$komut=="z"} { putquick "PRIVMSG $c :\00312Bütün zlinelar açılıyor." putquick "STATS k" return 0 } elseif {$komut=="banlar"} { putquick "PRIVMSG $c :\00312Bütün banlar açılıyor." putquick "STATS g" putquick "STATS k" putquick "STATS s" return 0 } else { putquick "PRIVMSG $c :\00304Bilinmeyen komut! \00301Ban silme komutlarını görmek için \002!Bansil \002yazınız." } return 0 } if {[onchan $n $admin_chan]==0} { putquick "NOTICE $n Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. u komutu kullanmaya yetkiniz yok!" } } bind raw - 223 serverban_listesi proc serverban_listesi {from keyword arg} { set bz [lindex [split $arg] 1] set ip [lindex [split $arg] 2] if {$bz == "Z"} { putquick "GZLINE -$ip" } if {$bz == "z"} { putquick "ZLINE -$ip" } if {$bz == "G"} { putquick "GLINE -$ip" } if {$bz == "s"} { putquick "SHUN -$ip" } if {$bz == "K"} { putquick "KLINE -$ip" } else { return 0 } }

Basitçe
Not: ScanX Botundan alıntıdır yazsan daha etik bir hareket olurdu.

 

Çevrimdışı

Bu tcl değil socket
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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

Bu tcl değil socket Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Haklısın Hocam ;p Socket SagoqaKajmer S-Bot'un İçindekiler. Lazım diye Konu açmış Üstelik Tcl demiş ßenimde. O an Kafama. Tcl Gitmiş demekki Uyandırdığın İçin Teşekkürler ; )

__________________
-