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

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

- - !basvuru kayıt tcl yardım lütfen (https://www.ircforumlari.net/eggdrop-neostats-bnc/517754-basvuru-kayit-tcl-yardim-lutfen.html)

!basvuru kayıt tcl yardım lütfen

Arkadasımla cok ugrastık ama bir türlü beceremedik

daha once kullandıgımız mirc kodunu tcl ye cevirebilicek varmi acaba

!ekle
!oku
!sil
mantıgıyla yapmaya calıstık ama yapamadık lütfen biri yardim etsin .

Kod:



on *:text:*!basvuru*:#basvurukanal:{

  if ($strip($1) == !basvuru )  {

    .notice $nick 3,1»»--07 $nick 0Basvurunuz isleme alindi ... 

    .timer 1 2 notice $nick 3,1»»--0 Basvurunuz, Yetkililer tarafindan gözden gecirilecektir kabul edildiginde geri dönüs yapilir.7Lütfen 3PM7 atmayiniz ...

    .write basvuru.txt 4,1»» 0Basvuru 4 $nick 0 $+ : $2- 

  }

}

on *:text:*!basvurular*:#yetkilikanali:{

  .msg #yetkilikanali  3,1»»--0 Basvurular Yetkili7 $nick 0 tarafindan inceleniyor ...

  .timer 1 2 /play #yetkilikanali basvuru.txt 

} 
 

on *:text:*!del*:#yetkilikanali:{

  .msg #yetkilikanali 3,1»»--0 Basvurular Yetkili 7 $nick 0 tarafindan siliniyor ...

  .remove -b basvuru.txt

  .timer 1 3 .msg #yetkilikanali  3,1»»--0 Basvurular silindi!!!

}

Cevap: !basvuru kayıt tcl yardım lütfen

bir süredir tcl dökümanları toplamaya oluşturmaya + çevirmeye çalışıyorum. aşağıdaki örneklemeler faydalı olacaktır.

.dosya prosedürleri: [yazma,silme,okutma,degisme,vs..)

dosya kontrolü

kullanim:
dosyakontrol dosyaismi
dosyakontrol <dosyaismi>

return
1 dosya varsa,aksi halde 0

Kod:

proc dosyakontrol {dosyaismi} {

    # dosyanin olup olmadigina bakiyoruz

    if [dosya exists $dosyaismi] then {

        # dosya var.

        return 1

    } else {

        # dosya yok.

        return "0"

    }

}

örnek:

Kod:

if {[dosyakontrol dosyaismi.txt]} then { set text "dosya var" } else { set text "dosya bulunamadi" }

set result [dosyakontrol dosyaismi.txt] ; #  0 yada 1 olarak $result ta donecektir.

-----------------------------------------------------------------------
okutma:

dosyadanoku dosyaismi ?satir?
dosyadanoku <dosyaismi> [satir]

Return:
hatada 0 aksi <else> halde postala

Kod:

proc dosyadanoku {dosyaismi {satir 0}} {

    # dosyanin olup olmadigi ve okunabilirligi kontrol ediliyor.

    if {[dosya exists $dosyaismi] && [dosya readable $dosyaismi]} then {

        # okuma icin dosyayi aciyoruz

        set dosya [open $dosyaismi r]

        if {$satir!=1} then {

            # okuma islemi

            set oku [read -nonewline $dosya]

        } else {

            # satir oku

            set oku [get $dosya]

        }

        # postala ve dön

        close $dosya

        return $oku

    }

    # okunabilir degilse

    return 0

}

dosya okumayi tamamlar yada sadece ilk satirindan okur (satir 1 oldugunda*)

örnek:

Kod:

