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

- - text 5 sn icinde kick (https://www.ircforumlari.net/mirc-scripting-sorunlari/37153-text-5-sn-icinde-kick.html)

xpxx	31 Ağustos 2007 18:01

text 5 sn icinde kick

arkadaslar sorunum söyle

<cancan> bende istiyorum
<mehmet> bende istiyorum
<suat> bende istiyorum

burada bu yaziyi ilk yazan kisi cancan nickli olan söyle birsey istiyorum
<cancan> bende istiyorum ,, diye yazmis bende istiyorum kelimesini 10 saniye icinde baska bir kisi yazarsa kick atmak nasil yaparim yardimlariniz icin tesekkürler

Nickolas

31 Ağustos 2007 18:39

Cevap: text 5 sn icinde kick

Açıkçası while ile bir döngü oluşturarak Tüm Cümleyi yaptırabilirdim. Fakat Çoklu kanal ve çoklu server kullanımında mirc 'in donmasına sebep olabilir sebebiyle daha basit bir sistem kullandım. Fakat kullandığım sistemde mIRC Hash taboların ITEM bölümünde Maksimum 182 Karekter Kabul ettiği için Kullanılan Cümlenin ilk 182 Karekterini Kullanıyoruz...

Kod:

alias same_text_flood {

  var %text = $1-

  if (!$hget(sametext)) {

    hmake sametext 500

  }

  var %junk = $regsub(%text, /([\\])/g, \\\1, %text)

  %text = $replace(%text, $chr(32), $chr(92))

  if ($len(%text) > 182) {

    %text = $mid(%text, 0, 182);

  }

  hinc -u10 sametext %text

  if ($hget(sametext, %text) >= 2) {

    return $true

  }

 

  return $false

}

 

on *:TEXT:*:#: {

  if ($same_text_flood($1-)) {

    kick $chan $nick Lütfen Tekrar Yapmayın

  }

}

detay

31 Ağustos 2007 19:05

Cevap: text 5 sn icinde kick

Kod:

on @*:text:*:#: {

  if $len($1-) > 6 && $nick isreg $chan { 

    var %t $+(mf.,$chan,.,$hash($strip($1-),32))

    hadd -mu10 %t $nick 

    if ($hget(%t,0).item >= 2) {

      var %m = $ifmatch

      while %m { 

      mode # +b $hget(%t,%m).item

      kick # $hget(%t,%m).item Flood

      var %' = $addtok(%',$hget(%t,%m).item,32) | dec %m 

}

      echo $color(info) -ta (Bilgi) Multiflood-> (Kanal:) $chan (Nickler:) %' (Yazi:) $1- 

      .hfree %t
 

    }

  }

}

ayni yaziyi 10 saniye icinde 2 veya daha fazla kisi yazarsa atar.

xpxx	01 Eylül 2007 17:47

Cevap: text 5 sn icinde kick

cok tesekkür ederim arkadaslar yardimlariniz icin elinize saglik

sewimsiz

07 Şubat 2008 07:30

Yanıt: text 5 sn icinde kick

Bunda Oyun ve Oper kanallarını nasıl Korumaya aLabiliriz?

detay

07 Şubat 2008 20:16

Cevap: text 5 sn icinde kick

Kod:

 

on @*:text:*:#: {

  if $len($1-) > 6 && $nick isreg $chan && !istok(#oyun #oper,$chan,32) { 

    var %t $+(mf.,$chan,.,$hash($strip($1-),32))

    hadd -mu10 %t $nick 

    if ($hget(%t,0).item >= 2) {

      var %m = $ifmatch

      while %m { 

      mode # +b $hget(%t,%m).item

      kick # $hget(%t,%m).item Flood

      var %' = $addtok(%',$hget(%t,%m).item,32) | dec %m 

}

      echo $color(info) -ta (Bilgi) Multiflood-> (Kanal:) $chan (Nickler:) %' (Yazi:) $1- 

      .hfree %t
 

    }

  }

}

koyu renkle gosterilen degisikligi yaparak korumaya alabilirsin

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