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

No_FeaR · 21 Mayıs 2015, 22:43

Çı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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ot 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...]

rascoLn · 22 Mayıs 2015, 17:18

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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

No_FeaR · 22 Mayıs 2015, 21:58

rascoLn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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.

rascoLn · 22 Mayıs 2015, 22:22

@[Ü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.

No_FeaR · 22 Mayıs 2015, 22:28

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

rascoLn · 22 Mayıs 2015, 22:37

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

No_FeaR · 22 Mayıs 2015, 22:52

rascoLn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

rascoLn · 22 Mayıs 2015, 23:05

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

birde şunu dene istersen:

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

No_FeaR · 22 Mayıs 2015, 23:11

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

rascoLn · 22 Mayıs 2015, 23:15

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Acil Tek Kaldiqin Kanaldan part kodu	Set	mIRC Scripting Sorunları	6	08 Mayıs 2009 20:58
Op İhlalinde Kanaldan Part..	Tai_Pan	mIRC Scripting Sorunları	2	27 Şubat 2009 02:54
serverden Cycle ve istedigim kanaldan part ve gir	SaintCty	mIRC Scripting Sorunları	12	30 Ağustos 2007 13:42

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.