Calculate how drunk you are. Based on CPAN Acme::Drunk.