Code'de Hata / rc işlemi
 

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sorun


on :Text:*:#Kanal: {
if $1 == !bilgi {
if !$2 { msg # Hata! Kullanım şekli: !bilgi parametre(s)
else {
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 {
.write RC/ $+ $3 $+ .txt [ $+ $date $+ - $+ $time $+ - $+ $3 $+ ] : $4-
.write RC/ $+ $3 $+ .txt -
.msg $chan [RCDepo/ $+ $3 $+ / $+ $nick $+ ] $3 nickine RC geçilmiştir.
}
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 %rcsil $3
}
}
}
}
}



on *:Text:*:#Kanal: {
if $1 == !Sil { msg # [RCDepo/ $+ %rcsil $+ / $+ $nick $+ ] %rcsil nickine ait RC girdileri silinmiştir. | .remove RC/ $+ %rcsil $+ .txt }
if $1 == !iptal { msg # İşlem iptal edildi. | return $false }
if $1 == !bilgi {
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-
}
}
}
}

Bu 2 code birleştirilebilirmi , birleşmiyorsada , mesela 1.Sinde if $2 == ekle { if $2 == sil { if $2 == list { gibi bölümleri !list yazınca cıkmasını istiyorum veya !ekle Nick sebep yazınca rc eklicek sil diyince siLcek list diyince listelicek Böyle bir ek yapabilirmiyiz. 2. Code'de Oku diyor Onu !Oku yapınca rc sebebini okusak vs..

---------------------------------------------------------
---------------------------------------------------------

Cevap: Code'de Hata / rc işlemi
 

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

Buyrun

Cevap: Code'de Hata / rc işlemi
 

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

İyi forumlar...

Cevap: Code'de Hata / rc işlemi
 

difüzyon eline koluna aklına emeğine sağlık paylaşım için tşkler.

Cevap: Code'de Hata / rc işlemi
 

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
}
4if $2 == list) && ($2 == list) {
4if (Csop_ isin $nick) || (Admin_ isin $nick) vs vs böle böel takılar devam ediyor {
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
}
}
}
4if $2 == ekle) && ($2 == list) {
4if (Csop_ isin $nick) || (Admin_ isin $nick) vs vs takılar devam ediyor {
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.
}
4if $2 == oku) && ($2 == oku) {
4if (Csop_ isin $nick) || (Admin_ isin $nick) vs vs takılar devam ediyor {
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-
}
}
4if $2 == sil) && ($2 == sil) {
4if (Csop_ isin $nick) || (Admin_ isin $nick) vs vs takılar devam ediyor {
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
}
}

Burada Kırmızı olarak belirlediğim fakat renklerin cıkmadığı if bölümlerini belirli takıların kullanmasını istiyorum ve kendim o yolla coğaltmak oluyorda fakat Kayma Yaşanıyor ve kullanılmıyor acaba yardım edebilirmisiniz kaymaması için ve tam olarak kullanılması için

Cevap: Code'de Hata / rc işlemi
 

Kodun üst kısmı aşağısıyla bağlantılı.O şekilde ayırma olmaz,kullanıyorsa hepsini kullanmalı.
Yukarıdaki, önceki mesajımda 1.satırın altına şunu ekliyorsun:

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