diff options
Diffstat (limited to 'map.prolog')
-rw-r--r-- | map.prolog | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -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 |