Konu: RC Sistemi
Tekil Mesaj gösterimi
Alt 18 Nisan 2009, 14:37   #3
Çevrimdışı
Lucifer
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: RC Sistemi




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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:   Kodu kopyalamak için üzerine çift tıklayın!
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...

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet