Basic items and look command

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