on $*:text:/^(\S+)/:#:{
if ((%floodrandomk) || ($($+(%,floodrandomk.,$nick),2))) {
return
}
set -u4 %floodrandomk On
set -u5 %floodrandomk $+ $nick On
set %randnick $nick($chan,$rand(1,$nick($chan,0))) {
msg $chan %randnick $read(a1.txt,n)
}
{
if ($nick = %randnick) {
msg $chan %randnick $read(a2.txt,n)
}
}