From 2144edd083e11268c1da351eb73ae469bdb73006 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 3 Apr 2014 21:14:30 +1100
Subject: Improved command handling

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

(limited to 'main.prolog')

diff --git a/main.prolog b/main.prolog
index 1dcd4df..ef23f4f 100644
--- a/main.prolog
+++ b/main.prolog
@@ -9,16 +9,26 @@
 
 play :-
     init,
+    look,
     playLoop.
 
 
 playLoop :-
     prompt(Line),
+    evalLine(Line).
+
+
+evalLine(Line) :-
     getCommand(Line,Command),
     Command,
     playLoop.
 
 
+evalLine(_) :-
+    write('What?\n\n'),
+    playLoop.
+
+
 quit :-
     halt(0).
 
-- 
cgit