on *:START: {
  if !$findfile($mircdir,badnick.db,1) {
    hmake -s badnick 100
    hsave -s badnick badnick.db
  }
  else {
    hmake -s badnick
    hload -s badnick badnick.db
  }
}
alias tab {
  if ($1 == $null) return $chr(9)
  var %i = 1, %r
  while ($($+($,%i),2) != $null) {
    %r = $instok(%r,$ifmatch,0,9)
    inc %i
  }
  return %r
}
alias hata { .echo -q $input(Hata: $1-,oh,Hata!) }
alias badnick {
  if -* iswm $1 {
    if *r* iswm $1 {
      if $hfind(badnick,$+(*,$2,*),1,w).data {
        hdel badnick $ifmatch
        hsave badnick badnick.db
        echo -ta $2 'Girdisi Silindi...
      }
      else hata Komutu Yanlış Kullandınız...
    }
    elseif *s* iswm $1 {
      if (!$window(@BADNICK)) window -lk +L @BADNICK
      aline @BADNICK $tab(No,DATA)
      aline @BADNICK $tab(-,-)
      var %k = 1
      while %k <= $hget(badnick,0).item {
        aline @BADNICK $tab(%k,$hget(badnick,%k).data)
        inc %k
      }
    }
    elseif *c* iswm $1 {
      var %m = 1,%l = 1
      while %m <= $hget(badnick,0).item {
        while %l <= $nick($2,0) {
          if $hget(badnick,%m).data iswm $nick($2,%l) || $hget(badnick,%m).data isin $nick($2,%l) {
            _queue samode $2 +b $address($nick($2,%l),2)
            echo -ta BadNick Listenizde ki $hget(badnick,%m).data Maskesiye, $nick($2,%l) 'i Uyuşuyor...
          }
          inc %l
        }
        inc %m
      }
    }
    elseif *m* iswm $1 {
      var %:m = 1
      while %:m <= $hget(badnick,0).item {
        if $hget(badnick,%:m).data iswm $3 || $hget(badnick,%:m).data isin $3 {
          _queue samode $2 +b $address($2,2)
        }
        inc %:m
      }
    }
  }
  else {
    if $hfind(badnick,$+(*,$2,*),1,w).data {
      hata Girmek İstediğiniz Veri Zaten Listenizde Mevcut
    }
    else {
      hadd badnick $r(0,9999999) $1 | hsave badnick badnick.db
      echo -ta $1 Başarıyla Eklendi...
    }
  }
}
on *:JOIN:#: {
  if $nick == $me {
    .timer 1 2 .badnick -c #
  }
  else {
    badnick -m # $nick
  }
}
alias _queue {
  inc %queue.count
  if ($timer(.queue) == $null) {
    hadd -m queue count 1
    hadd -m queue 1 $1-
    _doqueue 1
  }
  else {
    var %queue.count = $calc($hget(queue,count) + 1)
    hadd -m queue %queue.count $1-
    hadd -m queue count %queue.count
  }
}
alias _doqueue {
  if ($hget(queue,$1) != $null) {
    .timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 60) _doqueue $calc($1 + 1)
    $ifmatch
    .hdel -s queue $1
  }
  else hfree queue
} 

on *:TEXT:*:#:{
  var %i $lines(kufurler.txt)
  while (%i > 0) {
    if ($me isop $chan)
    if ($nick !isop $chan)
    if ($read(kufurler.txt,%i) isin $1) {
      mode $chan +b $nick | kick $chan $nick Küfür Yasak.!
    }
  }
}
on *:TEXT:*:?:{
  var %i $lines(kufurler.txt)
  while (%i > 0) {
    if ($me isop $comchan($nick,1))
    if ($nick !isop $comchan($nick,1))
    if ($read(kufurler.txt,%i) isin $1) {
      mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Küfür Yasak.!
    }
  }
}
alias kufurekle { 
  write kufurler.txt $1
}
alias kufurlist {
  var %i $lines(kufurler.txt)
  while (%i > 0) {
    echo -a $read(kufurler.txt,%i)
    dec %i
  }
}
alias kufursil {
  write $+(-ds,$1) kufurler.txt $1
} 
on *:TEXT:*:#:{
  var %i $lines(reklamlar.txt)
  while (%i > 0) {
    if ($me isop $chan)
    if ($nick !isop $chan)
    if ($read(reklamlar.txt,%i) isin $1) {
      mode $chan +b $nick | kick $chan $nick Küfür Yasak.!
    }
  }
}
on *:TEXT:*:?:{
  var %i $lines(reklamlar.txt)
  while (%i > 0) {
    if ($me isop $comchan($nick,1))
    if ($nick !isop $comchan($nick,1))
    if ($read(reklamlar.txt,%i) isin $1) {
      mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Küfür Yasak.!
    }
  }
}
alias reklamekle { 
  write reklamlar.txt $1
}
alias reklamlist {
  var %i $lines(reklamlar.txt)
  while (%i > 0) {       
    echo -a $read(reklamlar.txt,%i)
  }
  dec %i
}
alias reklamsil {
  write $+(-ds,$1) reklamlar.txt $1
}