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

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