[Sagopa]

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.

[DmX]

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...]

[DmX]

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

[Sagopa]

Linkte sorun var buraya yazarsan sevinirim.

[DmX]

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

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

######################
# KuraL Tcl          #
# By DmX             #
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#
######################
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.."

[Brain]

acaba bu dosyadan okutma mi yoksa degiskenden okutmami
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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

[Sagopa]

Tamam Ben Hallettİm.

[Brain]

o zaman bizde halledelim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Doktrin]

aCoustiC Nickli Üyeden Alıntı

acaba bu dosyadan okutma mi yoksa degiskenden okutmami Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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:   Kodu kopyalamak için üzerine çift tıklayın!

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}    
}
}

[DmX]

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:   Kodu kopyalamak için üzerine çift tıklayın!

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:   Kodu kopyalamak için üzerine çift tıklayın!

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