g/j1: fix menu labelling issue in jak1 (#3613)

Fixes #3393
This commit is contained in:
Tyler Wilding
2024-07-29 21:57:26 -04:00
committed by GitHub
parent e975eab15a
commit d29ab77892
+3 -3
View File
@@ -1279,7 +1279,7 @@
(set! (-> option bind-info input-idx) i)
(set! (-> option bind-info analog-min-range?) #t)
(set! (-> option option-type) (game-option-type binding-assignment))
(set! (-> option name-override) (-> *analog-bind-names* (* i 2)))
(set! (-> option name-override) (copy-string<-string (-> option name-override) (-> *analog-bind-names* (* i 2))))
(set! (-> option scale) #t)
(1+! (-> *temp-options* length)))
(let ((option (-> *temp-options* (length *temp-options*))))
@@ -1290,7 +1290,7 @@
(set! (-> option bind-info input-idx) i)
(set! (-> option bind-info analog-min-range?) #f)
(set! (-> option option-type) (game-option-type binding-assignment))
(set! (-> option name-override) (-> *analog-bind-names* (+ 1 (* i 2))))
(set! (-> option name-override) (copy-string<-string (-> option name-override) (-> *analog-bind-names* (+ 1 (* i 2)))))
(set! (-> option scale) #t)
(1+! (-> *temp-options* length)))))
;; Add Button bindings
@@ -1305,7 +1305,7 @@
(set! (-> option bind-info input-idx) i)
(set! (-> option bind-info analog-min-range?) #f)
(set! (-> option option-type) (game-option-type binding-assignment))
(set! (-> option name-override) (-> *button-bind-names* i))
(set! (-> option name-override) (copy-string<-string (-> option name-override) (-> *button-bind-names* i)))
(set! (-> option scale) #t)
(1+! (-> *temp-options* length))))
;; We add a restore defaults button at the bottom of each binding menu