bind raw - MODE newmode_on
proc newmode_on { from key args } {
	global botnick
	set args [lindex $args 0]
	set mode_chan [lindex $args 0]
	set the_mode [lindex $args 1]
	set mode_args [lindex $args 2]
	scan $from "%\[^!]@%s" unick uhost
	set who_user [finduser $from]
	if {$who_user == $botnick} {return 0}
	if {$the_mode == "+d"} {
		if { [matchattr $who_user n|n $mode_chan] } {return 0}
		putserv "MODE $mode_chan -o $unick"
		putserv "MODE $mode_chan +b $unick"
		putserv "KICK $mode_chan $unick :Don't put +d bud.."
		putserv "MODE $mode_chan -d $mode_args"
		adduser $unick $unick!*@*
		chattr $unick -fopmtxh+dk
		setuser $unick xtra Added "Denied modes!"
	}
	if {$the_mode == "+e"} {
		if { [matchattr $who_user n|n $mode_chan] } {return 0}
		putserv "MODE $mode_chan -o $unick"
		putserv "MODE $mode_chan -e $mode_args"
		putserv "MODE $mode_chan +b $unick" 
		putserv "KICK $mode_chan $unick :Don't put +e bud.."
		adduser $unick $unick!*@*
		chattr $unick -foptjxhm+d
		setuser $unick xtra Added "Denied modes!"
	}
}
putlog "Protection +d & +e loaded"
Published in: TCL
Download

Related snippets