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

fLayer · 20 Kasım 2011, 18:23

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ı

toXic · 20 Kasım 2011, 18:30

Kod: Kodu kopyalamak için üzerine çift tıklayın!


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: Kodu kopyalamak için üzerine çift tıklayın!

set bnick {
  "*lez*"
  "lz*"
  "*les*"
}

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

fLayer · 20 Kasım 2011, 18:33

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

toXic · 20 Kasım 2011, 18:37

Evet. autojoin kanallara giriyorlar zaten girişte.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

putquick "OS raw svsjoin $nick #lez"

bunun üstüne;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

CLubber · 20 Kasım 2011, 20:24

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

fLayer · 21 Kasım 2011, 20:42

[Ü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

CLubber · 23 Kasım 2011, 19:39

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

CLubber · 23 Kasım 2011, 19:44

Kod: Kodu kopyalamak için üzerine çift tıklayın!

bind raw * notice connection
proc connection {from keyword arg} {

bu kısmı,

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
TCL Istek.	Cumbusvar	TCL Scriptler	5	08 Mart 2009 10:29
kod istek	zordayim	mIRC Scripting Sorunları	4	06 Ağustos 2008 00:15
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.