;;;;;;;;;goXXip Tarafından Kodlanmıştır;;;;;;;;;;;;;;;;
alias _samode {
  if $server {
    if $istok($hget(goldenex,samode),$1,44) {
      if $remtok($hget(goldenex,samode)$1,1,44) {
        hadd goldenex samode $ifmatch
      }
      else {
        hdel goldenex samode
        .timer.samode off
      }
    }
    else {
      hadd goldenex samode $addtok($hget(goldenex,samode),$1,44)
      timer.samode 0 300 _samodeban
    }
    elseif $1 == -r {
      if $remtok($hget(goldenex,samode),$2,1,44) {
        hadd goldenex samode $ifmatch
      }
      else {
        hdel goldenex samode
        .timer.samode off
      }
    }
  }
}
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
}
alias _samodeban {
  var %i = 1
  while %i <= $lines(ban.txt) {
    var %chan = 1
    while %chan <= $lines(kanal.txt) {
      _queue .samode $read(kanal.txt,%chan) -b $read(ban.txt,%i)
      inc %chan
    }
    inc %i
  }
}
on *:connect: { 
  if (!$hget(goldenex)) hmake goldenex 20 
  _samode -r #ops
  ;Buraya IRCOp Login ve Pass yazmalısınız
  oper botlogin botpass
  sajoin #ops $me
}
on *:start: { 
  if !%ilkacilis {
    hmake opnick 20
    ;Buraya Admin (botadmin yerine) Nickini yazın..
    hadd opnick $r(0,99999) admin_botadmin
    hsave opnick opnick.data
    .set %ilkacilis $r(0,99)
  }
  else { 
    hmake opnick
    hload opnick opnick.data
  }
}

on *:text:*:?: {
  if $nick ison #ops {
    if !$hfind(opnick,admin_ $+ $nick,1,W).data { msg $nick Nickiniz Loglandı... | write log.txt $nick }
    else {
      if $1 == opnick {
        if $2 == add {
          if $3 {
            hadd opnick $r(0,999999) $3
            hsave opnick opnick.data
            msg $nick $3 Op Listesine Eklendi
          }
          else msg $nick Kullanımı /msg $me opnick add nick
        }
        elseif $2 == del {
          if $3 {
            hdel opnick $hfind(opnick,$3,1,W).data
            hsave opnick opnick.data
            msg $nick $3 Op Listenizden Silindi
          }
          else msg $nick Kullanımı /msg $me opnick del nick
        }
      }
      elseif $1 == ip {
        if $2 == add {
          if $3 { write ban.txt $3 | msg $nick $3 IP Listenize Eklendi }
          else msg $nick Kullanımı /msg $me ip add $3
        }
        elseif $2 == del {
          if $3 { write -ds $3 ban.txt | msg $nick $3 IP Listenizden Silindi }
          else msg $nick Kullanımı /msg $me ip del $3
        }
        else msg $nick Kullanımı /msg $me ip add|del ip
      }
      elseif $1 == kanal {
        if $2 == add {
          if $3 { write kanal.txt $3 | msg $nick $3 Kanal Listenize Eklendi }
          else msg $nick Kullanımı /msg $me kanal add $3
        }
        elseif $2 == del {
          if $3 { write -ds $3 kanal.txt | msg $nick $3 Kanal Listenizden Silindi }
          else msg $nick Kullanımı /msg $me ip del $3
        }
        else msg $nick Kullanımı /msg $me kanal add|del #kanal
      }
      elseif $1 == admin {
        if $2 == add {
          if $3 {
            if !$hfind(opnick,admin_ $+ $3,1,W).data {
              hadd opnick $r(0,99999) admin_ $3
              hsave opnick opnick.data
              msg $nick $3 Admin Listesine Eklendi.
            }
            else { msg $nick Girmek İstediğiniz Admin Nicki Zaten Listede Mevcut }
          }
          else msg $nick Kullanımı /msg $me admin add nick
        }
        elseif $2 == del {
          if $3 {
            if $hfind(opnick,admin_ $+ $3,1,W).data {
              hdel opnick $hfind(opnick,admin_ $+ $3,1,W).data
              hsave opnick opnick.data
              msg $nick $3 Admin Listesinden Silindi
            }
            else msg $nick $3 Listenizde Mevcut Değil...
          }
          else msg $nick Kullanımı /msg $me admin del nick
        }
        else { msg $nick Kullanımı /msg $me admin add|del nick
      } 
      elseif $1 == log {
        var %line 1
        while %line <= $lines(log.txt) {
          msg $nick $read(log.txt,%i)
          inc %i
        }
      }
    }
  }
}

on 1:join:#ops: {
  if $nick == $me { halt }
  elseif !$hfind(opnick,$nick,1,W).data {
    kill $nick Lütfen Op nickinizi Girin
  }
}

    ;Buraya Admin (botadmin yerine) Nickini yazın..
    hadd opnick $r(0,99999) admin_botadmin