1 ;;; SHIP INFO ;;;
2 (defun display-crew (player-ship-obj)
3 (let ((crew-names
4 (loop for member in (crew-members (crew player-ship-obj))
5 collect (list (name member)))))
6 (format T "~%CREW DETAILS~%~%")
7 (format-table T (list (list (sanity-val (crew player-ship-obj)))) :column-label '("Sanity"))
8 (format T "~%")
9 (format-table T crew-names :column-label '("Name" "Buff" "Buff Amount"))))
10
11 (defun display-inventory (player-ship-obj)
12 (let* ((inventory (inventory player-ship-obj))
13 (inventory-list (loop for slot in (return-slots inventory)
14 collect (list
15 slot (slot-value inventory slot)))))
16 (format T "~%INVENTORY~%")
17 (format-table T inventory-list :column-label '("Resource" "Amount"))))
18
19
20 (defun ship-info (player-ship-obj)
21 (display-crew player-ship-obj)
22 (display-inventory player-ship-obj))
23 ;;; SHIP INFO END ;;;