David 2

#seen_nick on
on !*:JOIN:#: {
  hadd -m seen_nick $wildsite $+($remtok($hget(seen_nick,$wildsite),$nick,32),$chr(32),$nick)
  if ($numtok($hget(seen_nick,$wildsite),32) > 1) {
    echo 3 $chan $timestamp * Nickname $nick used these nicks earlier: $remtok($hget(seen_nick,$wildsite),$nick,32) 
  }
}
on !*:NICK: { hadd -m seen_nick $wildsite $+($remtok($hget(seen_nick,$wildsite),$newnick,32),$chr(32),$newnick) }
alias -l loadseen_nick {
  if (!$hget(seen_nick)) { .hmake seen_nick 1000 }
  elseif ($exists($scriptdirseen_nick.hsh)) { .hload seen_nick $qt($scriptdirseen_nick.hsh) }
}
on *:start:{ $loadseen_nick }
on *:connect:{ $loadseen_nick }
#seen_nick end
menu nicklist {
  -
  .Turn Seen Nick $iif($group(#seen_nick) = On,Off,On): $iif($group(#seen_nick) = On,.disable,.enable) #seen_nick | echo -a $timestamp -- Seen Nick is $group(#seen_nick)
  . $iif($numtok($hget(seen_nick,$address($$1,2)),32) <= 1,$style(2)) Check $$1's Previous Nicks: echo 3 -a $timestamp * Nickname $$1 used these nicks: $remtok($hget(seen_nick,$address($$1,2)),$1,32) 
  . $iif($numtok($hget(seen_nick,$address($$1,2)),32) <= 1,$style(2)) Delete $$1's Previous Nicks: echo 3 -a $timestamp * Nickname $$1's Previous Nicks Are Now Deleted. | hdel seen_nick $address($$1,2)
  -
}