toMessage e (GameUpdate (GainedMobFlag m ConfusedF))    | isPlayer m = Just $ "You feel drunk."
toMessage e (GameUpdate (GainedMobFlag m ConfusedF))    | isPlayer m = Just $ "You feel drunk."
toMessage e (GameUpdate (GainedMobFlag m ConfusedF))    | isPlayer m = Just $ "You feel drunk."