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

- - Karışık bir istek olacak ama; (https://www.ircforumlari.net/mirc-scripting-sorunlari/581015-karisik-bir-istek-olacak-ama.html)

DJ44	27 Nisan 2014 09:24

Karışık bir istek olacak ama;

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

Cevap: Karışık bir istek olacak ama;

Buyrun;

Kod:

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

Cevap: Karışık bir istek olacak ama;

Kod:

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

Cevap: Karışık bir istek olacak ama;

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

Cevap: Karışık bir istek olacak ama;

Alıntı:

DJ44 Nickli Üyeden Alıntı (Mesaj 1041421396)

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:

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

Bu şekilde değiştir

Kod:

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

DJ44	27 Nisan 2014 20:06

Cevap: Karışık bir istek olacak ama;

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.

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