.Sozekle .sozsil .okusoz - IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

**immortaL** · 28 Mayıs 2017, 01:46

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

Kod Sahibi: Kod

28 Mayıs 2017, 01:46	#1
Çevrimiçi immortaL Gelme, burası çok derin.	.Sozekle .sozsil .okusoz 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.) Kod Sahibi: Kod 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.) Kod Sahibi: Kod

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.