simon/the-great-game
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Minor fixes

Browse source
This commit is contained in:
Simon Brooke 2020-04-16 12:24:40 +01:00
parent 66bf7ad856
commit efb4a9f46d
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/the_great_game/gossip/news_items.clj
View file

@ -65,7 +65,7 @@
{ ;; A significant attack is interesting whether or not it leads to deaths { ;; A significant attack is interesting whether or not it leads to deaths
:attack {:verb :attack :keys [:actor :other :location]} :attack {:verb :attack :keys [:actor :other :location]}
;; Deaths of characters may be interesting ;; Deaths of characters may be interesting
:die {:verb :attack :keys [:actor :location]} :die {:verb :die :keys [:actor :location]}
;; Deliberate killings are interesting. ;; Deliberate killings are interesting.
:kill {:verb :kill :keys [:actor :other :location] :kill {:verb :kill :keys [:actor :other :location]
:inferences [{:verb :die :actor :other :other :nil}]} :inferences [{:verb :die :actor :other :other :nil}]}
@ -127,7 +127,7 @@
(if-let [home (:home gossip)] (if-let [home (:home gossip)]
(let [d (distance-between location home) (let [d (distance-between location home)
i (/ 10000 d) ;; 10000 at metre scale is 10km; interest should i (/ 10000 d) ;; 10000 at metre scale is 10km; interest should
;;fall of with distance from home, but possibly on a log scale ;;fall off with distance from home, but possibly on a log scale
] ]
(if (> i 1) i 0)) (if (> i 1) i 0))
0) 0)
@ -185,8 +185,8 @@
(declare learn-news-item) (declare learn-news-item)
(defn make-all-inferences (defn make-all-inferences
"Return a list of knowledge entries inferred from this news `item` by this "Return a list of knowledge entries that can be inferred from this news
`gossip`." `item`."
[item] [item]
(set (set
(reduce (reduce
@ -239,10 +239,9 @@
(:time-stamp item) (:time-stamp item)
(game-time)) (game-time))
:location (degrade-location gossip (:location item)) :location (degrade-location gossip (:location item))
;; ought to degratde the location ;; TODO: ought to maybe-degrade characters we're not yet interested in
;; ought to maybe-degrade characters we're not yet interested in
) )
;; ought not to add knowledge items we already have, except ;; TODO: ought not to add knowledge items we already have, except
;; to replace if new item is of increased specificity ;; to replace if new item is of increased specificity
(:knowledge gossip)))] (:knowledge gossip)))]
(if follow-inferences? (if follow-inferences?