3c9c1aee6d3c

More flavor
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 08 Jan 2017 15:40:25 +0000
parents 15a44ba697c4
children 900f5f65dc32
branches/tags (none)
files data/meat.lisp data/venues.lisp src/entities/food.lisp src/flavor.lisp

Changes

--- 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)))))