proc dosyadanoku {dosyaismi satirno {yontem 1}} {

    # okumaya satir 0'dan basla satir 1 satir 2...satir 90,91...devam et.

    proc Eofileokut {dosya satirno} {

        set okumano 0

        # eof (end of file) yani dosya sonuna gelinceye dek satirlari oku

        while ![eof $dosya] {

            set satir [gets $dosya]

            if {$satirno==$okumano} {return $satir}

            incr okumano

        }

        # hataliysa

        return 0

    }

    proc tamaminiokuvesirala {dosya satirno} {

        # tum dosyayi oku

        set okuyoz [read -nonewline $dosya]

        # listele

        set liste [split $okuyoz \n]

        # sonuc olarak ciktisi

        return [lindex $liste $satirno]

    }

 

# dosyayi ve yaptirmak istediklerimizi (parametreleri) kontrol et, hata varsa don geri.

    if {![dosya exist $dosyaismi] || ![dosya readable $dosyaismi] || ![string is digit $satirno]} {return 0}

    # dosyayi ac

    set dosya [open $dosyaismi r]

    if {$yontem!=1} {

        # ilk proseduru uygulat

        set satir [Eofileokut $dosya $satirno]

    } {

        # ikinci (tanimladigimiz) proseduru uygula (yani sirayla oku.adami ugrastirma aksam aksam..)

        set satir [tamaminiokuvesirala $dosya $satirno]

    }

    close $dosya

    return $satir

}

uygulamalar:

Kod:

set text [dosyadanoku dosyaismi.txt]; foreach satir [split $text \n] { puthelp "privmsg #kanal :$satir" }

set ilksatir [dosyadanoku dosyaismi.txt 1]; # dosyaismi.txt teki ilk satiri oku

set ilksatir [dosyadansatiroku "eggdrop.conf" 0 0]; # eggdrop.conf taki ilk satirdan okutma  oku/siralat yontemiyle.   

set satir [dosyadansatiroku "eggdrop.conf" 50 0]; # eggdrop.conf satir 51 e kadar gets/eof yontemiyle daha yavasca oku (hafiza kullanimi icin daha iyi) .

-----------------------------------------------------------------------

yazdirma:

dosyabilgiyaz dosyaismi icerik ?otoekleme?
dosyabilgiyaz <dosyaismi> <icerik> [otoekleme]

return 1 # isler tikirindaysa...

Kod:

proc dosyabilgiyaz {dosyaismi icerik {otoekleme 0} {yenisatir 1}} {

    # dosya yoksa yada oto ekleme/yazma olmuyorsa olusturma/usteyazma

    if {![dosya exists $dosyaismi] && $otoekleme!=1} then {

        # yazma yontemi icin dosyayi aciyoruz

        set dosya [open $dosyaismi w]

    } else {

        # ekleme yontemi icin aciyoruz

        set dosya [open $dosyaismi a]

    }

    # icerigi yazdiriyoruz

    if $yenisatir {puts $dosya $icerik} {puts -nonewline $dosya $icerik}

    # postalama ve yazdirma isleri tikirindaysa return 1 

    close $dosya

    return 1

}

dosyaismi - dosya ayarlarini otoekleme 1 ile geri ekler/yonlendirilir daha sonra icerik bu dosyada tutulur.

-----------------------------------------------------------------------

kopyalama ,kaldirma ,silme ,yeniden adlandirma:

kullanim sekli:

dosyailet dosyaismi ?tasi?
dosyailet <dosyaismi> [tasi]

olumluysa return 1 degilse 0

Kod:

proc dosyailet {dosyaismi {tasi 0}} {

    if [dosya exists $dosyaismi] {

        if [dosya exists $dosyaismi.bak] {dosya delete $dosyaismi.bak}

        if {$tasi==1} {

            dosya rename  $dosyaismi $dosyaismi.bak  

        } {

            dosya copy $dosyaismi $dosyaismi.bak

        }

        return 1

    }

    return 0

}

-----------------------------------------------------------------------

satirlar işlemleri
:
kullanimi:

dosyasatirsil dosyaismi satirindan ?satirina? ?geriyukle?
dosyasatirsil <dosyaismi> <satirindan> [satirina] [geriyukle]

hersey yolundaysa return 1

Kod:

