diff --git a/resources/public/css/states.css b/resources/public/css/states.css index f3001ed..466c708 100644 --- a/resources/public/css/states.css +++ b/resources/public/css/states.css @@ -6,10 +6,22 @@ td.water { background-color: blue; } -td.pasture, td.grassland { +td.pasture, td.grassland, td.meadow { background-color: lime; } +td.crop { + background-color: yellow; +} + +td.camp, td.house, td.inn, td.market { + background-color: gray; +} + +td.ploughland { + background-color: brown; +} + td.heath { background-color: chartreuse; } @@ -29,3 +41,12 @@ td.climax { td.fire { background-color: orange; } + +td.error, td.plague { + background-color: red; +} + +td.snow, td.ice { + background-color: white; +} + diff --git a/resources/public/docs/mw-engine/uberdoc.html b/resources/public/docs/mw-engine/uberdoc.html index a2c9acf..8ccbf4e 100644 --- a/resources/public/docs/mw-engine/uberdoc.html +++ b/resources/public/docs/mw-engine/uberdoc.html @@ -3033,8 +3033,7 @@ net.brehaut.ClojureTools = (function (SH) {
(ns mw-engine.core
   (:require [mw-engine.world :as world]
-        mw-engine.natural-rules
-        mw-engine.utils))

Every rule is a function of two arguments, a cell and a world. If the rule + mw-engine.utils))

Every rule is a function of two arguments, a cell and a world. If the rule fires, it returns a new cell, which should have the same values for :x and :y as the old cell. Anything else can be modified.

diff --git a/resources/public/docs/mw-parser/uberdoc.html b/resources/public/docs/mw-parser/uberdoc.html index 90e8d17..97ed787 100644 --- a/resources/public/docs/mw-parser/uberdoc.html +++ b/resources/public/docs/mw-parser/uberdoc.html @@ -3053,7 +3053,7 @@ objective is to parse rules out of a block of text from a textarea

function, and return the sequence of such functions.

(defn compile-string
   [string]
-  (map #(compile-rule % true) (remove comment? (trim (split string #"\n")))))

Compile each non-comment line of the file indicated by this filename into + (map #(compile-rule % true) (remove comment? (split string #"\n"))))

Compile each non-comment line of the file indicated by this filename into an executable anonymous function, and return the sequence of such functions.

(defn compile-file 
   [filename]
@@ -3404,7 +3404,7 @@ front of the sequence of tokens it returns nil.

(use 'mw-engine.utils) (let [afn (eval (parse-rule rule-text))] (cond - (and afn return-tuple?)(list afn rule-text) + (and afn return-tuple?)(list afn (trim rule-text)) true afn)))) ([rule-text] (compile-rule rule-text false)))