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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Herkesin isine Yarayacak Tcl istegi? (https://www.ircforumlari.net/tcl-scriptler/417979-herkesin-isine-yarayacak-tcl-istegi.html)

Firat31 10 Ekim 2011 14:28
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 :)

Adem 10 Ekim 2011 14:45
Cevap: Herkesin isine Yarayacak Tcl istegi?
 
channel add #kanal { chanmode "+nt-uA" idle-kick 0 stopnethack-mode 0 }

Seklinde kendinize gore ayarlabilirsiniz.

Heartbroken 10 Ekim 2011 16:21
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:
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...

CLubber 10 Ekim 2011 17:19
Cevap: Herkesin isine Yarayacak Tcl istegi?
 
Kod:
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"

Kablosuz NET 10 Ekim 2011 23:07
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..

Firat31 11 Ekim 2011 04:12
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

Firat31 11 Ekim 2011 05:02
Cevap: Herkesin isine Yarayacak Tcl istegi?
 
Clubber ilk Seninkini Denedim ve oldu Tskler işe yarayacak bi tcl ;)

qeweSe 23 Aralık 2011 15:49
Cevap: Herkesin isine Yarayacak Tcl istegi?
 
PHP- Kodu:
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" }
} 


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk