--- a/src/robots/git-commands.lisp Fri Jan 20 00:04:30 2017 +0000
+++ b/src/robots/git-commands.lisp Fri Jan 20 11:48:56 2017 +0000
@@ -169,7 +169,7 @@
("-" :. letter [noun shellify string-upcase]))
(define-string long-option%
- !(let ((noun $[noun shellify]))
+ !(let ((noun (shellify noun)))
$("--" :. !noun :. "=<" :. !noun :. ">"))
("--" :. action-verb)
("--" :. extremum)
@@ -198,7 +198,7 @@
(define-string (description :arguments (command commanding))
(look-for location "for the" age noun "and" !command "it")
- ("read" (eval (+ 2 (random 2000))) "bytes from" location "and" !command "them")
+ ("read" !(random-range 200 9999) "bytes from" location "and" !command "them")
(!command "the" extremum noun "in" git-location)
(!command [noun a] temporal-adverb refreshing git-location)
(!command "and push all" adjective [noun s] "to" location)
--- a/src/robots/rpg-shopkeeper.lisp Fri Jan 20 00:04:30 2017 +0000
+++ b/src/robots/rpg-shopkeeper.lisp Fri Jan 20 11:48:56 2017 +0000
@@ -113,9 +113,8 @@
(define-rule (textile :distribution :weighted)
(1.00 !*cloth*)
- (1.00 !*leather*)
(0.80 !*silk*)
- (0.01 !*spider-silk*))
+ (0.05 !*spider-silk*))
(define-rule (wood :distribution (:zipf :exponent 0.8))
!*pine*