.Sozekle .sozsil .okusoz / - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Mylife · 08 Ekim 2016, 04:34

Bir kullanıcı için hazırladığım bir calışma ihtiyacı olan arkadaşlar kullanabilir geliştirebilir.

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

on 5*:text:*:#: {
  if ($1 == .oku && !$2) { msg $chan  hatalı kullanım | return }
  elseif $regex($1,/[.]oku/Si) && $2 && !$read(sozlerrr.txt,$readn) {
  msg $chan  Tanıma uygun soz bulunamadı. } 
  elseif ($1 == .oku && $2) { 
    msg $chan  Kelime algılandı kayıtlara bakılıyor. ( $2 )
    $read(sozlerrr.txt,w,$+(*,$2,*)) 
  msg $chan $read(sozlerrr.txt,$readn) } 
  if ($1 == .eklesoz && !$2) { msg $chan 4Hatalı kullanım; .eklesoz (eklemek istediğiniz soz) | return }
  elseif ($1 == .eklesoz && $2)  { 
    write sozlerrr.txt $2-
    msg $chan  $nick ,  sözünüz sisteme eklendi teşekkür ederiz.
  }
  if ($1 == .sozsil) {
    if ($2 == $null) { msg $chan 4Hatalı kullanım;  .sozsil (silenecekkısım) } 
    elseif ($regex($1,/^[.]s.zs[iı]l/Si) && $2) && ($nick != Kod) { msg $chan Yetkili değilsiniz. }
    elseif ($regex($1,/^[.]s.zs[iı]l/Si) && $2) && (!$read(sozlerrr.txt,$readn)) {
    msg $chan  Herhangi bir soz bulunmuyor. }
    else {
      write $+(-dl,$readn) sozlerrr.txt
    msg $chan işlem başarı ile gercekleştirildi. }
  }
}

[00:59:11] <Kod> .eklesoz sanane ne yaparsam yaparım
[00:59:11] <Mircsystem> Kod , sözünüz sisteme eklendi teşekkür ederiz.
[00:59:17] <Kod> .eklesoz
[00:59:24] <Mircsystem> Kelime algılandı kayıtlara bakılıyor. ( sanane )
[00:59:24] <Mircsystem> sanane ne yaparsam yaparım
[00:59:36] <Kod> .oku yaparım
[00:59:36] <Mircsystem> Kelime algılandı kayıtlara bakılıyor. ( yaparım )
[00:59:36] <Mircsystem> sanane ne yaparsam yaparım
[00:59:43] <Kod> .oku deneme
[00:59:43] <Mircsystem> Kelime algılandı kayıtlara bakılıyor. ( deneme )
[00:59:43] <Mircsystem> deneme yapıyorum ama olsun
[00:59:53] <Kod> .sozsil
[00:59:53] <Mircsystem> Hatalı kullanım; .sozsil (silenecekkısım)
[01:00:05] <Kod> .sozsil yapıyorum
[01:00:05] <Mircsystem> işlem başarı ile gercekleştirildi.
[01:00:16] <Kod> .sozsil deneme
[01:00:17] <Mircsystem> işlem başarı ile gercekleştirildi.
[01:00:23] <Kod> .sozsil gercekten
[01:00:23] <Mircsystem> Herhangi bir soz bulunmuyor.
[01:01:14] <Kod> .oku gercekten
[01:01:14] <Mircsystem> Tanıma uygun soz bulunamadı.
[01:02:10] <Mylife> .sozsil deniyorum
[01:02:10] <Mircsystem> Yetkili değilsiniz.

Kullanım;
Soz eklemek için; .eklesoz sozunuz
Kayıtlı olan kelimeye ait bir sözü okumak için; .oku kelime
Soz silmek için; .sozsil kelime (yukarıda kırmızı olan yere kendi nick inizi yazmalısınız.)

Bozkurt · 16 Mart 2017, 01:05

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

Bir kullanıcı için hazırladığım bir calışma ihtiyacı olan arkadaşlar kullanabilir geliştirebilir.

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

