                            (> thirst max-thirst) "not drinking enough water"
                            (<= will-to-live 0)   "just giving up on life"
                            :else                 "mysterious causes"))]
-    (render-list screen 16 4 53 6
+    (render-list screen 16 4 55 6
       (concat
         [{:s "" :fg :black :bg :white :style #{}}]
         (map

                            content))]
      characters))))

(defn put-string
  ([^robinson.aterminal.ATerminal screen x y string]
     (put-string screen x y string :white :black #{}))


(defn render-start-text [state]
  (let [screen     (state :screen)
        start-text (sg/start-text state)
        width      (reduce max (map markup->length (clojure.string/split-lines start-text)))]
    (render-list screen 16 4 width 6
      (concat
        [{:s "" :fg :black :bg :white :style #{}}]
        (map
          (fn [line] {:s line :fg :black :bg :white :style #{:center}})
          (remove empty? (clojure.string/split-lines start-text)))
        [{:s "" :fg :black :bg :white :style #{}}
         {:s "  Press <color fg=\"highlight\">any key</color> to continue and <color fg=\"highlight\">?</color> to view help." :fg :black :bg :white :style #{}}]))
    (render-rect-double-border screen 15 4 (inc width) 6 :black :white)))

(defn render-dead-text [state]
  (let [screen         (state :screen)
