IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Mayıs 2008, 21:09   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
!kb <kanal> <nick> tcl istek




arkadaşlar başlık böyle bir tcl yapabilirmiyiz çok aradım forumada baktım fakat bulamadım örneğin opers kanalında !kb kanal nick yazınca kişiyi belirttiğim kanaldan atıcak eğer kişi o kanaldan çıkmışsa böyle bir nick kanalda bulunamadı die opers kanalına bilgi vericek acaba çok şeymi istedim ;boggled

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 16 Mayıs 2008, 22:32   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




belirttiğiniz kanalda !kb kanal nick sebep şeklinde kullanabilirsiniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kanal belirtin (sadece bu kanaldakiler bota söz geçirebilir) set operchan "#opers" bind pub - !kb kickle proc kickle { n u h c a } { global operchan if {![onchan $n $operchan]} {return 0} set kanal [lindex $a 0] set nick [lindex $a 1] set sebep [lrange $a 2 end] channel add $kanal utimer 2[list devam $nick $kanal $sebep] } proc devam { nick kanal sebep } { global operchan if {[onchan $nick $kanal]} { if {$sebep != ""} { putquick "mode $kanal +b $nick" putquick "kick $kanal $nick $sebep" } else { putquick "mode $kanal +b $nick" putquick "kick $kanal $nick sebep belirtilmedi." } } else { putquick "privmsg $operchan $kanal kanalında $nick nickli user bulunamadı." } utimer 3[list channel remove $kanal] }


 
Alıntı ile Cevapla

Alt 16 Mayıs 2008, 22:48   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




yardımın için tşk ederim BuCaLI şöle bi hata verdi;

Tcl error [kickle]: wrong # args: should be "utimer seconds command

 
Alıntı ile Cevapla

Alt 16 Mayıs 2008, 23:13   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




utimer 2[list devam $nick $kanal $sebep]
ve
utimer 3[list channel remove $kanal]
satırlarında 2 ile [ arasında ve 3 ile [ arasında birer boşluk var kod içerisinde boşluk görünmüyor düzeltemiyorum. onları düzeltirsen sorun kalmaz. yine yapamazsan [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] linkinden alabilirsin kodları.

 
Alıntı ile Cevapla

Alt 16 Mayıs 2008, 23:20   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




BuCaLI Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
utimer 2[list devam $nick $kanal $sebep]
ve
utimer 3[list channel remove $kanal]
satırlarında 2 ile [ arasında ve 3 ile [ arasında birer boşluk var kod içerisinde boşluk görünmüyor düzeltemiyorum. onları düzeltirsen sorun kalmaz. yine yapamazsan [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] linkinden alabilirsin kodları.

çok tşk ederim ellerine sağlık son bi sorum olucak mesela bu kodda değişiklik yapsam nasıl yapabilirim mesela !kb yerine !op kanal nick yazıp op verse nereleri değiştirmem gerekir ? şimdiden tşk ederim

 
Alıntı ile Cevapla

Alt 16 Mayıs 2008, 23:35   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




bunun için önce proc kullanımını öğrenmen gerekir. linkten proc kullanımı hakkında biraz bilgi alabilirsin ve ona göre kodlarda kendine göre editlemeleri yapabilir veya kendin yeni kod oluşturabilirsin
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Alt 13 Mayıs 2009, 05:04   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




BuCaLI çok teşekkürler. Birde bunun botun bulunduğu tüm kanallardan atması için nasıl geliştirebilriiz.

Mesala

!kbtum <nick> <sebep>

nicki botun bulunduğu tüm kanallardan banlatmak istesek. Yine komut tek bir kanalda kullanılabilecek olsa.

Şimdiden teşekkür ederim.

 
Alıntı ile Cevapla

Alt 13 Mayıs 2009, 11:09   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set operchan "#operkanali" bind pub - !kbtum tum:kickle proc tum:kickle { n u h c a } { global operchan if {![onchan $n $operchan]} {return 0} set nick [lindex $a 0]; set sebep [lrange $a 1 end] foreach kanal [channels] { if {[onchan $nick $kanal]} { putquick "kick $kanal $nick $sebep" ; putquick "mode $kanal +b $nick" } } }

Dipnot Mesajı: sadece " set operchan "#operkanali" " belirttiğiniz oper kanalında !kbtum <nick> <sebep> şeklinde çalışır.

 
Alıntı ile Cevapla

Alt 14 Mayıs 2009, 20:33   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




BuCaLI çok teşekkür ederim.

Bunlar gibi aşağıdaki komutlar ile çalıştırabilecek tcl ler yapabilir miyiz.

Kanalda banlı nickin banını açmak için;
!banac <kanal> <nick>

Botun bulunduğu kanallarda akick listesine eklemek için;
!akick nick

Botun global mesaj atması için (Bu tcl yi burada buldum ama bende bir türlü çalışmadı)
!global mesaj içeriği

Şimdiden teşekkür ederim. Yük oluyorsamda özür dilerim.

 
Alıntı ile Cevapla

Alt 14 Mayıs 2009, 20:49   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !kb <kanal> <nick> tcl istek




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
########################################### #Global uygulamasinin yapilabilecegi kanal ########################################### set tg_chan "#opers" ########################################### #Uygulamanin calismasi icin botun oper login ve nick login paslari ########################################### set o_login "global" set o_pass "123globalbot" set b_ipass "123456" ########################################### #Gerekli uygulamalar ########################################### bind pub - !global global:msg bind evnt - init-server baglanti:ayari ########################################### #Buraya DOKUNMAYIN! (siz bilirsiniz) :) ########################################### proc global:msg {n u h c a} { set tg_msg [lindex $a ] if {[isop $n $tg_chan]==1} { putserv "NOTICE $* \02<$n>\02 $tg_msg" } if {[isop $n $tg_chan]==0} { putserv "SAMODE $c +b $n" purserv "KICK $c $n Bu komudu kullanmaya Yetkili degilsiniz!" } } proc baglanti:ayari {type} { putserv "NICKSERV IDENTIFY $b_ipass putserv "OPER $o_login $o_pass" putserv "WALLOPS :Helper Global mesaj sistemi aktif!" } putlog "Global mesaj atma sistemi yuklendi" putlog "Bot OPER ve Global kullanma izni olmadigi surece" putlog "Calismayacaktir!" putlog "!helpglobal globalmesajiniz seklinde calismatadir"

forumda böyle bir tcl vardı.

 
Alıntı ile Cevapla

Cevapla

Etiketler
<kanal>, <nick>, istek, ltkanalgt, ltnickgt, tcl


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Muaf Kanal/Nick Giriş Çıkış Bilgisi Kanal ve Özelde Komut Yardımı Goemon Conference Room (CR) 4 01 Şubat 2016 02:03
!kaydet #kanal nick ( istek ) Raw TCL Scriptler 22 10 Kasım 2015 04:51
nick takip addonu ek kod istek Mack mIRC Scripting Sorunları 7 20 Ekim 2015 19:04
!clone nick kod istek Emrax mIRC Scripting Sorunları 7 27 Ağustos 2009 05:01
Kanal da Nick Değişenleri (Kötü Nick) Kanaldan Atma incubus mIRC Scripting Sorunları 16 06 Temmuz 2007 12:50