toMessage e (GameUpdate (GainedMobFlag m BlindedF))     | isPlayer m = Just $ "You can no longer see your surroundings!"
toMessage e (GameUpdate (GainedMobFlag m BlindedF))     | isPlayer m = Just $ "You can no longer see your surroundings!"
toMessage e (GameUpdate (GainedMobFlag m BlindedF))     | isPlayer m = Just $ "You can no longer see your surroundings!"