Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
CR için Agent Botları Kanal a Alma TCL'si ( Mynet Botserv in TCL versionu )


Kod:


NOT:Bu Botun Calışması için Root yetkisi(panel girişi Acık) Olması Gerekmektedir. 

Çalışma Şekli:
!join #kanal - kanal a alır
!part #kanal -kanaldan cıkartır.

CR Fjoin TCL(userleri Kanal a Almak)

Kod:



Oper.tcl ( botun Oper girmesi için hazırlanmış tcl )

Kod:
loadmodule server
set net-type 0
set nick "BotNick"
set realname "4AsiLMaVi"
set init-server { putserv "OPER opernick operpass"
putserv "nick BotNick"
putserv "umode +c"

}Global.tcl ( istenilen metni bota global attırmak için gerekli tcl )


Kod:
###########################################
#Global uygulamasinin yapilabilecegi kanal
###########################################
set tg_chan "#opers"

###########################################
#Uygulamanin calismasi icin botun oper login ve nick login paslari
###########################################


set o_login "global"

set o_pass "123globalbot"

set b_ipass "123456"


###########################################
#Gerekli uygulamalar
###########################################

bind pub - !global global:msg
bind evnt - init-server baglanti:ayari


###########################################
#Buraya DOKUNMAYIN! (siz bilirsiniz)
###########################################
proc global:msg {n u h c a} {
  set tg_msg [lindex $a ]
  if {[isop $n $tg_chan]==1} {
     putserv "NOTICE $* \02<$n>\02 $tg_msg"
 }
  if {[isop $n $tg_chan]==0} {
    putserv "SAMODE $c +b $n"
    purserv "KICK $c $n Bu komudu kullanmaya Yetkili degilsiniz!"
  }

}

proc baglanti:ayari {type} {
  putserv "NICKSERV IDENTIFY $b_ipass
  putserv "OPER $o_login $o_pass"
  putserv "WALLOPS :Helper Global mesaj sistemi aktif!"
}

putlog "Global mesaj atma sistemi yuklendi"
putlog "Bot OPER ve Global kullanma izni olmadigi surece"
putlog "Calismayacaktir!"
putlog "!helpglobal globalmesajiniz seklinde calismatadir"Global2.tcl(Kodladıgınız mesajları Belirlediğiniz Sürede Global Atar )


Kod:
#Konusma icin zaman sureci (Dk cinsinden)
set zaman_araligi "15"

 
#Uygulamanin calismasi icin
#botun oper login ve nick login paslari

#oper login
set o_login "global"

#Oper Login sifresi
set o_pass "123654789globalbot"

#Nick identify sifresi
set b_ipass "123654789"


#bind
bind evnt - init-server baglanti:ayari

#mesajlar
set global_msg {
  "Mesajı buraya yazınız."
  "mesajı bu şekilde asagıya ekleyebilirsiniz."
  "kolay gelsin"
 
}

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 "NOTICE $* $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: acoustic@realcoder.com"




Opme.tcl ( mynet merlyn tcl si )


Kod:
################################################################################
# opal.tcl 1.0 - www.ircturk.org                                               #
#                                                                              #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla  #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan  #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.!                                            #
######################################################################Stonkeep##


# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnicki"

# Buda gerekli olan sifre
set ipass "123bot"







# Ayarlar Bu kadar.! DOKUNMAYIN!!!

#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum "
  putserv "sajoin #OpS"
  putserv "samode #Ops +o botnick"
  putserv "umode +c"
 }

proc opver {n u h c a} {
  global gnick
   set gnick $n
        set kanal [lindex $a 0]
   putserv "FJOIN $kanal $n"
      putserv "samode $kanal +o $n"
   
}Operjoin.TCL ( Cr de Operini giren görevlileri belirtilen kanal a fjoinler )


Kod:
##########################
#
# Oper Join TCL Writed Raiden Server: Irc.Ayva.Net
#
#########################

bind raw - Notice operjoin

proc operjoin { from keyword text } {
  if {[string match -nocase "*is now an operator*" $text]} {
   set _nick [lindex [split $text] 4]
   set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
   putserv "fjoin $snr #ops"
   putserv "fjoin $snr #opers"
        putserv "fjoin $snr #sops"
        putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin."
        putserv "SAMODE #opers +o $snr"
  }
}
putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"