ON ^*:text:*:#:{
if ($nick(#,$me,@&~%) && !$nick(#,$nick,@&~%)) {
if (*irccloud* iswm $site) { halt }
Xpro_check $nick $strip($1-,burcmo)
}
}
Alias Xpro_check {
if ($nick($chan,$1,@&~%)) return
var %h = $hash($lower($strip($left($2-,400),burcmo)),32)
if (%protect.r. [ $+ [ $chan ] $+ . $+ [ %h ] ] < 70) inc -z %protect.r. $+ $chan $+ . $+ %h 20
inc -z %protect.r. $+ $chan $+ . $+ $chan $+ . $+ %h %protect.r. [ $+ [ $chan ] $+ . $+ [ %h ] ]
inc -z %protect.r. $+ $chan $+ . $+ $chan $+ . $+ %h %protect.j. [ $+ [ $chan ] $+ . $+ [ $chan ] ]
if (%protect.r. [ $+ [ $chan ] $+ . $+ [ $chan ] $+ . $+ [ %h ] ] > 2) {
mode # +b $address($1,4)
}
}