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

Please login to view full content. Giriş yap veya üye ol.