kontrol.tcl !uza nick

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 : destek@IRCHostum.Net
# server : /server IRC.IRCHostum.Net
# web : Www.IRCHostum.Net
# 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: acoustic@realcoder.com"
putlog "kontrol.tcl by GhostLy"
putlog "mail: admin@irchostum.net"