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