Code
24 Mart 2016, 22:13
Adından da anlaşılacağı gibi.. Toplu tekrar ve tekrar koruması..
olayımız şu..
birden fazla nick'in aynı metni tekrar etmesi durumundan korur..
ayrıca bir nick içinde yine aynı durum geçerlidir..
farklı nick'lerin tekrar taşkınlıkların da banlar tek,tek degil +bbb şeklinde atılır.. böylece zaten tekrar durumlarında kirlenen kanalı ban ve kick notlarıyla işgal etmez..
kırmızı alan ne kadar süre içinde; mavi alan kaç tekrara izin verildiğini gösterir.. musahamanıza göre ayalarını yapabilirsiniz..
Çalışma örneği:
[Only Registered Users Can See Links]
on *:text:*:#: mul $chan $nick $1-
alias -l mul {
;<#chan> <nick> <text>
hinc -mu10 $+(f:,$1) $md5($3-) | hadd -mu10 $+(n:,$1) $2 $1
if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item {
var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
while %i <= $token(%b~,0,38) {
mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
tokenize 32 $token(%b~,%i,38)
kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
inc %i
}
}
}
ALINTI
olayımız şu..
birden fazla nick'in aynı metni tekrar etmesi durumundan korur..
ayrıca bir nick içinde yine aynı durum geçerlidir..
farklı nick'lerin tekrar taşkınlıkların da banlar tek,tek degil +bbb şeklinde atılır.. böylece zaten tekrar durumlarında kirlenen kanalı ban ve kick notlarıyla işgal etmez..
kırmızı alan ne kadar süre içinde; mavi alan kaç tekrara izin verildiğini gösterir.. musahamanıza göre ayalarını yapabilirsiniz..
Çalışma örneği:
[Only Registered Users Can See Links]
on *:text:*:#: mul $chan $nick $1-
alias -l mul {
;<#chan> <nick> <text>
hinc -mu10 $+(f:,$1) $md5($3-) | hadd -mu10 $+(n:,$1) $2 $1
if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item {
var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
while %i <= $token(%b~,0,38) {
mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
tokenize 32 $token(%b~,%i,38)
kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
inc %i
}
}
}
ALINTI