Archive/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project.git synced 2024-10-20 11:26:18 -04:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

[jak2] fix speed for spool anim hack (#2401)

Browse source 
Recent subtraction compiler bug fix exposed this.
This commit is contained in:
ManDude 2023-03-23 20:01:13 +00:00 committed by GitHub
parent 56eeb20e4c
commit f56e807d75
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
goal_src/jak2/engine/load/loader.gc
View file

@ -793,23 +793,22 @@
(#cond
(STREAM_PLAY_HACK
(define *hack-pos-buffer-id* (new 'static 'array int 4)) ;; 4 channels?
(define *hack-pos-buffer-pos* (new 'static 'array int 4)) ;; 4 channels?
(define *hack-pos-buffer-pos* (new 'static 'array float 4)) ;; 4 channels?
(define *hack-pos-next-idx* 0) ;; new channel, if none is found.
(define *hack-pos-speed* 5)
(define *hack-pos-speed* 8.5)
(defun get-current-str-pos ((obj sound-id))
(dotimes (i 4)
(when (= (-> *hack-pos-buffer-id* i) obj)
(+! (-> *hack-pos-buffer-pos* i) *hack-pos-speed*)
(return (-> *hack-pos-buffer-pos* i))
(return (the int (+! (-> *hack-pos-buffer-pos* i) *hack-pos-speed*)))
)
)
(set! (-> *hack-pos-buffer-id* *hack-pos-next-idx*) (the-as int obj))
(set! (-> *hack-pos-buffer-pos* *hack-pos-next-idx*) 0)
(set! (-> *hack-pos-buffer-pos* *hack-pos-next-idx*) 0.0)
(+! *hack-pos-next-idx* 1)
(if (= *hack-pos-next-idx* 4)
(set! *hack-pos-next-idx* 0)
)
*hack-pos-speed*
(the int *hack-pos-speed*)
)
(defun get-str-id-is-playing? ((obj int))
#t
@ -824,7 +823,6 @@
(defbehavior ja-play-spooled-anim process-drawable ((arg0 spool-anim) (arg1 art-joint-anim) (arg2 art-joint-anim) (arg3 (function process-drawable symbol)))
(local-vars (v0-59 int) (sv-176 int))
(define *hack-pos* 12)
(let ((s2-0 arg2)
(s1-0 arg3)
(gp-0 (new 'stack 'spooler-block arg2 arg3))