--- a/project.clj Mon Dec 14 21:18:33 2015 +0000
+++ b/project.clj Mon Dec 14 21:44:48 2015 +0000
@@ -1,4 +1,4 @@
-(defproject silt "0.4.0"
+(defproject silt "0.5.0"
:description "You are the god of a toroidal world."
:url "http://bitbucket.org/sjl/silt"
:license {:name "MIT/X11"}
--- a/src/silt/core.clj Mon Dec 14 21:18:33 2015 +0000
+++ b/src/silt/core.clj Mon Dec 14 21:44:48 2015 +0000
@@ -221,37 +221,37 @@
(let [dest (normalize-world-coords [(inc x) y])]
(alter landmarks dissoc loc)
(alter landmarks assoc dest (assoc self :loc dest)))))}
+ {:name :sunstone :loc (random-coord)
+ :glyph "O" :styles {:fg :yellow :bg :white}
+ :description "A glowing stone embedded in a rock pulses gently."
+ :action
+ (fn [{[x y :as self-loc] :loc :as self}]
+ (when (= 10000 (rem @day 50000))
+ (when-let [{:keys [loc]} (rand-nth (vals @animals))]
+ (alter animals assoc-in [loc :directions]
+ [[[-1 -1] 1] [[0 -1] 1] [[1 -1] 30]
+ [[-1 0] 1] [[0 0] 0] [[1 0] 30]
+ [[-1 1] 1] [[0 1] 1] [[1 1] 30]])
+ (alter landmarks update-in [self-loc :styles] flip-colors))))}
{:name :amunet :loc (random-coord)
:glyph "ß" :styles {:fg :yellow :bg :white}
:description "A sandstone monument to Amunet."
:action
(fn [{[x y :as self-loc] :loc :as self}]
- (when (= 4000 (rem @day 5000))
- (let [{:keys [loc]} (rand-nth (vals @animals))]
+ (when (= 20000 (rem @day 50000))
+ (when-let [{:keys [loc]} (rand-nth (vals @animals))]
(alter animals assoc-in [loc :directions]
[[[-1 -1] 30] [[0 -1] 1] [[1 -1] 1]
[[-1 0] 30] [[0 0] 0] [[1 0] 1]
[[-1 1] 30] [[0 1] 1] [[1 1] 1]])
(alter landmarks update-in [self-loc :styles] flip-colors))))}
- {:name :sunstone :loc (random-coord)
- :glyph "O" :styles {:fg :yellow :bg :white}
- :description "A glowing stone embedded in a rock pulses gently."
- :action
- (fn [{[x y :as self-loc] :loc :as self}]
- (when (= 1000 (rem @day 5000))
- (let [{:keys [loc]} (rand-nth (vals @animals))]
- (alter animals assoc-in [loc :directions]
- [[[-1 -1] 1] [[0 -1] 1] [[1 -1] 30]
- [[-1 0] 1] [[0 0] 0] [[1 0] 30]
- [[-1 1] 1] [[0 1] 1] [[1 1] 30]])
- (alter landmarks update-in [self-loc :styles] flip-colors))))}
{:name :magnet :loc (random-coord)
:glyph "M" :styles {:fg :red :bg :white}
:description "A strange force tugs your blood to the north."
:action
(fn [{[x y :as self-loc] :loc :as self}]
- (when (= 2000 (rem @day 5000))
- (let [{:keys [loc]} (rand-nth (vals @animals))]
+ (when (= 30000 (rem @day 50000))
+ (when-let [{:keys [loc]} (rand-nth (vals @animals))]
(alter animals assoc-in [loc :directions]
[[[-1 -1] 30] [[0 -1] 30] [[1 -1] 30]
[[-1 0] 1] [[0 0] 0] [[1 0] 1]
@@ -262,8 +262,8 @@
:description "A single feather lies peacefully on the ground."
:action
(fn [{[x y :as self-loc] :loc :as self}]
- (when (= 3000 (rem @day 5000))
- (let [{:keys [loc]} (rand-nth (vals @animals))]
+ (when (= 40000 (rem @day 50000))
+ (when-let [{:keys [loc]} (rand-nth (vals @animals))]
(alter animals assoc-in [loc :directions]
[[[-1 -1] 1] [[0 -1] 1] [[1 -1] 1]
[[-1 0] 1] [[0 0] 0] [[1 0] 1]