on *:Load:{
set %BanJoinpartBantime 60
set %BanJoinpartMax 2
set %BanJoinpart off
}
on *:part:#: {
if (%BanJoinpart == off) { return }
if ($me !isop #) { return }
inc %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
if ( %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ] != $null) .timerjp $+ nick $+ chan 1 30 unset %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
if ( %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ] >= $iif(%BanJoinpartMax isnum,%BanJoinpartMax,2)) {
ban -u $+ $iif(%BanJoinpartBantime isnum,%BanJoinpartBantime,60) $chan $nick 4
unset %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
}
}
menu channel {
Join/Part Ban
.Вкл\Выкл - $(%BanJoinpart):set %BanJoinpart $iif(%BanJoinpart == on,off,on)
.Ban Time $(%BanJoinpartBantime):set %BanJoinpartBantime $$?="Время бана ( second )"
.Время бана ( second ) - $(%BanJoinpartMax):set %BanJoinpartMax $$?="Join/Part max"
}