--- a/data/meat.lisp Sun Jan 08 15:20:57 2017 +0000
+++ b/data/meat.lisp Sun Jan 08 15:40:25 2017 +0000
@@ -1,11 +1,27 @@
-#("lamb"
- "chicken"
+#(
+
+ "alligator meat"
+ "bacon"
"beef"
- "mutton"
- "venison"
- "pork"
- "ham"
+ "buffalo meat"
+ "chicken"
+ "cod"
"corned-beef hash"
"duck"
+ "flounder"
+ "goat meat"
+ "goose meat"
+ "ham"
+ "lamb"
+ "liver"
+ "mutton"
+ "pork"
+ "salmon"
+ "sausage"
+ "shark"
+ "shrimp"
+ "squirrel meat"
"turkey"
- "alligator meat")
+ "venison"
+
+ )
--- a/data/venues.lisp Sun Jan 08 15:20:57 2017 +0000
+++ b/data/venues.lisp Sun Jan 08 15:40:25 2017 +0000
@@ -272,7 +272,6 @@
"a Preschool"
"a Private School"
"a Pub"
- "a Public Art"
"a Racetrack"
"a Radio Station"
"a Record Shop"
--- a/src/entities/food.lisp Sun Jan 08 15:20:57 2017 +0000
+++ b/src/entities/food.lisp Sun Jan 08 15:40:25 2017 +0000
@@ -22,6 +22,8 @@
("box" "dehydrated ")
("bag" "dried ")
("bag" "dehydrated ")
+ ("sack" "dried ")
+ ("sack" "dehydrated ")
("carton" "dried ")
("carton" "dehydrated ")
("bottle" "slurried ")
@@ -38,7 +40,9 @@
"decent"
"delicious"
"depressing"
+ "disgusting"
"expensive"
+ "partially fermented"
"faintly of mice"
"gritty"
"horrifying"
--- a/src/flavor.lisp Sun Jan 08 15:20:57 2017 +0000
+++ b/src/flavor.lisp Sun Jan 08 15:40:25 2017 +0000
@@ -30,17 +30,25 @@
(random-elt #("It passes after a moment."
"It lingers for a while."))))
-(defun wind ()
- (format nil "A ~A ~A the ~A air against your skin."
- (random-elt #("light breeze"
- "gentle breeze"
- "stiff wind"
- "strong wind"))
- (random-elt #("moves" "pushes"))
- (random-elt #("hot" "warm" "sticky" "humid"))))
+(defun weather ()
+ (if (randomp)
+ (format nil "A ~A ~A the ~A air against your skin."
+ (random-elt #("light breeze"
+ "gentle breeze"
+ "stiff wind"
+ "strong wind"))
+ (random-elt #("moves" "pushes"))
+ (random-elt #("hot" "warm" "sticky" "humid")))
+ (random-elt #("It begins to drizzle."
+ "The wind picks up, pushing you around."
+ "A cool wind blows from the north."
+ "You hear thunder rumble in the distance."
+ "A dust storm gathers in the distance."
+ "The clouds part. The sun beats down on your back."
+ "For a moment the humidity drops. You savor the dry air."))))
(defun random-flavor ()
(let ((r (random 1.0)))
(cond ((< r 0.20) (animal))
- ((< r 0.80) (feeling))
- (t (wind)))))
+ ((< r 0.30) (feeling))
+ (t (weather)))))