proc dosyasatirisil {dosyaismi satirindan {satirina -1} {geriyukle 1}} {

    if {![dosya exist $dosyaismi] || ![dosya readable $dosyaismi]} {return 0}

    if {![string is digit $satirindan] || ![string is digit $satirina]} {return 0}

    if {$satirina==-1} {set satirina $satirindan}

    # dosyayi acalim ve listeden okutalim

    set dosya [open $dosyaismi r]

    set liste [split [read -nonewline $dosya] \n]

    close $dosya

    # satirlari listeden kaldiralim

    set liste [lreplace $liste $satirindan $satirina]

    # olustur [yoksa] geri yukle

    if {$geriyukle!=0} {

        # yeniden isimlendirme [zorlayarak yapacagiz cunku eski geri yuklemeler duruyor olabilir)

        dosya rename -force  $dosyaismi $dosyaismi.bak

    }

    # dosyanin ustune yazdirip geri koyuyoruz.

    set dosya [open $dosyaismi w]

    puts -nonewline $dosya [join $liste \n]

    close $dosya

    return 1

}

diger bir ornek: yukardaki alistirmadaki gibi yazdirma okutma proseduruyle .

Kod:

proc baskasatirsil {dosyaismi satirindan {satirina -1} {geriyukle 1}} {

    if {![string is digit $satirindan] || ![string is digit $satirina]} {return 0}

    set yukleme [split [dosyaoku $dosyaismi] \n]

    if {$yukleme!=0} {

        set yukleme [lreplace $yukle $satirindan $satirina]

        if {$geriyukle==1} {dosyageriyukle $dosyaismi 1}

        # yeni bir satir yada ekleme olmaksizin yuklemeyi yazdirma

        set sonuc [dosyayazdir $dosyaismi [join $yukleme \n] 0 0]

        if {$sonuc!=1} {

            # hataliysa

            return 0

        }

        # tamamsa

        return 1

    }

    # olmadiysa

    return 0

}

dosyadan siralama gozetmeksizin (random) satir okutma:

Kod:

# dosyadan herhangi bir satiri dondurur (mevcud degilse hata verecektir.)

proc satirlar {dosya} {

    set fs [open $dosya r]

    set bilgi [read -nonewline $fs]

    close $fs

    # simdi bilgilerin depolandigi dosyanin tum icerigini gosterecegiz

    set bilgi [split $bilgi \n]

    # burda satirlari listeleyip eggdrop'un "rand" isleviyle yani siralama gozetmeksizin dosya icindeki elemanlari cekecegiz(ve dondurucez))

    #return [lindex $bilgi [rand [llength $bilgi]]]

    # yada tcl'deki "rand" fonksiyonu-isleviyle degisilebilir.

    return [lindex $bilgi [expr {int(rand()*[llength $bilgi])}]]

}

dosyadaki belirli bir satiri baskasiyle degismek-ustune yazma:

!degis
set satir1 [satirdegis "$dosya" 0 0]
putserv "privmsg $chan :satir $satir1 degistirildi."
gibi olacak...

örnek:

Kod:

proc dosyasatirdegis {dosyaismi satirno yenitxt {geriyukle 1}} {

    if {![dosya exist $dosyaismi] || ![dosya readable $dosyaismi]} {return 0}

    if {![string is digit $satirno]} {return 0}

    # dosyayi acip  listeden okutalim

    set dosya [open $dosyaismi r]

    set liste [split [read -nonewline $dosya] \n]

    close $dosya

    # listedeki texti degistirelim

    set liste [lreplace $liste $satirno $satirno $yenitxt]

    # olustur (yoksa) geri yukle

    if {$geriyukle!=0} {

        # dosyayi yeniden isimlendiriyoruz (buna zorluyoruz eski geri yuklemeler hala duruyor olabilir)

        dosya rename -force  $dosyaismi $dosyaismi.bak

    }

    # dosyanin üstünden yazdirip geri yuklemeleri koyuyoruz.

    set dosya [open $dosyaismi w]

    puts -nonewline $dosya [join $liste \n]

    close $dosya

    return 1

}

şimdilik bu kadar.umarım işinize yarar.

Cevap: !basvuru kayıt tcl yardım lütfen

yapamadık bir türlü eline saglık cok guzel anlatmıssında biz beceremiyoz bu tcl isini :S
yokmu yazabılcek bır arkadas lütfen :S

Cevap: !basvuru kayıt tcl yardım lütfen

Kod:

###############   K O M U T L A R  B Ö L Ü M Ü   #############

##                                                          ##

##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##

##      kendinize özel yapabilir yada asla değiştirmeden    ##

