toMessage e (GameUpdate (Crit attacker target))
    | isPlayer attacker = Just $ "CRITICAL HIT!"
toMessage e (GameUpdate (Crit attacker target))
    | isPlayer attacker = Just $ "CRITICAL HIT!"
toMessage e (GameUpdate (Crit attacker target))
    | isPlayer attacker = Just $ "CRITICAL HIT!"