694cf6c40aac

Final flavor tweaks
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 08 Jan 2017 16:42:11 +0000
parents 900f5f65dc32
children 1a47adb89b93
branches/tags (none)
files data/fabrics.lisp src/entities/clothing.lisp src/entities/food.lisp src/entities/ruin.lisp src/flavor.lisp

Changes

diff -r 900f5f65dc32 -r 694cf6c40aac data/fabrics.lisp
--- 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")
diff -r 900f5f65dc32 -r 694cf6c40aac src/entities/clothing.lisp
--- 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*)))))
 
diff -r 900f5f65dc32 -r 694cf6c40aac src/entities/food.lisp
--- 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"
diff -r 900f5f65dc32 -r 694cf6c40aac src/entities/ruin.lisp
--- 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."
diff -r 900f5f65dc32 -r 694cf6c40aac src/flavor.lisp
--- 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)))))