IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   [* Ekle Sil sırala oku : No'ya göre okutma *] (https://www.ircforumlari.net/mirc-scripting-sorunlari/508445-ekle-sil-sirala-oku-noya-gore-okutma.html)

IRC-Dancer 23 Ekim 2012 20:37
[* Ekle Sil sırala oku : No'ya göre okutma *]
 
Ö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ı :)

Set 24 Ekim 2012 11:54
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Kod:

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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
hoca yine döktürmüşsün, hava değişimi falanmı aldın :x

Türkiye 15 Eylül 2015 17:14
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041231543)
Kod:

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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041231543)
Kod:

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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Alıntı:
alifb Nickli Üyeden Alıntı (Mesaj 1041710853)
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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Alıntı:
alifb Nickli Üyeden Alıntı (Mesaj 1041711540)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam siz yardımcı olur musunuz rica etsem
Kod:
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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041711566)
Kod:
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
Cevap: [* Ekle Sil sırala oku : No'ya göre okutma *]
 
Alıntı:
Subzero Nickli Üyeden Alıntı (Mesaj 1042382775)
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:
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:57.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk