on @!*:JOIN:#: {
if ($istok($hget(SeenNames,$ial($nick).user),$nick,32)) {
if ($numtok($hget(SeenNames,$ial($nick).user),32) == 1) { halt }
}
hadd SeenNames $ial($nick).user $addtok($hget(SeenNames,$ial($nick).user),$nick,32)))
if ($numtok($hget(SeenNames,$ial($nick).user),32) == 1) { halt }
var %x = $hget(SeenNames,0).data,%y = 0
while ( %x ) {
echo -a 6* 2Info: 4 $+ $replace($remtok($hget(SeenNames,%x).data,2,32),$chr(32),1 $+ $+($chr(44),4 $+ $chr(32))) 10are the same person! }
dec %x | inc %y
}