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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Tcl dosyadan okutma (https://www.ircforumlari.net/eggdrop-neostats-bnc/29792-tcl-dosyadan-okutma.html)

Tcl dosyadan okutma

Selam kanala birşey yazınca diyelim !kural yazınca x dosyasında ki kuralları kanala yansıtacak bunu nasıl yapabiliriz şimdiden teşekkürler.

Cevap: Tcl dosyadan okutma

Buyur kardeşim tcl olarak şimdi hazırladım.ve denedim calışıyor.yalnız dedim gibi ayak ustu acil hazırladım tcl yi.geliştirilebilir.kolay gelsin.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Tcl dosyadan okutma

Unutmadan calışma mantıgı kanal operatorleri @op vs !kural yazarak calıştırabilir.

Yanıt: Tcl dosyadan okutma

Linkte sorun var buraya yazarsan sevinirim.

Cevap: Tcl dosyadan okutma

Link çalışıyo kardeş.herneyse tabiki yazarım.

Kod:

######################

# KuraL Tcl          #

# By DmX             #

# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]#

######################

set kurl "12,1TC. Devletine hakaret iceren soz,yazi,baslik Genel ahlak kurallari disinda kalan sozlu tabirler Diger kullanicilari rahatsiz edicek davranislar Kanal,Web,Server vb. reklam ve flood yapmak Kanal Topiclerinde server reklami,kotu soz,küfür hakaret iceren sozler kullanmak.Kesinlikle yasaktir."

bind pub - !kural kurallar

proc kurallar {nick user hand chan arg} {

global kurl

if {![isop $nick $chan]} {return 0}

putquick "PRIVMSG $chan : $kurl ! "

putquick "PRIVMSG $chan : Kurallara uyup eglenceli ve keyifli dakikalar  gecirmeniz dilegi ile.."

Cevap: Tcl dosyadan okutma

acaba bu dosyadan okutma mi yoksa degiskenden okutmami ;)

soru: x.txt dosyasindaki veriler kanala !kural kullaniminda yazilacaktir.

Yanıt: Tcl dosyadan okutma

Tamam Ben Hallettİm.

Cevap: Tcl dosyadan okutma

o zaman bizde halledelim ;)

Cevap: Tcl dosyadan okutma

Alıntı:

aCoustiC Nickli Üyeden Alıntı

acaba bu dosyadan okutma mi yoksa degiskenden okutmami ;)

soru: x.txt dosyasindaki veriler kanala !kural kullaniminda yazilacaktir.

Hocam bu şekilde olur mu acaba,başka bir tcl i değiştirerek yazdım.Deneme imkanım olmadı.

Kod:

set oku "x.txt"

set kanal "#kanal"
 

bind pub - !kural pub:kuralmsg

proc pub:kuralmsg { nick host hand chan text} {

global oku kanal

if {[file exists $oku]} {

set kuralfile [open $oku r]

while {![eof $kuralfile]} {

catch {set kuraltext [gets $kuralfile]}

putserv "PRIVMSG $kanal :$kuraltext"

}

catch {close $kuralfile}    

}

}

Cevap: Tcl dosyadan okutma

x.txt den okutma
Kaynak : aCoustiC Dokumanından yararlandım.

Alıntı:

Asagida goreceginiz fonksiyon botunuzun belirtilen dosyayi butun satirlari ile okumak ve bu satirlardaki yazilari belirtilen yere gondermesinize olanak saglayacaktir

Kod:

proc fread {dosya kime} { 

    if {![file exists $dosya]} { 

        putlog "$dosya adinda bir belge bulunamadi" 

        return 

    } 

    set cikti [open $dosya r] 

    set satir [split [read $cikti] \n] 

    catch {close $cikti} 

    set say 0 

    foreach satir $satir { 

        if {$satir != ""} { 

            puthelp "PRIVMSG $kime :$satir" 

            incr say 

        } 

    } 

    if {$say == 0} { 

        puthelp "PRIVMSG $kime :Mevcut dosya icinde bilgi bulunamadi"

        return 

    } else { 

        puthelp "PRIVMSG $kime :Liste sonu!" 

    } 

}

Kullanimi:

fread <dizin/dosyaadi.txt> <nick|kanal>

Seklinde kullanilabilir, bir ornekte bunu aciklamak gerekirse !kural adinda bir komut yaratarak bu komut sonrasi bilgilerin kime gonderilmesini istedigimizi secelim.

Kod:

bind pub - !kural kural
 

proc kural {nick uhost hand chan text} {

    fread scripts/kural.txt $chan

}

Yukaridaki ornek botun bulundugu yerde !kural komudu kullanimiyla scripts/kural.txt icindeki tum bilgiler $chan yani komudun kullanildigi kanala gonderilecektir. Bunu bir nick veya bir baska kanal olarak belirlemek mumkun $chan yerine $nick yazilarak komudu kullanan nick'e
yada #kanal yada aCoustiC gibi 1 seyler yazma ozelligimizin olmasini saglar

Gelistirmeniz dilegiyle....

Yazar: Adil Bülbül