i followingly tried to add a check with X (on undernet) for the revolving.
i think this came out very(!) crude though, and additionally i have no way test it (got no channel on undernet).
so for keeping safe, don't simply copy and paste it without understanding it more or less. i'm sure it's got a few flaws in it.
add some errorlevel-echo's to see where the script goes and where it stops. and of course change the variables to your needs.

Code:
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
  }
}


that's just a construct. an idea.

edit1

Last edited by harl; 26/07/05 04:40 PM.