IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   !kb <kanal> <nick> tcl istek (https://www.ircforumlari.net/tcl-scriptler/58293-kb-ltkanalgt-ltnickgt-tcl-istek.html)

uurr89 16 Mayıs 2008 21:09
!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

BuCaLI 16 Mayıs 2008 22:32
Cevap: !kb <kanal> <nick> tcl istek
 
belirttiğiniz kanalda !kb kanal nick sebep şeklinde kullanabilirsiniz.

Kod:
# 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]
}

uurr89 16 Mayıs 2008 22:48
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

BuCaLI 16 Mayıs 2008 23:13
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ı.

uurr89 16 Mayıs 2008 23:20
Cevap: !kb <kanal> <nick> tcl istek
 
Alıntı:
BuCaLI Nickli Üyeden Alıntı (Mesaj 406333)
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

BuCaLI 16 Mayıs 2008 23:35
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...]

erd200 13 Mayıs 2009 05:04
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.

BuCaLI 13 Mayıs 2009 11:09
Cevap: !kb <kanal> <nick> tcl istek
 
Kod:
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.

erd200 14 Mayıs 2009 20:33
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.

toXic 14 Mayıs 2009 20:49
Cevap: !kb <kanal> <nick> tcl istek
 
Kod:
        ###########################################
#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ı.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:34.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk