#############################################################
#           Bot Yap TCL v1.0 - Written By CLubber           #
#       Bu TCL ile kolayca ve hızlıca bot oluşturabilir     #
#           İstediğiniz tüm kanallara sokabilirsiniz.       #
#      Komutun Kullanımı: <!bot oluştur/sil> şeklindedir.   #
#############################################################
# Bot'ların txt dosyasının olduğu bölüm
set document "scripts/bot.txt"
# Komutun kullanılacağı kanal
set op_chan "#Opers"
# Serviceslerimiz
set services "services.sitemiz.com"
# Botların identi
set idents "Sohbet"
# Botların fullnameleri
set fullname "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
# Botların gizleneceği hostları
set hosts "AA06D19E.7CF30E14.B0273C61.IP"
# Botları sileceğinizde servere vereceği ayrılma mesajı
set quit_msg "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
# Botların sokulacağı kanal
set kanallar "#Sohbet,#Muhabbet,#Oyun,#Radyo"
###########################################
# Buradan sonrasını ellemenize gerek yok. #
###########################################
bind pub - !bot msg_bot
proc msg_bot {nick uhand host chan text} {   
  global document op_chan services idents fullname hosts quit_msg kanallar
  if {![string match -nocase "$op_chan" $chan]} {return}
  if {$text == ""} {putquick "PRIVMSG $op_chan :Bot oluşturmak için lütfen komutu doğru kullanın. Kullanımı: <!bot oluştur/sil>";return}
  if {[string match -nocase "oluştur" $text]} {
    set file [open $document r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    foreach i $listfile { 
      putquick "OperServ RAW nick $i 1 1 $idents $hosts $services :$fullname"
      putquick "OperServ RAW :$i join $kanallar"
      putquick "PRIVMSG $op_chan :$i nicki bot oluşturulmuştur."
    } 
    close $file
  }
  if {[string match -nocase "sil" $text]} {
    set file [open $document r]
    set listfile [split [subst -nocommands [read $file]] "\n"]
    foreach i $listfile { 
      putquick "OperServ RAW :$i quit $quit_msg"
      putquick "PRIVMSG $op_chan :$i nickli bot sunucudan çıkartılmıştır."
    } 
    close $file
  } 
}
putlog "Bot Oluştur TCL - Written By CLubber"

putquick "OperServ RAW nick $i 1 1 $idents $hosts $services :$fullname"

putquick "OperServ RAW :$i privmsg NickServ REGISTER Password $
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"