bind raw - "INVITE" inv_join
bind msg n "!tamam" accept_inv
bind msg n "!olmaz" reject_inv

proc inv_join {from key arg} {
           set ::targetchan [lindex [split $arg ":"] 1]
         putserv "notice $::owner :$from tarafından, $::targetchan kanalına davet edildim."
         putserv "notice $::owner :daveti kabul etmek için: /msg $::botnick !tamam"
         putserv "notice $::owner :daveti red etmek için: /msg $::botnick !olmaz"
    return 0
}

proc reject_inv {nick uhost hand text} {
   if {[info exists ::targetchan]} {
         unset ::targetchan
         putserv "notice $::owner :Red edildi .."
         return 1
         }
     return 0
}

proc accept_inv {nick uhost hand text} {
   if {[info exists ::targetchan]} {
         channel add $::targetchan
        putserv "notice $::owner :Kanala girildi .."
        unset ::targetchan
        return 1
        }
    return 0
}