bu : " 00:46:51 < AlphaTech > Script Request: Can someone please make me a script that has the bot join on /invite
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir."
istek üzerine yapılıp ,sonradan Türkçe çevirisi yapılmıştır....
ne iş yapar ? : bot'a gelen "invite" kanala davet'leri ,bot sahibine notice olarak iletir.bot sahibi onay komutu verirse ,davet edilen kanala girilir. red komutu verildiğinde davet yok sayılır/silinir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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
}