From 2ee9e01ca2a53d895f561f88e686bad9a6e3a379 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 3 Apr 2014 10:27:30 +1100
Subject: Basic playloop added

---
 main.prolog | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/main.prolog b/main.prolog
index aa25bc5..1dcd4df 100644
--- a/main.prolog
+++ b/main.prolog
@@ -2,5 +2,23 @@
 
 :- consult('parser.prolog').
 :- consult('agent.prolog').
+:- consult('command.prolog').
 
 
+
+
+play :-
+    init,
+    playLoop.
+
+
+playLoop :-
+    prompt(Line),
+    getCommand(Line,Command),
+    Command,
+    playLoop.
+
+
+quit :-
+    halt(0).
+
-- 
cgit