IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Tam anlamıyla test edecek vaktim olmadı ama çalışıyor. Hataları olduğunda geliştirebilirim...

Kod:

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

  }

}

Burada

Kod:

    ;Buraya Admin (botadmin yerine) Nickini yazın..

    hadd opnick $r(0,99999) admin_botadmin

admin_botadmin kısmında botadmini kendi nickinle değiştir. Bot yalnızca bu nicki dinleyecektir. Uzaktan yönetim..
Sana komutları yazayım...

/msg botnick opnick add nick yazdığında ops kanalına giren yetkililer kanaldan killenmeyecektir. Kısacası Opları teker teker
buraya eklemen gerekiyor.

/msg botnick opnick del nick yazdığında Bir Opun yetkisini silerken buradan da silmelisin...

/msg botnick ip add IPadresi (*@ip) Şeklinde her 5 dakikada bir banların açılması için ip gireceksin. Unutma bunlar Scriptten değil uzaktan erişim...

/msg botnick ip del IPAdresi (*@ip) Şeklindeki IP yi listeden silersin...

/msg botnick kanal add #kanal yazdığında ban.txt dosyasındaki IP lerin bu kanalda da açılmasını sağlayacaktır.
/msg botnick kanal del #kanal yazdığında bot ban.txt dosyasındaki IP lerin bu kanalda uygulanmasını engelleyecektir.

/msg botnick log yazdığında ise sen yokken kimler bota komut vermeye çalıştıysa bunların nickini loglayıp sana gösterir..

/msg botnick admin add nick yazdığında ise Bota admin ekler ve bota uzaktan erişimi sağlar...
/msg botnick admin del nick yazdığında Yazdığın kişiyi admin listesinden siler...

Bunları yazmak için 2 saatimi verdim, Sonunda Uykum geldi bıraktım... Daha çok şey yapılabilir. Örneğin, IPleri admine gösterme, Kanal Listesini gösterme falan filan...