on *:start:{ init_hBan_X }
alias init_hBan_X {
set %hBan_X_JoinPartDelay 10
set %hBan_X_Xdelay 10
set %hBan_X_adjustFactor <=
set %hBan_X_adjust 5
;"adjust" refers to the access level with X. in combination with "adjustFactor" ex. "<= 5" should result in
;users with levels 0-4 being revolve-banned and levels 5+ remaining unharmed.
set %hBan_X_duration 336
set %hBan_X_banmask 5
set %hBan_X_level 499
set %hBan_X_reason join/part
set %hBan_X_chans #chan
;when adding chans here, separate with commas, not blanks
set %hBan_X_Xaddress X!cservice@undernet.org
set %hBan_X_network undernet
}
#hBan_X_group off
on ^1:notice:*:?:{
if (%hBan_X_network isin $network) && ($address($nick,5) == %hBan_X_Xaddress) {
if (access isin $1-) { .set $eval($+(%hBan_X_,$2)) $eval($+(%hBan_X_,$2),2) $4 }
elseif (match isin $1-) { .set $eval($+(%hBan_X_,$2)) $eval($+(%hBan_X_,$2),2) 0 }
.hBan_X_proc $eval($+(%hBan_X_,$2),2)
}
}
alias hBan_X_proc {
if ($2 %hBan_X_adjustFactor %hBan_X_adjust) {
.msg X@cserve.undernet.org ban $1 %hBan_X_adr %hBan_X_duration %hBan_X_level %hBan_X_reason
}
}
#hBan_X_group end
on ^1:join:%hBan_X_chans:{
.set -u $+ $eval(%hBan_X_JoinPartDelay) $eval($+(%,RevolvingDoor.,$nick)) 1
.set %hBan_X_adr $address($nick,%hBan_X_banmask)
}
on ^1:part:%hBan_X_chans:{
if ($eval($+(%,RevolvingDoor.,$nick),2) != $null) {
.enable #hBan_X_group
.set $eval($+(%hBan_X_,$nick)) $chan
.msg x access $chan $nick -min [color:red]%hBan_X_banmask[/color]
.timerhBX 1 %hBan_X_Xdelay .disable #hBan_X_group
}
}