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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - RC Sistemi (https://www.ircforumlari.net/mirc-scripting-sorunlari/198657-rc-sistemi.html)

Merhaba arkadaşlar,

Bana bir kod lazım yardım edecek olana veya olanlara şimdiden teşekkür ediyorum.

Herhangi bir kanalda şu komutlar bota uygulandığında:

1-) !rcekle nick açıklama

Örn; !rcekle cio cio nicki helper olamaz.

Yukarıda ki örnekte belirttiğim gibi, bu bilgiyi txt dosyasına kayıt edecek bot.

2-) !rcincele nick yaptığımızda nick ile ilgili tüm RC kayıt bilgilerini listeleyecek.

Örn;
<Bot> -------------------------------
<Bot> Cio nickine ait 3 adet RC bulundu.
<Bot> Cio nickine ait RC'ler listeleniyor:
<Bot> RC No1) Cio nicki helper olamaz.
<Bot> RC No2) .............................
<Bot> RC No3) .............................
<Bot> Cio nickine ait RC'ler listelendi.
<Bot> -------------------------------

3-) !rcsil nick numara yaptığımızda o nicke ait RC numaralarından 1 tanesini silecek.

Örn; !rcdel cio 1
<Bot> Cio nickine ait 1 nolu RC silinmiştir.

4-) !rcdelall nick yaptığımızda o nicke ait tüm RC bilgilerini silecek, ama bu tüm RC silme işlemini sadece kanalda sop olanlar ve kanal founderı kullanabilsin.

Dipnot: Arkadaşlar sipariş vermiyorum, yanlış anlaşılma olmasın, yardım etmek isteyen değerli coder arkadaşlarımdan ve bu işte emek verecek olan arkadaşlarımdan rica ediyorum sadece, ben yapamadım.

Cevap: RC Sistemi

Kod:

on *:Text:*:#KANAL: {

  if $1 == !iptal && %rcsil { msg $chan İşlem iptal edildi. | unset %rcsil | return }

  if $1 == !devam && %rcsil { msg $chan [RCDepo/ $+ %rcsil $+ / $+ $nick $+ ] $2 nickine ait RC girdileri silinmiştir. | .remove RC/ $+ %rcsil $+ .txt | unset %rcsil }

  if $1 == !bilgi {

    if !$2 { 

      .msg $chan Kullanım şekli: 

      .msg $chan !bilgi list (RC bilgilerini Listeler)

      .msg $chan !bilgi ekle Nick mesajınız (Nick'e RC bilgisi ekler)

      .msg $chan !bilgi oku Nick (Nick'in RC bilgisini okur)

      .msg $chan !bilgi sil Nick (Nick'e ait RC dosyasını siler)

      return 

    }

    if $2 == list {

      if $findfile($mircdirrc,*.txt,0) == 0 {

        .msg $chan Hata! RC Deposu boş.

      }

      else {

        .msg $chan [RCDepo/ $+ $nick $+ ] - RC Deposu kontrol ediliyor..

        var %a = 1

        while $findfile($mircdirrc,*.txt,%a) {

          msg $chan  $+ $gettok($nopath($v1),1,46) $+  kayıtlı RC dosyası

          inc %a

        }

      }

    }

    if $2 == ekle {

      if !$exists(RC) { mkdir RC }

      .write RC/ $+ $3 $+ .txt [ $+ $date $+ - $+ $time $+ - $+ $3 $+ ] : $4- [Ekleyen: $nick ]

      .write RC/ $+ $3 $+ .txt -

      .msg $chan [RCDepo/ $+ $3 $+ / $+ $nick $+ ] $3 nickine RC geçilmiştir.

    }

    if $2 == oku {

      if !$file(RC/ $+ $3- $+ .txt) {

        .msg $chan  $+ $3 $+  kayıtlı bilgi girdisi bulunamadı.

      }

      else {

        .msg $chan [RCDepo/ $+ $nick $+ ] - $3- kayıtlı RC dosyası kontrol ediliyor..

        saydır $2-

      }

    }      

    if $2 == sil {

      if !$isfile(RC/ $+ $3- $+ .txt) {

        .msg $chan Hata! $2 kayıtlı RC dosyası bulunamadı.

      }

      else {

        .msg $chan UYARI! Bu komut ile $2 kaydına ait bütün girdileri silersiniz.

        .msg $chan Uygulamaya devam etmek istiyorsanız ; !Devam ,

        .msg $chan Uygulamayı iptal etmek istiyorsanız ; !iptal yazınız.

        .set -e %rcsil $3

      }

    }

  }

}

 

alias saydır {

  .timersaydır.* off

  var %s 1

  var %a 1

  while %s <= $lines(RC/ $+ $2- $+ .txt) {

    .timersaydır. $+ %s 1 %a msg $chan $read(RC/ $+ $2- $+ .txt,%s)

    inc %s

    inc %a 2

  }

}

Sadece belirli kişiler Kullansın diyorsan 1.satırın altına şunu ekliyorsun, çoğaltmak içinde seperatörleri kullanabilirsin.;

Kod:

if !$regex($nick,/(Csop|Admin|Nickler)/i) { return }

#kanal 'a !bilgi yazılması halinde listeleyecektir.

Kullanım şekli:
!bilgi list (RC bilgilerini Listeler)
!bilgi ekle Nick mesajınız (Nick'e RC bilgisi ekler)
!bilgi oku Nick (Nick'in RC bilgisini okur)
!bilgi sil Nick (Nick'e ait RC dosyasını siler)

+ilave : RC klasörü yoksa,klasör açması sağlandı.
+ilave : RC ekleyen nickde kayda geçirildi.Böylelikle "Kim Eklemiş?" bilinecek.

Kod Difuzyon tarafından daha önceden yapılmıştır. İşine yarayacağına inanıyorum İyi forumlar...

Cevap: RC Sistemi

Nomercy'e Socket olarak yapamazmıyız :S

Cevap: RC Sistemi

Kod:

 }

        if $gettok(%::text,1,32) == !RCekle {

          if !$istok(KivanC,$botfnick($1),32) { sw $sockname privmsg #Opers :Yetkili değilsiniz. | halt }

          if !$6- { sw $sockname privmsg $3 Lütfen <RC Ekleyin> yazınız. | halt }        

          if !$exists(RC) { mkdir RC }

          write RC/ $+  $5 $+ .txt [ $+ $date $+ - $+ $time $+  ] :3 $6-  4Ekleyen:12 $botfnick($1) 

          sw $sockname PRIVMSG #Opers : $5 Adına RC Olusturuldu 4RC:12 $6- 5 $time - $date

        }

        if $gettok(%::text,1,32) == !RCoku {

          if !$5 { sw $sockname privmsg $3 Lütfen <Nick> yazınız. | halt }        

          if !$file(RC/ $+ $5 $+ .txt) {

          }

          else {

            sw $sockname PRIVMSG #Opers : [RCDepo/ $+ $5 $+ ] - $5- kayıtlı RC dosyası kontrol ediliyor..

            saydır 

          }

Kod:

    ;alias saydır {

    .timersaydır.* off

    var %s 1

    var %a 1

    while %s <= $lines(RC/RC/ $+ $5- $+ .txt) {

      .timersaydır. $+ %s 1 %a sw $sockname privmsg #Opers : $read(RC/ $+ $5- $+ .txt,%s)

      inc %s

      inc %a 2

    }

  }

Ben Böyle Birşey Yapmaya çalıstım ama "!RCoku nick" 'de ve "!RCsil nick" problem yapadım :S