summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--agent.prolog6
1 files changed, 3 insertions, 3 deletions
diff --git a/agent.prolog b/agent.prolog
index a575b2f..d936d3f 100644
--- a/agent.prolog
+++ b/agent.prolog
@@ -192,10 +192,10 @@ checkBats :-
batsAt(Location),
write('A giant bat swoops down, picks you up, and deposits you elsewhere in the cave.\n\n'),
roomList(Rooms),
- filter(Rooms, somethingAt, emptyRooms),
- random_member(NewLocation, emptyRooms),
+ random_member(NewLocation, Rooms),
retract(here(Location)),
- asserta(here(NewLocation)).
+ asserta(here(NewLocation)),
+ checkHazards.
checkBats :- true.