tclscripts-BlackTools-TCL/BlackTools2.5/BlackTools/Modules/BT.Limit.tcl

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
#############################   LIMIT 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 limitpublic {nick host hand chan arg} {
global black lastbind
	set why [lindex [split $arg] 0]
	set lm [lindex [split $arg] 1]
	set type 0
	set chan1 "$chan"
if {[regexp {^[&#]} $why] && [matchattr $hand nmo|M $why]} {
	set chan "$why"
	set why [lindex [split $arg] 1]
	set lm [lindex [split $arg] 2]
}
	set return [blacktools:mychar $lastbind $hand]
if {$return == "0"} {
		return
}
	limit:process $nick $host $hand $chan $chan1 $why $lm $type
}

proc limit:process {nick host hand chan chan1 why lm type} {
global botnick black
	set cmd_status [btcmd:status $chan $hand "limit" 0]
if {$cmd_status == "1"} { 
	return 
}
if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
	return
}
if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
	return
}
if {$why == ""} {
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "limit"
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "limit"
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "limit"
		}
	}
	return
}

if {![validchan $chan]} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
	return
}

if {![onchan $botnick $chan]} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
	return
}
	set usersnum [llength [chanlist $chan]]
	set setnum [setting:get $chan blacklimit]
	
    switch $why {

on {
	set limt [setting:get $chan limit-default]
	setting:set $chan +limit ""
	blacktools:tell $nick $host $hand $chan $chan1 limit.5 none
if {[regexp {^[0-9]} $limt] && ($limt != "0")} { 
	putserv "MODE $chan +l [expr $usersnum + $limt]"
} else {
	putserv "MODE $chan +l [expr $usersnum + $black(limit:default)]"
	setting:set $chan limit-default $black(limit:default)
	blacktools:tell $nick $host $hand $chan $chan1 limit.6 none
	}
	foreach tmr [timers] {
if {[string match "*limit:timer*" [join [lindex $tmr 1]]]} {
	return
		}	 
	}
	timer 1 limit:timer
}
off {
	setting:set $chan -limit ""
	blacktools:tell $nick $host $hand $chan $chan1 limit.7 none
	putquick "MODE $chan -l"
}

set {
if {![regexp {^[0-9]} $lm]} {
	if {$type == "0"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "limit"
}
if {$type == "1"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "limit"
}
	return
}
if {$lm < 2} { blacktools:tell $nick $host $hand $chan $chan1 limit.9 none
	set lm [expr $lm + 1]
	setting:set $chan limit-default 2
	putserv "MODE $chan +l [expr $usersnum + $lm]"
	blacktools:tell $nick $host $hand $chan $chan1 limit.10 none
	return
}
if {$lm > 500} { blacktools:tell $nick $host $hand $chan $chan1 limit.11 none
	return
}
	setting:set $chan limit-default $lm
	blacktools:tell $nick $host $hand $chan $chan1 limit.12 $lm
	putserv "MODE $chan +l [expr $usersnum + $lm]"
		}
	}
}

proc limit:timer {} {
	global black
		set channels ""
foreach chan [channels] {
if {[setting:get $chan limit]} {
	lappend channels $chan
		}
	}
if {$channels != ""} {
	limit:act $channels 0
	timer 1 limit:timer
	} 
}

proc limit:act {channels counter} {
	global black
	set chan [lindex $channels $counter]
	set cc [expr $counter + 1]
if {$chan != ""} {
	set usersnum [llength [chanlist $chan]]
	set setnum [setting:get $chan limit-default]
if {$setnum == "0" || $setnum == ""} { set setnum $black(limit:default) }
if {![botisop $chan]} { return }
	set chanmode [getchanmode $chan]
if {[string match "*l*" "$chanmode"]} {
	set lim [lindex $chanmode 1]
} else { set lim "0" }
if {$usersnum > $lim} { set dif [expr $usersnum - $lim] } else { set dif [expr $lim - $usersnum] }
if {($dif >= $setnum) || ($dif <= $setnum)} {
	puthelp "MODE $chan +l [expr $usersnum + $setnum]"
		}	
	}
if {[lindex $channels $cc] == ""} {
	return
	} else {
	utimer 5 [list limit:act $channels $cc]
	}
}

##############
#########################################################################
##   END                                                               ##
#########################################################################