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

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)

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

erd200

14 Mayıs 2009 22:04

Cevap: !kb <kanal> <nick> tcl istek

toXic teşekkürler bu tcl yi denemiştim ama çalıştıramadım.

toXic

15 Mayıs 2009 09:31

Cevap: !kb <kanal> <nick> tcl istek

Suanda baktım calısıyor.

Kod:

set o_login "global" 

set o_pass "123globalbot" 

set b_ipass "123456"

Bu Bölümleri kendinize göre ayarlamalısınız.

erd200

15 Mayıs 2009 12:00

Cevap: !kb <kanal> <nick> tcl istek

Bot zaten admin konumunda ve operini conf dosyasında giriyor. Buraya tekrar yazmam gerekli mi?

GemLik

15 Mayıs 2009 12:23

Cevap: !kb <kanal> <nick> tcl istek

eğer bot operini girior ise ve admin yada oper listesinde ise gerek yok ama yinede yazarsanız sorun olmaz birde botun çalışacağı kanal tcl #opers olarak belirtilmiş birde orayı kontrol edin. kendinize göre değiştirin orayı

erd200

15 Mayıs 2009 20:09

Cevap: !kb <kanal> <nick> tcl istek

Arkadaşlar komutun kullanılacağı kanalıda ayarladım botun oper adını şifresini ve nick şifresinide ilgili yerlere girdim ama yine ne hikmetse çalışmadı maalesef

erd200

15 Mayıs 2009 21:09

Cevap: !kb <kanal> <nick> tcl istek

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

Bu linkte anlatılan tcl yi denedim. !duyuru mesaj

Bu çalıştı. Yardımcı olduğunuz için teşekkürler arkadaşlar.

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