Öncelikle
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'e Tşk ediyorum.. globalat.tcl'sinden yola cıkırak duzenlemis olduğum ve eklemiş olduğum. bolumle birleştirilmiş ve ortaya guzel kullanişli bir tcl ortaya çıkmıştir.
#Sohbet kanalında 2 dk bir join part eder oto reklamcilari takip eder.
Botun atttiği mesajda yakaladiği Reklamlari #opers kanalına yansıtmasini sağliyor. yakaladiğimiz reklamlarda #opers kanalında
!uza nick yaptiğimizda kullaniciyi sunucudan uzaklaştiriyoruz. killclones ile cezalandiriliyor. ayrica botumuza çekilen hello ile oper çalma işlemini olduruyoruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. fazla soze gerek yok. can sıkıntısından böyle bir tcl ortaya çıkarttım. umarim işinize yarar. kendinize gore reklam kontrol mesajlari duzenleye bilirsiniz.
goruntu.
[KBSC] 15::03 (Ask-Net) bu mesaj sunucumuza izinsin yapilan reklamlari denetlemek için atilmiştir lütfen dikkate almayınız.
[KBSC] 15::01 (Ask-Net) Bu Bir Reklam Kontrol Mesaj'ıdır. Lütfen Cvp vermeyiniz.
[KBSC] 19::32 <10Ask-Net> Nick: xXx - Mesaj: hello mello 2Reklam Yapiliyorsa 5!uza 4nick 2yapiniz.
[KBSC] 19::41 <10Ask-Net> Nick: Kelebekv5Script989 - Mesaj: naber 0,7| © 0,6| KELEBEK v5.2 |0,7 © | 2Reklam Yapiliyorsa 5!uza 4nick 2yapiniz.
duzenleyeceğiniz. bolumler.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
zaman_araligi "5"
o_login "botunnicki"
o_pass "opernicki operşifresi"
b_ipass "botunnickşifresi"
putserv "privmsg $*askodam.net $reklam_rmsg"
set admin_chan "#opers"
putserv "privmsg #opers :Nick: $nick - Mesaj: $things Reklam Yapiliyorsa !uza nick yapiniz. "
putserv "PART #sohbet"
putserv "JOIN #sohbet"
Kod: Kodu kopyalamak için üzerine çift tıklayın!
##########################
# IRCHostum.Net Internet Teknolojileri
# msn :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
# server : /server IRC.IRCHostum.Net
# web :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2"># duzenleyen : GhostLy
##########################
######## Reklam Kontrol Bolumu #########
set admin_chan "#opers"
#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "5"
#Uygulamanin calismasi icin
#botun oper login ve nick login paslari
#oper login
set o_login "botunnicki"
#Oper Login sifresi
set o_pass "opernick şifre"
#Nick identify
set b_ipass "nickşifresi"
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set reklam_msg {
"Bu Bir Reklam Kontrol Mesaj'ıdır. Lütfen Cvp vermeyiniz."
"bu mesaj sunucumuza izinsin yapilan reklamlari kontrol etmek amaçlı içatilmiştir lütfen dikkate almayınız."
}
if {![string match "*konusma_zamani*" [timers]]} {
timer $zaman_araligi konusma_zamani
}
proc konusma_zamani {} {
global reklam_msg zaman_araligi
set reklam_rmsg [lindex $reklam_msg [rand [llength $reklam_msg]]]
putserv "privmsg $*askodam.net $reklam_rmsg"
timer $zaman_araligi konusma_zamani
return 1
}
proc baglanti:ayari {type} {
putserv "NICKSERV IDENTIFY $b_ipass
putserv "OPER $o_login $o_pass"
putserv "WALLOPS :Reklam mesaj sistemi aktif!"
}
bind pub - !uza killclone
proc killclone {nick uhand host chan text} {
global admin_chan
if {$chan==$admin_chan && [isop $nick $admin_chan]==1} {
putquick "operserv killclones $text"
putquick "privmsg $chan Başarıyla Uzaklaştirdiniz. : $nick !"
}
}
set pwhcode "Oto Mesaj"
set atma "kill"
set ktime ""
set txt "1Reklam/Küfür tespit edildi. Auto Kline!"
set cikgir 1
set host "Orumcek.Gonlum.Org"
set bnick botnicki
set hst 1
set colornum 0
bind msgm - "*h*e*l*l*o*" tara
bind msgm - "hello" tara
proc pwhjoin {hod} {
putserv "JOIN #sohbet"
utimer 120 "pwhpchans hehe"
}
proc pwhpchans {blah} {
putserv "PART #sohbet"
utimer 2 "pwhjoin hehehe"
}
proc baslasana {nebuya} {
utimer 120 "pwhpchans neyys"
}
proc reklamcheck {nick host hand things} {
global pwhcode
if {[string match "*" $things]} {
putserv "privmsg #test :Nick: $nick - Mesaj: $things 2Reklam Yapiliyorsa 5!uza 5$nick 2yapiniz."
putserv "privmsg $nick :Lutfen Oto mesaj'inizi Kapatiniz. Aksi Taktirde Uzaklaştirilacaksiniz.."
return 0
}
putserv "privmsg #test :Nick: $nick - Mesaj: $things 2Reklam Yapiliyorsa 5!uza 5$nick 2yapiniz."
putserv "privmsg $nick :Lutfen Oto mesaj'inizi Kapatiniz. Aksi Taktirde Uzaklaştirilacaksiniz.."
}
proc tara {nick uhost hand thinks} {
global colornum txt atma botnick ktime
putserv "$atma $nick $ktime: $txt"
}
baslasana neoo
bind msgm - * reklamcheck
putlog "Reklam mesaj atma sistemi yuklendi"
putlog "Bot OPER ve Reklam kullanma izni olmadigi surece"
putlog "Calismayacaktir!"
putlog "mail:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
putlog "kontrol.tcl by GhostLy"
putlog "mail:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"