                    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


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

  ([^zaffre.aterminal.ATerminal screen x y string fg bg styles]
     (put-string screen (int (rmath/ceil x)) (int (rmath/ceil y)) string fg bg #{} {}))
  ([^zaffre.aterminal.ATerminal screen x y string fg bg styles mask-opts]
   {:pre [(clojure.set/superset? #{:underline :bold} styles)
          (integer? x)
          (integer? y)
          (string? string)]}
   (let [fg   (rcolor/color->rgb fg)
         bg   (rcolor/color->rgb bg)
         {:keys [mask unmask] :or {mask #{} unmask #{}}} mask-opts
