|
KocaaLi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Selamlar Arkadaşlar Elimde Mirc Scipt te Kullandığım Bi Kod Var Alıntı Sorunsuz Çalışıyor
Bunu TCL Eggdrop Botunda Kullanmak İstiyorum Bir Kaç Deneme Yaptım Hata Verdi
Kodun Mirc Script Üzerindeki Kullanım Amacı Kanala Giren Kişilerin Belirttiğim İdentler Dışındakilere Hoşgeldın Dedirtmektir Mesela MobilGiris|WebGiris İdenti Olanların Dışında Kim Gelirse Hangi İdent İle Ona Hoşgeldın Demesı Yardımcı Olabilecek Arkadaşlar Varmı Acaba ? Şimdiden Teşekkürler
Kod: Kodu kopyalamak için üzerine çift tıklayın! on !*:join:#sohbet:if !$regex($token($token($address($nick,5),2,33),1,64),/^(MobilGiris|WebGiris)$/i) { timer 1 6 Operserv Raw :botismi privmsg #Sohbet :Hoşgeldin $nick }
|
Kod: Kodu kopyalamak için üzerine çift tıklayın!
# Hoşgelmeyecek identleri yazın arada boşluk bırakarak!
# (büyük - küçük harf uyumu aranmaz! identin sol başında ~ varsa onu yazmayın
# list'i silmeyin Tcl komutudur!
# Eklenen ident Tcl'de özel anlamı olan [ ] { } # içeriyorsa ;
# Eklerken herbirini {içerisine alın!} ->[list {ident1} {ident2}] gibi...
set id[list ident1 ident2 ident3 ident4]
#"#KanalAdı *" yerine hangi kanalda işlemesi isteniyorsa onu yazın!
bind join - "#KanalAdı *" hosh
proc hosh {nick uhost hand chan} {
set ident [string tolower [string trimleft [lindex [split $uhost @] 0] ~]]
# utimer Eggdrop-Tcl komutu saniye cinsinden[list ..] içindeki komutu bekletir.
# Kaç saniye sonra Hoşgeldin denmesi isteniyorsa 6 saniyeyi buradan değişin!
if {$ident ni [string tolower $::id] && $nick ne $::botnick} {
utimer 6[list puthelp "privmsg $chan :Hoşgeldin $nick"]
return 0
}
}
NOT: set id[list ... Bu satırda: set id ile [ ... arasında bir boşluk olmalıdır! Forum hernedense bunları birleştiriyor.!
Aynı Şekilde utimer 6 ile [ işaretinden ayırmalısınız .Orayı da yapıştırmış forum!!!
Siz bunları ayırıp botunuza atın. Yoksa hata verecektir!