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

Kod:

on *:join:#system: { if $ini(config.ini,$nick) >= 1 { .msg #system Merhaba $nick bota erişim yapmak istiyorsanız özelime !onay yazıp ardından bir boşluk bırakarak şifrenizi girin.(Örn: !onay 12345) } }

on *:text:*:?: {

  if $ini(config.ini,$nick) >= 1 && ($1 == !onay) && $2 == $readini(config.ini,$nick,configiris) { .msg #system Şifre başarılı ile girildi $nick | set -e %kontrol $nick }

  if $ini(config.ini,$nick) >= 1 && ($1 == !onay) && $2 != $readini(config.ini,$nick,configiris) { .msg $nick Şifrenizi yanlış girdiniz $nick }

  if ($nick == %kontrol) && ($1 == !yetkiekle) && $2 && $3 && ($4- == $null) && $ini(config.ini,$2) >= 1 { .msg $nick $2 nickinin yetkisi zaten mevcut $nick }

  if ($nick == %kontrol) && ($1 == !yetkiekle) && $2 && $3 && ($4- == $null) && $ini(config.ini,$2) == 0 { writeini config.ini $2 configiris $3 | .msg $nick $2 nickine yetki başarı ile eklendi  $nick şifresi : $3 }

  if ($nick == %kontrol) && ($1 == !yetkisil) && $2 && ($3- == $null) && $ini(config.ini,$2) == 0 { .msg $nick $2 nickinin yetkisi yok bu yüzden silme işleminiz gerçekleşemiyor $nick }

  if ($nick == %kontrol) && ($1 == !yetkisil) && $2 && ($3- == $null) && $ini(config.ini,$2) >= 1 { .remini config.ini $2 | .msg $nick $2 nickinin yetkisi başarı ile silindi $nick }

  if ($nick == %kontrol) && ($1 == !yetkilist) && ($2- == $null) { var %s = 1,%q = $ini(config.ini,0) | while  (%s <= %q) { .msg %kontrol $ord(%s) $ini(config.ini,%s) | inc %s } }

  if $ini(config.ini,$nick) >= 1 && ($1 == !sifredegis) && ($2 == $nick) && $3 && ($4- == $null) { writeini config.ini $2 configiris $3 | .msg $nick Şifreniz başarı ile değiştirildi $nick yeni şifreniz : $3 }

}

on *:text:*:#system: { 

  if ($1 == !kontrol) && ($2- == $null) && (%kontrol != $null) { .msg #system Şuan bota erişim yetkisi %kontrol nickinde $nick }

  if ($1 == !kontrol) && ($2- == $null) && (%kontrol == $null) { .msg #system Şuan bota erişim yetkisi kimsede yok $nick }

  if ($nick == %kontrol) && ($1 == !listele) && ($2- == $null) { noop $findfile($mircdir,*.*,0,.msg #system $1-) }

  if ($1 == !kufurekle) && $2- {

    if $read(kufur.txt,w,$2-) != $null { .msg $chan $2- kelimesi kufur listesinde mevcut $nick }

    if $read(kufur.txt,w,$2-) == $null { write kufur.txt $2- | .msg $chan $2- kelimesi başarı ile kufur listeye eklendi $nick }

  }

  if ($1 == !kufursil) && $2- {

    var %s = $read(kufur.txt,w,$2-),%q

    if (%s == $null) { .msg $chan silmek istediğiniz $2- kelimesi kufur listede mevcut değil $nick }

  }

  if ($1 == !kufursil) && $2- {

    var %s = $read(kufur.txt,w,$2-),%q

    if (%s != $null) {

      noop %s | %q = $readn

    write $+(-dl,%q) kufur.txt | .msg $chan $2- kelimesi kufur listesinden başarı ile silindi $nick }

  }

  if ($1 == !kufurlist) && $file(kufur.txt) == 0 && ($2- == $null) { .msg $chan okutmak istediğiniz $longfn(kufur.txt) dosyası boş $nick }

  if ($1 == !kufurlist) && ($2- == $null) { .play $chan kufur.txt 10 }

}

mircin ana klasorune config.ini dosyasi olustur icine

[RmX78]
configiris=12345

yapıstır ilk yetkili kisi sen olursun #system kanalına girince yetkili listesinde varsan sana mesaj atar.

Özelde calısan komutlar:
!onay sifre : Yetkili kisinin kontrolu almasi icin
!yetkietkle nick sifresi: Yetkili ekler
!yetkisil nick: Yetkili siler
!yetkilist: Yetkili listesini gosterir
!sifredegis nick sifresi: Yetkilinin şifresini degismesini saglar.
#System kanalında çalisan komutlar:
!kontrol:Bottaki kontrol kimde onu gosterir iki kisi ayni anda kontrola sahip olamaz
!kufurekle kelime: kufur.txt ye kufur ekler
!kufursil kelime:kufur.txt den kufur siler
!kufurlist:kufur listesini gosterir
!listele:Dosyalari gosterir

Başlangic olarak biraz gostermek istedim sen geliştirebilirsin.