bind pubm - "*" Eglence_Pubm

proc Eglence_Pubm {nick uhost hand chan text} {
    set Komut [lindex [split $text] 0]
    set Hedef [lindex [split $text] 1]
    # Kullanım : !Komut Hedefteki Kişinin Rumuzu...
    if {[string is space -strict $Hedef]} {
        putserv "NOTICE $nick :Kullanımı: $::lastbind <Hedefteki Rumuz>"
        return 0
    }
    switch -nocase -- $Komut {
        !sev { puthelp "PRIVMSG $chan :$Hedef Xxxx $nick sizi sevdi \"seni seviyorum\"" }
        !terlik { puthelp "PRIVMSG $chan :Terlik Mesajı...." }
        !döv { puthelp "PRIVMSG $chan :Döv Mesajı...." }
        default { }
    }
    return 0
}

bind pubm - "*" Eglence_Pubm

proc Eglence_Pubm {nick uhost hand chan text} {
  if {![matchattr [nick2hand $nick] f|f $chan]} { return 0 }
    set Komut [lindex [split $text] 0]
    set Hedef [lindex [split $text] 1]
    # Kullanım : !Komut Hedefteki Kişinin Rumuzu...
    if {[string is space -strict $Hedef]} {
        putserv "NOTICE $nick :Kullanımı: $::lastbind <Hedefteki Rumuz>"
        return 0
    }
    set Posta [OkuLa [string range [string map {ö o ı i ü u ç c} [string tolower $Komut]] 1 end].txt]
    set Posta [string map {%nick% $nick %Hedef% $Hedef %chan% $chan} $Posta]
    switch -nocase -- $Komut {
        !sev { puthelp "PRIVMSG $chan :$Posta" }
        !terlik { puthelp "PRIVMSG $chan :$Posta" }
        !döv { puthelp "PRIVMSG $chan :$Posta" }
        default { }
    }
    return 0
}

proc OkuLa Dosya {
    if {![file readable $Dosya] || ![file exists $Dosya]} {
        catch { close [open $Dosya w+] }
    }
    set Oku [open $Dosya]
    set Satir [split [read $Oku] \n]
    close $Oku
    return [lindex $Satir [expr {int(rand()*[llength $Satir])}]]
}