Create BT.AntiTake.tcl

BlackTools2.5/BlackTools/Modules/BT.AntiTake.tcl

@@ -0,0 +1,58 @@
+#########################################################################
+##          BlackTools - The Ultimate Channel Control Script           ##
+##                    One TCL. One smart Eggdrop                       ##
+#########################################################################
+##########################   ANTITAKE TCL   #############################
+#########################################################################
+##						                       ##
+##     BlackTools  : http://blacktools.tclscripts.net	               ##
+##     Bugs report : http://www.tclscripts.net/	                       ##
+##     Online Help : irc://irc.undernet.org/tcl-help 	               ##
+##                   #TCL-HELP / UnderNet                              ##
+##                   You can ask in english or romanian                ##
+##					                               ##
+#########################################################################
+
+proc dontdeoppublic {nick host hand chan args} {
+global black botnick
+	set dnick [lindex $args 1]
+	set handle [nick2hand $nick]
+if {[setting:get $chan dontdeop] } {
+if {[string match -nocase $nick $botnick]} {
+	return
+}
+if {![matchattr $handle $black(exceptflags) $chan]} {
+	putquick "MODE $chan -o $nick"
+	putquick "MODE $chan +o $dnick"
+	set getlang [string tolower [setting:get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+	puthelp "NOTICE $nick :$black(say.$getlang.antitake.1)"
+		}
+	}
+}
+ 
+proc dontoppublic {nick host hand chan args} {
+global black botnick
+	set onick [lindex $args 1]
+	set handle [nick2hand $nick]
+if {[setting:get $chan dontop]} {
+if {[string match -nocase $nick $botnick]} { 
+	return
+}
+if {[string match -nocase $onick $botnick]} {
+	return
+}
+if {![matchattr $handle $black(exceptflags) $chan]} {
+	putquick "MODE $chan -o $nick"
+	putquick "MODE $chan -o $onick"
+	set getlang [string tolower [setting:get $chan lang]]
+if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
+	puthelp "NOTICE $nick :$black(say.$getlang.antitake.2)"
+		}
+	}
+}
+
+##############
+#########################################################################
+##   END                                                               ##
+#########################################################################