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

IRC-Dancer · 23 Ekim 2012, 20:37

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

q0kh4n · 25 Ekim 2012, 20:37

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

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

Set · 15 Eylül 2015, 22:36

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