mIRC Scripting invite.TCL

[Che]

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...

İçeriğin tamamını görüntülemek için lütfen giriş yapınız.