on 5*:text:*:#: {
  if ($1 == .oku && !$2) { msg $chan  hatalı kullanım | return }
  elseif $regex($1,/[.]oku/Si) && $2 && !$read(sozlerrr.txt,$readn) {
  msg $chan  Tanıma uygun soz bulunamadı. } 
  elseif ($1 == .oku && $2) { 
    msg $chan  Kelime algılandı kayıtlara bakılıyor. ( $2 )
    $read(sozlerrr.txt,w,$+(*,$2,*)) 
  msg $chan $read(sozlerrr.txt,$readn) } 
  if ($1 == .eklesoz && !$2) { msg $chan 4Hatalı kullanım; .eklesoz (eklemek istediğiniz soz) | return }
  elseif ($1 == .eklesoz && $2)  { 
    write sozlerrr.txt $2-
    msg $chan  $nick ,  sözünüz sisteme eklendi teşekkür ederiz.
  }
  if ($1 == .sozsil) {
    if ($2 == $null) { msg $chan 4Hatalı kullanım;  .sozsil (silenecekkısım) } 
    elseif ($regex($1,/^[.]s.zs[iı]l/Si) && $2) && ($nick != Kod) { msg $chan Yetkili değilsiniz. }
    elseif ($regex($1,/^[.]s.zs[iı]l/Si) && $2) && (!$read(sozlerrr.txt,$readn)) {
    msg $chan  Herhangi bir soz bulunmuyor. }
    else {
      write $+(-dl,$readn) sozlerrr.txt
    msg $chan işlem başarı ile gercekleştirildi. }
  }
}

[00:59:11] <Kod> .eklesoz sanane ne yaparsam yaparım
[00:59:11] <Mircsystem> Kod , sözünüz sisteme eklendi teşekkür ederiz.
[00:59:17] <Kod> .eklesoz
[00:59:24] <Mircsystem> Kelime algılandı kayıtlara bakılıyor. ( sanane )
[00:59:24] <Mircsystem> sanane ne yaparsam yaparım
[00:59:36] <Kod> .oku yaparım
[00:59:36] <Mircsystem> Kelime algılandı kayıtlara bakılıyor. ( yaparım )
[00:59:36] <Mircsystem> sanane ne yaparsam yaparım
[00:59:43] <Kod> .oku deneme
[00:59:43] <Mircsystem> Kelime algılandı kayıtlara bakılıyor. ( deneme )
[00:59:43] <Mircsystem> deneme yapıyorum ama olsun
[00:59:53] <Kod> .sozsil
[00:59:53] <Mircsystem> Hatalı kullanım; .sozsil (silenecekkısım)
[01:00:05] <Kod> .sozsil yapıyorum
[01:00:05] <Mircsystem> işlem başarı ile gercekleştirildi.
[01:00:16] <Kod> .sozsil deneme
[01:00:17] <Mircsystem> işlem başarı ile gercekleştirildi.
[01:00:23] <Kod> .sozsil gercekten
[01:00:23] <Mircsystem> Herhangi bir soz bulunmuyor.
[01:01:14] <Kod> .oku gercekten
[01:01:14] <Mircsystem> Tanıma uygun soz bulunamadı.
[01:02:10] <Mylife> .sozsil deniyorum
[01:02:10] <Mircsystem> Yetkili değilsiniz.

Kullanım;
Soz eklemek için; .eklesoz sozunuz
Kayıtlı olan kelimeye ait bir sözü okumak için; .oku kelime
Soz silmek için; .sozsil kelime (yukarıda kırmızı olan yere kendi nick inizi yazmalısınız.)

adminler icin bi kod sanırım bu.

Mecnun · 18 Mart 2017, 05:32

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

adminler icin bi kod sanırım bu.

değil kanka
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İstek : Soz Botuna !sozekle komutu eklemek	DewiL	Eggdrop, NeoStats, BNC	7	28 Aralık 2015 01:15

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

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.