Or this, adjusted from xDaeMon's code a little to make your wording exact.
on *:TEXT:!addme *:#: {
set $+(%,person.,$nick) $2-
msg $chan $nick added // /set $+(%,person.,$nick) $2-
}
On *:TEXT:!read &:#: {
if ($var($+(%,person.,$2),1) == $+(%,person.,$2)) { msg $chan $($v2,2) ( $+ $v2 found) }
else { msg $chan $2 is not found (can't find $v2 $+ ) }
}