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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Eggdrop TCL İstek (https://www.ircforumlari.net/tcl-scriptler/1034469-eggdrop-tcl-istek.html)

Eggdrop TCL İstek

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:

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  }

Cevap: Eggdrop TCL İstek

Alıntı:

KocaaLi Nickli Üyeden Alıntı (Mesaj 1042897291)

Kod:

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:

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

Cevap: Eggdrop TCL İstek

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1042907148)

Kod:

# 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

        }

}

Teşekkürler