########################################
#                                      #
#       Services Bot TCL by Raw        #
#                                      #
#                                      #
# !botyap nick #kanal  komutu ile      #
# belirlediğimiz nickte ve +B flagıyla #
# services bot oluşturup belirlenen    #
# kanala alıcaktır.                    #
#                                      #
#         senali [ @ ] live.com        #
#                                      #
########################################
 
 
# Çalıştırcak komutu girelim
set svs(komut) "!botyap"
 
# Komutun çalışacağı kanalı girelim
set svs(chan) "#opers"
 
# Bot için fullname girelim
set svs(realname) "Service Bot"
 
# Bot hostumuzu girelim
set svs(host) "domain.com"
 
# Bot identimizi girelim
set svs(ident) "services"
 
# Services Hostumuzu Girelim
set svs(name) "services.domain.com"
 
 
###############################
#   Ayar bitti ,TCL yazalım   #
#  Bilmiyosak kurcalamayalım  #
###############################
 
bind pub - $svs(komut) svsbot
proc svsbot {nick uhost hand chan text} {
 global svs
    set snick [lindex $text 0]
    set schan [lindex $text 1]
   if {![string match -nocase $svs(chan) $chan]} {return 0}
   if { $schan == "" } {
    putquick "privmsg $chan Nick yada kanal belirtmediniz. Kullanım : < $svs(komut) nick #kanal > şeklindedir."
    return 0
      }
   if {![string match -nocase "#*" $schan]} {
    putquick "privmsg $chan Kanal adı girerken başında # belirtiniz. Kullanım : < $svs(komut) $snick #$schan > şeklindedir."
    return 0
      }
    putquick "privmsg OperServ raw nick $snick 1 1 $svs(ident) $svs(host) $svs(name) :$svs(realname)"
    putquick "privmsg OperServ raw svsmode $snick +B"
    putquick "privmsg OperServ raw :$snick join $schan"
    putquick "privmsg $chan *** $snick , başarı ile oluşturulup $schan odasına alındı."
}
 
###
putlog "Service Bot TCL yuklendi - coded by Raw"
###