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

 Kayıt ol  Topluluk
5Beğeni(ler)
  • 1 Post By Adem
  • 1 Post By Heartbroken
  • 2 Post By CLubber
  • 1 Post By Kablosuz NET

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Ekim 2011, 14:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Herkesin isine Yarayacak Tcl istegi?



iyi forumlar herkeze.

soyle bir dusuncem var

kanal modları ornegin +ntrGTV

+u ya alindimi, +A ya alindimi otomatikmen -u -A vs.. yapacak bir tcl lazim yani istedigimiz kanal modunu koruyacak

mümkünmüdür
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 10 Ekim 2011, 14:45   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



channel add #kanal { chanmode "+nt-uA" idle-kick 0 stopnethack-mode 0 }

Seklinde kendinize gore ayarlabilirsiniz.

 
Alıntı ile Cevapla

Alt 10 Ekim 2011, 16:21   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



selam.

partyline'da bota : .chanset #kanal chanmode +kanalmodu gibi bir komutlada olabilir.

botun sahibi hariç başka kimse değişmemesi için kanal modlarını hep bu ayarda tutması için kullanılabilir yok illa scriptle yaptırmak içinse,elimde bu iş için yapılmış şöyle bir kod var..
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
namespace eval modecontrol { 
  variable enforceModes ""  #daima bu modlarda tutsun 
  variable restrictModes "" #asla bu modlara izin vermesin 

  proc raw:modeCheck {from key text} { 
    variable enforceModes 
    variable restrictModes 

    set from [split $from "!"] 
    set nick [lindex $from 0] 
    set handle [nick2hand $nick] 
    #Sanity check 
    if {[isbotnick $nick] || [matchattr $handle "+mnb"]} { 
      return 0 
    } 

    set items [split $text] 
    set enforce [split $enforceModes ""] 
    set restrict [split $restrictModes ""] 
    set target [lindex $items 0] 
    set add 1 
    set act 0 

    foreach mode [split [lindex $items 1] ""] { 
      switch -- $mode { 
        "+" { 
          set add 1 
        } 
        "-" { 
          set add 0 
        } 
        "I" - 
        "e" - 
        "b" { 
          set items [lreplace $items 2 2] 
        } 
        "k" { 
          if {$add} { 
            set key [lindex $items 2] 
            set items [lreplace $items 2 2] 
          } 
        } 
        "l" { 
          if {$add} { 
            set limit [lindex $items 2] 
            set items [lreplace $items 2 2] 
          } 
        } 
        default { 
          if {[lsearch $lock $enforce] >= 0 && !$add} { 
            pushmode $target "+$mode" 
            set act 1 
          } elseif {[lsearch $restrict $mode] >= 0 && $add} { 
            pushmode $target "-$mode" 
            set act 1 
          } 
        } 
      } 
      #kanal için bir limit yada key-anahtar ayarlamak için kullanın 
      #if {[info exists key]} { 
      #  pushmode $target -k $key 
      #} 
      #if {[info exists limit]} { 
      #  pushmode $target -l 
      #} 
    } 
    if {$act && [llength $from] > 1} { 
      puthelp "NOTICE $nick :izin verin size kanal mod ayarları için yardım edeyim." 
    } 
    return 0 
  } 

  bind raw - "MODE" [namespace current]::modeCheck 
}

kolay gelsin...

__________________
Beş Tas Has Hoş Hoşaf.
 
Alıntı ile Cevapla

Alt 10 Ekim 2011, 17:19   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind mode - * chanmodes
proc chanmodes {nick uhost hand chan mode desc} {
  global botnick
  if {$mode == "+u"} {
    putquick "MODE $chan -u"
    putquick "NOTICE $nick +u kanal modunda kullanıcılar görülmediği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+A"} {
    putquick "MODE $chan -A"
    putquick "NOTICE $nick +A kanal modunda sadece adminler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+O"} {
    putquick "MODE $chan -O"
    putquick "NOTICE $nick +O kanal modunda sadece operler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+i"} {
    putquick "MODE $chan -i"
    putquick "NOTICE $nick +i kanal modunda sadece davetliler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+k"} {
    putquick "MODE $chan -k $desc"
    putquick "NOTICE $nick +k kanal modunda sadece şifreyi bilenler kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+Q"} {
    putquick "MODE $chan -Q"
    putquick "NOTICE $nick +Q kanal modunda kimse atılamadığı için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+z"} {
    putquick "MODE $chan -z"
    putquick "NOTICE $nick +z kanal modunda sadece güvenli bağlantılar kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+l"} {
    putquick "MODE $chan -l"
    putquick "NOTICE $nick +l kanal modunda sadece limit sayısı kadar kullanıcı kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
  if {$mode == "+R"} {
    putquick "MODE $chan -R"
    putquick "NOTICE $nick +R kanal modunda sadece kayıtlı kullanıcılar kanala girebildiği için, bu modun kullanımı tehlikelidir."
  }
}

putlog "Kanal Mod Koruma TCL v1.0 - Written By CLubber"


Konu CLubber tarafından (10 Ekim 2011 Saat 17:25 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 10 Ekim 2011, 23:07   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



Biraz pratik olsak... Chanserv ile zaten istediğimiz gibi yaparız...

/cs set #kanal mlock +ntrGTV-sSaAuU


eggdrop toplasanız zaten 10-15 kanala ancak girer mlock ilede bunları kilitlersiniz..

 
Alıntı ile Cevapla

Alt 11 Ekim 2011, 04:12   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



os mode ile kanal modu degistiginde chanserv mlock pasif kalıyor

gündüz müsait zamanda 2 arkadasin werdigi tcl leri deneyecegim bakalim

 
Alıntı ile Cevapla

Alt 11 Ekim 2011, 05:02   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



Clubber ilk Seninkini Denedim ve oldu Tskler işe yarayacak bi tcl
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Konu Firat31 tarafından (11 Ekim 2011 Saat 05:08 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 23 Aralık 2011, 15:49   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Herkesin isine Yarayacak Tcl istegi?



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

bind mode - * banlistchech
proc banlistchech {nick uhost hand chan mode victim} {
    global botnick bot
    if {[string match -nocase "-*n*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +n" }
    if {[string match -nocase "-*t*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +t" }
    if {[string match -nocase "-*T*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +T" }
    if {[string match -nocase "+*f*" $mode]} { putquick "OperServ raw :ChanServ mode $chan -f" }
    if {[string match -nocase "-*G*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +G" }
    if {[string match -nocase "-*j*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +j 1:15" }
    if {[string match -nocase "-*l*" $mode]} { putquick "OperServ raw :ChanServ mode $chan +l 300" }
    if {[string match -nocase "+*L*" $mode]} { putquick "OperServ raw :ChanServ mode $chan -L" }
} 


 
Alıntı ile Cevapla

Cevapla

Etiketler
herkesin, isine, istegi, tcl, yarayacak

« önceki Konu | sonraki Konu »

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
tcl istegi. Korkut TCL Scriptler 17 15 Kasım 2009 13:37
küçük bir kod istegi alfa mIRC Scripting Sorunları 3 12 Ekim 2009 17:15
Bu arşiv herkesin işine yarayacak (vb genel ayarlar) Julw vBulletin Sorunları ve Çözümleri 4 08 Ocak 2008 11:34
Özel TCL istegi. Everest TCL Scriptler 3 04 Temmuz 2007 22:20




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org