alias autounban { 
  var %x 15,%z $ibl(#,0) 
  while (%x) {
    hadd -m $chan $ibl(#,%z)
    dec %x
    dec %z
  }
  var %y 1
  while ($hget($chan,%y).item) {
    mode # $str(-b,6) $hget($chan,%y).item $hget($chan,$calc(%y + 1)).item $hget($chan,$calc(%y + 2)).item $hget($chan,$calc(%y + 3)).item $hget($chan,$calc(%y + 4)).item $hget($chan,$calc(%y + 5)).item
    inc %y 6
  }
  .hfree $chan
}

on @*:ban:#: {
  if ($ibl(#,0) >= 80) {
    autounban
  }
}