IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   TCL Scripting'den anlayan? (https://www.ircforumlari.net/eggdrop-neostats-bnc/15595-tcl-scriptingden-anlayan.html)

bLackStar 10 Nisan 2006 02:15
TCL Scripting'den anlayan?
 
Ufak bi tcl script yazdırmam gerekli.

Temeli şu, belirteceğimiz kanala girenlere ctcp ile bir bilgi soracak. Ve geriye gelen cevap istediğimiz cevap değil ise, kanaldan atacak. Fakat, belirteceğimiz nickteki kişiler girince tcl istediği ctcp cevabını alamasada kanaldan atmayacak.

Script tamamen bundan ibaret.

Kodlayabilecek bir arkadaşımız varsa bana pm'den ulaşabilir.

İsterse ücret, isterse ücretsiz shell, isterse dostluğumuzu kazanır.

eviL 10 Nisan 2006 08:37
Yanıt: TCL Scripting'den anlayan?
 
version.tcl diye birşey var bende istersen veriyim kurcala biraz ? lantardaki King'den almıştım

el33t 10 Nisan 2006 13:17
Yanıt: TCL Scripting'den anlayan?
 
egghelp.org'da noversions.tcl işine yarayabilir, adres: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bLackStar 10 Nisan 2006 14:18
Yanıt: TCL Scripting'den anlayan?
 
teşekkürler,

fakat version sormayacak eggdrop /ctcp nick papatya gibi birşey gidecek karşı tarafa ve papatya v5'de ctcp papatya eventi olacak. o cevaba göre yapacak herşeyi. el33t, verdiğin adresdeki tcl yi çektim belki editleyip istediğim şekle getirebilirim diye ama olamayacak gibi... evil, elindeki tcl yi bi yere yükleyip adresi pm ile atarsan sevinirim, bide ona bakıyım..

abacus 10 Nisan 2006 14:55
Yanıt: TCL Scripting'den anlayan?
 
Neden illaki tcl onu anlamadim mesela bu tur bir istedigini mirc ile rahatca yapabilirsin , herhangi bir windows sunucudan calistirsan 7/24 istedigini elde etmis olursun tcl mantigi ile + gelistirilmesi daha kolay olur yada kodladiysan calistiricak win sunucu bulamadiysan bilmiyorum.

iyi calismalar.

bLackStar 10 Nisan 2006 15:17
Yanıt: TCL Scripting'den anlayan?
 
bu botun tek işlevi ctcp çekip cevabına göre işlem yapmak. böyle bişeyin tcl scripting ile imkanı varken ve sibertr'nin linux makinesi varken, mircde yazıp windows makinede host etmenin anlamı yok...

yinede teşekkürler önerin için.

Brain 10 Nisan 2006 16:58
Yanıt: TCL Scripting'den anlayan?
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

adresindeki TCl yeterli butun gereksinimleri sunmakta

putserv "PRIVMSG $nick :\001VERSION\001"

satirinin VERSION yazisini FALANFILAN diye

bind ctcr - VERSION ctcr:bv_ctcp
satirinida ayni sekilde

bind ctcr - FALANFILAN ctcr:bv_ctcp

olarakduzenlediginde istedigin sonucu alabilirsin.
ek olarak kullanicilarin etkilenmemesi icin etkilenmemesini istedigin kullanicilara +mf flaglarini eklemelisin.

bLackStar 10 Nisan 2006 23:03
Yanıt: TCL Scripting'den anlayan?
 
acoustic teşekkürler.

Kod:

proc nv_punish {nick uhost} {
global botnick nv_chans nv_onlynvchans nv_reason nv_kick nv_givewarning nv_warning nv_ban nv_bantime nv_ignore nv_ignoretime
set hostmask "*!*[string range $uhost [string first "@" $uhost] end]"
set dowhat ""
if {[string tolower $nick] != [string tolower $botnick]} {
if {$nv_givewarning} {
lappend dowhat "giving warning"
putserv "NOTICE $nick :$nv_warning"
}
if {($nv_ignore) && (![isignore $hostmask])} {
lappend dowhat "ignoring"
newignore $hostmask $botnick $nv_reason $nv_ignoretime
}
foreach chan [channels] {
if {($nv_onlynvchans) && ([lsearch -exact [split [string tolower $nv_chans]] [string tolower $chan]] == -1)} { continue }
if {($nv_ban) && (![isban $hostmask $chan]) && ([onchan $nick $chan])} {
if {![string match "*banning*" $dowhat]} { lappend dowhat "banning" }
newchanban $chan $hostmask $botnick $nv_reason $nv_bantime
}
if {($nv_kick) && ([botisop $chan]) && ([onchan $nick $chan])} {
if {![string match "*kicking*" $dowhat]} { lappend dowhat "kicking" }
putserv "KICK $chan $nick :$nv_reason"
}
}
if {$dowhat != ""} {
set dowhat "-- [join $dowhat " & "]"
}
putlog "noversions: $nick ($uhost) is using lame IRC-client/script $dowhat"
}
}
proc nv_punish {nick uhost} {
global botnick nv_chans nv_onlynvchans nv_reason nv_kick

buradan sonra, if $nick = bLackStar,Nick2,Nick3 vs. gibi bişey ekleyebiliyormuyuz tclde? Yeni izin verilen nick ekleneceğinde ben tcl yi yeniden düzenlesem daha rahat olur. Böyle bi imkan var mı ?

diEfoRyoU 11 Nisan 2006 14:16
Yanıt: TCL Scripting'den anlayan?
 
Alıntı:
aCoustiC Nickli Üyeden Alıntı


ek olarak kullanicilarin etkilenmemesi icin etkilenmemesini istedigin kullanicilara +mf flaglarini eklemelisin.
işini görmezmi bLackStar

Brain 11 Nisan 2006 15:21
Yanıt: TCL Scripting'den anlayan?
 
console girerek user eklemelisin

.adduser aCoustiC

sonrasinda buna flag vermen gerekiyor

chattr aCoustiC +f

bunu yaptigin kullanicilar korumadan etkilenmeyecektir


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:32.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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