3 tcl ile istediğin olur.
bunlardan 1.si 10 dk bir userların özeline belirlediğin mesajı atar.
2.si özeline reklam gelirse kline atar.
3.sü ise belirlediğin kanala özeline yazılan yazıları yazar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "10"
#Uygulamanin calismasi icin
#botun oper login ve nick login paslari
#oper login
set o_login "botopernicki"
#Oper Login sifresi
set o_pass "botoperşifresi"
#Nick identify sifresi
set b_ipass "botnickşifresi"
#bind
bind evnt - init-server baglanti:ayari
#mesajlar
set global_msg {
"Slm ... Bu mesaj sunucumuzda izinsiz reklam yapanları kontrol etmek için herkese atılmıştır.Lütfen Cevap vermeyiniz.Yanıt alamazsınız. Sanalda Group Sohbet Sunucuları"
"merhabalar ... Bu mesaj sunucumuzda izinsiz reklam yapanları kontrol etmek için herkese atılmıştır.Lütfen Cevap vermeyiniz.Yanıt alamazsınız. Sanalda Group Sohbet Sunucuları"
"nbr nasılsın slm msn nerden ...Bu otomatik kelime algılayıcısı sunucumuzda izinsiz reklam yapanları kontrol etmek için herkese atılmıştır.Lütfen cevap vermeyiniz."
}
if {![string match "*konusma_zamani*" [timers]]} {
timer $zaman_araligi konusma_zamani
}
proc konusma_zamani {} {
global global_msg zaman_araligi
set global_rmsg [lindex $global_msg [rand [llength $global_msg]]]
putserv "privmsg $*irc.xpsohbet.com $global_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 :Global mesaj sistemi aktif!"
}
putlog "Global mesaj atma sistemi yuklendi"
putlog "Bot OPER ve Global 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."
<A href="mailto:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir."[/code">
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#########################################################################
# inviterlerin serverdan nasıl atılacagını belirler. #
# Kline için "kline" ; Kill için "kill" yazınız. #
# #
set atma "kline"
set ktime "+3600"
#########################################################################
# inviterlerin serverdan atılırken yazılacak mesajı belirler. #
# #
set txt "1Reklam/Küfür tespit edildi. Auto Kline!"
#########################################################################
# #
# #
#########################################################################
# host gizlemede kullanılacak ipyi belirler. #
# ornek : 1342A7A7.45327A5C.55774CAB1.IP #
# #
set host "xpsohbet"
#########################################################################
# Botun nicki confdaki nickle aynı olmalıdır. #
# #
set bnick A-Scanner
#########################################################################
# #
# !! DIKKAT !! #
# Burdan sonrasında oynama yapmayınız. Botunuzun hatalı #
# çalışmasına sebebiyet verebilirsiniz. #
# #
#########################################################################
set hst 1
set host Scanner
set colornum 0
bind msgm - "/server" tara
bind msgm - "irc.*" 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 - "*.com*" tara
bind msgm - "*.net*" tara
bind msgm - "*.tr*" tara
bind msgm - "*.org*" tara
bind msgm - "*.n3t*" tara
bind msgm - "*.tk*" tara
bind msgm - "*.tc*" tara
bind msgm - "irc*" tara
bind msgm - "*.info*" tara
bind msgm - "***** filmler burada" tara
bind msgm - "tıkla" tara
bind msgm - "google*" tara
bind msgm - "kızlar" tara
bind msgm - "sende gir" tara
timer $hst host
proc host {} {
global bnick host
putserv "chghost $bnick $host"
putserv "mode $bnick +H"
}
proc tara {nick uhost hand thinks} {
global colornum txt atma botnick ktime
putserv "$atma $nick $ktime: $txt"
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG #opers \00304Özel Mesaj >>\003 \00303Nick:\003 $nick \00303Yazdığı Mesaj:\003 $text"
}