Code:
namespace eval MassKick { # set the masskick limit (count:time) set mass(limit) "3:10" # timeout of the check access command sent to ChanServ set mass(timeout) "60" # memo to be sent when an AOP was removed set memo(mass) "The AOP of %nick user on %chan channel has been deleted due to attempt to masskick." # memo to be sent when bot was kicked by an AOP set memo(bot) "The AOP of %nick user on %chan channel has been deleted cos he kicked me." # memo to be sent when SOP or higher masskicked and bot didn't triggered any actions set memo(skip) "User %nick has level %level (%rank) on the %chan channel, so his action (%action) has been ignored, also added him to the skip list." # memo to be sent when someone without any access triggered a masskick or kicked the bot set memo(zero) "Someone oped user %nick on the %chan channel and %action the channel..." # customize the text of %action in the lines above set memo(action) {"masskicked""booted me off" } # ignore the actions of the users that have this flags set mass(friends) "f|f" # don't edit below this line setudef flag massKick set flags { "massKicker" "massCount" "checkList" "checkAct" "massSkip" } foreach flag $flags {setudef str $flag } # binds bind kick * * [namespace current]::kicked bind part - * [namespace current]::remove bind sign - * [namespace current]::remove bind nick - * [namespace current]::nickCh bind notc * * [namespace current]::checkReply #bind raw - MODE [namespace current]::massMode # bot kicked proc botKicked {chan nick} {channel set $chan checkList [lappend [channel get $chan checkAct] $nick "1"] massCheck $chan $nick } # reset proc resetChan {chan} {if {![validchan $chan]} returnset flags { "massKicker" "massCount" "checkList" "checkAct" }foreach flag $flags {channel set $chan $flag {}} } # access checking proc massCheck {chan nick} {set checkList [channel get $chan checkList]if {$nick in $checkList} {if {$nick in [channel get $chan massSkip]} {set pos [lsearch $checkList$nick]channel set $chan checkList [lreplace $checkList $pos $pos]}return}variable masschannel set $chan checkList [lappend checkList $nick]puthelp "ChanServ access $chan $nick"utimer $mass(timeout) [list [namespace current]::doThis "5" $chan $nick] } # reply of ACC command from ChanServ proc checkReply {nick uhost hand text {dest ""}} {if {[string equal -length 1 # $dest]} returnif {$nick eq "ChanServ"} {foreach {user cmd chan level rank} [split $text] { break }set checkList [channel get $chan checkList]if {$nick ni $checkList} returnset pos [lsearch $checkList$nick]set act [lindex [channel get $chan checkAct] $pos]actLevel $chan $user $level $rank $act} } # access trigger actions proc actLevel {chan nick level rank act} {variable memoset action [lindex $memo(action) $act]set rank [string trim [lindex [split $rank] 0] {()}]switch -- $level {"0" {putserv "Chanserv deop $chan $nick"set message [string map -nocase [list "%chan" "$chan" "%nick" "$nick" "%action" "$action"] $memo(zero)]}"10" {putserv "Chanserv deop $chan $nick"putserv "Chanserv aop $chan del $nick"putlog "del aop & deop"if {$act eq "0"} {set message [string map -nocase [list "%chan" "$chan" "%nick" "$nick"] $memo(mass)]} elseif {$act eq "1"} {set message [string map -nocase [list "%chan" "$chan" "%nick" "$nick"] $memo(bot)]}}"20" - "30" - "40" - "50" - "60" {channel set $chan massSkip [lappend [channel get $chan massSkip] $nick]set message [string map -nocase [list "%chan" "$chan" "%nick" "$nick" "%level" "$level" "%action" "$action" "%rank" "$rank"] $memo(skip)]}}putserv "Memoserv send $chan $message"doThis "2" $chan $nickdoThis "5" $chan $nick } # triggers: # 1 - add, 2 - remove massKicker/massCount, 3 - replace nick # 4 - replace count, 5 - remove checklist proc doThis {act chan nick {pos ""} {count ""} {newNick ""}} {set massKicker [channel get $chan massKicker] set massCount [channel get $chan massCount]set checkAct [channel get $chan checkAct] switch -- $act { "1" { lappend massKicker $nick lappend massCount 1lappend checkAct 0 } "2" {set pos [lsearch $massKicker $nick] set massKicker [lreplace $massKicker $pos $pos] set massCount [lreplace $massCount $pos $pos] } "3" { set massKicker [lreplace $massKicker $pos $pos $newNick] } "4" { set massCount [lreplace $massCount $pos $pos $count] } "5" {set checkList [channel get $chan checkList]if {$nick ni $checkList} returnset pos [lsearch $checkList $nick]channel set $chan checkList [lreplace $checkList $pos $pos]set checkAct [lreplace $checkAct $pos $pos] } "6" {set checkList [channel get $chan checkList]if {$nick in $checkList} {set pos [lsearch $checkList $nick]channel set $chan checkList [lreplace $checkList $pos $pos]}set massSkip [channel get $chan massSkip]if {$nick in $massSkip} {set pos [lsearch $massSkip $nick]channel set $chan massSkip [lreplace $massSkip $pos $pos]} } } channel set $chan massKicker $massKicker channel set $chan massCount $massCountchannel set $chan checkAct $checkAct } # triggers: # 1 - part & sign, 2 - nick change proc eventThis {event chan nick {newNick ""}} { set massKicker [channel get $chan massKicker] if {$nick ni $massKicker} return set pos [lsearch $massKicker $nick] switch -- $event { "1" { doThis "2" $chan $nickdoThis "5" $chan $nick } "2" { doThis "3" $chan $nick $pos "0" $newNickdoThis "6" $chan $nick $newNick } } } # part & sign proc remove {nick uhost handle chan {text ""}} { if {![channel get $chan massKick]} return if {[isbotnick $nick]} { resetChan $chan } else { eventThis "1" $chan $nick } } # nick proc nickCh {nick uhost handle chan newnick} { if {![channel get $chan massKick]} return if {[isbotnick $nick]} return eventThis "2" $chan $nick $newNick } # kick proc kicked {nick uhost hand chan target reason} { if {![channel get $chan massKick]} return variable mass if {[matchattr $hand $mass(friends) $chan]} return if {[isbotnick $nick]} return if {$nick eq "ChanServ"} returnif {$nick in [channel get $chan massSkip]} return if {[isbotnick $target]} { botKicked $chan $nick return } set massKicker [channel get $chan massKicker] if {$nick ni $massKicker} { doThis "1" $chan $nick return } set pos [lsearch $massKicker $nick] set count [lindex [channel get $chan massCount] $pos] set info [split $mass(limit) :] if {$count >= [lindex $info 0]} {massCheck $chan $nick return } else { incr count } utimer [lindex $info 1] [list [namespace current]::doThis "2" $chan $nick] doThis "4" $chan $nick $pos $count }}To be honest I would rather create a "special" user (like massUser) to the bot and give him some flags that aren't used in any other script and set that flag in mass(friends) in the previous code, then add the host masks of the people that I want to be skipped from any punishment, than depend on ChanServ's reply with the access level of a person that's mass kicking. Right now the bot won't react until it receives a reply of that access command from ChanServ and removes the user from his check list after the timeout that is set at mass(timeout).
In the massMode I was thinking on monitoring all +o on the channel, then issue an WHY command and store that user in massSkip list if it's level is above the requirements. This should save some time but in case some user that isn't in that list the script still will depend on how fast ChanServ will reply to the access command.
If you got any other idea feel free to contribute.
Statistics: Posted by caesar — Mon Mar 19, 2012 11:17 am
]]>