Try this:
Code:
on *:text:!beer*:#: msg # $$read($iif($2,beernick.txt,drinks.txt),s,!beer)