[IRC-Dancer]

Öncelikle merhaba ;
Bir kod istiyorum, özellikleri ve kullanım şekli :

!ekle : '' !ekle '' kodunu kullandıkdak sonra ; kaydedecek misal ;

!ekle #Sohbet kanal founderi değiştirilmiştir.
!ekle Vagrant Nick'i oper eklendi.
!ekle Vagrant sohbet kanalına sop eklendi
-
!sırala : '' !sırala '' kodunu kullandıktan sonra ; arşiv'i sunacak misal ;

!sırala
Not1: Vagrant tarafından bilgi eklenmesi var okumak için : !not1 yazınız
Not2: Vagrant tarafından bilgi eklenmesi var okumak için : !not2 yazınız
Not3: Vagrant tarafından bilgi eklenmesi var okumak için : !not3 yazınız
-
!not1
Not-1 Okunuyor : #Sohbet kanal founderi değiştirilmiştir. Yazan: Vagrant Saat : 00:00 vb gibi.


Not : Ekle sil list var if'dede araştırınca bir cok yanıt alıyoruz ve bir cok seyı denememe ragmen yapmayı beceremedım acıkcası
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Set]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#mirchelp: {
  if $regex($1,/^[!.]ekle/i) {
    var %numara $iif($hget(not,0).data,$v1,1)
    hadd -m not %numara $+($2-,$chr(32),$chr(24),Ekleyen:,$chr(32),$nick,$chr(24),$chr(32),Tarih/Saat:,[,$date,-,$time,])
    msg #  * Not'unuz listeye eklenmistir.
    msg # [NOT] Numara: %numara - Mesaj: $2-
    msg # -
    hsave not not.63 
  }
  if $regex($1,/^[!.]sirala/i) {
    if $hget(not,0).data && !$hget(not) { msg # Listede suan not bulunmuyor! | return }
    msg # * Not listesi listeleniyor..
    var %_ 1
    while $hget(not,%_).data {
      msg # $+(%_,:) $token($v1,2,24) nick'inden bulunmakta -Komut: $+(Not,%_) 
      inc %_
    }
    msg # -
    msg # * Not listesi sonu-
  }
  if $regex($1,/^[!.]not/i) {
    var %numara $remove($1,!not)
    if !$hget(not,%numara).data { msg # %numara ile ilgili not bulunmamakta! | return }
    msg # [NOT] Numara: %numara - 
    msg # Not: $token($hget(not,%numara).data,1,24)
    msg # - $token($hget(not,%numara).data,2,24)
    msg # - $token($hget(not,%numara).data,3,24)
    msg # -
    msg # * Not sonu..
  }
}
on *:start: {
  hmake not
  hload not not.63
}

boyle birşey işini görür..

Komutlar;

!ekle Notun
!sirala
!notNumara

Hayırlı IF'ler.

[q0kh4n]

hoca yine döktürmüşsün, hava değişimi falanmı aldın :x

[Türkiye]

Set Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#mirchelp: { if $regex($1,/^[!.]ekle/i) { var %numara $iif($hget(not,0).data,$v1,1) hadd -m not %numara $+($2-,$chr(32),$chr(24),Ekleyen:,$chr(32),$nick,$chr(24),$chr(32),Tarih/Saat:,[,$date,-,$time,]) msg # * Not'unuz listeye eklenmistir. msg # [NOT] Numara: %numara - Mesaj: $2- msg # - hsave not not.63 } if $regex($1,/^[!.]sirala/i) { if $hget(not,0).data && !$hget(not) { msg # Listede suan not bulunmuyor! | return } msg # * Not listesi listeleniyor.. var %_ 1 while $hget(not,%_).data { msg # $+(%_,:) $token($v1,2,24) nick'inden bulunmakta -Komut: $+(Not,%_) inc %_ } msg # - msg # * Not listesi sonu- } if $regex($1,/^[!.]not/i) { var %numara $remove($1,!not) if !$hget(not,%numara).data { msg # %numara ile ilgili not bulunmamakta! | return } msg # [NOT] Numara: %numara - msg # Not: $token($hget(not,%numara).data,1,24) msg # - $token($hget(not,%numara).data,2,24) msg # - $token($hget(not,%numara).data,3,24) msg # - msg # * Not sonu.. } } on *:start: { hmake not hload not not.63 } boyle birşey işini görür.. Komutlar; !ekle Notun !sirala !notNumara Hayırlı IF'ler.

kodun calısmasında hiç bir sorun yok sorunsuz calısıyor fakat sadece 1 not kaydediyor 2 3 4 5 6 vsyr. notları kabul etmiyor demin denemeden yazmıstım düzeltiyorum not sil eksik var ve silme işlemi gerceklesmiyor coklu not ekleme sansımız yok onu fark ettim

[Set]

var %numara $iif($hget(not,0).data,$calc ($v1 + 1),1)

Bu şekil düzeltmek dene istersen silme isleminide sen halledersin artık hayırlı filer.

[alifb]

Set Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#mirchelp: { if $regex($1,/^[!.]ekle/i) { var %numara $iif($hget(not,0).data,$v1,1) hadd -m not %numara $+($2-,$chr(32),$chr(24),Ekleyen:,$chr(32),$nick,$chr(24),$chr(32),Tarih/Saat:,[,$date,-,$time,]) msg # * Not'unuz listeye eklenmistir. msg # [NOT] Numara: %numara - Mesaj: $2- msg # - hsave not not.63 } if $regex($1,/^[!.]sirala/i) { if $hget(not,0).data && !$hget(not) { msg # Listede suan not bulunmuyor! | return } msg # * Not listesi listeleniyor.. var %_ 1 while $hget(not,%_).data { msg # $+(%_,:) $token($v1,2,24) nick'inden bulunmakta -Komut: $+(Not,%_) inc %_ } msg # - msg # * Not listesi sonu- } if $regex($1,/^[!.]not/i) { var %numara $remove($1,!not) if !$hget(not,%numara).data { msg # %numara ile ilgili not bulunmamakta! | return } msg # [NOT] Numara: %numara - msg # Not: $token($hget(not,%numara).data,1,24) msg # - $token($hget(not,%numara).data,2,24) msg # - $token($hget(not,%numara).data,3,24) msg # - msg # * Not sonu.. } } on *:start: { hmake not hload not not.63 } boyle birşey işini görür.. Komutlar; !ekle Notun !sirala !notNumara Hayırlı IF'ler.

Bu remote de !sil aktif değil yardımcı olur musunuz?

[alifb]

alifb Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu remote de !sil aktif değil yardımcı olur musunuz?

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam siz yardımcı olur musunuz rica etsem

[YouMyCure]

alifb Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam siz yardımcı olur musunuz rica etsem

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
  if $1 == !ekle {
    if !$2- { msg $chan Hatalı Kullanım Not Belirtmediniz. | return } 
    write notlist.txt $2- 
    msg $chan Notunuz Listeye Eklendi. 
  }
  if $1 == !notlar {
    var %i 1
    while %i <= $lines(notlist.txt) {
      msg $chan $+(%i,.) $read(notlist.txt,%i)
      inc %i
    }
  }
  if $1 == !sil {
    if !$2 { msg $chan Hatalı Kullanım Numara Belirtiniz. | return }
    write $+(-dl,$2) notlist.txt
    msg $chan $2 Numaralı Not Silinmiştir..
  }
}

