del flags

[pilouuu]

Type !deluser nick the bot del all flags user in the chan (chan or orders it was to type)

Code: Select all

## !DELUSER <nick>

proc pub_lol_deluser {me b c chan arg} {
	set arg [charfilter $arg]
	global lol botnick
	if {![check $c $me $b]} {
		if {$lol(silent) == 1 || [checksilent $c]} {return 0}
                puthelp "NOTICE $me :Please auth you."
		return 0
	}
	if {[llength $arg] != 1} {
		puthelp "NOTICE $me :\002try:\002 [string trim $lol(cmdchar)]deluser <nick>"
		return 0
	}
	set nick [lindex $arg 0]
	set bot [strlwr $botnick]
	set hand [nick2hand $nick $chan]
	if {![onchan $nick $chan]} {
                puthelp "NOTICE $me :$nick not in $chan."
		return 0
	}
	if {[strlwr $nick] == $bot} {
                puthelp "NOTICE $me :Error!!! acces denied"
		return 0
	}
	if {[getting-users]} {
                puthelp "NOTICE $me :Error!!! try again"
		return 0
	}
	if {![validuser $hand]} {
		puthelp "NOTICE $me :Error!!!not found"
		return 0
	}
	if {[matchattr $hand n]} {
		puthelp "NOTICE $me :Error!!! acces denied."
		return 0
	}
	chattr $nick -jlmnoptxvV $chan
	if {[botisop $chan]} {pushmode $chan -ov $nick}
	return 0
}

the bot no delete flag.please or is the error thx

[Alchera]

Code: Select all

chattr $nick |-jlmnoptxvV $chan

[pilouuu]

thx for help

The bot alway not delete flags

thx

[r0t3n]

you could use

Code: Select all

chattr [nick2hand $nick] |-[lindex [split [chattr [nick2hand $nick] $chan] |] 1] $chan

[pilouuu]

GooD!! Thx