hg.stevelosh.com > antipodes

1a47adb89b93 

Final tweaks again
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 08 Jan 2017 16:47:41 +0000
parents 694cf6c40aac
children b1532457fd8f
branches/tags (none)
files src/entities/clothing.lisp

Changes

--- a/src/entities/clothing.lisp	Sun Jan 08 16:42:11 2017 +0000
+++ b/src/entities/clothing.lisp	Sun Jan 08 16:47:41 2017 +0000
@@ -14,6 +14,8 @@
     "sock"
     "bra"
     "scarf"
+    "hat"
+    "sweatshirt"
     "jacket"
     "vest"
     "blouse"
@@ -22,9 +24,12 @@
 
 (defparameter *plural-clothes*
   #("pants"
+    "slacks"
     "socks"
     "briefs"
+    "pajamas"
     "gloves"
+    "long johns"
     "tights"
     "shorts"
     "boxers"
@@ -35,7 +40,7 @@
 (defun random-clothing-description ()
   (destructuring-bind (article fabric)
       (random-elt *fabrics*)
-    (if (randomp)
+    (if (randomp 0.7)
       (format nil "~A ~A ~A"
               article
               fabric