hash version
alias _hash.start {
var %hash = $numtok($1-,32),%tok = 1
while %tok <= %hash {
var %gettok = $gettok($1-,%tok,32)
if !$findfile($+(%gettok,.data)) {
hmake %gettok 20
hsave %gettok $+(%gettok,.data)
}
else {
hmake %gettok
hload %gettok $+(%gettok,.data)
}
inc %tok
}
}
on *:START: { _hash.start long.char }
alias _long.char {
hadd -m long.char full.line. $+ $1 $len($remove($2-,$chr(32)))
var %mc = 1
while %mc <= $hget(long.char,full.line. $+ $1) {
hadd -m long.char mid. $+ %mc $+ $1 $mid($2-,%mc,1)
if $+(*,$hget(long.char,mid. $+ %mc $+ $1),*) iswm $2- {
return $true
}
inc %mc
}
timer.temizle $+ $1 1 5 ._temizle($1,$2-)
}
alias _temizle {
.hdel long.char full.line. $+ $1
var %k = 1
while %k <= $hget(long.char,full.line. $+ $1) {
hdel long.char mid. $+ %k $+ $1 $mid($2-,%k,1)
inc %k
}
}
on 1:TEXT:*:#: {
if $_long.char($nick,$1-) {
ban $chan $nick 2
kick $chan $nick Log Char Protection
}
}
Last edited by Montana; 11/08/05 09:07 AM.
