Karışık bir istek olacak ama; - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

DJ44 · 27 Nisan 2014, 09:24

Merhaba arkadaşlar isteğim biraz karışık olacak ama yardımınıza ihtiyacım var.

Öncelikle isteğim aslında bir kick ban remotesi, ama txt içinde belirlediğim kanallarda aktif olacak ve yine txt içerisinde belirlediğim kelimeler geçince ban atıcak.

Atılan ban 3 dakikalık olacak ve 3 dk sonra tekrar açılıp, atılan kişi kanala invite edilecek. Attıktan sonra kişiye ve o kanalın op kanalına Mesaj atıcak,

Kişiye : Argo kullandığınız için 3 dk banlandınız. Banınız 3 dk sonra otomatik olarak açılacaktır.
Kanala : xxx Nickli kişi argo kelime kullandığı için 3 dk süre ile banlanmıştır, Banı otomatik olarak açılaktır.

Şeklinde mesaj atmasını istiyorum.

Argo kelimeler yazı içinde ve ya tek yazılınca atılsın istiyorum. *argo* şeklinde mi yoksa direkt argo kelime olarak mı eklenecek. Belirttiğim gibi kelime içinde kullanılınca da atsın istiyorum..

Toprak · 27 Nisan 2014, 11:13

Buyrun;

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

on @*:text:*:#:{
  if $read(kanallar.txt,w,#) {
    var %:kufur = 1
    while %:kufur <= $lines(argo.txt) {
      if ($read(argo.txt,%:kufur) iswm $1-) {
        ban -ku180 # $nick Kufur yasak..
        $+(.timer,$nick,intive) 1 180 invite $nick #
        msg $nick # kanalında $read(argo.txt,$readn) kelimesinden dolayı 3 dk banlandınız
        msg #opkanalı $nick # Kanalında $read(argo.txt,$readn) kelimesinden dolayı 3 dk Kick ban atıldı.
        break
      }
      inc %:kufur
    }
  }
}

Not: Yukardaki kod'u düzelttim sadece..

AfraN · 27 Nisan 2014, 11:43

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

on *:text:*:#kanal1,#kanal2,#kanal3:{
  if ($me isop #) || ($me ishop #) {
    var %a  1
    while (%a <= $lines(argo.txt)) {
      if ($read(argo.txt,%a) iswm $strip($1-)) {
        ban -ku180 $chan $nick sebep
        .timer 1 180 invite $nick $chan
        msg $nick $chan kanalında $read(argo.txt,$readn) kelimesinden dolayı 3 dkk banlandınız
        msg #opkanalı $nick $chan Kanalında $read(argo.txt,$readn) kelimesinden dolayı 3 dkk Kick ban atıldı.
      }
      inc %a
    }
  }
}

korumanın aktif olmasını istediğiniz kanaları #kanal1,#kanal2,#kanal3 diye bellirttim kendinize göre ayarlarsınız
mirc ana dizinde argo.txt isminde bir dosya açın kelimeleri oradan yükleyin.
kelime ekleme şekliniz; *kelime* şeklinde olacak cümlenin içinde geçen kelimeyi yakalar ve kelimeyi hem kick sebepte hemde op kanalında belirtir.

DJ44 · 27 Nisan 2014, 12:17

Arkadaşlar çok işime yaradı süper oldu hatta, Fakat kelime içinde geçince atmıyor. Belirlediğim kelimeyi yazınca atıyor sadece :S

Feragat · 27 Nisan 2014, 12:27

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

Arkadaşlar çok işime yaradı süper oldu hatta, Fakat kelime içinde geçince atmıyor. Belirlediğim kelimeyi yazınca atıyor sadece :S

Şu satırı

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

if ($read(argo.txt,%a) iswm $strip($1-)) {

Bu şekilde değiştir

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

if (* $+ $read(argo.txt,%a) $+ * iswm $strip($1-)) {

DJ44 · 27 Nisan 2014, 20:06

Arkadaşlar kod sorunsuz çalışıyor ama bir hatası var, Argo kelime yazılınca atılıyor ama örn listenin başında *bekir* argo olarak ekli. atıyo sıkıtnı yok ama atılma sebebinde listenin en sonundaki sebebi yazıyor.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11

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.