jadedctrl/ flora-search-aurora
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Eldonoj 1 Activity

Fix walking off-map

This commit is contained in:
Jaidyn Ann 2023-07-15 14:20:52 -05:00
parent a73dcad7ea
commit c7ad52e94f
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
overworld.lisp
View File

@ -299,16 +299,16 @@ Very kindly removes a list of parameters to be returned by the overworld state-f
;; Change the entity’s world coordinates…
(when (walkable-tile-p map x y)
(setf (getf (getf-entity-data map entity :coords) :x) x)
(setf (getf (getf-entity-data map entity :coords) :y) y))
;; If the entity’s moved into a different screen-chunk (and so into a different
;; sub-alist of MAP hash-table’s :entities), move its list into the new chunk’s.
(when (not (eq old-chunk new-chunk))
;; Add it to the new chunk list…
(setf (assoc-utils:aget (assoc-utils:aget (gethash :entities map) new-chunk) entity)
(cdr (getf-entity map entity)))
;; Delete it from the old list…
(alexandria:deletef (assoc-utils:aget (gethash :entities map) old-chunk) entity
:test (lambda (id alist) (eq id (car alist)))))))
(setf (getf (getf-entity-data map entity :coords) :y) y)
;; If the entity’s moved into a different screen-chunk (and so into a different
;; sub-alist of MAP hash-table’s :entities), move its list into the new chunk’s.
(when (not (eq old-chunk new-chunk))
;; Add it to the new chunk list…
(setf (assoc-utils:aget (assoc-utils:aget (gethash :entities map) new-chunk) entity)
(cdr (getf-entity map entity)))
;; Delete it from the old list…
(alexandria:deletef (assoc-utils:aget (gethash :entities map) old-chunk) entity
:test (lambda (id alist) (eq id (car alist))))))))