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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - #Ops Kanalı Tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/346752-ops-kanali-tcl.html)

#Ops Kanalı Tcl

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

Cevap: #Ops Kanalı Tcl

Şimdi yazdım. Deneyip sonucu sölersen iyi olur. İyi forumlar :)

PHP- Kodu:

   
#######################################
#  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"
########

Cevap: #Ops Kanalı Tcl

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

Cevap: #Ops Kanalı Tcl

Alıntı:

Raw Nickli Üyeden Alıntı (Mesaj 1040474894)

Şimdi yazdım. Deneyip sonucu sölersen iyi olur. İyi forumlar :)

PHP- Kodu:

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

Cevap: #Ops Kanalı Tcl

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

Cevap: #Ops Kanalı Tcl