|
|
@@ -1,91 +0,0 @@
|
|
|
-#########################################################################
|
|
|
-## BlackTools - The Ultimate Channel Control Script ##
|
|
|
-## One TCL. One smart Eggdrop ##
|
|
|
-#########################################################################
|
|
|
-########################## INVITEBAN TCL ############################
|
|
|
-#########################################################################
|
|
|
-## ##
|
|
|
-## BlackTools : http://blacktools.tclscripts.net ##
|
|
|
-## Bugs report : http://www.tclscripts.net/ ##
|
|
|
-## GitHub page : https://github.com/tclscripts/BlackToolS-TCL-script ##
|
|
|
-## Online Help : irc://irc.undernet.org/tcl-help ##
|
|
|
-## #TCL-HELP / UnderNet ##
|
|
|
-## You can ask in english or romanian ##
|
|
|
-## ##
|
|
|
-#########################################################################
|
|
|
-
|
|
|
-proc inviteban:protect {from type arg} {
|
|
|
- global black
|
|
|
- set invitechan [lindex [split $arg] 1]
|
|
|
- set ::invitechan $invitechan
|
|
|
-if {[string match -nocase "*!*" $from]} {
|
|
|
- set split_from [split $from "!"]
|
|
|
- set from_nick [lindex [split $split_from] 0]
|
|
|
-if {[string equal -nocase $from_nick $black(chanserv)]} {
|
|
|
- return
|
|
|
-}
|
|
|
- putserv "USERHOST :$from_nick"
|
|
|
- bind RAW - 302 inviteban:gethost
|
|
|
- return
|
|
|
-}
|
|
|
-if {[string equal -nocase $from $black(chanserv)]} {
|
|
|
- return
|
|
|
-}
|
|
|
- putserv "USERHOST :$from"
|
|
|
- bind RAW - 302 inviteban:gethost
|
|
|
-}
|
|
|
-
|
|
|
-proc inviteban:gethost {from keyword arguments} {
|
|
|
- global black
|
|
|
- set invitechan $::invitechan
|
|
|
- set hostname [lindex [split $arguments] 1]
|
|
|
- set channels ""
|
|
|
-if {[regexp {\+} $hostname]} {
|
|
|
- set split_host [split $hostname "+"]
|
|
|
-} else {
|
|
|
- set split_host [split $hostname "-"]
|
|
|
-}
|
|
|
- set mask [lindex $split_host 1]
|
|
|
- set getnick [string map {
|
|
|
- "=" ""
|
|
|
- ":" ""
|
|
|
- } [lindex $split_host 0]]
|
|
|
-if {$getnick != ""} {
|
|
|
-foreach chan [channels] {
|
|
|
- set bl_protect [blacktools:protect $getnick $chan]
|
|
|
-if {$bl_protect == "1"} { continue }
|
|
|
-if {[matchattr [nick2hand $getnick] $black(exceptflags) $chan]} {
|
|
|
- continue
|
|
|
-}
|
|
|
- lappend channels $chan
|
|
|
- }
|
|
|
- }
|
|
|
-if {$channels != ""} {
|
|
|
- inviteban:act $channels 0 $mask $invitechan $getnick
|
|
|
-}
|
|
|
- check:if:bind "inviteban:gethost" "302"
|
|
|
-}
|
|
|
-
|
|
|
-proc inviteban:act {channels num mask invitechan nick} {
|
|
|
- global black
|
|
|
- set chan [join [lindex [split $channels] $num]]
|
|
|
- set inc 0
|
|
|
-if {$chan == ""} {
|
|
|
- return
|
|
|
-}
|
|
|
-if {[setting:get $chan inviteban]} {
|
|
|
-if {[onchan $nick $chan]} {
|
|
|
- blacktools:banner:2 $nick "INVITEBAN:[encoding convertto utf-8 $invitechan]" $chan $chan $mask "0"
|
|
|
- who:chan $chan
|
|
|
- }
|
|
|
-}
|
|
|
- set inc [expr $num + 1]
|
|
|
-if {[lindex $channels $inc] != ""} {
|
|
|
- utimer 5 [list inviteban:act $channels $inc $mask $invitechan $nick]
|
|
|
- }
|
|
|
-}
|
|
|
-
|
|
|
-##############
|
|
|
-#########################################################################
|
|
|
-## END ##
|
|
|
-#########################################################################
|
Florian