##             mevcut hali ile kullanabilirsiniz            ##

##                                                          ##

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

set basvuru(kanal) "#Basvuru"
 

set basvuru(oper) "#Opers"
 

set basvuru(komut) "!basvuru"
 

set basvuru(dizin) "scripts/basvuru.txt"
 

bind pub - $basvuru(komut) basvuru:ekle

proc basvuru:ekle {nick uhost handle chan text} {

  global botnick basvuru

  set status [lindex $text 0]

  set kanal [lindex $text 1]

  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}

  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && [string match -nocase "" $kanal]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}

  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && ![string match -nocase "" $kanal]} {

    putquick "PRIVMSG $basvuru(kanal) › $kanal kanalı başvurunuz listeye eklenmiştir, teşekkürler." 

    set message "› $kanal kanalı başvurusu ($nick)"

    set liste [open $basvuru(dizin) "a"] 

    puts $liste $message

    close $liste 

  }

  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(oper) :Kanal başvurularını silmek veya kontrol etmek için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) sil/listele>";return}

  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "sil" $status]} {

    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları temizlenmiştir, teşekkürler." 

    set liste [open $basvuru(dizin) "w"] 

    close $liste

  }

  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "listele" $status]} {

    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listesi" 

    putquick "PRIVMSG $basvuru(oper) \002" 

    set file [open $basvuru(dizin) r]

    set listfile [split [subst -nocommands [read $file]] "\n"]

    foreach basvurular $listfile { 

      putquick "privmsg $basvuru(oper) $basvurular"

    } 

    close $file

    putquick "PRIVMSG $basvuru(oper) \002"

    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."

  } 

}
 

putlog "Kanal Basvuru TCL - Written By CLubber"

* #Basvuru kanalında kullanıcılar !basvuru ekle #kanal komutu ile kanal başvurusu yapabilirler.

* #Opers kanalında ise !basvuru listele komutu ile kanal başvurularını listeleyebilir, !basvuru sil komutu ile listeyi temizleyebilirsin.

Cevap: !basvuru kayıt tcl yardım lütfen

tesekkurler CLubber
bunu ekledik ama txt ye basvurulari eklemiyor elle yazinca txt e okuyor ama txt kaydetme kısmı calısmıyor ?

Cevap: !basvuru kayıt tcl yardım lütfen

Alıntı:

oguz8787 Nickli Üyeden Alıntı (Mesaj 1041259823)

tesekkurler CLubber
bunu ekledik ama txt ye basvurulari eklemiyor elle yazinca txt e okuyor ama txt kaydetme kısmı calısmıyor ?

TCL'de herhangi bir sorun yok, dün bizzat kendim denedim.

#Basvuru kanalında !basvuru ekle #kanal şeklinde kullanabilirsin, farklı bir kanalda çalışmaz.

Cevap: !basvuru kayıt tcl yardım lütfen

valla sende nasıl calısıyor anlamadık bizdeki botmu bozuk :D
mesela

(2011:3611:2611) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: !basvuru sil
(2011:3611:2611) @Help-TR7: teþekkürler.
(19:37:38) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: !basvuru listele
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listesi
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:37:39) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listelenmiþtir.

gibi calisti :D
!basvuru ekle #kanal yazdıgımızda ise hic bii tepkı almıyoruz :S
kendımız txt ekledıgımızda cevap altta
(19:45:17) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: !basvuru listele
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listesi
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: selam
(19:45:18) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: merhaba
(19:45:19) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: naber
(19:45:24) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR:
(19:45:26) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-TR: listelenmiþtir.

Cevap: !basvuru kayıt tcl yardım lütfen

bende denedm bunu banada böyle bi script lazımdı ,

putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."

Bu sekilde kullandigimda sonunu atıyor Listelenmistir

putquick "PRIVMSG $basvuru(oper) : Kanal başvuruları listelenmiştir."

bu sekilde düzelttim tamamini atti fakat txt ye bir türlü ekletemedim , elle yazip basvuru listele diyince sorun yaratmiyor sil deyincede sorun yok sadece ekle de sorun yasiyorum biraz düzeltmeye calistim ama basarili olamadım.

