alias bansay { 
  if (!%bansirasi ) {
    set %bansirasi 1
  } 
  .msg $chan %bansirasi %banlist1
  inc %bansirasi
}
on *:rawmode:#: { 
  if ($1 = +b) && (!$read(ban.txt,w,$2)) { 
    write ban.txt $gettok($2,1,33) 
    halt 
  }
if ($1 == -b) { write -dl $+ $2- ban.txt } }
on *:kick:#: { 
  if ($read(ban.txt,w,$knick)) {
    write -dl $+ $knick ban.txt
write ban.txt $knick $1- } }
on @*:text:!ban*:#: {
  var %% = $+(%,#,$nick) 
  inc -eu5 $(%%,1) 
  if $(%%,2) >= 2 {
    .msg $chan bir sonraki komutu kullanmak için 5 saniye beklemeniz gerekmektedir. 
    unset $(%%,1)
  halt }
  if ($nick !isop $chan) {
    .msg $chan Komutları kullanabilmeniz için Op olmanız gerekir.
  halt }
  :bosh
  if (!$lines(ban.txt)) {
    .msg $chan ban listesi boş.
    halt
  }
  if ($1 == !banlist) { 
    .msg $chan nick atılma nedeni
    unset %bansirasi
    var %banlist 1 
    while %banlist <= $lines(ban.txt) { 
      set %banlist1$read(ban.txt,%banlist)
      bansay
      inc %banlist 
    }
    halt 
  }
  if ($1 == !banall) { 
    write -c ban.txt 
    .msg $chan Bütün banlar silindi.
    halt
  }
  if $1 == !bansil {
    if !$2 {
      .msg $chan Numara girmeyi düşünüyormusunuz:)?
      halt 
    }
    if (!$read(ban.txt,p,$2)) { 
      .msg $chan Girmiş olduğunuz  $+ $2 $+  numarası listede bulunamadi:(.
      halt 
    }
    if $regex($2-,[a-z]) {
      .msg $chan Sadece silinecek rakamı girmeniz yeterlidir.
    halt }
    .write -dl $+ $2 ban.txt
    .msg $chan  $+ $2 $+  listeden silindi. 
    halt 
  } 
}
else {
  goto bosh
}