Text Based Adventure implemented with prolog