#########################################
#           
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Orumcek.tcl                 #
#          Düzenleyen : GhostLy         #
#                                       #
#########################################

set pwhcode "Oto Mesaj"
set atma "kline"
set ktime "+3600"
set txt "1Reklam/Küfür tespit edildi. Auto Kline!"
set cikgir 1

set colornum 0
bind msgm - "*s*e*r*v*e*r*" tara
bind msgm - "*i*r*c*.*" tara
bind msgm - "*w*w*w*.*" tara
bind msgm - "h*t*t*p*:*/*" tara
bind msgm - "*.*c*o*m*" tara
bind msgm - "*.*n*e*t*" tara
bind msgm - "*i*r*c*.*g*o*n*l*u*m*.*o*r*g*" tara
bind msgm - "*.tr*" tara
bind msgm - "*******" tara
bind msgm - "*p0rn0*" tara
bind msgm - "film" tara
bind msgm - "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
tara
bind msgm - "http://" tara
bind msgm - "irc." tara
bind msgm - "lrc." tara
bind msgm - "gen.tr" tara
bind msgm - "hotmail." tara
bind msgm - ".com" tara
bind msgm - ".org" tara
bind msgm - ".gen.ms" tara
bind msgm - ".org" tara
bind msgm - ".tr" tara
bind msgm - "*h*e*l*o*" tara
bind msgm - "hello" tara




proc pwhjoin {hod} {
putserv "JOIN #sohbet,#radyo,#oyun" 
utimer 60 "pwhpchans hehe"
}

proc pwhpchans {blah} {
putserv "PART #sohbet,#radyo,#oyun" 
utimer 1 "pwhjoin hehehe"
}

proc baslasana {nebuya} {
utimer 60 "pwhpchans neyys"

}
proc reklamcheck {nick host hand things} {
global pwhcode
if {[string match "*" $things]} {
putserv "privmsg #admin :Nick: $nick - Mesaj: $things"  
return 0
}
putserv "privmsg #admin :Nick: $nick - Mesaj: $things"  
}

proc tara {nick uhost hand thinks} {
global colornum txt atma botnick ktime
   putserv "$atma $nick $ktime: $txt"
}
baslasana neoo
bind msgm - * reklamcheck
putlog "Orumcek 1.0 by GhostLy"