Add status line support for attacks

NOTES.org

@@ -6,9 +6,11 @@ http://www.utf8-chartable.de/unicode-utf8-table.pl?utf8=0x
 ** DONE Get bearlibterminal autowrapped and basic window working.
 CLOSED: [2016-01-01 Fri 22:52]
 ** High Priority
-*** TODO Add status line section for current attack
 *** TODO Tweak health, regen, and damage values.
 *** TODO Fix mana being allowed to go negative.
+*** TODO Add instructions page (auto show after start, h key to show later)
+*** DONE Add status line section for current attack
+CLOSED: [2016-01-12 Tue 18:52]
 *** DONE Create enemy AI
 CLOSED: [2016-01-11 Mon 23:57]
 - [X] Detect whether player can be seen

src/crypts-and-corpses.lisp

@@ -599,18 +599,21 @@
    'enemy-map-value (game-map-terrain map)))
 
 (defun write-status-to-terminal (player prev-key map)
-  (declare (ignore prev-key))
   (multiple-value-bind (width height) (get-window-size)
     (declare (ignore width))
     (multiple-value-bind (x y) (calc-coord (get-location player) map)
-      (terminal-color (color-from-name "white"))
-      (terminal-print 0 (1- height) (format nil "Health: ~d Mana: ~d Location: (~d, ~d)"
-                                            (slot-value player 'health)
-                                            (slot-value player 'mana)
-                                            x y)))))
-
-(defun ally-p (mobile)
-  (typep mobile 'minion))
+      (let ((attack-string (cond
+                             ((= prev-key bearlibterminal-ffi:+tk-r+) "Choose ranged attack direction or press enter.")
+                             ((= prev-key bearlibterminal-ffi:+tk-m+) "Choose melee attack direction or press enter.")
+                             (:otherwise ""))))
+        (terminal-color (color-from-name "white"))
+        (terminal-print 0 (1- height) (format nil "Health: ~d Mana: ~d Location: (~d, ~d) ~A"
+                                              (slot-value player 'health)
+                                              (slot-value player 'mana)
+                                              x y attack-string)))))
+
+  (defun ally-p (mobile)
+    (typep mobile 'minion)))
 
 (defun bash (basher bashee)
   (decf (slot-value bashee 'health) (slot-value basher 'melee-attack-damage)))