From 6761a99f7e8ed4e73614f304031b136891c5e3b9 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 29 Mar 2014 00:13:58 +1100
Subject: Cleaned up minor init errors, variable names

---
 agent.prolog | 114 +++++++++++++++++++++++++++++++++--------------------------
 1 file changed, 64 insertions(+), 50 deletions(-)

(limited to 'agent.prolog')

diff --git a/agent.prolog b/agent.prolog
index 3a189bb..ba59a43 100644
--- a/agent.prolog
+++ b/agent.prolog
@@ -19,10 +19,10 @@ init :-
 
 
 initPos :-
-    roomList(R),
-    random_member(X,R),
     retractall(here(_)),
-    not(somethingAt(X)),
+    roomList(Rooms),
+    filter(Rooms, somethingAt, Emptyrooms),
+    random_member(X,Emptyrooms),
     asserta(here(X)).
 
 
@@ -30,10 +30,10 @@ initPits :- true.
 
 
 initWumpus :-
-    roomList(R),
-    random_member(X,R),
     retractall(wumpusAt(_)),
-    not(somethingAt(X)),
+    roomList(Rooms),
+    filter(Rooms, somethingAt, Emptyrooms),
+    random_member(X,Emptyrooms),
     asserta(wumpusAt(X)).
 
 
@@ -48,26 +48,26 @@ initBats :- true.
 % command functions
 
 look :-
-    here(L),
-    writeSenses(L),
-    writeExits(L).
-
-
-move(D) :-
-    here(L),
-    connects(L,N,D),
-    retract(here(L)),
-    asserta(here(N)),
-    join(['You move to the ',D,' .\n\n'],M),
-    write(M), !.
-
-
-take(T) :-
-    here(L),
-    itemAt(T,L),
-    canTake(T),
-    retract(itemAt(T,L)),
-    asserta(holding(T)),
+    here(Location),
+    writeSenses(Location),
+    writeExits(Location).
+
+
+move(Direction) :-
+    here(Location),
+    connects(Location, New, Direction),
+    retract(here(Location)),
+    asserta(here(New)),
+    join(['You move to the ',Direction,' .\n\n'],W),
+    write(W), !.
+
+
+take(Item) :-
+    here(Location),
+    itemAt(Item,Location),
+    canTake(Item),
+    retract(itemAt(Item,Location)),
+    asserta(holding(Item)),
     write('Taken.\n\n'), !.
 
 
@@ -75,43 +75,47 @@ take(T) :-
 
 % letting the player know what's going on
 
-writeSenses(L) :-
-    glitter(L),
-    breeze(L),
-    bats(L),
-    stench(L).
+writeSenses(Location) :-
+    glitter(Location),
+    breeze(Location),
+    bats(Location),
+    stench(Location).
 
 
-glitter(_) :- not(current_predicate(goldAt/1)).
-glitter(L) :-
-    goldAt(L),
+glitter(Location) :-
+    current_predicate(goldAt/1),
+    goldAt(Location),
     write('You see a glitter along the sandy floor of the cave.\n').
+glitter(_) :- true.
 
 
-breeze(_) :- not(current_predicate(pitAt/1)).
-breeze(L) :-
-    connects(L,X,_),
-    pitAt(X),
+breeze(Location) :-
+    current_predicate(pitAt/1),
+    connects(Location, ConnectedRoom, _),
+    pitAt(ConnectedRoom),
     write('A cold breeze blows through the room, making you shiver slightly.\n').
+breeze(_) :- true.
 
 
-bats(_) :- not(current_predicate(batsAt/1)).
-bats(L) :-
-    connects(L,X,_),
-    batsAt(X),
+bats(Location) :-
+    current_predicate(batsAt/1),
+    connects(Location, ConnectedRoom, _),
+    batsAt(ConnectedRoom),
     write('All available surfaces are covered in guano. How unsanitary.\n').
+bats(_) :- true.
 
 
-stench(_) :- not(current_predicate(wumpusAt/1)).
-stench(L) :-
-    connects(L,X,_),
-    wumpusAt(X),
+stench(Location) :-
+    current_predicate(wumpusAt/1),
+    connects(Location, ConnectedRoom, _),
+    wumpusAt(ConnectedRoom),
     write('An overpowering stench fills your nose.\n').
+stench(_) :- true.
 
 
-writeExits(L) :-
-    findall(X, connects(L,_,X), E),
-    intercalate(E, ', ', O),
+writeExits(Location) :-
+    findall(X, connects(Location,_,X), Exits),
+    intercalate(Exits, ', ', O),
     join(['There are exits to the ',O,'.\n'],W),
     write(W).
 
@@ -127,5 +131,15 @@ somethingAt(X) :- current_predicate(goldAt/1), goldAt(X).
 somethingAt(X) :- current_predicate(batsAt/1), batsAt(X).
 
 
-intercalate(I,S,O) :- O is I.
+intercalate([X|Y], Spacer, Result) :-
+    intercalate(Y, Spacer, Tail),
+    atom_concat(X, Spacer, Head),
+    atom_concat(Head, Tail, Result).
+intercalate([X], _, Result) :- Result = X.
+
+
+filter(List, Predicate, Result) :-
+    Test =.. [Predicate,X],
+    findall(X, Test, No),
+    subtract(List, No, Result).
 
-- 
cgit