summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2014-03-21 03:01:42 +1100
committerJed Barber <jjbarber@y7mail.com>2014-03-21 03:01:42 +1100
commit410fc38f935b552a58af2e716d2fe814eee432c9 (patch)
tree606416b2be1b88eb3861c9ee4bb48ec081250741
parentc33ee86c272aaac287970a588b8c6dbf6aa52211 (diff)
Basic items and look command
-rw-r--r--agent.prolog15
-rw-r--r--item.prolog22
-rw-r--r--main.prolog10
-rw-r--r--map.prolog10
4 files changed, 54 insertions, 3 deletions
diff --git a/agent.prolog b/agent.prolog
index 338b3f2..994b77d 100644
--- a/agent.prolog
+++ b/agent.prolog
@@ -1,9 +1,11 @@
-:- module(agent, [look/0, move/1]).
+:- module(agent, [look/0, move/1, take/1]).
look :-
- write('looking\n').
+ here(L),
+ writeItemsAt(L),
+ writeExits(L).
move(D) :-
@@ -12,3 +14,12 @@ move(D) :-
retract(here(L)),
asserta(here(N)), !.
+
+take(T) :-
+ here(L),
+ itemAt(T,L),
+ canTake(T),
+ retract(itemAt(T,L)),
+ asserta(holding(T)),
+ write('Taken.'), !.
+
diff --git a/item.prolog b/item.prolog
new file mode 100644
index 0000000..11e469c
--- /dev/null
+++ b/item.prolog
@@ -0,0 +1,22 @@
+
+:- module(item, [itemAt/2, writeItemsAt/1, canTake/1, description/2]).
+
+
+itemAt(ladder,a).
+
+
+writeItemsAt(L) :-
+ itemAt(X,L),
+ description(X,D),
+ write(D),
+ fail.
+writeItemsAt(_) :- true.
+
+
+canTake(gold).
+canTake(deadWumpus).
+
+
+description(ladder, 'There is a rope ladder hanging from the ceiling here.\n').
+description(gold, 'You see a glitter along the sandy floor of the cave.\n').
+
diff --git a/main.prolog b/main.prolog
index 5204ef7..ddf7baa 100644
--- a/main.prolog
+++ b/main.prolog
@@ -3,9 +3,17 @@
:- consult('map.prolog').
:- consult('agent.prolog').
:- consult('read.prolog').
+:- consult('item.prolog').
init :-
- retractall(here(X)),
+ retractall(here(_)),
asserta(here(a)), !.
+
+join([X|Y],R) :-
+ join(Y,Rx),
+ atom_concat(X,Rx,R).
+join([X],R) :-
+ R = X.
+
diff --git a/map.prolog b/map.prolog
index aee7a56..5c432d9 100644
--- a/map.prolog
+++ b/map.prolog
@@ -1,4 +1,14 @@
+:- module(map, [connects/3, writeExits/1]).
+
+
+writeExits(L) :-
+ connects(L,_,D),
+ join(['You see an exit to the ',D,'.\n'],M),
+ write(M),
+ fail.
+writeExits(_) :- true.
+
% map has 20 rooms, labelled a through t
% connections between rooms inscribe a dodecahedron, with the rooms