[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] <-- !mod ac - !mod kapa
Kod: Kodu kopyalamak için üzerine çift tıklayın!
# hangi kanalda kullanmak isteniyorsa botunuza telnet/dcc üzerinden bağlanıp
# .chanset #kanalınız +ackapa
# komutunu vermelisiniz.botun olduğu tüm kanallarda kullanmak isteniyorsa komut:
# .chanset * +ackapa
# komutu kullanma hakkı eggdrop kullanıcı flaglarına göre belirlenmiştir.
#
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
setudef flag ackapa
# hangi kanal mod/ları için aç-kapa yapılacaksa:
set knl(mod) "m"
# komutları kullanma hakları:
# global(botun olduğu tüm kanallar) flag|kanal flagı
# şeklinde ekleyebilirsiniz : örnek : n|o gibi...
set knl(flags) "n"
# geçerli komut ne olacak:
# örnek : !mod ac - !mod kapa . gibi...
set knl(kmt) "mod"
# kanal komutu başına gelecek sembol/işaret:
set knl(semb) "!"
bind pub $::knl(flags) $::knl(semb)$::knl(kmt) mod:ac:kapa
proc mod:ac:kapa {nick uhost hand chan text} {
if {![channel get $chan ackapa] || ![botisop $chan]} {
return 0
}
switch -exact -- [lindex [split $text] 0] {
ac -
-ac {
if {![string match +$::knl(mod) [getchanmode $chan]]} {
puthelp "notice $nick :Kanal halen -$::knl(mod)"
return
} else {
puthelp "mode $chan -$::knl(mod)"
}
}
kapa -
-kapa {
if {[string match "*+$::knl(mod)*" [getchanmode $chan]]} {
puthelp "notice $nick :Kanal halen +$::knl(mod)"
return
} else {
puthelp "mode $chan +$::knl(mod)"
}
}
default {
puthelp "notice $nick : Kullanımı : $::knl(semb)$::knl(kmt) ac - $::knl(semb)$::knl(kmt) kapa"
}
}
}
putlog "emrinize amade..."
diğer isteğinizi ben yapmıyacağım. benim bu yaşıma dek olduğum hiçbir sunucuda kullanılan/olan birşey değil...
ancak bu istediğiniz işi yapan bir tcl yakın zamanda bi romen tarafından yazılmış tcl archive'de paylaşılmıştı. next.tcl yapımcısı dirty lnc. tercüme edip kullanabilirsiniz (orası size kalmış) Türkçe olarak yapılmış mıdır var mıdır orasını bu sistemi kullananlar bilir.
ancak bu next.tcl geçmişi olan eski bir kod. yani ilk orjinal yapımcısı değil bu kişi...bu kod 2000'lerin ilk yarısından kalma aslında.daha sonra farklı farklı kişiler kendi versionlarını çıkarmış idi. bu bahsettiğim dirty lnc. en son bu yıl içinde duyurmuştu ordan aklımda kaldı.nette aratın bulursunuz.