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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

No_FeaR

21 Mayıs 2015 22:43

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

rascoLn

22 Mayıs 2015 17:18

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

No_FeaR

22 Mayıs 2015 21:58

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.

rascoLn

22 Mayıs 2015 22:22

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.

No_FeaR

22 Mayıs 2015 22:28

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

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

rascoLn

22 Mayıs 2015 22:37

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

No_FeaR

22 Mayıs 2015 22:52

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

    }

}

rascoLn

22 Mayıs 2015 23:05

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

No_FeaR

22 Mayıs 2015 23:11

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.

rascoLn

22 Mayıs 2015 23:15

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

No_FeaR

22 Mayıs 2015 23:25

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

bi whois deniyorum ama çalışırmı bakıcam burdan size etiket yaparak göstereim :)

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:25 -->-> Daha önceki mesaj 23:16 --

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Böyle Uygun mudur inşallah bu tamamdır hatasız :)

Kod:

set raporkanal #Opers

bind raw * NOTICE snotice

proc snotice {from keyword text} {

 if {![string match -nocase "*whois on you*" $text]} {

      putserv "PRIVMSG $nick :Merhaba Ben $botnick xx sunucusu için yapılmıştım çalışırmıyım bilmiyorum :d"

      putserv "PRIVMSG #Opers :$nick Bana Whois Çekti..."

    return 0

}

Bu Satır Böylede Çalışır mı..

Kod:

putserv "PRIVMSG $raporkanal :$nick Bana Whois Çekti..."

rascoLn

22 Mayıs 2015 23:56

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

1. si privmsg $nick tanımını yapamassın çünkü nick değişkeni tanımlı değil kodlarda

Nick değişkenini bota yollanan noticeden alman lazım yani bi kişi bota whois çektiğinde notice olarak ona xkisi (uname@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) did a /whois on you.

yazısı gidiyorya ordaki x kişisini kodlama yaparak o yazinin icinden alip
daha sonradan onu setle değişkene atayıp o şekilde privlemen lazımki o kişiye mesaj ulaşsın..

string match kodunda eğer başta ünlem"!" işareti varsa gelen notice ile çift tırnak arasına yazdığım yazı eşit değilse demiş oluyoruz.

E ne oluyor o zaman eşit değilse gir demek oluyor kodun içine mantıklımı mantıksız tabiki eşitse gir dememiz lazım ünlem işareti olmaması gerekiyor..

Noticedeki nicki nasıl alıcaz gelen noticeye bakalım neydi örnek veriyorum

Kod:

-irc.xxx.com- *** feyza (uname@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) did a /whois on you.

şimdi bu cümlenin icinde kaç kelime var sayalım
0) -irc.xxx.com-
1) ***
2) feyza
3) (uname@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
4) did

diye gidiyor sıraladık mı sıraladık biz neyi alıcaktık nicki dimi nick ne feyza kaçıncı kelime 2 , kelimeleri neyle kapıyorduk lindex koduyla hemen yazalım kodumuzu..

Kod:

set nick [lindex $text 2]

evet nick değişkenimizi oluşturduk. bundan sonra privmsg $nick koduyla nickimize gerekli mesajı yollayabiliriz.

raporkanal değişkeni oluşturmuşsun guzelde sen bunu prosedur dışında çalıştırdıysan prosedurun içinede tanıtman lazım ya global deyip tanıtacaksın
yada $::raporkanal yazıp direk tanıtmış olucaksın burdaki "::" çift iki nokta üstüste bizim dısardaki değişkenimizi direk prosedur içinde kullanmamızı sağlıyor OK..

rascoLn

23 Mayıs 2015 00:02

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

Proc ve if teki süslü parantezleride kapatmayı unutma sonda tek süslü parantez var birtane daha ekle oda proc un olucak..

No_FeaR

23 Mayıs 2015 07:42

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

Alıntı:

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

Proc ve if teki süslü parantezleride kapatmayı unutma sonda tek süslü parantez var birtane daha ekle oda proc un olucak..

Kod:

set raporkanal #Opers

bind raw * NOTICE snotice

set nick [lindex $text 2] } {

proc snotice {from keyword text} {

 if {![string match -nocase "*whois on you*" $text]} {

      putserv "PRIVMSG $nick :Merhaba Ben $::botnick xx sunucusu için yapılmıştım çalışırmıyım bilmiyorum :d"

      putserv "PRIVMSG $::raporkanal :$nick Bana Whois Çekti..."

    return 0

}

$::raporkanal değişkeni oluşturdum olur mu ki sence : )

rascoLn

23 Mayıs 2015 11:37

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

String match kismindaki unlemi al set nick kisminda suslu parantezleri cikar ve string matchtan sonra yaz ve en son kismada } bu suslu parantezi koy

No_FeaR

23 Mayıs 2015 20:25

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

Alıntı:

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

String match kismindaki unlemi al set nick kisminda suslu parantezleri cikar ve string matchtan sonra yaz ve en son kismada } bu suslu parantezi koy

Kod:

set raporkanal #Opers

bind raw * NOTICE snotice

set nick [lindex $text 2]

proc snotice {from keyword text} {

 if {[string match -nocase "*whois on you*" $text]} {

      putserv "PRIVMSG $nick :Merhaba Ben $::botnick xx sunucusu için yapılmıştım çalışırmıyım bilmiyorum :d"

      putserv "PRIVMSG $::raporkanal :$nick Bana Whois Çekti..."

    return 0

}

}

Ustad Eğer Yanlış Anlamasıysam Böyle.. : )

rascoLn

23 Mayıs 2015 23:30

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hem anlattım neyin ne işe yaradığını hem nerelerin değişeceğini nerelere koyulacağını ama sen anlamaya çalışmıon mantık yürütmüyon ya dedimki set nick kısmını oldugu gibi string match yazılı kodun hemen altına al dedim sen yine düz mantık ilerlemişsin prosedürün dışından gelen bir text değeri olabilir mi ?

Ancak sen kendin bi değer oluşturursunda onu kullanırsın. olmayan bir değeri nick değişkenine atıyorsun yok oğlu yok 0 = 0 .

iyi incele..

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:27.