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

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

- - bir istek (https://www.ircforumlari.net/eggdrop-neostats-bnc/428302-bir-istek.html)

arkadaşlar idente gore kanallara çekme qibi bir durumumuz varmı ornek belirgin identler var
asd@ bunlar sadece belirledigim kanallara sohbet@ identleride tek belirledigimkanallara çekme gibi bir şansımız varmı

Cevap: bir istek

Kod:



set badidentchans "#Kanal"

 

set badidents {

"sohbet"

"chat"

}
 

 

set badidentexempt "mnof|mnof"

 

set badidbantime 30
 

 

bind join - * join:badident

proc join:badident {nick host hand chan} {

 global botnick badidents badidentchans badidentexempt badidbantime

  if {(([lsearch -exact [string tolower $badidentchans] [string tolower $chan]] != -1) || ($badidentchans == "*")) && ($nick != $botnick)} {

    foreach badident [string tolower $badidents] {

putquick "OS raw svsjpart $nick #kanal1,#kanal2,#kanal3"  

 putquick "OS raw svsjoin $nick #lez"

     set userident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"

    if {[string match *$badident* [string tolower $userident]]} {

      if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
 
 

        return 0

        }

      }

    }

  }

}

# (ain't i an asskicker?...)
 

putlog "Bad Ident Kicker Script v1.65.ab by \002awyeah (awyeah@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net)\002 -=Loaded=-"

putlog "*ENABLED* Bad Ident Kicker Script on:\002 $badidentchans"

return

ident modulunu biraz değiştirdim böyle bir dene.

Kod:

set bnick {

  "*lez*"

  "lz*"

  "*les*"

}

burada belirtmelisin.
Yalniz, botun raw kullanabilmeli. Raw yetkisi yoksa sajoinleyedebilirsin.

Cevap: bir istek

peki hocam bu nickler unrealden qirdikleri kanallardan sapart yapılıyormu ? cunki qirişler web uzerinden yapılıyor ve biz sadece belirledigimiz kanala girmesini istiyoruz

Cevap: bir istek

Evet. autojoin kanallara giriyorlar zaten girişte.

Kod:

putquick "OS raw svsjoin $nick #lez"

bunun üstüne;

Kod:

putquick "OS raw svsjpart $nick #kanal1,#kanal2,#kanal3"

diye eklersen, bu kanallardan cikartir ve belirttiğin (lez) kanala alir.

Cevap: bir istek

Kod:

###########################################################

# Sunucuya bağlandığında identine göre kanallara alıyoruz #

#       Kullanıcıya bilgilendirme mesajı atıyoruz.        #

###########################################################

bind raw * notice connection

proc connection {from keyword arg} {

  global botnick 

  if {[string match -nocase "*Client connecting on port*" $arg]} {

    set nick [lindex $arg 9]

    set port [string range [lindex [split [lindex $arg 8] ":"] 0] 0 end]

    set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]

    set host [string range [lindex [split [lindex $arg 10] "@"] 1] 0 end-1]

    if {[string match -nocase "*MeLek*" $ident]} {

      putquick "SAJOIN $nick #MeLekler"

      putquick "NOTICE $nick MeLek olduğunuz tespit edilmiştir, sizi #MeLekLer kanalına alıyoruz."

    }

    if {[string match -nocase "*Seytan*" $ident]} {

      putquick "SAJOIN $nick #Şeytanlar"

      putquick "NOTICE $nick Şeytan olduğunuz tespit edilmiştir, sizi #Şeytanlar kanalına alıyoruz."

    }

  }

}

##########################################################

#      Eğer erkekler meleklerin odasına girerse          #

#  Buradaki eklenti ile kolayca part ettirebilirsiniz.   #

##########################################################

bind join - * devil_join

proc devil_join {nick uhost hand chan} {

  if {[string match -nocase "*Seytan@*" $uhost]} {

    if {[string match -nocase "#MeLekLer" $chan]} {

      putquick "SAPART $nick #MeLekLer"

      putquick "NOTICE $nick Şeytanlar'ın MeLekler'in kanalına girmesi yasaktır."

    }

  }

}

bind join - * angel_join

proc angel_join {nick uhost hand chan} {

  if {[string match -nocase "*MeLek@*" $uhost]} {

    if {[string match -nocase "#Şeytanlar" $chan]} {

      putquick "SAPART $nick #Şeytanlar"

      putquick "NOTICE $nick MeLekler'in Şeytanlar'ın kanalına girmesi yasaktır."

    }

  }

}

putlog "Ident'e Özel Join TCL v1.0 - Written By CLubber"

* Otojoin kanallarını unrealircd.conf'tan silersen kullanıcı bağlandığında idente göre kanala alınacaktır.

* Bağlanan kullanıcı identine göre kanala alınır, mesaj gönderilir.

* Identi MeLek olanlar #MeLekler kanalına Identi Seytan olanlar #Şeytanlar kanalına aktarılır, bunu signatüründe gördüğüm için yazdım sanırım böyle bir tcl istiyorsun.

* Eğer identi MeLek olan kullanıcı #Şeytanlar kanalına girerse oto part edilir. Bu diğeri içinde geçerli.

* TCL Yapımcısı: CLubber

Cevap: bir istek

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
burdaki tclnizle çakışıyorya kanallara çekmiyor direk identli kanala atıyor yada hiç kanala çekmiyor

Cevap: bir istek

Bu yazdığım idente göre kanala çekme, diğer TCL proxy taraması bir alakası yok.

Cevap: bir istek

Kod:

bind raw * notice connection

proc connection {from keyword arg} {

bu kısmı,

Kod:

bind raw * notice identjoin

proc identjoin {from keyword arg} {

olarak değiştirirsen sorunun çözülecektir. 2 TCL'deki proclar aynı olduğu için çakışması normal.