#Ops Kanalı Tcl - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

RahmetLi · 04 Ağustos 2010, 13:04

S.a Bana bir tcl lazım aradım bulamadım #Ops Kanalındaki Oplar Nick Değişirse Bot Kill Atsın İstiyorum

Global Op ken Nick değişmeyiniz gibi.

Elinde Olan coderimiz yada diğer arkadaslar varsa paylaşabilirmi Şimdiden Tşkler..

Raw · 04 Ağustos 2010, 19:26

Şimdi yazdım. Deneyip sonucu sölersen iyi olur. İyi forumlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!



#######################################
#  Op Kanalı Nick Değişim Yasaklama   #
#             coded by Raw            #
#######################################

########
# Op kanalı yazınız
########
set op(kanal) "#ops"

########
# Muaf kanalı yazınız
########
set op(muaf) "#opers"

########
# Kill Mesajı Yazınız
########
set op(kill) "Global op kanalında nick değiştirdiğiniz için uzaklaştırıldınız"


bind nick - * nickDEGISIM
proc nickDEGISIM {nick chan uhost hand newnick} {
 global op
  if {[string match -nocase $op(kanal) $chan] && ![onchan $newnick $op(muaf)]} {
 putquick "mode $op(kanal) +b $uhost"
 putquick "kill $newnick $op(kill)"
 putquick "privmsg $op(kanal) \002Dikkat :\002 $nick global op nickini değiştirdiği için uzaklaştırılmıştır. Lütfen global op nickinizi değiştirmeyiniz."
 }
}

########
putlog "Op Kanali Nick Degisim.Tcl Yuklendi - coded by Raw"
########

RahmetLi · 05 Ağustos 2010, 14:04

yukledım nik değişince hiç tpki vermıyor :s

SaW · 05 Ağustos 2010, 14:29

Raw Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Şimdi yazdım. Deneyip sonucu sölersen iyi olur. İyi forumlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!



#######################################
#  Op Kanalı Nick Değişim Yasaklama   #
#             coded by Raw            #
#######################################

########
# Op kanalı yazınız
########
set op(kanal) "#ops"

########
# Muaf kanalı yazınız
########
set op(muaf) "#opers"

########
# Kill Mesajı Yazınız
########
set op(kill) "Global op kanalında nick değiştirdiğiniz için uzaklaştırıldınız"


bind nick - * raw
proc raw {nick chan uhost hand} {
 global op
  if {$chan == $op(kanal) && ![onchan $newnick $op(muaf)]} {
 putquick "mode $op(kanal) +bb $nick $newnick"
 putquick "kill $nick $op(kill)"
 putquick "privmsg $op(kanal) \002Dikkat :\002 $nick global op nickini değiştirdiği için uzaklaştırılmıştır. Lütfen global op nickinizi değiştirmeyiniz."
 }
}

########
putlog "Op Kanali Nick Degisim.Tcl Yuklendi - coded by Raw"
########

bind nick raw'ı 5 ayrı değişkenle döner. Ama sen 4 tane değişken belirlemişsin proc tanımlamasında. Fakat proc içerisinde 5. değişkeni de $newnick olarak kullanmışsın. Bu 5. değişkeni proc tanımlamasına eklemen lazım.

Öte yandan kanalda nick değişene kill uygulatırken eski nickine kill uygulatmaya çalışıyorsun, oysa bu bind devreye girdiğinde kişi zaten nick değişmiş olacaktır ve eski nick'e kill uygulatman birşey ifade etmeyecektir.
Bir diğer mantık hatan ise ban uygulatırken. +bb $nick $newnick yerine kişinin hostunu banlatman daha mantıklı olacaktır.

Proc isimlerini belirlerken raw gibi sunucu üzerinde kullanabilen komutları ya da tcl içerisinde kullanabilecek ana değişkenleri seçmemen daha güzel olur. raw yerine rawNick gibi bir isim daha güzel olur.

Son olarak kanal adları komutun bu haliyle büyük küçük harf duyarlıdır. o yüzden $degisken == $chan şeklindeki bir kullanım yerine string match -nocase kullanmanı tavsiye ederim.

RahmetLi · 05 Ağustos 2010, 15:50

bunuda denedim #Ops kanalında nik değişince kill atmıyo globalopa

RahmetLi · 05 Ağustos 2010, 18:53

oldu

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
op kanalı eklentisi gibi Founder kanalı eklentisi	C3RVANT3S	Services Hazır Kodlar	15	20 Aralık 2011 18:49
Ops Kanalı..	Sohbetcafesi	Unreal IRCd	17	17 Nisan 2011 11:40
#ops KanaLı ?	goKhaN`	mIRC Scripting Sorunları	15	10 Nisan 2009 19:40
ops kanalı?	siwerekLi	mIRC Scripting Sorunları	7	14 Şubat 2008 09:48
#heLp kanaLı :)	archangel	Komik Loglar	14	18 Ağustos 2007 05:11

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.