# HG changeset patch # User Steve Losh # Date 1483890025 0 # Node ID 3c9c1aee6d3cbcc5b01e94102c5356bec5d8746d # Parent 15a44ba697c4f391ecc66fe3d6f41aabedd6744a More flavor diff -r 15a44ba697c4 -r 3c9c1aee6d3c data/meat.lisp --- 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" + + ) diff -r 15a44ba697c4 -r 3c9c1aee6d3c data/venues.lisp --- 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" diff -r 15a44ba697c4 -r 3c9c1aee6d3c src/entities/food.lisp --- 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" diff -r 15a44ba697c4 -r 3c9c1aee6d3c src/flavor.lisp --- 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)))))