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

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

bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG #opers \00304Özel Mesaj >>\003 \00303Nick:\003 $nick \00303Yazdığı Mesaj:\003 $text"
}

putserv "privmsg $*irc.xpsohbet.com $global_rmsg"

putserv "ping $*irc.xpsohbet.com"

#kontrol mesajı
set kontrolmsg "Reklam Kontrol Lütfen Cevap Yazmayınız.."
#ne kadar arayla kontrol mesajı atacak (dakika cinsinden)
set zaman_araligi "20"
# kline mesaji
set bans "\00304mesajinizda reklam/relamlar tespit etmistir. Reklam ve Mail Alışverişi Yasaktır..!\003"
#oper kanalı
ser operchan "#oper"
# Reklam Mesajları
set reklam { 
"*w*w*w*.*"
"*h*t*t*p*:*"
"*.com*"
"*.net*"
"*.org*"
"*.cjb.net*"
"*.da.ru*"
"*/server*"
"*îRC*"
"*Nét*"
}
 
bind msgm - * reklammsg
proc reklammsg {nick uhost hand text} {
global reklam bans operchan
if {[onchan $nick $operchan]} {return 0}
 foreach w $reklam {
  if {[string match -nocase "* $w *" " $text "]} { 
    putquick "kline $nick 1d $bans" -next
    putserv "privmsg $operchan \00304$nick\003 \00302özelime reklam yaptı ve Sunucudan uzaklaştırıldı. Reklamı :\003 \00304$text\003"
    return 1
    }
 }
}
 
if {![string match "*basla*" [timers]]} {  
 timer $zaman_araligi basla  
} 
proc basla { } { 
global kontrolmsg zaman_araligi
putserv "describe $irc.sunucum.net $kontrolmsg"
timer $zaman_araligi basla  
}