119 lines
5.4 KiB
Common Lisp
119 lines
5.4 KiB
Common Lisp
;;;; Copyright © 2023, Jaidyn Ann <jadedctrl@posteo.at>
|
||
;;;;
|
||
;;;; This program is free software: you can redistribute it and/or
|
||
;;;; modify it under the terms of the GNU General Public License as
|
||
;;;; published by the Free Software Foundation, either version 3 of
|
||
;;;; the License, or (at your option) any later version.
|
||
;;;;
|
||
;;;; This program is distributed in the hope that it will be useful,
|
||
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;;; GNU General Public License for more details.
|
||
;;;;
|
||
;;;; You should have received a copy of the GNU General Public License
|
||
;;;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||
|
||
;;;; FLORA-SEARCH-AURORA.INVENTORY
|
||
;;;; The menu for inventory selection/management.
|
||
|
||
(in-package :flora-search-aurora.inventory)
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Misc. Utils
|
||
;;; ———————————————————————————————————
|
||
(defun subseq-head (length sequence)
|
||
"Get a subsequence of SEQUENCE containing its first LENGTH elements. If LENGTH
|
||
exceeds the size of SEQUENCE, the returned subsequence is equivalent to SEQUENCE."
|
||
(subseq sequence 0 (…:at-most (length sequence) length)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Menu-creation! How fun!
|
||
;;; ———————————————————————————————————
|
||
(defun items->menu-plist (item-plists &key (row-width 72))
|
||
"Convert a list of items’ plists (that one might get from OVERWORLD’s map
|
||
:ITEMS) into a pretty and presentable menu-grid of items, for use with
|
||
📋:MENU-STATE(-*)."
|
||
(format *error-output* "ITEMS ~S~%" item-plists)
|
||
(let* ((label-width 7)
|
||
(border-width 2)
|
||
;; Weird bounding, whoops! I’m so clumsy, it’s endearing instead of just annoying! … Right? =w=”
|
||
(column (- 0 label-width border-width))
|
||
(row 0))
|
||
(mapcar (lambda (item)
|
||
(incf column (+ label-width border-width))
|
||
(when (>= column row-width)
|
||
(incf row)
|
||
(setf column 0))
|
||
(append (list :en (subseq-head label-width (or (getf (cdr item) :inv-name-en)
|
||
(getf (cdr item) :name-en)
|
||
(getf (cdr item) :id)))
|
||
:eo (subseq-head label-width (or (getf (cdr item) :inv-name-eo)
|
||
(getf (cdr item) :name-eo)))
|
||
:selected (and (eq row 0) (eq column 0))
|
||
:selection (if (and (eq row 0) (eq column 0)) 100 0)
|
||
:return nil
|
||
:row row)
|
||
(cdr item)))
|
||
item-plists)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Inventory loop logic
|
||
;;; ———————————————————————————————————
|
||
(defun inventory-state-update (map inventory-menu)
|
||
"The input-taking/logic-handling component of the inventory state-function.
|
||
Part of INVENTORY-STATE."
|
||
(if (📋:menu-state-update inventory-menu)
|
||
(list :map map :inventory inventory-menu)
|
||
(values nil
|
||
(list :map map))))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Inventory loop drawing
|
||
;;; ———————————————————————————————————
|
||
(defun render-selected-item (matrix items)
|
||
"Draw the title, avatar, and description of the currently-selected item to
|
||
the bottom of the screen."
|
||
(let* ((item (menu:selected-menu-item items))
|
||
(name (list :en (or (getf item :name-en) (getf item :inv-name-en) (getf item :id))
|
||
:eo (or (getf item :name-eo) (getf item :inv-name-eo))))
|
||
(desc (list :en (getf item :desc-en)
|
||
:eo (getf item :desc-eo))))
|
||
(display:render-string-verbatim matrix (str:concat ":" (…:getf-lang name) ": "
|
||
(getf item :avatar))
|
||
'(:x 1 :y 17))
|
||
(display:render-string matrix (…:getf-lang desc)
|
||
'(:x 1 :y 18) :width 70)))
|
||
|
||
|
||
(defun inventory-state-draw (matrix items)
|
||
"The drawing component of the inventory state-function.
|
||
Part of INVENTORY-STATE."
|
||
(📋:menu-state-draw matrix items)
|
||
(render-selected-item matrix items))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Inventory loop
|
||
;;; ———————————————————————————————————
|
||
(defun inventory-state (matrix &key map inventory)
|
||
"A state-function for use with STATE-LOOP."
|
||
(sleep .02)
|
||
(inventory-state-draw matrix inventory)
|
||
(inventory-state-update map inventory))
|
||
|
||
|
||
(defun make-inventory-state (map)
|
||
"Return a state-function for inventory-listing, for use with STATE-LOOP."
|
||
(lambda (matrix &key (map map) (inventory (items->menu-plist (gethash :items map))))
|
||
(apply #'🎒:inventory-state
|
||
(list matrix :map map :inventory inventory))))
|
||
|