IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/693319-kanaldan-part-ve-botu-kayitli-gosterebilir-miyiz.html)

Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Çıkış Mesajlarını Çoğaltsak Nickini Kayıtlı Göstermebilme Sansımız var mı ?
ve kanaldan part etme gibi..

Alıntı:

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

Neden Bilmiyorum Ama Satırlarda Kayma Oluyor

Link ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Services Nicki kayıt edemezsin, ama kanaldayken kayıtlı gösterebilirsin.

Kod:

os raw svsmode nick +r

Part olayına gelirsek bu TCL nin amacı toplu halde bot oluşturup toplu halde çıkış sağlamak eğerki sende toplu part istiyorsan;

Bu kodun hemen altına:

Kod:

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

  }

Şu kodu yapıştır kaydet:

Kod:

if {[string match -nocase "part" $text]} {

    set file [open $document r]

    set listfile [split [subst -nocommands [read $file]] "\n"]

    foreach i $listfile { 

      putquick "OperServ RAW :$i part $kanallar :$part_msg"

      putquick "PRIVMSG $op_chan :$i nickli bot kanallardan çıkartılmıştır."

    } 

    close $file

  }

Komut !bot part kanallardan bütün botlar part edicektir..

Unutmadan TCL nin içindeki set quit_msg gibi birtanede set part_msg olustur mesajını yaz globale ekle OK..

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041652796)

Services Nicki kayıt edemezsin, ama kanaldayken kayıtlı gösterebilirsin.

Kod:

os raw svsmode nick +r

Part olayına gelirsek bu TCL nin amacı toplu halde bot oluşturup toplu halde çıkış sağlamak eğerki sende toplu part istiyorsan;

Bu kodun hemen altına:

Kod:

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

  }

Şu kodu yapıştır kaydet:

Kod:

if {[string match -nocase "part" $text]} {

    set file [open $document r]

    set listfile [split [subst -nocommands [read $file]] "\n"]

    foreach i $listfile { 

      putquick "OperServ RAW :$i part $kanallar :$part_msg"

      putquick "PRIVMSG $op_chan :$i nickli bot kanallardan çıkartılmıştır."

    } 

    close $file

  }

Komut !bot part kanallardan bütün botlar part edicektir..

Unutmadan TCL nin içindeki set quit_msg gibi birtanede set part_msg olustur mesajını yaz globale ekle OK..

Ustad Şöyle Yapsak Peki Normal Cycle Gibi Giriş Çıkış Yapmasını Sağlayabilirmiyiz ?

3 Bot Gircek Mesela 2'si Çıkıcak.

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] cycle botlar ne zamana duruyor ne işe yarıyorlar onlardan faydalan bence.

Senin istediğin herşeyi baştan yarat gibi bişey oldu şimdi. Biraz bakının sağa sola kodların çalışma düzenini gözden geçirin.

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

İşten Geldim Kusura Bakma ya : ) Okuduğum da Baya Saçmalamaşım..

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Yok sormak değil öğrenmemek ayıptır.

Yardım her zaman ederim bildiğim konuda , etmişimdirde ama tcl olarak öğrenmek için biliyorum ki azimlisin bunu başarman için her tcl nin kodlarını incele ne işe yaradıklarını öğren

webte yabancı kaynaklardan çat pat bişeyler kapmaya bak inan zor bişey değil..

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041652839)

Bu Kodu Az Önce Bind'lere Bakarak Yaptım Ama Çalışmadı Hatam Nerede ?

Kod:

bind raw * notice baglanti

proc baglanti {text} {

    if {[string match -nocase "*Client connecting on port*" $text]} {

    set port [lindex $text 6667]

    putquick "PRIVMSG #Opers :$nick su anda $port undan sunuya giriş yaptı."

    }

}

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

prosedurdeki argumanların eksik raw komutuyla çalıştırdığında argumanların

from keyword text olucak yani:

" proc baglanti { from keyword text} { "

şeklinde yazmalısın..

" lindex $text 6667 " bu komut bir cumlenin icinden kelimeleri kapmaya yarar text icine yazılmıs cumlenin 6667. kelimesini kap demişsin bununda sanırım mümkünatı yok :)

birde şunu dene istersen:

" [string range [lindex [split [lindex $text 8] ":"] 0] 0 end] "

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Kod:

bind raw * notice whois

proc whois {text} {

if {[string match -nocase "*did a /Whois On Uou*" $text]} {

set nick [lindex $text 5]

putquick "PRIVMSG #Opers :$nick bana whois çekti.."

}

}

ustadım ben bu nasıl çalışır mı bağlantım yavas ssh'e giremedim ondan deneyemedim.

Cevap: Kanaldan Part ve Botu Kayıtlı Gösterebilir miyiz ?

Hevesin niye kırılacak @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tam tersi ben bunu niye yapamadım yapacam bulacam bir yolunu diyerek dahada heveslenmen lazım.

Çalışmadımı ne olduklarını anlayarak bozacak tekrardan yapacaksın olmadı bidaha bidaha bidaha derken yol almış gitmişsin ..