mirror of
https://github.com/open-goal/jak-project
synced 2026-07-05 05:40:00 -04:00
ManDude
6884b0f73e
Adds sprite distort, fixes buggy sprite rendering in progress, adds scissoring support (used in various scrolling menus) and a very basic implementation of `blit-displays`. This is enough to make the fade effect in the progress menu work, along with all the menus working properly without needing to use the REPL. This does not make screen flipping and the filter when failing a mission work. Added support in the decompiler for detecting `dma-buffer-add-gs-set` and `dma-buffer-add-gs-set-flusha` and updated all of the Jak 2 code to use it. Readability improved! Fixes decompiler issue with `with-dma-buffer-add-bucket` not inlining forms which broke syntax. Fixes store error warnings showing up for non-existent stores, there is now a dedicated pass for this at the end. I started work on making `BITBLTBUF` stuff work in the DirectRenderer, but stopped for now because it wasn't strictly necessary. It will still assert like before.
1755 lines
68 KiB
Common Lisp
Vendored
Generated
1755 lines
68 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type scene-stage
|
|
(deftype scene-stage (process-hidden)
|
|
()
|
|
:method-count-assert 15
|
|
:size-assert #x80
|
|
:flag-assert #xf00000080
|
|
)
|
|
|
|
;; definition for method 3 of type scene-stage
|
|
(defmethod inspect scene-stage ((obj scene-stage))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-68)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tname: ~A~%" (-> obj name))
|
|
(format #t "~1Tmask: #x~X : (process-mask " (-> obj mask))
|
|
(let ((s5-0 (-> obj mask)))
|
|
(if (= (logand s5-0 (process-mask process-tree)) (process-mask process-tree))
|
|
(format #t "process-tree ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask target)) (process-mask target))
|
|
(format #t "target ")
|
|
)
|
|
(if (= (logand (process-mask collectable) s5-0) (process-mask collectable))
|
|
(format #t "attackable ")
|
|
)
|
|
(if (= (logand (process-mask bit18) s5-0) (process-mask bit18))
|
|
(format #t "collectable ")
|
|
)
|
|
(if (= (logand (process-mask projectile) s5-0) (process-mask projectile))
|
|
(format #t "projectile ")
|
|
)
|
|
(if (= (logand (process-mask no-track) s5-0) (process-mask no-track))
|
|
(format #t "no-track ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask sleep-code)) (process-mask sleep-code))
|
|
(format #t "sleep-code ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask actor-pause)) (process-mask actor-pause))
|
|
(format #t "actor-pause ")
|
|
)
|
|
(if (= (logand (process-mask bot) s5-0) (process-mask bot))
|
|
(format #t "bot ")
|
|
)
|
|
(if (= (logand (process-mask vehicle) s5-0) (process-mask vehicle))
|
|
(format #t "vehicle ")
|
|
)
|
|
(if (= (logand (process-mask enemy) s5-0) (process-mask enemy))
|
|
(format #t "enemy ")
|
|
)
|
|
(if (= (logand (process-mask entity) s5-0) (process-mask entity))
|
|
(format #t "entity ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask heap-shrunk)) (process-mask heap-shrunk))
|
|
(format #t "heap-shrunk ")
|
|
)
|
|
(if (= (logand (process-mask sidekick) s5-0) (process-mask sidekick))
|
|
(format #t "sidekick ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask going)) (process-mask going))
|
|
(format #t "going ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask execute)) (process-mask execute))
|
|
(format #t "execute ")
|
|
)
|
|
(if (= (logand (process-mask civilian) s5-0) (shl #x8000 16))
|
|
(format #t "civilian ")
|
|
)
|
|
(if (= (logand (process-mask death) s5-0) (process-mask death))
|
|
(format #t "death ")
|
|
)
|
|
(if (= (logand (process-mask guard) s5-0) (process-mask guard))
|
|
(format #t "guard ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask no-kill)) (process-mask no-kill))
|
|
(format #t "no-kill ")
|
|
)
|
|
(if (= (logand (process-mask platform) s5-0) (process-mask platform))
|
|
(format #t "platform ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask freeze)) (process-mask freeze))
|
|
(format #t "freeze ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask sleep)) (process-mask sleep))
|
|
(format #t "sleep ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask progress)) (process-mask progress))
|
|
(format #t "progress ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask menu)) (process-mask menu))
|
|
(format #t "menu ")
|
|
)
|
|
(if (= (logand (process-mask camera) s5-0) (process-mask camera))
|
|
(format #t "camera ")
|
|
)
|
|
(if (= (logand (process-mask ambient) s5-0) (process-mask ambient))
|
|
(format #t "ambient ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask dark-effect)) (process-mask dark-effect))
|
|
(format #t "dark-effect ")
|
|
)
|
|
(if (= (logand (process-mask crate) s5-0) (process-mask crate))
|
|
(format #t "crate ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask kernel-run)) (process-mask kernel-run))
|
|
(format #t "kernel-run ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask movie)) (process-mask movie))
|
|
(format #t "movie ")
|
|
)
|
|
(if (= (logand s5-0 (process-mask pause)) (process-mask pause))
|
|
(format #t "pause ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Tclock: ~A~%" (-> obj clock))
|
|
(format #t "~1Tparent: #x~X~%" (-> obj parent))
|
|
(format #t "~1Tbrother: #x~X~%" (-> obj brother))
|
|
(format #t "~1Tchild: #x~X~%" (-> obj child))
|
|
(format #t "~1Tppointer: #x~X~%" (-> obj ppointer))
|
|
(format #t "~1Tself: ~A~%" (-> obj self))
|
|
(format #t "~1Tpool: ~A~%" (-> obj pool))
|
|
(format #t "~1Tstatus: ~A~%" (-> obj status))
|
|
(format #t "~1Tpid: ~D~%" (-> obj pid))
|
|
(format #t "~1Tmain-thread: ~A~%" (-> obj main-thread))
|
|
(format #t "~1Ttop-thread: ~A~%" (-> obj top-thread))
|
|
(format #t "~1Tentity: ~A~%" (-> obj entity))
|
|
(format #t "~1Tlevel: ~A~%" (-> obj level))
|
|
(format #t "~1Tstate: ~A~%" (-> obj state))
|
|
(format #t "~1Tnext-state: ~A~%" (-> obj next-state))
|
|
(format #t "~1Ttrans-hook: ~A~%" (-> obj trans-hook))
|
|
(format #t "~1Tpost-hook: ~A~%" (-> obj post-hook))
|
|
(format #t "~1Tevent-hook: ~A~%" (-> obj event-hook))
|
|
(format #t "~1Tallocated-length: ~D~%" (-> obj allocated-length))
|
|
(format #t "~1Theap-base: #x~X~%" (-> obj heap-base))
|
|
(format #t "~1Theap-top: #x~X~%" (-> obj heap-top))
|
|
(format #t "~1Theap-cur: #x~X~%" (-> obj heap-cur))
|
|
(format #t "~1Tstack-frame-top: ~A~%" (-> obj stack-frame-top))
|
|
(format #t "~1Theap: #<kheap @ #x~X>~%" (&-> obj heap-base))
|
|
(format #t "~1Tconnection-list: ~`connectable`P~%" (-> obj connection-list))
|
|
(format #t "~1Tstack[0] @ #x~X~%" (-> obj stack))
|
|
(label cfg-68)
|
|
obj
|
|
)
|
|
|
|
;; definition for method 2 of type scene
|
|
(defmethod print scene ((obj scene))
|
|
(format #t "#<scene ~A ~A @ #x~X>" (-> obj art-group) (-> obj anim) obj)
|
|
obj
|
|
)
|
|
|
|
;; definition for method 15 of type scene
|
|
;; WARN: Return type mismatch spool-anim vs none.
|
|
(defmethod scene-method-15 scene ((obj scene) (arg0 spool-anim))
|
|
(set! (-> arg0 name) (-> obj anim))
|
|
(set! (-> arg0 anim-name) (-> obj anim))
|
|
(set! (-> arg0 parts) (-> obj parts))
|
|
(set! (-> arg0 command-list) (-> obj command-list))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function scene-decode-continue
|
|
;; WARN: Return type mismatch basic vs continue-point.
|
|
(defun scene-decode-continue ((arg0 basic))
|
|
(the-as continue-point (cond
|
|
((not arg0)
|
|
(the-as basic #f)
|
|
)
|
|
((= (-> arg0 type) continue-point)
|
|
arg0
|
|
)
|
|
((= (-> arg0 type) string)
|
|
(get-continue-by-name *game-info* (the-as string arg0))
|
|
)
|
|
(else
|
|
(the-as basic #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 9 of type scene-actor
|
|
;; INFO: Used lq/sq
|
|
(defmethod scene-actor-method-9 scene-actor ((obj scene-actor) (arg0 scene-player))
|
|
(local-vars (s4-0 (pointer process)) (sv-96 process) (sv-112 process))
|
|
(let ((s1-0 (if (-> obj level)
|
|
(level-get *level* (-> obj level))
|
|
(-> *level* default-level)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((not s1-0)
|
|
(-> *level* default-level)
|
|
(set! s4-0 (the-as (pointer process) #f))
|
|
(goto cfg-211)
|
|
)
|
|
((= (-> s1-0 status) 'reserved)
|
|
)
|
|
((!= (-> s1-0 status) 'active)
|
|
(set! s4-0 (the-as (pointer process) #f))
|
|
(goto cfg-211)
|
|
)
|
|
)
|
|
(let* ((s4-1 (art-group-get-by-name *level* (-> obj art-group) (the-as (pointer uint32) #f)))
|
|
(s2-0 (if (type? s4-1 skeleton-group)
|
|
(the-as skeleton-group s4-1)
|
|
)
|
|
)
|
|
(s0-0 (-> arg0 level))
|
|
(s3-0
|
|
(or (string= (-> obj name) "jak-highres")
|
|
(string= (-> obj name) "jak-highres-prison")
|
|
(string= (-> obj name) "darkjak-highres")
|
|
)
|
|
)
|
|
)
|
|
(set! (-> arg0 level) #f)
|
|
(set! s4-0
|
|
(when s2-0
|
|
(let ((s1-1 (if (and (nonzero? (-> s1-0 entity)) (> (-> s1-0 entity length) 0))
|
|
(-> s1-0 entity data 0 entity)
|
|
(-> arg0 entity)
|
|
)
|
|
)
|
|
)
|
|
(set! sv-96 (get-process *default-dead-pool* manipy #x4000))
|
|
(set! s4-0 (when sv-96
|
|
(let ((t9-7 (method-of-type manipy activate)))
|
|
(t9-7 (the-as manipy sv-96) arg0 (-> obj name) (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
sv-96
|
|
manipy-init
|
|
(-> arg0 root trans)
|
|
s1-1
|
|
s2-0
|
|
#f
|
|
(if (and s3-0 (logtest? (game-secrets big-head little-head) (-> *game-info* secrets)))
|
|
1
|
|
0
|
|
)
|
|
)
|
|
(-> sv-96 ppointer)
|
|
)
|
|
)
|
|
(set! (-> arg0 level) s0-0)
|
|
(send-event (ppointer->process s4-0) 'anim-mode 'clone-anim)
|
|
(send-event (ppointer->process s4-0) 'blend-shape #t)
|
|
(send-event (ppointer->process s4-0) 'prefix (-> obj prefix))
|
|
(cond
|
|
((zero? (-> obj light-index))
|
|
(if (zero? (-> s2-0 light-index))
|
|
(send-event (ppointer->process s4-0) 'light-index 80)
|
|
)
|
|
)
|
|
(else
|
|
(send-event (ppointer->process s4-0) 'light-index (* (-> obj light-index) 8))
|
|
)
|
|
)
|
|
(if (nonzero? (-> obj shadow-mask))
|
|
(send-event (ppointer->process s4-0) 'shadow-mask (* (-> obj shadow-mask) 8))
|
|
)
|
|
(if (nonzero? (-> obj shadow-values))
|
|
(send-event (ppointer->process s4-0) 'shadow-values (* (-> obj shadow-values) 8))
|
|
)
|
|
(if (and s4-0 (not (logtest? (-> obj flags) 1)) (nonzero? (-> (the-as process-drawable (-> s4-0 0)) draw)))
|
|
(logior! (-> (the-as process-drawable (-> s4-0 0)) draw status) (draw-control-status no-draw-bounds))
|
|
)
|
|
(if (-> obj shadow-volume-joint)
|
|
(send-event (ppointer->process s4-0) 'shadow-volume (-> obj shadow-volume-joint) (-> obj shadow-flags))
|
|
)
|
|
(if (or (nonzero? (-> obj draw-seg)) (nonzero? (-> obj no-draw-seg)))
|
|
(send-event (ppointer->process s4-0) 'segment (* (-> obj draw-seg) 8) (* (-> obj no-draw-seg) 8))
|
|
)
|
|
(when s3-0
|
|
(if (not (-> *setting-control* user-current beard))
|
|
(send-event (ppointer->process s4-0) 'segment 0 16)
|
|
)
|
|
(when (and s4-0 (nonzero? (-> (the-as scene-player (-> s4-0 0)) old-target-pos scale x)))
|
|
(cond
|
|
((logtest? (game-secrets little-head) (-> *game-info* secrets))
|
|
(mode-set! (-> (the-as manipy (-> s4-0 0)) joint 0) (joint-mod-mode joint-set*))
|
|
(trs-set!
|
|
(-> (the-as manipy (-> s4-0 0)) joint 0)
|
|
(the-as vector #f)
|
|
(the-as quaternion #f)
|
|
(new 'static 'vector :x 0.4 :y 0.4 :z 0.4 :w 1.0)
|
|
)
|
|
)
|
|
((logtest? (game-secrets big-head) (-> *game-info* secrets))
|
|
(mode-set! (-> (the-as manipy (-> s4-0 0)) joint 0) (joint-mod-mode joint-set*))
|
|
(trs-set!
|
|
(-> (the-as manipy (-> s4-0 0)) joint 0)
|
|
(the-as vector #f)
|
|
(the-as quaternion #f)
|
|
(new 'static 'vector :x 2.0 :y 2.0 :z 2.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (and s4-0 (logtest? (-> obj flags) 2))
|
|
(set! sv-112 (get-process *default-dead-pool* manipy #x4000))
|
|
(let ((s0-1 (when sv-112
|
|
(let ((t9-24 (method-of-type manipy activate)))
|
|
(t9-24 (the-as manipy sv-112) (ppointer->process s4-0) (-> obj name) (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process sv-112 manipy-init (-> arg0 root trans) s1-1 s2-0 #f 0)
|
|
(-> sv-112 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(send-event (ppointer->process s0-1) 'mirror #t)
|
|
(send-event (ppointer->process s0-1) 'anim-mode 'mirror)
|
|
(if (nonzero? (-> obj light-index))
|
|
(send-event (ppointer->process s0-1) 'light-index (* (-> obj light-index) 8))
|
|
)
|
|
(if (nonzero? (-> obj shadow-mask))
|
|
(send-event (ppointer->process s0-1) 'shadow-mask (* (-> obj shadow-mask) 8))
|
|
)
|
|
(if (nonzero? (-> obj shadow-values))
|
|
(send-event (ppointer->process s0-1) 'shadow-values (* (-> obj shadow-values) 8))
|
|
)
|
|
(if (and s0-1 (not (logtest? (-> obj flags) 1)) (nonzero? (-> (the-as process-drawable (-> s0-1 0)) draw)))
|
|
(logior! (-> (the-as process-drawable (-> s0-1 0)) draw status) (draw-control-status no-draw-bounds))
|
|
)
|
|
(if (-> obj shadow-volume-joint)
|
|
(send-event (ppointer->process s0-1) 'shadow-volume (-> obj shadow-volume-joint) (-> obj shadow-flags))
|
|
)
|
|
(if (or (nonzero? (-> obj draw-seg)) (nonzero? (-> obj no-draw-seg)))
|
|
(send-event (ppointer->process s0-1) 'segment (* (-> obj draw-seg) 8) (* (-> obj no-draw-seg) 8))
|
|
)
|
|
(when s3-0
|
|
(if (not (-> *setting-control* user-current beard))
|
|
(send-event (ppointer->process s0-1) 'segment 0 16)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (nonzero? (-> obj camera))
|
|
(cond
|
|
((handle->process (-> arg0 camera))
|
|
(change-parent (handle->process (-> arg0 camera)) (ppointer->process s4-0))
|
|
(send-event (handle->process (-> arg0 camera)) 'target (ppointer->process s4-0))
|
|
(send-event (handle->process (-> arg0 camera)) 'joint (* (-> obj camera) 8))
|
|
)
|
|
(else
|
|
(set! (-> arg0 camera) (ppointer->handle (process-spawn
|
|
othercam
|
|
(ppointer->process s4-0)
|
|
(-> obj camera)
|
|
#t
|
|
'scene-player
|
|
:to (ppointer->process s4-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
s4-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-211)
|
|
s4-0
|
|
)
|
|
|
|
;; definition for method 10 of type scene-player
|
|
(defmethod deactivate scene-player ((obj scene-player))
|
|
(set! *scene-player* (the-as (pointer scene-player) #f))
|
|
(kill-persister *setting-control* (the-as engine-pers 'blackout) 'bg-a-force)
|
|
((method-of-type process-drawable deactivate) obj)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 7 of type scene-player
|
|
;; WARN: Return type mismatch process-drawable vs scene-player.
|
|
(defmethod relocate scene-player ((obj scene-player) (arg0 int))
|
|
(let ((v1-0 *kernel-context*))
|
|
(set! (-> v1-0 relocating-process) obj)
|
|
(set! (-> v1-0 relocating-min) (the-as int (&-> obj type)))
|
|
(set! (-> v1-0 relocating-max)
|
|
(the-as int (+ (+ (-> obj allocated-length) -4 (-> process size)) (the-as int obj)))
|
|
)
|
|
(set! (-> v1-0 relocating-offset) arg0)
|
|
)
|
|
(let ((v1-2 (-> obj scene-list)))
|
|
(if (and (>= (the-as int v1-2) (-> *kernel-context* relocating-min))
|
|
(< (the-as int v1-2) (-> *kernel-context* relocating-max))
|
|
)
|
|
(&+! (-> obj scene-list) arg0)
|
|
)
|
|
)
|
|
(the-as scene-player ((method-of-type process-drawable relocate) obj arg0))
|
|
)
|
|
|
|
;; definition for method 25 of type scene-player
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod scene-player-method-25 scene-player ((obj scene-player) (arg0 float))
|
|
(local-vars (v1-11 symbol) (v1-40 symbol) (s0-0 object) (s0-1 object))
|
|
(dotimes (s4-0 (-> obj scene actor length))
|
|
(let ((s3-0 (-> obj scene actor s4-0)))
|
|
(let* ((s2-0 (-> s3-0 draw-frames))
|
|
(s1-0 (car s2-0))
|
|
)
|
|
(while (not (null? s2-0))
|
|
(when (and (pair? s1-0)
|
|
(let ((a0-4 (car s1-0)))
|
|
(set! s0-0 (car (cdr s1-0)))
|
|
(or (= a0-4 'min) (>= arg0 (command-get-float a0-4 0.0)))
|
|
)
|
|
(or (= s0-0 'max) (< arg0 (command-get-float (car (cdr s1-0)) 0.0)))
|
|
)
|
|
(set! v1-11 #t)
|
|
(goto cfg-20)
|
|
)
|
|
(set! s2-0 (cdr s2-0))
|
|
(set! s1-0 (car s2-0))
|
|
)
|
|
)
|
|
(set! v1-11 #f)
|
|
(label cfg-20)
|
|
(cond
|
|
(v1-11
|
|
(if (not (handle->process (-> s3-0 process)))
|
|
(set! (-> s3-0 process) (ppointer->handle (scene-actor-method-9 s3-0 obj)))
|
|
)
|
|
(let ((s2-1 (handle->process (-> s3-0 process))))
|
|
(when (and s2-1 (nonzero? (-> (the-as process-drawable s2-1) draw)))
|
|
(let* ((s3-1 (-> s3-0 scissor-frames))
|
|
(s1-1 (car s3-1))
|
|
)
|
|
(while (not (null? s3-1))
|
|
(when (and (pair? s1-1)
|
|
(let ((a0-20 (car s1-1)))
|
|
(set! s0-1 (car (cdr s1-1)))
|
|
(or (= a0-20 'min) (>= arg0 (command-get-float a0-20 0.0)))
|
|
)
|
|
(or (= s0-1 'max) (< arg0 (command-get-float (car (cdr s1-1)) 0.0)))
|
|
)
|
|
(set! v1-40 #t)
|
|
(goto cfg-59)
|
|
)
|
|
(set! s3-1 (cdr s3-1))
|
|
(set! s1-1 (car s3-1))
|
|
)
|
|
)
|
|
(set! v1-40 #f)
|
|
(label cfg-59)
|
|
(if v1-40
|
|
(logclear! (-> (the-as process-drawable s2-1) draw status) (draw-control-status force-vu1))
|
|
(logior! (-> (the-as process-drawable s2-1) draw status) (draw-control-status force-vu1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((handle->process (-> s3-0 process))
|
|
(deactivate (handle->process (-> s3-0 process)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function scene-lookup
|
|
;; WARN: Return type mismatch basic vs scene.
|
|
(defun scene-lookup ((arg0 basic))
|
|
"TODO - basic can be a string or a scene"
|
|
(the-as
|
|
scene
|
|
(case (-> arg0 type)
|
|
((string)
|
|
(let ((s5-0 (art-group-get-by-name *level* (the-as string arg0) (the-as (pointer uint32) #f))))
|
|
(when (type? s5-0 scene)
|
|
(let ((gp-0 (get-level-by-heap-ptr-and-status *level* (the-as pointer s5-0) 'active)))
|
|
(when (and s5-0 gp-0)
|
|
(let ((v1-5 (scene-decode-continue (-> s5-0 data 17))))
|
|
(when v1-5
|
|
(dotimes (a0-6 6)
|
|
(if (= (-> gp-0 name) (-> v1-5 want a0-6 name))
|
|
(goto cfg-15)
|
|
)
|
|
)
|
|
(format
|
|
0
|
|
"WARNING: can not find scene level ~A in continue ~A, dropping scene until after load~%"
|
|
(-> gp-0 name)
|
|
(-> v1-5 name)
|
|
)
|
|
(return (the-as scene #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-15)
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
((scene)
|
|
arg0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 24 of type scene-player
|
|
;; WARN: Return type mismatch basic vs scene.
|
|
(defmethod scene-player-method-24 scene-player ((obj scene-player) (arg0 basic) (arg1 symbol))
|
|
"TODO - arg1 can be string/scene"
|
|
(when (= (-> arg0 type) string)
|
|
(let ((v1-2 (scene-lookup arg0)))
|
|
(if v1-2
|
|
(set! arg0 v1-2)
|
|
)
|
|
)
|
|
)
|
|
(when (or (not arg0) (!= (-> arg0 type) scene))
|
|
(format 0 "ERROR: SCENE: scene-player can not find scene ~A~%" arg0)
|
|
(go process-drawable-art-error "scene-list format")
|
|
)
|
|
(when arg1
|
|
(let ((s4-1 (get-level-by-heap-ptr-and-status *level* (the-as pointer arg0) 'active)))
|
|
(scene-method-15 (the-as scene arg0) (-> obj anim))
|
|
(set! (-> obj level) s4-1)
|
|
)
|
|
(set! (-> obj scene) (the-as scene arg0))
|
|
)
|
|
(the-as scene arg0)
|
|
)
|
|
|
|
;; definition for method 23 of type scene-player
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod scene-player-method-23 scene-player ((obj scene-player) (arg0 string) (arg1 symbol))
|
|
(let ((gp-0 (scene-player-method-24 obj arg0 #t)))
|
|
(when (-> gp-0 peaceful)
|
|
(let ((s3-0 *traffic-manager*))
|
|
(send-event s3-0 'decrease-alert-level 0)
|
|
(send-event s3-0 'restore-default-settings)
|
|
)
|
|
)
|
|
(send-event *target* 'draw (-> gp-0 draw-target))
|
|
(let ((s3-1 (entity-by-name (-> gp-0 entity))))
|
|
(when (and (-> gp-0 entity) (not s3-1))
|
|
(format 0 "ERROR: SCENE: scene ~A can not find entity ~A~%" (-> gp-0 name) (-> gp-0 entity))
|
|
(go process-drawable-art-error (-> gp-0 entity))
|
|
)
|
|
(set! (-> obj main-entity) (the-as entity-actor s3-1))
|
|
(cond
|
|
(s3-1
|
|
(process-drawable-from-entity! obj (-> obj main-entity))
|
|
(logclear! (-> obj mask) (process-mask actor-pause))
|
|
)
|
|
(else
|
|
(vector-reset! (-> obj root trans))
|
|
(quaternion-identity! (-> obj root quat))
|
|
)
|
|
)
|
|
)
|
|
(let ((s3-2 (load-to-heap-by-name (-> *level* default-level art-group) (-> gp-0 art-group) #f global 0)))
|
|
(when (not s3-2)
|
|
(format 0 "ERROR: SCENE: scene ~A can not find art-group ~A~%" (-> gp-0 name) (-> gp-0 art-group))
|
|
(go process-drawable-art-error (-> gp-0 art-group))
|
|
)
|
|
(set! (-> obj draw art-group) s3-2)
|
|
(countdown (v1-33 (-> s3-2 length))
|
|
(when (-> s3-2 data v1-33)
|
|
(cond
|
|
((= (-> s3-2 data v1-33 type) merc-ctrl)
|
|
(set! (-> obj draw mgeo) (the-as merc-ctrl (-> s3-2 data v1-33)))
|
|
)
|
|
((= (-> s3-2 data v1-33 type) art-joint-geo)
|
|
(set! (-> obj draw jgeo) (the-as art-joint-geo (-> s3-2 data v1-33)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((< (+ (-> obj scene-index) 1) (-> obj scene-list length))
|
|
(let ((a0-34 (scene-player-method-24 obj (-> obj scene-list (+ (-> obj scene-index) 1)) #f)))
|
|
(cond
|
|
(a0-34
|
|
(scene-method-15 a0-34 (-> obj next-anim))
|
|
)
|
|
(else
|
|
(set! (-> obj next-anim anim-name) (the-as basic 0))
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> obj next-anim anim-name) (the-as basic 0))
|
|
0
|
|
)
|
|
)
|
|
(dotimes (s3-3 (-> gp-0 actor length))
|
|
(let ((s2-0 (-> gp-0 actor s3-3)))
|
|
(set! (-> s2-0 process) (the-as handle #f))
|
|
(let ((s1-0 (if (-> s2-0 level)
|
|
(level-get *level* (-> s2-0 level))
|
|
(-> *level* default-level)
|
|
)
|
|
)
|
|
(v1-55 (when level
|
|
(let ((s0-0 (art-group-get-by-name *level* (-> s2-0 art-group) (the-as (pointer uint32) #f))))
|
|
(if (type? s0-0 skeleton-group)
|
|
s0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((or (not s1-0) (not (or (= (-> s1-0 status) 'active) (= (-> s1-0 status) 'reserved))))
|
|
(format
|
|
0
|
|
"ERROR: SCENE: scene actor ~A can not find an active level ~A~%"
|
|
(-> s2-0 art-group)
|
|
(-> s2-0 level)
|
|
)
|
|
)
|
|
((not v1-55)
|
|
(format
|
|
0
|
|
"ERROR: SCENE: scene actor ~A can not find skeleton-group ~A~%"
|
|
(-> s2-0 art-group)
|
|
(-> s2-0 art-group)
|
|
)
|
|
)
|
|
(else
|
|
(load-to-heap-by-name (-> s1-0 art-group) (the-as string (-> v1-55 data 0)) #f global 0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(process-entity-status! obj (entity-perm-status no-kill) #t)
|
|
(when arg1
|
|
(set-setting! 'region-mode #f 0 0)
|
|
(set-setting! 'process-mask 'set 0 (-> gp-0 mask-to-clear))
|
|
(set-setting! 'sound-bank-load #f 0 0)
|
|
(set-setting! 'movie (process->ppointer obj) 0 0)
|
|
(set-setting! 'movie-name (-> gp-0 name) 0 0)
|
|
(set-setting!
|
|
'music-volume
|
|
'rel
|
|
(if (>= (-> gp-0 music-volume) 0.0)
|
|
(-> gp-0 music-volume)
|
|
(-> *setting-control* user-current music-volume-movie)
|
|
)
|
|
0
|
|
)
|
|
(set-setting!
|
|
'sfx-volume
|
|
'rel
|
|
(if (>= (-> gp-0 sfx-volume) 0.0)
|
|
(-> gp-0 sfx-volume)
|
|
(-> *setting-control* user-current sfx-movie-volume)
|
|
)
|
|
0
|
|
)
|
|
(set-setting!
|
|
'ambient-volume
|
|
'rel
|
|
(if (>= (-> gp-0 ambient-volume) 0.0)
|
|
(-> gp-0 ambient-volume)
|
|
(-> *setting-control* user-current ambient-volume-move)
|
|
)
|
|
0
|
|
)
|
|
(if (nonzero? (the int (-> gp-0 music-delay)))
|
|
(set-setting! 'sound-mode #f 0 2)
|
|
)
|
|
(set-setting! 'gem #f 0 0)
|
|
(apply-settings *setting-control*)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition of type subtitle-work
|
|
(deftype subtitle-work (structure)
|
|
((draw-tmpl dma-gif-packet :inline :offset-assert 0)
|
|
(color0 vector4w :inline :offset-assert 32)
|
|
(color1 vector4w :inline :offset-assert 48)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x40
|
|
:flag-assert #x900000040
|
|
)
|
|
|
|
;; definition for method 3 of type subtitle-work
|
|
(defmethod inspect subtitle-work ((obj subtitle-work))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj 'subtitle-work)
|
|
(format #t "~1Tdraw-tmpl: #<dma-gif-packet @ #x~X>~%" (-> obj draw-tmpl))
|
|
(format #t "~1Tcolor0: #<vector4w @ #x~X>~%" (-> obj color0))
|
|
(format #t "~1Tcolor1: #<vector4w @ #x~X>~%" (-> obj color1))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition for symbol *subtitle-work*, type subtitle-work
|
|
(define *subtitle-work*
|
|
(new 'static 'subtitle-work
|
|
:draw-tmpl (new 'static 'dma-gif-packet
|
|
:dma-vif (new 'static 'dma-packet
|
|
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
|
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
|
|
)
|
|
:gif0 (new 'static 'gif-tag64
|
|
:nloop #x1
|
|
:eop #x1
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type sprite) :tme #x1 :abe #x1 :fst #x1)
|
|
:nreg #x5
|
|
)
|
|
:gif1 (new 'static 'gif-tag-regs
|
|
:regs0 (gif-reg-id rgbaq)
|
|
:regs1 (gif-reg-id uv)
|
|
:regs2 (gif-reg-id xyz2)
|
|
:regs3 (gif-reg-id uv)
|
|
:regs4 (gif-reg-id xyz2)
|
|
)
|
|
)
|
|
:color0 (new 'static 'vector4w :w #x80)
|
|
:color1 (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80)
|
|
)
|
|
)
|
|
|
|
;; definition for function draw-subtitle-image
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch pointer vs none.
|
|
;; ERROR: Failed store: (s.w! (+ a0-7 8) 0) at op 45
|
|
(defun draw-subtitle-image ((arg0 subtitle-image) (arg1 font-context))
|
|
(local-vars (sv-16 pointer) (sv-32 int))
|
|
(let ((gp-0 (-> arg0 width))
|
|
(s5-0 (-> arg0 height))
|
|
)
|
|
(let ((s4-0 (-> *display* frames (-> *display* on-screen) global-buf)))
|
|
(set! sv-16 (-> s4-0 base))
|
|
(unpack-comp-rle (the-as (pointer int8) sv-16) (the-as (pointer int8) (-> arg0 data)))
|
|
(&+! (-> s4-0 base) (logand -16 (+ (shr (* gp-0 s5-0) 1) 15)))
|
|
)
|
|
(with-dma-buffer-add-bucket ((s3-0 (-> *display* frames (-> *display* on-screen) global-buf))
|
|
(bucket-id subtitle)
|
|
)
|
|
(upload-vram-data s3-0 0 (-> arg0 palette) 2 8)
|
|
(let ((s0-0 20))
|
|
(dma-buffer-add-gs-set s3-0
|
|
(bitbltbuf (new 'static 'gs-bitbltbuf :dbp #x1 :dbw (shr gp-0 6) :dpsm s0-0))
|
|
(trxpos (new 'static 'gs-trxpos))
|
|
(trxreg (new 'static 'gs-trxreg :rrw gp-0 :rrh s5-0))
|
|
(trxdir (new 'static 'gs-trxdir))
|
|
)
|
|
(let ((t9-2 dma-buffer-add-ref-texture)
|
|
(a0-13 s3-0)
|
|
(a2-8 gp-0)
|
|
(a3-1 s5-0)
|
|
(t0-1 s0-0)
|
|
)
|
|
(t9-2 a0-13 sv-16 (the-as int a2-8) (the-as int a3-1) (the-as gs-psm t0-1))
|
|
)
|
|
(set! sv-32 (+ (log2 (the-as int (+ gp-0 -1))) 1))
|
|
(let ((v1-17 (+ (log2 (the-as int (+ s5-0 -1))) 1)))
|
|
(dma-buffer-add-gs-set s3-0
|
|
(test-1 (new 'static 'gs-test :ate #x1 :afail #x3 :zte #x1 :ztst (gs-ztest always)))
|
|
(alpha-1 (new 'static 'gs-alpha :b #x1 :d #x1))
|
|
(tex0-1 (new 'static 'gs-tex0 :tbp0 #x1 :tcc #x1 :cld #x1 :psm s0-0 :th v1-17 :tw sv-32 :tbw (shr gp-0 6)))
|
|
(tex1-1 (new 'static 'gs-tex1))
|
|
(clamp-1 (new 'static 'gs-clamp :wms (gs-tex-wrap-mode clamp) :wmt (gs-tex-wrap-mode clamp)))
|
|
(texflush 0)
|
|
)
|
|
)
|
|
)
|
|
(let* ((v1-28 (-> s3-0 base))
|
|
(a2-23
|
|
(+ (- 1793 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (* 0.5 (-> arg1 width)))))
|
|
)
|
|
(a3-8 (+ (the int (-> arg1 origin y)) 1841))
|
|
(a0-23 (+ a2-23 (-> arg0 width)))
|
|
(a1-33 (+ a3-8 (-> arg0 height)))
|
|
)
|
|
(set! (-> (the-as (pointer uint128) v1-28) 0) (-> *subtitle-work* draw-tmpl dma-vif quad))
|
|
(set! (-> (the-as (pointer uint128) v1-28) 1) (-> *subtitle-work* draw-tmpl quad 1))
|
|
(set! (-> (the-as (pointer uint128) v1-28) 2) (-> *subtitle-work* color0 quad))
|
|
(set-vector! (the-as vector4w (&+ v1-28 48)) 0 0 0 0)
|
|
(set-vector! (the-as vector4w (&+ v1-28 64)) (the-as int (* a2-23 16)) (* a3-8 16) 0 0)
|
|
(set-vector! (the-as vector4w (&+ v1-28 80)) (the-as int (* gp-0 16)) (the-as int (* s5-0 16)) 0 0)
|
|
(set-vector! (the-as vector4w (&+ v1-28 96)) (the-as int (* a0-23 16)) (* a1-33 16) 0 0)
|
|
)
|
|
(&+! (-> s3-0 base) 112)
|
|
(let* ((v1-32 (-> s3-0 base))
|
|
(a1-38
|
|
(+ (- 1792 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (* 0.5 (-> arg1 width)))))
|
|
)
|
|
(a3-11 (+ (the int (-> arg1 origin y)) 1840))
|
|
(a0-30 (+ a1-38 (-> arg0 width)))
|
|
(a2-28 (+ a3-11 (-> arg0 height)))
|
|
)
|
|
(set! (-> (the-as (pointer uint128) v1-32) 0) (-> *subtitle-work* draw-tmpl dma-vif quad))
|
|
(set! (-> (the-as (pointer uint128) v1-32) 1) (-> *subtitle-work* draw-tmpl quad 1))
|
|
(set! (-> (the-as (pointer uint128) v1-32) 2) (-> *subtitle-work* color1 quad))
|
|
(set-vector! (the-as vector4w (&+ v1-32 48)) 0 0 0 0)
|
|
(set-vector! (the-as vector4w (&+ v1-32 64)) (the-as int (* a1-38 16)) (* a3-11 16) 0 0)
|
|
(set-vector! (the-as vector4w (&+ v1-32 80)) (the-as int (* gp-0 16)) (the-as int (* s5-0 16)) 0 0)
|
|
(set-vector! (the-as vector4w (&+ v1-32 96)) (the-as int (* a0-30 16)) (* a2-28 16) 0 0)
|
|
)
|
|
(&+! (-> s3-0 base) 112)
|
|
(set-dirty-mask! (-> *level* default-level) 8 (the-as int (* gp-0 s5-0)) 256)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function process-drawable-draw-subtitles
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior process-drawable-draw-subtitles process-drawable ()
|
|
(when (and (nonzero? (-> self skel))
|
|
(> (-> self skel active-channels) 0)
|
|
(-> *setting-control* user-current subtitle)
|
|
)
|
|
(let ((v1-9 (-> self skel root-channel 0 frame-group)))
|
|
(when v1-9
|
|
(let ((gp-0 (res-lump-struct (-> v1-9 extra) 'subtitle-range (array subtitle-range))))
|
|
(when gp-0
|
|
(let ((f30-0 (ja-aframe-num 0))
|
|
(s5-0 (the-as int (-> *setting-control* user-current subtitle-language)))
|
|
)
|
|
(if (and (= (the-as language-enum s5-0) (language-enum english)) (= (scf-get-territory) 1))
|
|
(set! s5-0 7)
|
|
)
|
|
(dotimes (s4-0 (-> gp-0 length))
|
|
(let ((v1-16 (-> gp-0 s4-0)))
|
|
(when (and (>= f30-0 (-> v1-16 start-frame)) (< f30-0 (-> v1-16 end-frame)))
|
|
(let ((s3-0 (-> v1-16 message s5-0)))
|
|
(when (and s3-0 (nonzero? s3-0))
|
|
(let ((s2-0
|
|
(new 'stack 'font-context *font-default-matrix* 20 290 0.0 (font-color default) (font-flags shadow kerning))
|
|
)
|
|
)
|
|
(let ((v1-20 s2-0))
|
|
(set! (-> v1-20 width) (the float 465))
|
|
)
|
|
(let ((v1-21 s2-0))
|
|
(set! (-> v1-21 height) (the float 70))
|
|
)
|
|
(let ((v1-22 s2-0))
|
|
(set! (-> v1-22 scale) 0.5)
|
|
)
|
|
(set! (-> s2-0 flags) (font-flags shadow kerning middle large))
|
|
(case (-> s3-0 type)
|
|
((string)
|
|
(when (= (-> *setting-control* user-default subtitle-language) (language-enum korean))
|
|
(set! s3-0 (convert-korean-text (the-as string s3-0)))
|
|
(let ((v1-27 s2-0))
|
|
(set! (-> v1-27 scale) 0.6)
|
|
)
|
|
)
|
|
(set! (-> s2-0 flags) (font-flags kerning middle left large))
|
|
(set! (-> s2-0 origin x) (+ -1.0 (-> s2-0 origin x)))
|
|
(set! (-> s2-0 origin y) (+ -1.0 (-> s2-0 origin y)))
|
|
(set! (-> s2-0 color) (font-color #000000))
|
|
(set! (-> s2-0 origin x) (+ 1.0 (-> s2-0 origin x)))
|
|
(set! (-> s2-0 origin y) (+ 1.0 (-> s2-0 origin y)))
|
|
(set! (-> s2-0 color) (font-color default))
|
|
(set! (-> s2-0 flags) (font-flags shadow kerning middle left large))
|
|
(print-game-text (the-as string s3-0) s2-0 #f 44 (bucket-id subtitle))
|
|
(gui-control-method-12
|
|
*gui-control*
|
|
self
|
|
(gui-channel subtitle)
|
|
(gui-action play)
|
|
"scene"
|
|
0
|
|
81920.0
|
|
(new 'static 'sound-id)
|
|
)
|
|
)
|
|
((subtitle-image)
|
|
(draw-subtitle-image (the-as subtitle-image s3-0) s2-0)
|
|
)
|
|
(else
|
|
(if *debug-segment*
|
|
(format *stdcon* "unknown message ~A~%" s3-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate wait (scene-player)
|
|
:virtual #t
|
|
:enter (behavior ((arg0 symbol))
|
|
(set! (-> self state-time) (-> self clock frame-counter))
|
|
(when (or (-> self scene) (-> self preload-continue))
|
|
(let ((gp-0 (scene-decode-continue (the-as basic (if (-> self scene)
|
|
(-> self scene load-point-obj)
|
|
(-> self preload-continue)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when gp-0
|
|
(when (-> self scene)
|
|
(set-setting! 'borrow (-> self scene borrow) 0 0)
|
|
(apply-settings *setting-control*)
|
|
)
|
|
(cond
|
|
((and *target*
|
|
(zero? (-> self scene-index))
|
|
(or (not (-> self scene)) (!= (level-status *level* (-> gp-0 vis-nick)) 'active))
|
|
)
|
|
(send-event *target* 'continue gp-0)
|
|
)
|
|
(else
|
|
(let ((a0-9 (lookup-level-info (-> gp-0 vis-nick))))
|
|
(set! (-> *load-state* vis-nick) (if a0-9
|
|
(-> a0-9 name)
|
|
)
|
|
)
|
|
)
|
|
(dotimes (v1-23 6)
|
|
(set! (-> *load-state* want v1-23 name) (-> gp-0 want v1-23 name))
|
|
(set! (-> *load-state* want v1-23 display?) (-> gp-0 want v1-23 display?))
|
|
(set! (-> *load-state* want v1-23 force-vis?) #f)
|
|
(set! (-> *load-state* want v1-23 force-inside?) #f)
|
|
)
|
|
(update-task-masks 'event)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(if (and (-> self scene) (nonzero? (-> self anim anim-name)) (not (load-in-progress? *level*)))
|
|
(gui-control-method-12
|
|
*gui-control*
|
|
self
|
|
(gui-channel art-load)
|
|
(gui-action queue)
|
|
(-> self anim name)
|
|
0
|
|
-1.0
|
|
(new 'static 'sound-id)
|
|
)
|
|
)
|
|
(set! (-> *ACTOR-bank* birth-max) 1000)
|
|
(none)
|
|
)
|
|
:code (behavior ((arg0 symbol))
|
|
(local-vars (v1-18 symbol) (v1-118 symbol))
|
|
(when (and (-> self scene) (zero? (-> self scene wait-max-time)))
|
|
(while *progress-process*
|
|
(suspend)
|
|
)
|
|
(set-setting! 'allow-progress #f 0 0)
|
|
(set-setting! 'bg-a-force 'abs #x3f800000 0)
|
|
(apply-settings *setting-control*)
|
|
)
|
|
(if (or (not *target*) (or (focus-test? *target* grabbed)
|
|
(begin
|
|
(dotimes (v1-17 6)
|
|
(when (= (-> *load-state* want v1-17 name) (-> *target* current-level name))
|
|
(set! v1-18 #f)
|
|
(goto cfg-19)
|
|
)
|
|
)
|
|
#t
|
|
(set! v1-18 #t)
|
|
(label cfg-19)
|
|
(or v1-18 (not (-> self scene)))
|
|
)
|
|
)
|
|
)
|
|
(set! arg0 #f)
|
|
)
|
|
(while (and arg0
|
|
(or (focus-test? *target* in-air)
|
|
(and (-> *target* next-state) (= (-> *target* next-state name) 'target-flop-hit-ground))
|
|
)
|
|
(-> self scene)
|
|
(< (- (-> self clock frame-counter) (-> self state-time)) (-> self scene wait-air-time))
|
|
)
|
|
(suspend)
|
|
)
|
|
(suspend)
|
|
(let ((s5-0 (-> self clock frame-counter)))
|
|
(when (and *target* (not (logtest? (-> *target* focus-status) (focus-status grabbed))))
|
|
(label cfg-44)
|
|
(when (not (process-grab? *target* #f))
|
|
(suspend)
|
|
(goto cfg-44)
|
|
)
|
|
)
|
|
(process-entity-status! self (entity-perm-status no-kill) #t)
|
|
(until (not (or (-> *setting-control* user-current talking)
|
|
(-> *setting-control* user-current spooling)
|
|
(-> *setting-control* user-current hint)
|
|
(-> *setting-control* user-current ambient)
|
|
)
|
|
)
|
|
(set-setting! 'allow-progress #f 0 0)
|
|
(apply-settings *setting-control*)
|
|
(dotimes (s4-0 2)
|
|
(while (or (-> *setting-control* user-current talking)
|
|
(-> *setting-control* user-current spooling)
|
|
(-> *setting-control* user-current hint)
|
|
(-> *setting-control* user-current ambient)
|
|
(or (and (-> *setting-control* user-current movie)
|
|
(!= (-> *setting-control* user-current movie) (process->ppointer self))
|
|
)
|
|
*progress-process*
|
|
(!= (get-status *gui-control* (the-as sound-id (-> self gui-id))) 3)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(when arg0
|
|
(while (and (-> self scene)
|
|
(not (or (>= (- (-> self clock frame-counter) s5-0) (-> self scene wait-ground-time))
|
|
(>= (- (-> self clock frame-counter) (-> self state-time)) (-> self scene wait-max-time))
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(remove-setting! 'movie)
|
|
(remove-setting! 'sound-bank-load)
|
|
(remove-setting! 'movie-name)
|
|
(remove-setting! 'bg-a-force)
|
|
(apply-settings *setting-control*)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(suspend)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(suspend)
|
|
)
|
|
)
|
|
(send-event *target* 'trans 'save (-> self old-target-pos))
|
|
(let ((gp-1 *load-state*))
|
|
(when gp-1
|
|
(dotimes (s5-1 2)
|
|
(while (begin
|
|
(dotimes (s4-1 6)
|
|
(when (not (or (not (-> gp-1 want s4-1 name))
|
|
(not (-> gp-1 want s4-1 display?))
|
|
(= (level-status *level* (-> gp-1 want s4-1 name)) 'active)
|
|
)
|
|
)
|
|
(set! v1-118 #t)
|
|
(goto cfg-109)
|
|
)
|
|
)
|
|
(set! v1-118 #f)
|
|
(label cfg-109)
|
|
v1-118
|
|
)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(suspend)
|
|
)
|
|
(when (and (zero? s5-1) (< (-> self scene-index) (-> self scene-list length)))
|
|
(scene-player-method-24 self (-> self scene-list (-> self scene-index)) #t)
|
|
(when (-> self scene)
|
|
(set-setting! 'borrow (-> self scene borrow) 0 0)
|
|
(apply-settings *setting-control*)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (and *target* (focus-test? *target* in-head flut board pilot mech dark))
|
|
(send-event *target* 'change-mode 'normal)
|
|
)
|
|
(when (< (-> self scene-index) (-> self scene-list length))
|
|
(scene-player-method-24 self (-> self scene-list (-> self scene-index)) #t)
|
|
(while (and (-> self scene)
|
|
(nonzero? (-> self anim anim-name))
|
|
(let ((v1-161 (file-status *art-control* (-> self anim name) 0)))
|
|
(or (not (or (= v1-161 'active) (= v1-161 'locked)))
|
|
(let* ((a1-26 (lookup-gui-connection-id
|
|
*gui-control*
|
|
(the-as string (-> self anim anim-name))
|
|
(gui-channel none)
|
|
(gui-action none)
|
|
)
|
|
)
|
|
(v1-167 (get-status *gui-control* (the-as sound-id a1-26)))
|
|
)
|
|
(not (or (= v1-167 (gui-status ready)) (= v1-167 (gui-status active))))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(suspend)
|
|
)
|
|
)
|
|
(go-virtual play-anim)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate release (scene-player)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(when (= (-> *game-info* demo-state) 100)
|
|
(logclear! (-> self mask) (process-mask pause progress))
|
|
(set-blackout-frames (seconds 0.05))
|
|
(set-setting! 'music-volume 'abs 0 0)
|
|
(set-setting! 'sfx-volume 'abs 0 0)
|
|
(set-setting! 'ambient-volume 'abs 0 0)
|
|
(set-setting! 'allow-pause #f 0 0)
|
|
(set-setting! 'allow-progress #f 0 0)
|
|
(setup
|
|
*screen-filter*
|
|
(new 'static 'vector)
|
|
(new 'static 'vector :w 128.0)
|
|
(* 30.0 (-> self clock seconds-per-frame))
|
|
(bucket-id screen-filter)
|
|
)
|
|
(let ((gp-0 (-> self clock frame-counter)))
|
|
(until (>= (- (-> self clock frame-counter) gp-0) (seconds 0.05))
|
|
(suspend)
|
|
)
|
|
)
|
|
(set! (-> *setting-control* user-current bg-a) 0.0)
|
|
(remove-setting! 'movie)
|
|
(remove-setting! 'movie-name)
|
|
(while (or (-> *setting-control* user-current movie)
|
|
(not *target*)
|
|
(!= (-> *setting-control* user-current bg-a) 0.0)
|
|
)
|
|
(suspend)
|
|
)
|
|
(set! (-> *game-info* blackout-time) 0)
|
|
(set! (-> *game-info* demo-state) (the-as uint 1))
|
|
(set! (-> *setting-control* user-current bg-a-force) 0.0)
|
|
(set-setting! 'allow-progress #t 0 0)
|
|
(remove-setting! 'process-mask)
|
|
(apply-settings *setting-control*)
|
|
(send-event *target* 'draw #t)
|
|
(send-event *target* 'trans 'reset)
|
|
(send-event *target* 'change-mode 'normal)
|
|
(activate-progress *dproc* 'select-scene-special)
|
|
(dotimes (gp-1 5)
|
|
(suspend)
|
|
)
|
|
(disable *screen-filter*)
|
|
(deactivate self)
|
|
)
|
|
(when (< (-> self scene-index) (+ (-> self scene-list length) -1))
|
|
(set! (-> self scene-index) (+ (-> self scene-list length) -1))
|
|
(scene-player-method-24 self (-> self scene-list (-> self scene-index)) #t)
|
|
)
|
|
(let ((gp-2 (or (not (-> self scene)) (-> self scene blackout-end))))
|
|
(if gp-2
|
|
(set-blackout-frames (seconds 0.1))
|
|
)
|
|
(send-event *target* 'draw #t)
|
|
(send-event *target* 'trans 'reset)
|
|
(suspend)
|
|
(while (not (process-release? *target*))
|
|
(suspend)
|
|
(if gp-2
|
|
(set-blackout-frames (seconds 0.1))
|
|
)
|
|
)
|
|
(if gp-2
|
|
(set-blackout-frames (seconds 0.1))
|
|
)
|
|
)
|
|
(if (nonzero? (the int (-> self scene music-delay)))
|
|
(persist-with-delay
|
|
*setting-control*
|
|
'music-delay
|
|
(the-as time-frame (the int (-> self scene music-delay)))
|
|
'sound-mode
|
|
#f
|
|
0.0
|
|
2
|
|
)
|
|
)
|
|
(cond
|
|
((and *target* (-> self scene) (-> self scene end-point-obj))
|
|
(let ((gp-3 (scene-decode-continue (the-as basic (-> self scene end-point-obj)))))
|
|
(when gp-3
|
|
(set-continue! *game-info* gp-3 #f)
|
|
(send-event *target* 'continue gp-3)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(send-event *target* 'trans 'restore (-> self old-target-pos))
|
|
)
|
|
)
|
|
(if (and (-> self scene) (-> self scene save))
|
|
(auto-save-user)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate play-anim (scene-player)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
|
(case event-type
|
|
(('abort)
|
|
(set! (-> self aborted?) #t)
|
|
(set-blackout-frames (seconds 0.2))
|
|
(let ((a0-3 (-> self anim)))
|
|
(when (and a0-3 (= (-> *setting-control* user-current spooling) (process->ppointer self)))
|
|
(ja-abort-spooled-anim a0-3 (the-as art-joint-anim #f) -1)
|
|
(ja-channel-set! 0)
|
|
)
|
|
)
|
|
(go-virtual release)
|
|
)
|
|
)
|
|
)
|
|
:exit (behavior ()
|
|
(while (-> self child)
|
|
(deactivate (-> self child 0))
|
|
)
|
|
(kill-current-talker (the-as symbol '()) '(daxter voicebox message) 'exit)
|
|
(set! (-> *setting-control* user-current bg-a) 0.0)
|
|
(kill-persister *setting-control* (the-as engine-pers 'bg-a) 'bg-a)
|
|
(kill-persister *setting-control* (the-as engine-pers 'bg-a-speed) 'bg-a-speed)
|
|
(remove-setting! 'borrow)
|
|
(remove-setting! 'gem)
|
|
(apply-settings *setting-control*)
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(cond
|
|
((not (-> *setting-control* user-current spooling))
|
|
(if (and (-> self scene) (nonzero? (-> self anim anim-name)))
|
|
(gui-control-method-12
|
|
*gui-control*
|
|
self
|
|
(gui-channel art-load)
|
|
(gui-action queue)
|
|
(-> self anim name)
|
|
0
|
|
-1.0
|
|
(new 'static 'sound-id)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(if (and (-> self scene) (nonzero? (-> self next-anim anim-name)))
|
|
(gui-control-method-12
|
|
*gui-control*
|
|
self
|
|
(gui-channel art-load)
|
|
(gui-action queue)
|
|
(-> self next-anim name)
|
|
0
|
|
-1.0
|
|
(new 'static 'sound-id)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(local-vars (a0-24 symbol))
|
|
(if (and (= (-> *game-info* demo-state) 100) (-> self scene) (nonzero? (-> self scene scene-task)))
|
|
(task-node-open! (the-as game-task-node (-> self scene scene-task)))
|
|
)
|
|
(dotimes (gp-0 2)
|
|
(let ((v1-11 (-> *art-control* buffer gp-0)))
|
|
(if (= (-> v1-11 status) 'active)
|
|
(link-art! (-> v1-11 art-group))
|
|
)
|
|
)
|
|
)
|
|
(while (and (< (-> self scene-index) (-> self scene-list length)) (not (-> self aborted?)))
|
|
(scene-player-method-23 self (the-as string (-> self scene-list (-> self scene-index))) #t)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(suspend)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(suspend)
|
|
(scene-player-method-25 self 0.0)
|
|
(set! (-> self cur-speed) 0.0)
|
|
(set! (-> self scene-start-time) (-> self clock frame-counter))
|
|
(ja-play-spooled-anim
|
|
(-> self anim)
|
|
(the-as art-joint-anim #f)
|
|
(the-as art-joint-anim #f)
|
|
(the-as
|
|
(function process-drawable symbol)
|
|
(if (-> self scene abort)
|
|
(lambda :behavior scene-player () (when (cpad-pressed? 0 triangle)
|
|
(set! (-> self aborted?) #t)
|
|
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons triangle))
|
|
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
|
|
#t
|
|
)
|
|
)
|
|
false-func
|
|
)
|
|
)
|
|
)
|
|
(while (-> self child)
|
|
(deactivate (-> self child 0))
|
|
)
|
|
(+! (-> self scene-index) 1)
|
|
(when (and (< (-> self scene-index) (-> self scene-list length)) (not (-> self aborted?)))
|
|
(let ((v1-41 (scene-player-method-24 self (-> self scene-list (-> self scene-index)) #t)))
|
|
(when v1-41
|
|
(let ((a0-21 (scene-decode-continue (the-as basic (-> v1-41 load-point-obj)))))
|
|
(set! a0-24 (when (and a0-21 (logtest? (-> a0-21 flags) (continue-flags cf1)))
|
|
(go-virtual wait a0-24)
|
|
a0-24
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (and (-> self wait) *target* (focus-test? *target* grabbed))
|
|
(go-virtual release)
|
|
)
|
|
(none)
|
|
)
|
|
:post (behavior ()
|
|
(when (-> self scene)
|
|
(let ((gp-0 (-> self scene cut-list))
|
|
(s5-0 (-> self skel root-channel 0 frame-group))
|
|
)
|
|
(when (not (or (null? gp-0) (not s5-0) (zero? s5-0)))
|
|
(let ((v1-8 (the int (ja-frame-num 0)))
|
|
(a0-2 (car gp-0))
|
|
)
|
|
(while (not (null? gp-0))
|
|
(let ((f0-5 (/ (- (the float (/ (the-as int a0-2) 8)) (-> s5-0 artist-base)) (-> s5-0 artist-step))))
|
|
(when (= v1-8 (if (= f0-5 (the float (the int f0-5)))
|
|
(+ (the int f0-5) -1)
|
|
(the int f0-5)
|
|
)
|
|
)
|
|
(set! (-> self skel root-channel 0 frame-num) (the float (the int (-> self skel root-channel 0 frame-num))))
|
|
(set! (-> self pre-cut-frame) (the-as basic #t))
|
|
)
|
|
)
|
|
(set! gp-0 (cdr gp-0))
|
|
(set! a0-2 (car gp-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (-> self pre-cut-frame)
|
|
(set! (-> self pre-cut-frame) #f)
|
|
)
|
|
)
|
|
(when (and (-> self scene) (nonzero? (-> self skel active-channels)))
|
|
(if (and (< (ja-aframe-num 0) 2.0) (logtest? (-> self skel status) (joint-control-status valid-spooled-frame)))
|
|
(set-blackout-frames 0)
|
|
)
|
|
(scene-player-method-25 self (ja-aframe-num 0))
|
|
(set! (-> self dma-max)
|
|
(the-as uint (max
|
|
(the-as int (-> self dma-max))
|
|
(* (dma-buffer-length (-> *display* frames (-> *display* last-screen) global-buf)) 16)
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-4 *display-scene-control*))
|
|
(when (nonzero? gp-4)
|
|
(if (logtest? gp-4 (scene-controls bounds-spheres))
|
|
(debug-print-channels (-> self skel) (the-as symbol *stdcon*))
|
|
)
|
|
(if (logtest? gp-4 (scene-controls actors))
|
|
(format *stdcon* "anim ~-30S " (-> self scene anim))
|
|
)
|
|
(if (logtest? gp-4 (scene-controls actor-marks))
|
|
(format
|
|
*stdcon*
|
|
"dma ~DK / ~DK"
|
|
(shr (* (dma-buffer-length (-> *display* frames (-> *display* last-screen) global-buf)) 16) 10)
|
|
(shr (-> self dma-max) 10)
|
|
)
|
|
)
|
|
(if (logtest? gp-4 (scene-controls actors actor-marks))
|
|
(format *stdcon* "~%")
|
|
)
|
|
(when (logtest? gp-4 (scene-controls special-fma-spheres))
|
|
(dotimes (s5-3 (-> self scene actor length))
|
|
(let* ((s4-1 (handle->process (-> self scene actor s5-3 process)))
|
|
(v1-63 (if (type? s4-1 process-drawable)
|
|
(the-as process-drawable s4-1)
|
|
)
|
|
)
|
|
)
|
|
(if (and v1-63 (nonzero? (-> v1-63 draw)))
|
|
(add-debug-sphere
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
(-> v1-63 draw origin)
|
|
(-> v1-63 draw bounds w)
|
|
(new 'static 'rgba :b #xff :a #x80)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? gp-4 (scene-controls scene-controls-7))
|
|
(dotimes (s5-4 (-> self scene actor length))
|
|
(let* ((s4-2 (handle->process (-> self scene actor s5-4 process)))
|
|
(v1-79 (if (type? s4-2 process-drawable)
|
|
(the-as process-drawable s4-2)
|
|
)
|
|
)
|
|
)
|
|
(if (and v1-79 (nonzero? (-> v1-79 draw)))
|
|
(format
|
|
*stdcon*
|
|
"~0K ~-30S ~S d:~4,,0m r:~4,,0m~1K~%"
|
|
(-> self scene actor s5-4 art-group)
|
|
(if (logtest? (-> v1-79 draw status) (draw-control-status on-screen))
|
|
"os"
|
|
" "
|
|
)
|
|
(-> v1-79 draw distance)
|
|
(-> v1-79 draw bounds w)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? gp-4 (scene-controls scene-controls-8))
|
|
(dotimes (gp-5 (-> self scene actor length))
|
|
(let* ((s5-5 (handle->process (-> self scene actor gp-5 process)))
|
|
(v1-94 (if (type? s5-5 process-drawable)
|
|
(the-as process-drawable s5-5)
|
|
)
|
|
)
|
|
)
|
|
(if (and v1-94 (nonzero? (-> v1-94 draw)))
|
|
(add-debug-text-3d
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
(-> v1-94 name)
|
|
(-> v1-94 draw origin)
|
|
(font-color yellow-#f3f300)
|
|
(new 'static 'vector2h :data (new 'static 'array int16 2 0 8))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (cpad-pressed? 0 square)
|
|
(set! (-> *setting-control* user-default subtitle) (not (-> *setting-control* user-default subtitle)))
|
|
(set! (-> self subtitle-change-time) (-> self clock frame-counter))
|
|
)
|
|
(when (and (< (- (-> self clock frame-counter) (-> self subtitle-change-time)) (seconds 2))
|
|
(< (mod (- (-> self clock frame-counter) (-> self subtitle-change-time)) 300) 210)
|
|
)
|
|
(let ((gp-6
|
|
(new 'stack 'font-context *font-default-matrix* 36 60 0.0 (font-color default) (font-flags shadow kerning))
|
|
)
|
|
)
|
|
(let ((v1-121 gp-6))
|
|
(set! (-> v1-121 width) (the float 440))
|
|
)
|
|
(let ((v1-122 gp-6))
|
|
(set! (-> v1-122 height) (the float 48))
|
|
)
|
|
(let ((v1-123 gp-6))
|
|
(set! (-> v1-123 scale) 0.5)
|
|
)
|
|
(set! (-> gp-6 flags) (font-flags shadow kerning middle large))
|
|
(print-game-text
|
|
(lookup-text!
|
|
*common-text*
|
|
(if (-> *setting-control* user-default subtitle)
|
|
(text-id scene-subtitles-enabled)
|
|
(text-id scene-subtitles-disabled)
|
|
)
|
|
#f
|
|
)
|
|
gp-6
|
|
#f
|
|
44
|
|
(bucket-id subtitle)
|
|
)
|
|
)
|
|
)
|
|
(process-drawable-draw-subtitles)
|
|
(when (and (= *cheat-mode* 'debug) (-> self scene))
|
|
(let ((gp-7
|
|
(lookup-gui-connection *gui-control* self (gui-channel art-load) (-> self scene name) (new 'static 'sound-id))
|
|
)
|
|
)
|
|
(when (!= *external-cam-mode* 'pad-0)
|
|
(cond
|
|
((cpad-hold? 0 r1)
|
|
(if (cpad-pressed? 0 circle)
|
|
(set! (-> self speed-press-time) (-> self clock frame-counter))
|
|
)
|
|
(seek!
|
|
(-> self speed-change-speed)
|
|
8.0
|
|
(* (lerp-scale 0.01 0.3 (the float (- (-> self clock frame-counter) (-> self speed-press-time))) 0.0 300.0)
|
|
(-> self clock time-adjust-ratio)
|
|
)
|
|
)
|
|
)
|
|
((cpad-hold? 0 l1)
|
|
(if (cpad-pressed? 0 square)
|
|
(set! (-> self speed-press-time) (-> self clock frame-counter))
|
|
)
|
|
(seek!
|
|
(-> self speed-change-speed)
|
|
-8.0
|
|
(* (lerp-scale 0.01 0.3 (the float (- (-> self clock frame-counter) (-> self speed-press-time))) 0.0 300.0)
|
|
(-> self clock time-adjust-ratio)
|
|
)
|
|
)
|
|
)
|
|
((cpad-hold? 0 x)
|
|
(when (cpad-pressed? 0 x)
|
|
(set! (-> self speed-press-time) (-> self clock frame-counter))
|
|
(cond
|
|
((= (-> self cur-speed) 0.0)
|
|
(set! (-> self speed-change-speed) -1000.0)
|
|
)
|
|
(else
|
|
(set! (-> self targ-speed) 0.0)
|
|
(set! (-> self speed-change-speed) 0.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self speed-change-speed) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((= (-> self cur-speed) -1000.0)
|
|
(format *stdcon* "scene paused~%")
|
|
(when (!= (-> self targ-speed) -1000.0)
|
|
(sound-continue (-> gp-7 id))
|
|
(when *sound-player-enable*
|
|
(let ((v1-186 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
|
|
(set! (-> v1-186 command) (sound-command set-param))
|
|
(set! (-> v1-186 id) (-> gp-7 id))
|
|
(set! (-> v1-186 params pitch-mod) 0)
|
|
(set! (-> v1-186 params mask) (the-as uint 2))
|
|
(-> v1-186 id)
|
|
)
|
|
)
|
|
(set! (-> self targ-speed) 0.0)
|
|
(set! (-> self cur-speed) 0.0)
|
|
(set! (-> self speed-change-time) (-> self clock frame-counter))
|
|
)
|
|
)
|
|
((= (-> self speed-change-speed) -1000.0)
|
|
(when (!= (-> self cur-speed) -1000.0)
|
|
(set! (-> self speed-change-time) (-> self clock frame-counter))
|
|
(set! (-> self targ-speed) -1000.0)
|
|
(set! (-> self cur-speed) -1000.0)
|
|
(sound-pause (-> gp-7 id))
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self targ-speed)
|
|
(fmax
|
|
-10.0
|
|
(fmin 10.0 (+ (-> self targ-speed) (* (-> self speed-change-speed) (-> self clock seconds-per-frame))))
|
|
)
|
|
)
|
|
(if (< (- (-> self clock frame-counter) (-> self speed-change-time)) (seconds 3))
|
|
(format
|
|
*stdcon*
|
|
"id ~d speed ~f~%"
|
|
(if gp-7
|
|
(the-as int (-> gp-7 id))
|
|
0
|
|
)
|
|
(-> self targ-speed)
|
|
)
|
|
)
|
|
(when (and gp-7 (and (!= (-> self targ-speed) (-> self cur-speed))
|
|
(< (-> self speed-change-time) (-> self clock frame-counter))
|
|
(>= (- (-> self clock frame-counter) (-> self scene-start-time)) (seconds 1))
|
|
)
|
|
)
|
|
(when *sound-player-enable*
|
|
(let ((v1-211 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
|
|
(set! (-> v1-211 command) (sound-command set-param))
|
|
(set! (-> v1-211 id) (-> gp-7 id))
|
|
(set! (-> v1-211 params pitch-mod) (the int (* 1524.0 (-> self targ-speed))))
|
|
(set! (-> v1-211 params mask) (the-as uint 2))
|
|
(-> v1-211 id)
|
|
)
|
|
)
|
|
(set! (-> self cur-speed) (-> self targ-speed))
|
|
(set! (-> self speed-change-time) (-> self clock frame-counter))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for function scene-player-init
|
|
;; WARN: Return type mismatch object vs none.
|
|
;; WARN: Using new Jak 2 rtype-of
|
|
;; WARN: Using new Jak 2 rtype-of
|
|
;; WARN: Using new Jak 2 rtype-of
|
|
(defbehavior scene-player-init scene-player ((arg0 object) (arg1 symbol) (arg2 string))
|
|
"`object` arg can be an `(array scene)`, `pair of scene` or a `scene`"
|
|
(process-entity-set! self (the-as entity #f))
|
|
(stack-size-set! (-> self main-thread) 512)
|
|
(set! (-> self root) (new 'process 'trsqv))
|
|
(case (rtype-of arg0)
|
|
((array)
|
|
(set! (-> self scene-list) (new 'process 'boxed-array scene (-> (the-as (array scene) arg0) length)))
|
|
(dotimes (v1-7 (-> self scene-list length))
|
|
(set! (-> self scene-list v1-7) (-> (the-as (array scene) arg0) v1-7))
|
|
)
|
|
)
|
|
((pair)
|
|
(let ((s3-0 (method-of-type array new))
|
|
(s2-0 'process)
|
|
(s1-0 array)
|
|
(s0-0 scene)
|
|
(a0-14 arg0)
|
|
)
|
|
(set! (-> self scene-list)
|
|
(the-as (array scene) (s3-0 s2-0 s1-0 s0-0 ((method-of-type (rtype-of a0-14) length) a0-14)))
|
|
)
|
|
)
|
|
(dotimes (s3-1 (-> self scene-list length))
|
|
(set! (-> self scene-list s3-1) (the-as scene (ref arg0 s3-1)))
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self scene-list) (new 'process 'boxed-array scene 1))
|
|
(set! (-> self scene-list 0) (the-as scene arg0))
|
|
)
|
|
)
|
|
(set! (-> self preload-continue) arg2)
|
|
(set! (-> self camera) (the-as handle #f))
|
|
(set! (-> self wait) arg1)
|
|
(set! (-> self pre-cut-frame) #f)
|
|
(set! (-> self aborted?) #f)
|
|
(set! (-> self draw) (new 'process 'draw-control self #f))
|
|
(set! (-> self skel) (new 'process 'joint-control 48))
|
|
(set! (-> self anim) (new 'static 'spool-anim))
|
|
(set! (-> self next-anim) (new 'static 'spool-anim))
|
|
(dotimes (s4-1 (-> self scene-list length))
|
|
(let ((v1-29 (scene-lookup (-> self scene-list s4-1))))
|
|
(if v1-29
|
|
(set! (-> self scene-list s4-1) v1-29)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((= (-> self scene-list (-> self scene-index) type) scene)
|
|
(set! (-> self scene) (-> self scene-list (-> self scene-index)))
|
|
(if (-> self scene)
|
|
(scene-method-15 (-> self scene) (-> self anim))
|
|
)
|
|
)
|
|
(else
|
|
(set-blackout-frames (seconds 0.2))
|
|
(set! (-> self scene) #f)
|
|
)
|
|
)
|
|
(set! (-> self gui-id) (the-as uint (add-process
|
|
*gui-control*
|
|
self
|
|
(gui-channel movie)
|
|
(gui-action play)
|
|
(the-as string (cond
|
|
((= (rtype-of arg0) string)
|
|
(empty)
|
|
arg0
|
|
)
|
|
(else
|
|
"movie"
|
|
)
|
|
)
|
|
)
|
|
-99.0
|
|
0
|
|
)
|
|
)
|
|
)
|
|
(set! *scene-player* (the-as (pointer scene-player) (process->ppointer self)))
|
|
(set! *display-entity-errors* #f)
|
|
(set-setting! 'speech-control #f 0 0)
|
|
(set-setting! 'allow-progress #f 0 0)
|
|
(apply-settings *setting-control*)
|
|
(go-virtual wait arg1)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 16 of type scene
|
|
(defmethod scene-method-16 scene ((obj scene))
|
|
(let ((v1-1 (-> *level* loading-level)))
|
|
(if v1-1
|
|
(set-loaded-art (-> v1-1 art-group) obj)
|
|
)
|
|
)
|
|
obj
|
|
)
|