summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.prolog18
1 files changed, 18 insertions, 0 deletions
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).
+