                    place-npcs)))
     (render-hud state)
     (log/info "current-state" (current-state state))
+    (println "ui-hint" (get-in state [:world :ui-hint]))
     (if-not (nil? (get-in state [:world :ui-hint]))
       ;; ui-hint
       (put-chars screen (markup->chars 0 0 (get-in state [:world :ui-hint])))
       ;; draw log
-      (let [current-time     (rw/get-time state)
+      (let [current-time     (dec (rw/get-time state))
             log-idx          (get-in state [:world :log-idx] 0)
             num-logs         (count (filter #(= current-time (get % :time)) (get-in state [:world :log])))
             up-arrow-char    \u2191

                                                                  (if (get message :text)
                                                                    (str "<color fg=\"" (name (get message :color)) "\">" (get message :text) "</color>")
                                                                    "")))]
        (log/info "num-log-msgs" num-logs)
        (log/info "message" message)
        (put-chars screen characters)
        (render-traps state)))
    (case (current-state state)


(defn render-rect-border
  [screen x y width height fg bg characters]
  {:pre [(integer? x)
         (integer? y)]}
  (let [{:keys [horizontal
                vertical
                top-left
