From 410fc38f935b552a58af2e716d2fe814eee432c9 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 21 Mar 2014 03:01:42 +1100
Subject: Basic items and look command

---
 main.prolog | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'main.prolog')

diff --git a/main.prolog b/main.prolog
index 5204ef7..ddf7baa 100644
--- a/main.prolog
+++ b/main.prolog
@@ -3,9 +3,17 @@
 :- consult('map.prolog').
 :- consult('agent.prolog').
 :- consult('read.prolog').
+:- consult('item.prolog').
 
 
 init :-
-    retractall(here(X)),
+    retractall(here(_)),
     asserta(here(a)), !.
 
+
+join([X|Y],R) :-
+    join(Y,Rx),
+    atom_concat(X,Rx,R).
+join([X],R) :-
+    R = X.
+
-- 
cgit