Bu Şekilde Not Ekleme Silme Listeleme Sistemi Yapılabilir.
!ekle NOT
!notlar
!sil Numara

[Subzero]

YouMyCure Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#: { if $1 == !ekle { if !$2- { msg $chan Hatalı Kullanım Not Belirtmediniz. | return } write notlist.txt $2- msg $chan Notunuz Listeye Eklendi. } if $1 == !notlar { var %i 1 while %i <= $lines(notlist.txt) { msg $chan $+(%i,.) $read(notlist.txt,%i) inc %i } } if $1 == !sil { if !$2 { msg $chan Hatalı Kullanım Numara Belirtiniz. | return } write $+(-dl,$2) notlist.txt msg $chan $2 Numaralı Not Silinmiştir.. } } Bu Şekilde Not Ekleme Silme Listeleme Sistemi Yapılabilir. !ekle NOT !notlar !sil Numara

bu remotede !ekle not !sil numara !notlar kısmını kanaldaki @ & founder e mahsus olup sadece !notlar kısmını kanaldaki diger kullanıcılar yapsın mumkunmudur

[Alper]

Subzero Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bu remotede !ekle not !sil numara !notlar kısmını kanaldaki @ & founder e mahsus olup sadece !notlar kısmını kanaldaki diger kullanıcılar yapsın mumkunmudur

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
  if $1 == !ekle {
    if ($nick isop $chan) {
      if !$2- { msg $chan Hatalı Kullanım Not Belirtmediniz. | return } 
      write notlist.txt $2- 
      msg $chan Notunuz Listeye Eklendi. 
    }
  }
  if $1 == !sil {
    if ($nick isop $chan) {
      if !$2 { msg $chan Hatalı Kullanım Numara Belirtiniz. | return }
      write $+(-dl,$2) notlist.txt
      msg $chan $2 Numaralı Not Silinmiştir..
    }
  }
  if $1 == !notlar {
    var %i 1
    while %i <= $lines(notlist.txt) {
      msg $chan $+(%i,.) $read(notlist.txt,%i)
      inc %i
    }
  }
 }

Kırmızı belirtiğim yerler. Anlamı nick @ ise.