IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Services Bot TCL v1.0

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Services Bot TCL v1.0 - Written By CLubber (https://www.ircforumlari.net/tcl-scriptler/425253-services-bot-tcl-v10-written-clubber.html)

Services Bot TCL v1.0 - Written By CLubber

Kod:

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

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

* Bu TCL ile saniyeler içinde yüzlerce hatta binlerce bot oluşturabilirsiniz.

* Bot nicklerini scripts/bot.txt'ye atın, gerekli ayarlamaları yapıp kullanın.

* Botun nicki kayıtlı, admin listte ve en az services admin flagında olması gerekir.

* Komutun kullanımı; !bot oluştur/sil şeklindedir.

* TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Services Bot TCL v1.0 - Written By CLubber

ilk ben test ettiydim zati kanka emegine saglık guzel calışıyor bide part eklersen super olacak

Cevap: Services Bot TCL v1.0 - Written By CLubber

Bende denedim ve part olayı ekledim. Clubber'den boyle birsey görmek beni sevindirdi :)

Cevap: Services Bot TCL v1.0 - Written By CLubber

Botları Giriş yaptırırken yada. girdikten sonra nicklerini kaydettirebilirmiyiz ?

Cevap: Services Bot TCL v1.0 - Written By CLubber

Kod:

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

Bu satırın hemen altına;

Kod:

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.
"

Kodunu ekle.

Cevap: Services Bot TCL v1.0 - Written By CLubber

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Verdiğin Kod Nick kaydetmiyor abim. yine aynı services bot olarak qösteriyor.

Cevap: Services Bot TCL v1.0 - Written By CLubber

Alıntı:

eTheRciTy Nickli Üyeden Alıntı (Mesaj 1041150988)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Verdiğin Kod Nick kaydetmiyor abim. yine aynı services bot olarak qösteriyor.

O zaman servicesler nick kaydedemiyordur.

Cevap: Services Bot TCL v1.0 - Written By CLubber

Sen bu kodu hiç denedin mi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ?

servisler üzerinden kaydetmiyor ama. /os raw svsmode nick +r ile kayıtlı olarak qözüküyor. onuda kendimiz irc üzerinden yapmamız qerekiyor? tcl'den yapamazmıyız onu?

Cevap: Services Bot TCL v1.0 - Written By CLubber

Tmm Hallettim. Tşkr Ederim iLqine CLubber.

Cevap: Services Bot TCL v1.0 - Written By CLubber

Alıntı:

ruLet Nickli Üyeden Alıntı (Mesaj 1040909007)

Bende denedim ve part olayı ekledim. Clubber'den boyle birsey görmek beni sevindirdi :)

Part olarayini nasil yaptiniz? yardimci olurmusunuz?

part kodu varmi? varsa paylaşirsanız sevinirim.