on *:text:.bankontrol *:#Opers:{
  if $verify_ip($2) {
    .set -u15 %bankontrolip $chr(42) $+ @ $+ $2
    .enable #bankontrol
    .stats g
  }
  if !$verify_ip($2) {
    msg #Opers IP adresini uygun girmediniz.(Örnek: .bankontrol 212.101.125.2 )
  }
}
on *:text:.banac *:#Opers :{
  if $verify_ip($2) {
    /rmtkl * *@ $+ $2
    msg #Opers $2 üzerindeki tüm banlar açıldı.
  }
  if !$verify_ip($2) {
    msg #Opers IP adresini uygun girmediniz. (Örnek: .banac 212.101.125.2 )
  }
}
on *:input:*:{
  if *.bankontrol* iswm $1 {
    if $verify_ip($2) {
      .set -u15 %bankontrolip $chr(42) $+ @ $+ $2
      .enable #bankontrol
      .stats g
    }
    if !$verify_ip($2) {
      msg #Opers IP adresini uygun girmediniz.(Örnek: .bankontrol 212.101.125.2 )
    }
  }
  if *.banac* iswm $1 {
    if $verify_ip($2) {
      /rmtkl * *@ $+ $2
      msg #Opers $2 üzerindeki tüm banlar açıldı.
    }
    if !$verify_ip($2) {
      msg #Opers IP adresini uygun girmediniz. (Örnek: .banac 212.101.125.2 )
    }
  }
}
#bankontrol off
raw 223:* {
  if %bankontrolip == $3 {
    .set -u15 %banokey 1
    msg #Opers %bankontrolip >>> $6-
  }
}
raw 219:* {
  if !%banokey {
    msg #Opers %bankontrolip >>> Bu IP'de ban bulunmuyor.
  }
  .unset %banokey
  .unset %bankontrolip
  .disable #bankontrol
}
#bankontrol end
alias verify_ip {
  if ($regex(vfip, $1, /(d{1,3}).(d{1,3}).(d{1,3}).(d{1,3})/)) {
    var %i = 1
    while (%i <= 4) {
      if ($regml(vfip, %i) < 0 || $regml(vfip, %i) > 255) {
        return $false
      }
      inc %i
    }
    return $true
  }
  return $false
}