IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kanala Giren e otomatik ban (https://www.ircforumlari.net/mirc-scripting-sorunlari/169504-kanala-giren-e-otomatik-ban.html)

Cevap: Kanala Giren e otomatik ban

bu kodda
kanal değeri : $hget(%n,%1).item
nick değer : %n
kişinin ipi : %id

yapacağın if then else parametrelerini buna göre yapmalısın

Kod:



on !^*:join:#:haltdef | inc $+(%,$nick,ip) 1 | hadd -m $nick # 1 | if ($regex($evalnext($+(%,$nick,ip)),^1$)) { userip $nick } | unset $+(%,$nick,ip)

raw 340:*: {

  haltdef | var %& = $regsubex($2,/\+|\*|-/g,) | var %n = $token(%&,1,61),%id = $token(%&,2,61)

  if ($hget(%n,0).item >= 1) { var %2 = $v1,%1 = 1 | while (%1 <= %2) { echo $color(join) -t $hget(%n,%1).item * Giriş: %n $+($chr(40),%id,$chr(41)) | if $regex(%id,/(192\.168|78\.85|92\.123)/g) { ban -k $hget(%n,%1).item %n 2 Yasaklı IP! } | inc %1 } | hfree $token($regsubex($2,/\+|\*|-/g,),1,61) }

}

ip adreslerini renkli belirttiğim yere girersin nokta (.) koyarken başına \ koymalısın ve "\." gibi olmalı.

örnek : 78\.177\.73\.130|88\.246\.134\.118

not : kod büyük sunucular için kasıntı bilginiz olsun 0.682 saniyelik lag sürem : 4.678 oldu.

Cevap: Kanala Giren e otomatik ban

Kod:

on *:join:#izmir:whois $nick | .enable #whoiss

#whoiss off

raw 311:*:haltdef

raw 307:*:haltdef

raw 312:*:haltdef

raw 310:*:haltdef

raw 317:*:haltdef

raw 319:*:haltdef

raw 318:*:haltdef | .disable #whoiss

raw 378:*: {

  haltdef

  if (88.169.* iswm $7) || (226.18.* iswm $7) || (65.76* iswm $7) {

    if ($2 !ison #ankara) && ($2 !ison #istanbul) { mode #izmir +b *!*@ $+ $7 | kick #izmir $2 Dışarı! }

  }

}

#whoiss end