raw 478:*:var %! = $ibl($2,0), %£ = $calc($ibl($2,0) - 6), %½ | while (%! >= %£) { %½ = $addtok(%½,$ibl($2,%!),32) | dec %! } | mode $2 -bbbbbb %½

alias kontrol {
  var %1 1 
  while %1 <= $ibl($1,0) {
    var %time $calc($gettok($time,2,58) -  $gettok($time($ibl($1,%1).ctime),2,58))
    if %time >= 25 {
      mode $1 -b $ibl($1,%1)
    }
    inc %1
  }
}

on *:op:#:kontrol #
on *:ban:#:{
  if $count($nick(#,$me).pnick,@,%) {
    if ($1 == +b  && $nick != $me) {
      $+(.timer,#,$2) 1 900 mode # -b $2-
    }
  }
}