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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Mayıs 2011, 02:22   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tcl Kodda Yardım




Sunucuya giriş yapan MisafirUserxxxx nicklerinin özeline mesaj göndermek istiyorum.
Belki alakasız oldu ama arşiv başlığında userleri joinle ilgili bir kod vardı ve aşağıdaki gibi değiştirdim. Tcl olarak kaydettim.
Help botumun confuna ekledim. Ama çalıştıramadım.
Yardımcı olursanız sevinirim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
*** Notice -- Client connecting on port 4151: MisafirUser1652290311 (


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind raw - NOTICE baglanti proc baglanti {from keyword text} { if {[string match -nocase "*Client connecting*MisafirUser*" $text]} { set nick [lindex [split $text] 9] utimer 1[list putserv "raw close" ] utimer 1[list putserv "PRIVMSG $nick Nickiniz Sunucu Kurallarına Uymadığı için MisafirUserXXX olarak Değiştirilmiştir." ] utimer 1[list putserv "PRIVMSG $nick Lütfen Nickinizi /nick YeniNick Komutu ile Değiştiriniz." ] utimer 1[list putserv "PRIVMSG $nick Örnek : /nick Dost" ] } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 31 Mayıs 2011, 15:30   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Tcl Kodda Yardım




Denemedim Büyük İhtimalle çalışır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
################################################################# set person [lindex $text 9] bind raw * notice connection proc connection {from keyword text} { global person if {![string match -nocase "*Client connecting on port*" $text]} {return} if {[string match -nocase "*MisafirUser*" $person]} { putquick "privmsg $person :Nickiniz Sunucu Kurallarına Uymadığı için değiştirilmiştir." putquick "privmsg $person :Lütfen Nickinizi /nick YeniNick Komutu ile Değiştiriniz." " putquick "privmsg $person :Örnek: /nick Dost" } } putlog "Misafir TCL v1.0 By CLubber" #################################################################


 
Alıntı ile Cevapla

Cevapla

Etiketler
kodda, tcl, yardım


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

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
Kodda değişiklik TİGeR mIRC Scripting Sorunları 9 29 Nisan 2014 11:26
Kodda Hata moonman mIRC Scripting Sorunları 9 25 Şubat 2012 19:27
Kodda Sorun Yardım ? ModeXyL mIRC Scripting Sorunları 5 07 Ekim 2009 15:48
bu kodda oynama. Linqu mIRC Scripting Hazır Kodlar 5 20 Nisan 2009 18:56
kodda sorun PEKERMAN mIRC Scripting Sorunları 1 10 Eylül 2006 20:35