[* Ekle Sil sırala oku : No'ya göre okutma *] - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Set · 24 Ekim 2012, 11:54

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.

Türkiye · 15 Eylül 2015, 17:14

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

alifb · 17 Aralık 2015, 16:52

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 · 19 Aralık 2015, 15:23

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 · 19 Aralık 2015, 16:27

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 · 19 Ekim 2020, 21:20

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 · 20 Ekim 2020, 00:55

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Site Ekle, Firma Ekle Oto Onaylı Kaliteli Backlink	BayMankeN	Diğer Dizinler	0	26 Kasım 2022 19:35
Tek komut ile kanal şifrele/topic ekle/koruma ekle.	Prens	mIRC Scripting Sorunları	3	23 Nisan 2014 11:17
Toplist.Name.Tr - Toplist Sitesi Siteni Ekle Site Ekle	armoking_yesiI	Toplist - Hitlist	2	12 Şubat 2010 22:24
Txt den okutma	bLaCkdeviL	mIRC Scripting Sorunları	10	07 Şubat 2007 12:49

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.