Ahmet Bu şekilde Gelişmis halini vereyim..
1. Kanallarada Join/part eder.
2. Reklam'lari #admin kanalına iletir.
3. Spam'a eklenmis kelimelerde sunucudan uzaklaştirir.
4. Spam'a eklenmeyen ve sunucuda reklam kontrol'u yapabilirsin..
5. ayriyetten hello yuda kapatabilirsiniz...
#sohbet,#radyo,#oyun şeklinde birakdim birden fazla kanalda işlem gorebilmesi bakimindan kendinize gore duzenleye bilirsiniz. #admin kanalı botun mesajlari ileteceği kanaldir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#########################################
#
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"