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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Kayıt Tutan Kod (https://www.ircforumlari.net/tcl-scriptler/33591-kayit-tutan-kod.html)

Kayıt Tutan Kod

Selamın Aleyküm.
Bir Kod İsteyeceğim Birkaç Arkadaşdan İstedim Fakat Yanıt Alamadım, Araştırmalarıma Rahmen Bulamadım Bu Konuda Bilgisi Olan Varsa Yardımlarını Beklerim..

TCL İsteğim:
!add Nick #Kanal yazdığında Nicki ve Kanal ismini scripts/bots içindeki dosyaya kaydetsin.
Komut Uygulama Mesajı: Nick #kanal eklendi.
!list Çektiğimde ise scripts/bots içinde bulunan nick ve kanal isimlerini listelesin.
Komut Uygulama Mesajı: nick1 #kanal1 - nick2 #kanal2 - nick3 #kanal3
!del nick #kanal yazıldığında scripts/bots içindeki nick ve kanalı kaldırsın.
Komut Uygulama Mesajı: Nick #kanal kaldırıldı.
---
Saygılar...

Bu kodu verebilirsen Sevinirim...

Yanıt: Kayıt Tutan Kod

Farkında Olmadan Yalış Bölüme Açmışım Konuyu Bölüm Yöneticilerinin Konuyu Müsait Bölüme Taşımasını Rica ederim.

Cevap: Kayıt Tutan Kod

Alıntı:

AsisT Nickli Üyeden Alıntı (Mesaj 229593)

aleykum selam

on *:text:*:?:{
if $1 == !add { /write script/bots/spam.txt $2 $3 | /msg $nick $2 $3 Eklendi }
if $1 == !list { /play $nick script/bots/spam.txt 0 }
if $1 == !del { $remove(script/bots/spam.txt,$2,$3)
}

denemedim ama calısması lazım olmassa mesaj at

Yanıt: Kayıt Tutan Kod

KiLL Bunun TCL'si Lazım idi. Genede Ayırdığın zaman İçin Teşekkürler...

Cevap: Kayıt Tutan Kod

Buradan daha detaylı bilgi alabilirsin ;)

Yanıt: Kayıt Tutan Kod

Çok Zor Sanırım Kod, Kimseden Bir Cevap Gelmedi :)

Cevap: Kayıt Tutan Kod

olay basit gerci ama ilgilenecek arkadaslarin sanirim vakitleri yok; sahsen benim yok :S

Cevap: Kayıt Tutan Kod

TCL esi yok sanırım ama KiLL arkadasımız code yi vermiş. umarım TCL esini yazan bir arkadas gelir.

Saygılar...

Yanıt: Kayıt Tutan Kod

Çok uykusuzum ama sanırım uzun zamandır arkadaşa cevap verilmemiş, aCuostiC'in dediğine aynen katılıyorum, ama yine de bir şeyler karalamaya çalışayım..

Yanıt: Kayıt Tutan Kod

Kod:

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

## !veri ekle/sil/listele <nick> <#kanal>

## Kullanımı üste görüldüğü şekildedir.

## 09 Temmuz 2007 13:50 

## By SaW - Nebiliymben...

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

bind pub - !veri verlst

proc verlst {nick host hand chan text} {

    set yap [lindex [split $text] 0]

    if {($yap != "listele") && [llength $text] < 2} { putquick "privmsg $chan :Kullanım: !veri <ekle/sil/listele> <nick> <#kanal> şeklindedir."; return 0 }

    set vnick [lindex [split $text] 1]

    set vkanal [lrange [split $text] 2 end]

    if {[string match -nocase "ekle" $yap]} {

        if {$vkanal == ""} {

            putserv "privmsg $chan Kanal belirtmediniz, Lütfen kanal adını da belirtiniz." ; return 0          

        }

        putquick "privmsg $nick :Veri: Nick: $vnick Kanal: $vkanal --> Başarıyla listeye eklendi."

        set dl [open "scripts/bots" a]

        puts $dl "[join $vnick] [join $vkanal] [join \002Ekleyen:\002] [join $nick] \n"

        flush $dl

        catch {closer $dl}

    }

    if {[string match -nocase "sil" $yap]} {

        if {![file exists "scripts/bots"]} {

            putserv "privmsg $chan :Liste zaten boş."

            return

        }

        set data ""

        set input [open "scripts/bots" r]

        while {![eof $input]} {

            set curline [gets $input];set curline [split $curline]

            if {$curline != ""} {

                set data [linsert $data end $curline]

            }

        }

        catch {close $input}

        set deger -1;set esles ""

        foreach line $data {

            incr deger

            if {[string match -nocase "$vnick" [lindex $line 0]]} {

                set esles $deger

                break

            }

        }

        if {$esles == ""} {

            putserv "privmsg $chan :$vnick listede yok! Listeyi görmek için: !veri listele"

            return

        }

        set newdata [lreplace $data $deger $deger]

        set output [open "scripts/bots" w]

        foreach newline $newdata {

            if {$newline != ""} {

                puts $output $newline

            }

        }

        flush $output

        catch {close $output}

        putserv "privmsg $chan :$vnick ve $vkanal listeden silindi."

        return

    }

    if {[string match -nocase "listele" $yap]} {

        if {![file exists "scripts/bots"]} { putserv "privmsg $chan :Liste boş."; return 0 }

        set input [open "scripts/bots" r]

        set lines [split [read $input] \n]

        catch {close $input}

        set sayc 0

        foreach line $lines {

            if {$line != ""} {

                putserv "privmsg $chan :$line"

                incr sayc

            }

        }

        if {$sayc == 0} {

            putserv "privmsg $chan :Listede hiç kayıt bulunamadı."; return

        } else { putserv "privmsg $chan :Listenin Sonu.." 

        }

    }

}
 

putlog "VeriEkleme.tcl başarıyla yüklendi. \002B\002Y \002S\002a\002W\002"

!veri ekle <nick> <#kanal>
Listeye yeni bir veri eklemenize,
!veri sil <nick> <#kanal> (tek başına nick'i de söylemeniz o verinin silinmesi için yeterli olacaktır)
Listeden bir veri silmenize,
!veri listele
Listedeki tüm girdileri listelemenize yarar..

Not: Test etmedim, ama yüksek ihtimal çalışması lazım.