#Greet Başlangıç

bind pub - $sv2(greet) sv2_greet
proc sv2_greet {nick uhost hand chan text} {
global botnick sv2
    set r [lindex $sv2(renk) [rand [llength $sv2(renk)]]]
    set first "[lindex $text 0]"
    if {[string match -nocase $sv2(adminc) $chan] || [string match -nocase $sv2(operc) $chan]} {
    if {$first == ""} { putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) <ekle|sil|listele> <#kanal> <mesaj>\002 şeklindedir.\003"; return 0 }
    if {[string match -nocase "ekle" $first]} {
    set knl "[lindex $text 1]"
    set msg "[lrange $text 2 end]"
    if {$knl == ""} {
        putquick "PRIVMSG $chan \003$r\002Kanal\002 belirtmediniz.\003"
        putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first <#kanal> <mesaj>\002 şeklindedir.\003"
        return 0
    }
    if {$msg == ""} {
        putquick "PRIVMSG $chan \003$r\002Mesaj\002 belirtmediniz.\003"
        putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first $knl <mesaj>\002 şeklindedir.\003"
        return 0
    }
    if {![file exists "$sv2(greetdizin)"]} { file mkdir $sv2(greetdizin) }
    if {![file exists "$sv2(greetdizin)/$nick"]} { file mkdir $sv2(greetdizin)/$nick }
        file delete $sv2(greetdizin)/$nick/$knl.db
        set greet [open "$sv2(greetdizin)/$nick/$knl.db" w]
        regsub -all "{" $msg "" msg
        regsub -all "}" $msg "" msg
        puts $greet "$msg"
        flush $greet
        catch {closer $greet}
        putquick "PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 oluşturuldu.\003"
    }
    if {[string match -nocase "sil" $first]} {
    set knl "[lindex $text 1]"
    if {$knl == ""} {
        putquick "PRIVMSG $chan \003$r\002Kanal\002 belirtmediniz.\003"
        putquick "PRIVMSG $chan \026 Kullanım \026 \003$r\002$sv2(greet) $first <#kanal>\002 şeklindedir.\003"
        return 0
    }
    if {![file exists "$sv2(greetdizin)/$nick/$knl.db"]} { 
        putquick "PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 bulunmamaktadır.\003" 
        putquick "PRIVMSG $chan \026 Önemli Uyari \026 \003$r\Büyük/küçük harf duyarlıdır.\003" 
        putquick "PRIVMSG $chan \003$r\002$sv2(greet) listele\002 komutu ile listeleyip yazılış haline bakarak tekrar deneyiniz.\003" 
        return 0 
        }
        file delete $sv2(greetdizin)/$nick/$knl.db
        putquick "PRIVMSG $chan \003$r\002$knl\002 kanalı için \002greet mesajı\002 başarıyla silinmiştir.\003"
        return
    }
    if {[string match -nocase "listele" $first]} {
    set includes [open "|find $sv2(greetdizin)/$nick -name \*.db -print" r]
        set sayac 0
        putquick "PRIVMSG $chan \002"
        putquick "PRIVMSG $chan \026 Greet listesi \026"
        putquick "PRIVMSG $chan :\002"
        while {[gets $includes include] >= 0} {
            incr sayac
            regsub -all "$sv2(greetdizin)/$nick/" $include "" include
            regsub -all ".db" $include "" include
            set input [open "$sv2(greetdizin)/$nick/$include.db" r]
            set lines [split [read $input] \n]
            catch {close $input}
            foreach line $lines {
                if {$line != ""} {
                    putquick "PRIVMSG $chan :\002$sayac.\002 $include: $line"
                }
            }
        }
        if {$sayac == 0} { putquick "PRIVMSG $chan \026 HATA \026 \003$r\002Greet\002 listesinde hiç kayıt bulunamadı.\003" }
        if {$includes == 0} { putquick "PRIVMSG $chan \026 HATA \026 \003$r\002Greet\002 listesinde hiç kayıt bulunamadı.\003" }
        putquick "PRIVMSG $chan \002"
        putquick "PRIVMSG $chan \003$r\Silmek için \002$sv2(greet) sil <#kanal>\002 komutunu kullanabilirsiniz.\003"
        putquick "PRIVMSG $chan \002"
        putquick "PRIVMSG $chan :\026 Greet listesinin sonu \026"
        putquick "PRIVMSG $chan \002"
        close $includes
        }
    }
}

bind join - * sv2_greetmsg
proc sv2_greetmsg {nick uhost hand chan} { 
global botnick sv2
    if {![file exists "$sv2(greetdizin)/$nick"]} { return 0 }
    set includes [open "|find $sv2(greetdizin)/$nick -name \*.db -print" r]
    while {[gets $includes include] >= 0} {
        regsub -all "$sv2(greetdizin)/$nick/" $include "" include
        regsub -all ".db" $include "" include
        set input [open "$sv2(greetdizin)/$nick/$include.db" r]
        set lines [split [read $input] \n]
        catch {close $input}
        foreach line $lines {
            if {$line != ""} {
                if {[string match -nocase $include $chan]} {
                    putquick "PRIVMSG $chan :$line"
                }
            }
        }
    }
    close $includes
}

#Greet Sonu