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

Fix dialogue-printing for players’ lines

This commit is contained in:
Jaidyn Ann 2023-06-24 22:29:56 -05:00
parent b61739aa24
commit 4deace5af5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dialogue.lisp
View File

@ -262,7 +262,7 @@ direction specified relative to the focal point. Return nil if no such placement
is found, otherwise return a list of the coordinates, max-column, and max-row is found, otherwise return a list of the coordinates, max-column, and max-row
(for use with RENDER-STRING)." (for use with RENDER-STRING)."
(let* ((text-y-margin (if downp (let* ((text-y-margin (if downp
(+ (getf coords :y) 1) (+ (getf coords :y) 2)
(- (getf coords :y) 2))) (- (getf coords :y) 2)))
(text-height (if downp (text-height (if downp
(- height text-y-margin) (- height text-y-margin)
@ -296,7 +296,7 @@ and max-row; for use with RENDER-STRING. Like so:
((:x X :y Y) MAX-COLUMN MAX-ROW)" ((:x X :y Y) MAX-COLUMN MAX-ROW)"
(let* ((speaker-id (dialogue-speaker dialogue)) (let* ((speaker-id (dialogue-speaker dialogue))
(direction (🌍:getf-entity-data map speaker-id :direction)) (direction (🌍:getf-entity-data map speaker-id :direction))
(playerp (eq speaker-id 'player)) (playerp (eq speaker-id '🌍:player))
(leftp (not (eq direction '🌍:right))) (leftp (not (eq direction '🌍:right)))
(text (getf dialogue :text)) (text (getf dialogue :text))
(coords (🌍:world-coords->screen-coords (🌍:getf-entity-data map speaker-id :coords)))) (coords (🌍:world-coords->screen-coords (🌍:getf-entity-data map speaker-id :coords))))