diff options
-rw-r--r-- | main.prolog | 18 |
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). + |