Cevap: !basvuru kayıt tcl yardım lütfen

#Basvuru kanalında;

<CLubber> !basvuru ekle #Sohbet
<L-BOT> › #Sohbet kanalı başvurunuz listeye eklenmiştir, teşekkürler.

#Opers kanalında;

<CLubber> !basvuru listele
<L-BOT> › Kanal başvuruları listesi
<L-BOT>
<L-BOT> #Sohbet kanalı başvurusu (CLubber)
<L-BOT>
<L-BOT> › Kanal başvuruları listelenmiştir.

<CLubber> !basvuru sil
<L-BOT> › Kanal başvuruları temizlenmiştir, teşekkürler.

Herhangi bir sorun yok. Kanal isminde türkçe karakter kullanmayın, bu yüzden de olabilir. #Başvuru yerine, #Basvuru kanalını kullanın.

Cevap: !basvuru kayıt tcl yardım lütfen

Kod:

###############   K O M U T L A R  B Ö L Ü M Ü   #############

##                                                          ##

##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##

##      kendinize özel yapabilir yada asla değiştirmeden    ##

##             mevcut hali ile kullanabilirsiniz            ##

##                                                          ##

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

 

set basvuru(kanal) "#Basvuru"

 

set basvuru(oper) "#Opers"

 

set basvuru(komut) "!basvuru"

 

set basvuru(dizin) "basvuru.txt"

 

bind pub - $basvuru(komut) basvuru:ekle

proc basvuru:ekle {nick uhost handle chan text} {

  global botnick basvuru

  set status [lindex $text 0]

  set kanal [lindex $text 1]

  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}

  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && [string match -nocase "" $kanal]} {putquick "PRIVMSG $basvuru(kanal) :Kanal başvurusu yapmak için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) ekle #kanal>";return}

  if {[string match -nocase "$basvuru(kanal)" $chan] && [string match -nocase "ekle" $status] && ![string match -nocase "" $kanal]} {

    putquick "PRIVMSG $basvuru(kanal) › $kanal kanalı başvurunuz listeye eklenmiştir, teşekkürler." 

    set message "› $kanal kanalı başvurusu ($nick)"

    set liste [open $basvuru(dizin) "a"] 

    puts $liste $message

    close $liste 

  }

  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "" $status]} {putquick "PRIVMSG $basvuru(oper) :Kanal başvurularını silmek veya kontrol etmek için lütfen komutu doğru kullanınız. Kullanımı: <$basvuru(komut) sil/listele>";return}

  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "sil" $status]} {

    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları temizlenmiştir, teşekkürler." 

    set liste [open $basvuru(dizin) "w"] 

    close $liste

  }

  if {[string match -nocase "$basvuru(oper)" $chan] && [string match -nocase "listele" $status]} {

    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listesi" 

    putquick "PRIVMSG $basvuru(oper) \002" 

    set file [open $basvuru(dizin) r]

    set listfile [split [subst -nocommands [read $file]] "\n"]

    foreach basvurular $listfile { 

      putquick "privmsg $basvuru(oper) $basvurular"

    } 

    close $file

    putquick "PRIVMSG $basvuru(oper) \002"

    putquick "PRIVMSG $basvuru(oper) › Kanal başvuruları listelenmiştir."

  } 

}

 

putlog "Kanal Basvuru TCL - Written By CLubber"

set basvuru(dizin) "scripts/basvuru.txt"

Scripts/ kısmını sildiginizde Kod calışcaktır.

detaylı görmek isterseniz. /server 195.244.34.135 -j #KLBK,#Opers

Sunucusunda görebilirsiniz 2 gün sonra ip silincektir.

Cevap: !basvuru kayıt tcl yardım lütfen

Alıntı:

MesqeN Nickli Üyeden Alıntı (Mesaj 1041260026)

set basvuru(dizin) "scripts/basvuru.txt"

Scripts/ kısmını sildiginizde Kod calışcaktır.

Bununla herhangi bir ilgisi yok, sorun eggdrop versiyonlarındaymış P.M ile iletişime geçildi.

Cevap: !basvuru kayıt tcl yardım lütfen

halletik istedigimiz olayi sayende cok tesekkurler tekrar [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)