summaryrefslogtreecommitdiff
path: root/map.prolog
diff options
context:
space:
mode:
Diffstat (limited to 'map.prolog')
-rw-r--r--map.prolog10
1 files changed, 10 insertions, 0 deletions
diff --git a/map.prolog b/map.prolog
index aee7a56..5c432d9 100644
--- a/map.prolog
+++ b/map.prolog
@@ -1,4 +1,14 @@
+:- module(map, [connects/3, writeExits/1]).
+
+
+writeExits(L) :-
+ connects(L,_,D),
+ join(['You see an exit to the ',D,'.\n'],M),
+ write(M),
+ fail.
+writeExits(_) :- true.
+
% map has 20 rooms, labelled a through t
% connections between rooms inscribe a dodecahedron, with the rooms