From 0a87a1b949aa6de597dd31fa2ee414afa57627db Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 31 Mar 2014 16:30:34 +1100
Subject: Added bats

---
 agent.prolog | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/agent.prolog b/agent.prolog
index d936d3f..0fa24a2 100644
--- a/agent.prolog
+++ b/agent.prolog
@@ -55,7 +55,20 @@ insertGold(N) :-
 insertGold(0) :- true.
 
 
-initBats :- true.
+initBats :-
+    retractall(batsAt(_)),
+    insertBats(2).
+
+
+insertBats(N) :-
+    N > 0,
+    Nx is N - 1,
+    insertBats(Nx),
+    roomList(Rooms),
+    filter(Rooms, somethingAt, Emptyrooms),
+    random_member(X,Emptyrooms),
+    asserta(batsAt(X)).
+insertBats(0) :- true.
 
 
 
-- 
cgit