Çevrimdışı

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

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

Alıntı:

alias saydır { .... bu kısım kod içerisinde yok.Sağlıklı işlem yapabilmek için bu kısmıda bizlerle paylaşmalısınız. Difuzyon

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

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

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 }