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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 04 Ağustos 2010, 13:04   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
#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..

__________________
ßen Mırıldanan Adam, Dilsiz Odam Sanki Okyanus'un Ortasında Issız Adam



Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 04 Ağustos 2010, 19:26   #2
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: #Ops Kanalı Tcl




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


__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~

Konu Raw tarafından (06 Ağustos 2010 Saat 16:10 ) değiştirilmiştir. Sebep: çalışır hali ile düzenlendi..
 
Alıntı ile Cevapla

Alt 05 Ağustos 2010, 14:04   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: #Ops Kanalı Tcl




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

__________________
ßen Mırıldanan Adam, Dilsiz Odam Sanki Okyanus'un Ortasında Issız Adam



Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 05 Ağustos 2010, 14:29   #4
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: #Ops Kanalı Tcl




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.

 
Alıntı ile Cevapla

Alt 05 Ağustos 2010, 15:50   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: #Ops Kanalı Tcl




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

__________________
ßen Mırıldanan Adam, Dilsiz Odam Sanki Okyanus'un Ortasında Issız Adam



Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Alt 05 Ağustos 2010, 18:53   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: #Ops Kanalı Tcl




oldu

__________________
ßen Mırıldanan Adam, Dilsiz Odam Sanki Okyanus'un Ortasında Issız Adam



Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
#ops, kanalı, tcl


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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