IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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:

#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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

<A href="mailto:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"[/code">

Kod:

#########################################################################

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

bind msgm - * start

proc start {nick uhost handle text} {

putquick "PRIVMSG #opers \00304Özel Mesaj >>\003 \00303Nick:\003 $nick \00303Yazdığı Mesaj:\003 $text"

}