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

#unbanci on 
alias kontrol2 { 
  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 >= 15 { 
      $iif(o isin $usermode,os mode $1 -bbbbbb $ibl($1,%1),mode $1 -bbbbbb $ibl($1,%1)) 
    } 
    inc %1 
  } 
} 

on *:join:#: {  
  if $nick == $me { 
    if ($me isop $chan) || (o isin $usermode) || ($me ishelp $chan) { kontrol2 # } 
  } 
} 
on *:ban:#:{ 
  if ($me isop $chan) || (o isin $usermode) { 
    $iif(o isin $usermode,$+(.timer,#,$2) 1 900 os mode # -bbb $2-,$+(.timer,#,$2) 1 900 mode # -bbb $2-) 
  } 
} 
#unbanci end 

menu * { 
Unban 
.Aç:.enable #unbanci 
.Kapat:.disable #unbanci 
}