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" 

 
##########################
# 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.
"