Add-on ve snippet(parça) kod istekleri buraya - Sayfa 80 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alper · 17 Haziran 2020, 14:43

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

!aopekle nick !aopsil nick gb hazır kodlarda statuse çıkan yazıyı belirlediğim kanala yansıtmam mümkünmü?

Kullandığın kodu paylaşırsan ona göre düzenleme yapilabilir.

By ZehiR · 06 Ekim 2020, 00:58

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

on *:text:*:?: { 
  if $1 == !soz && $3 {
    var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
    var %senyor $rand(101,9999)
    hadd -m soz %senyor %senyor2 
    msg #opers 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
    msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
  }
}
on *:text:*:#: { 
  if $chan == #opers { 
    if $1 == !silsoz && $2 { 
      if $hget(soz,$2) {
        msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
        hdel -s soz $2 
      }
    }
    if $1 == !listeleonayli && !$2 { 
      var %i 1 
      while %i <= $lines(onaylisoz.txt) { 
        msg # $read(onaylisoz.txt,%i)
        inc %i
      }
    }
    if $1 == !listelesoz && !$2 { 
      var %i 1 
      while %i <= $hmatch(soz,*,*) { 
        msg #opers 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
        inc %i
      }
    }
    if $1 == !onay && $2 {
      if $hget(soz,$2) { 
        write onaylisoz.txt $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) | msg #ufuk 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
        hdel soz $2 
      }
    }
  }
  if $1 == !soz && $2 { 
    msg # 4 $2 -->12 $read(onaylisoz.txt)
  }
}

Selamın Aleyküm bu koda Nasıl Random Olarak 4 farklı text e Sözü Kaydettirip Random olarak o 4 farklı texten cektirebilirim Tek Text olduğu için bir süre sonra kota sıkıntısı oluşuyor. Teşekkür ederim Şimdiden Yardımlarınız için

Alper · 08 Ekim 2020, 04:13

By ZehiR 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 == !soz && $3 {
    var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
    var %senyor $rand(101,9999)
    hadd -m soz %senyor %senyor2 
    msg #opers 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
    msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
  }
}
on *:text:*:#: { 
  if $chan == #opers { 
    if $1 == !silsoz && $2 { 
      if $hget(soz,$2) {
        msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
        hdel -s soz $2 
      }
    }
    if $1 == !listeleonayli && !$2 { 
      var %i 1 
      while %i <= $lines(onaylisoz.txt) { 
        msg # $read(onaylisoz.txt,%i)
        inc %i
      }
    }
    if $1 == !listelesoz && !$2 { 
      var %i 1 
      while %i <= $hmatch(soz,*,*) { 
        msg #opers 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
        inc %i
      }
    }
    if $1 == !onay && $2 {
      if $hget(soz,$2) { 
        write onaylisoz.txt $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) | msg #ufuk 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
        hdel soz $2 
      }
    }
  }
  if $1 == !soz && $2 { 
    msg # 4 $2 -->12 $read(onaylisoz.txt)
  }
 }

Selamın Aleyküm bu koda Nasıl Random Olarak 4 farklı text e Sözü Kaydettirip Random olarak o 4 farklı texten cektirebilirim Tek Text olduğu için bir süre sonra kota sıkıntısı oluşuyor. Teşekkür ederim Şimdiden Yardımlarınız için

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


alias randomtxt return a.txt b.txt c.txt d.txt
on *:text:*:?: { 
  if $1 == !soz && $3 {
    var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
    var %senyor $rand(101,9999)
    hadd -m soz %senyor %senyor2 
    msg #opers 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
    msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
  }
}

on *:text:*:#: { 
  if $chan == #opers { 
    if $1 == !silsoz && $2 { 
      if $hget(soz,$2) {
        msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
        hdel -s soz $2 
      }
    }
    if $1 == !listelesoz && !$2 { 
      var %i 1 
      while %i <= $hmatch(soz,*,*) { 
        msg $chan 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
        inc %i
      }
    }
    if $1 == !onay && $2 {
      if $hget(soz,$2) { 
        write $token($randomtxt,$r(1,$token($randomtxt,0,32)),32) $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) 
        msg $chan 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
        hdel soz $2 
      }
    }
  }
  if $1 == !soz && $2 { 
    msg # 4 $2 -->12 $read($token($randomtxt,$r(1,$token($randomtxt,0,32)),32))
  }
}

Kırmızı renklendirdiğim yerdeki dosya isimlerini isteğe göre belirlersin. Listelemeyi iptal ettim 4 farklı dosya olduğu için gerçi ayarlanabilir dosya ismi belirtilerek ama uğraşmadım. Dikkat etmen konu iste başta belirttiğin dosya isimlerinin içi boş olmasın en az 1 tane olsun ki boş dönmesin.

Örnek:

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

By ZehiR · 08 Ekim 2020, 10:58

Teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine Sağlık

keniShai · 03 Aralık 2020, 23:48

Merhaba,

Kullandığım sunucu büyük olmasından dolayı bulunduğum kanallar da giriş,çıkış,kick,mode gibi şeyleri göstermeyi kapattım. Fakat şöyle bir sorum olacak. Benim bu söylediklerim kapalı olsa bile benim için geçerli olan kick,ban,modeleri ayrı bir sayfada gösterme imkanım var mıdır? Örnek olarak birisi bana kanalda +oq verdiğinde bu modeyi görmek istiyorum. Teşekkürler.

Subzero · 04 Aralık 2020, 19:55

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

on ^*:kick:#:haltdef | $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 10Ban*** 3 Banlayan:2[ $nick ]3Banlanan:5[ $knick ]3[Kanal]:4 # 3Sebep: $1-

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bunu denermisin.

Edi-- · 17 Aralık 2020, 21:15

Merhabalar,

Öncelikle herkesin sağlığı umarım yerindedir, ufak bir isteğim olacak şöyle :

#x,#x2,#x3 vs.kanallarında duran botun ozeline gelen mesajlari nick/hostname/mesaj ile belirtilen bir kanala yonlendirmesi istiyorum atıyoru #y kanalına. ve her 10 dk da bir bulunduğu kanallarda cycle yapmasını istiyorum.

Şimdiden tşkler.

SinanZora · 10 Ocak 2021, 16:22

kanala giriş yapan her oper / admin i bot üzerinden halfhop a cıkarmak icin remote varmı

Subzero · 12 Şubat 2021, 04:08

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

kanala giriş yapan her oper / admin i bot üzerinden halfhop a cıkarmak icin remote varmı

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

on *:join:#:{ if $read(admin.txt,w,$nick) { mode  # +h  $nick } }

mirc ın içine admin.txt adında bir dosya acıp içine oper / admin leri eklersin.

Ufuksadimo · 15 Şubat 2021, 14:28

Merhaba,

Ben korunmuş kullanıcı eklemek istiyorum. örneğin xxx nicki #Opers kanalına girebilsin ama korunmuş kullanıcı değilse ve bende ekli değilse admin bile olsa o kandaldan sapart edilsin.

Kodu özelime users e 100 den eklenmişler ekleyebilsin örn: !ekle xxx gibi.

Yardımlarınızdan dolayı teşekkür ederim, iyi çalışmalar.

Konuyu Toplam 3 Üye okuyor. (0 Kayıtlı üye ve 3 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.