diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-04-03 10:27:30 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-04-03 10:27:30 +1100 |
| commit | 2ee9e01ca2a53d895f561f88e686bad9a6e3a379 (patch) | |
| tree | 5491a265818ad209d03c6d7b73b272c3b1839a91 | |
| parent | 1b5cff7bece5b1f4efd9e40023ea41b579250192 (diff) | |
Basic playloop added
| -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). + |