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 3600 mode # -b $2-
    }
  }
}