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
}