1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
:- consult('parser.prolog'). :- consult('agent.prolog'). :- consult('command.prolog'). play :- init, playLoop. playLoop :- prompt(Line), getCommand(Line,Command), Command, playLoop. quit :- halt(0).