!kb <kanal> <nick> tcl istek - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

uurr89 · 16 Mayıs 2008, 21:09

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

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

uurr89 · 16 Mayıs 2008, 22:48

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

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

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

BuCaLI · 16 Mayıs 2008, 23:35

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

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

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.

erd200 · 14 Mayıs 2009, 20:33

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

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

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	Besmelejack	mIRC Scripting Sorunları	16	06 Temmuz 2007 12:50

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.