toMessage e (GameUpdate (CastFire        m n))          | isPlayer m = Just $ "Roaring flames erupt all around you!"
toMessage e (GameUpdate (CastFire        m n))          | isPlayer m = Just $ "Roaring flames erupt all around you!"
toMessage e (GameUpdate (CastFire        m n))          | isPlayer m = Just $ "Roaring flames erupt all around you!"