toMessage e (GameUpdate (CastLightning   m n))          | isPlayer m = Just $ "KABOOM! Lightning strikes everything around you."
toMessage e (GameUpdate (CastLightning   m n))          | isPlayer m = Just $ "KABOOM! Lightning strikes everything around you."
toMessage e (GameUpdate (CastLightning   m n))          | isPlayer m = Just $ "KABOOM! Lightning strikes everything around you."