--- a/data/fabrics.lisp Sun Jan 08 16:34:19 2017 +0000
+++ b/data/fabrics.lisp Sun Jan 08 16:42:11 2017 +0000
@@ -4,7 +4,6 @@
("an" "angora")
("an" "argyle")
("a" "ballistic nylon")
- ("a" "barathea")
("a" "barkcloth")
("a" "bizarre silk")
("a" "broadcloth")
--- a/src/entities/clothing.lisp Sun Jan 08 16:34:19 2017 +0000
+++ b/src/entities/clothing.lisp Sun Jan 08 16:42:11 2017 +0000
@@ -40,7 +40,7 @@
article
fabric
(random-elt *singular-clothes*))
- (format nil "a set of ~A ~A"
+ (format nil "a pair of ~A ~A"
fabric
(random-elt *plural-clothes*)))))
--- a/src/entities/food.lisp Sun Jan 08 16:34:19 2017 +0000
+++ b/src/entities/food.lisp Sun Jan 08 16:42:11 2017 +0000
@@ -54,6 +54,7 @@
"like something your father used to make"
"like something your mother used to make"
"musty"
+ "oily"
"okay"
"pretty nice"
"questionable"
--- a/src/entities/ruin.lisp Sun Jan 08 16:34:19 2017 +0000
+++ b/src/entities/ruin.lisp Sun Jan 08 16:42:11 2017 +0000
@@ -7,6 +7,8 @@
#("give up"
"why me?"
"tom <3 alice"
+ "beth <3s jane"
+ "annie+don"
"dave was here"
"420"
"goodbye"
@@ -25,12 +27,17 @@
#("Maybe there's something useful left."
"You're surprised it's still standing."
"Maybe it's worth taking a look."
+ "It looks ready to collapse."
"Perhaps you should scavenge?"
"You have a bad feeling about it."
"It brings back fond memories."
"The walls are crumbling."
+ "The floor is cracked and uneven."
+ "Sunlight shines through holes in its roof."
"Sickly-looking leaves cover its walls."
"It looks like someone has been here recently."
+ "A bleached skeleton leans against it."
+ "You notice a fire pit inside. Someone has rested here."
"The walls are charred from a fire."
"A small animal scurries into a hole under the wall."
"Your parents used to live near one of these."
--- a/src/flavor.lisp Sun Jan 08 16:34:19 2017 +0000
+++ b/src/flavor.lisp Sun Jan 08 16:42:11 2017 +0000
@@ -26,7 +26,11 @@
(defun feeling ()
(format nil "You suddenly have ~A feeling.~2%~A"
- (random-elt #("a good" "a bad" "a worrying" "a hopeful" "an uneasy"))
+ (random-elt #("a good"
+ "a bad"
+ "a worrying"
+ "a hopeful"
+ "an uneasy"))
(random-elt #("It passes after a moment."
"It lingers for a while."))))
@@ -38,7 +42,7 @@
"stiff wind"
"strong wind"))
(random-elt #("moves" "pushes"))
- (random-elt #("hot" "warm" "sticky" "humid")))
+ (random-elt #("hot" "warm" "sticky" "humid" "wet")))
(random-elt #("It begins to drizzle."
"The wind picks up, pushing you around."
"A cool wind blows from the north."
@@ -49,6 +53,6 @@
(defun random-flavor ()
(let ((r (random 1.0)))
- (cond ((< r 0.20) (animal))
- ((< r 0.30) (feeling))
+ (cond ((< r 0.33) (animal))
+ ((< r 0.50) (feeling))
(t (weather)))))