| 12345678910111213141516171819202122232425262728293031323334353637 |
- #########################################################################
- ## 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 ##
- ## 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 ##
- #########################################################################
|
