|
|
@@ -1,37 +0,0 @@
|
|
|
-#########################################################################
|
|
|
-## BlackTools - The Ultimate Channel Control Script ##
|
|
|
-## One TCL. One smart Eggdrop ##
|
|
|
-#########################################################################
|
|
|
-######################## ANTILONGTEXT 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 antilongtext:protect {nick host hand chan arg} {
|
|
|
-global black botnick
|
|
|
-if {![validchan $chan]} { return }
|
|
|
- set handle [nick2hand $nick]
|
|
|
-if {[matchattr $handle $black(exceptflags) $chan]} { return }
|
|
|
-if {![botisop $chan] && ![setting:get $chan xonly]} { return }
|
|
|
- set bl_protect [blacktools:protect $nick $chan]
|
|
|
-if {$bl_protect == "1"} { return }
|
|
|
-if {[isbotnick $nick]} { return }
|
|
|
- set getlongchar [setting:get $chan antilongtextmax]
|
|
|
-if {$getlongchar == ""} { set getlongchar "$black(longchar)" }
|
|
|
-if {[string length $arg] >= $getlongchar} {
|
|
|
- blacktools:banner:1 $nick "ANTILONGTEXT" $chan $host [get:banmethod "antilongtext" $chan] [link:chan:get $chan]
|
|
|
- return 1
|
|
|
- }
|
|
|
-}
|
|
|
-
|
|
|
-##############
|
|
|
-#########################################################################
|
|
|
-## END ##
|
|
|
-#########################################################################
|
Florian