toMessage e (GameUpdate (ItemPickedUp m item))          | isPlayer m = Just $ "You have picked up a " ++ showIdentified (identified (player (level e))) item ++ "."
toMessage e (GameUpdate (ItemPickedUp m item))          | isPlayer m = Just $ "You have picked up a " ++ showIdentified (identified (player (level e))) item ++ "."
toMessage e (GameUpdate (ItemPickedUp m item))          | isPlayer m = Just $ "You have picked up a " ++ showIdentified (identified (player (level e))) item ++ "."