toMessage e (GameUpdate (GainedStrength  m n))          | isPlayer m = Just $ "You feel empowered!"
toMessage e (GameUpdate (GainedStrength  m n))          | isPlayer m = Just $ "You feel empowered!"
toMessage e (GameUpdate (GainedStrength  m n))          | isPlayer m = Just $ "You feel empowered!"