mirror of
https://github.com/open-goal/jak-project
synced 2026-06-22 09:05:44 -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.
1655 lines
60 KiB
Common Lisp
Vendored
Generated
1655 lines
60 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function get-current-language
|
|
(defun get-current-language ()
|
|
"Returns the current [[language-enum]]"
|
|
(-> *setting-control* user-current language)
|
|
)
|
|
|
|
;; definition for method 9 of type user-setting-data
|
|
(defmethod user-setting-data-method-9 user-setting-data ((obj user-setting-data) (arg0 engine) (arg1 engine-pers) (arg2 engine))
|
|
(let ((s3-0 (-> arg1 alive-list)))
|
|
(while s3-0
|
|
(user-setting-data-method-10
|
|
obj
|
|
(-> s3-0 param 0)
|
|
(the-as symbol (-> s3-0 param 1))
|
|
(the-as float (-> s3-0 param 2))
|
|
(the-as uint (-> s3-0 param 3))
|
|
)
|
|
(set! s3-0 (-> s3-0 next))
|
|
)
|
|
)
|
|
(let ((s3-1 (-> arg0 alive-list-end))
|
|
(s2-0 (-> arg0 alive-list-end prev0))
|
|
)
|
|
(while (!= s3-1 (-> arg0 alive-list))
|
|
(let ((s1-0 (-> (the-as connection s3-1) param0)))
|
|
(case s1-0
|
|
(('sfx-volume)
|
|
(if (or (not (logtest? (-> *kernel-context* prevent-from-run) (process-mask progress)))
|
|
(= ((method-of-type connection get-process) (the-as connection s3-1)) (ppointer->process *progress-process*))
|
|
)
|
|
(user-setting-data-method-10
|
|
obj
|
|
s1-0
|
|
(the-as symbol (-> (the-as connection s3-1) param1))
|
|
(the-as float (-> (the-as connection s3-1) param2))
|
|
(the-as uint (-> (the-as connection s3-1) param3))
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(user-setting-data-method-10
|
|
obj
|
|
s1-0
|
|
(the-as symbol (-> (the-as connection s3-1) param1))
|
|
(the-as float (-> (the-as connection s3-1) param2))
|
|
(the-as uint (-> (the-as connection s3-1) param3))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! s3-1 s2-0)
|
|
(set! s2-0 (-> s3-1 prev0))
|
|
)
|
|
)
|
|
(let* ((v1-21 (-> arg2 alive-list next0))
|
|
(s4-1 (-> v1-21 next0))
|
|
)
|
|
(while (!= v1-21 (-> arg2 alive-list-end))
|
|
(user-setting-data-method-10
|
|
obj
|
|
(-> (the-as connection v1-21) param0)
|
|
(the-as symbol (-> (the-as connection v1-21) param1))
|
|
(the-as float (-> (the-as connection v1-21) param2))
|
|
(the-as uint (-> (the-as connection v1-21) param3))
|
|
)
|
|
(set! v1-21 s4-1)
|
|
(set! s4-1 (-> s4-1 next0))
|
|
)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; definition for method 10 of type user-setting-data
|
|
(defmethod user-setting-data-method-10 user-setting-data ((obj user-setting-data) (arg0 object) (arg1 symbol) (arg2 float) (arg3 uint))
|
|
"set-defaults! perhaps?"
|
|
(case arg0
|
|
(('border-mode)
|
|
(set! (-> obj border-mode) arg1)
|
|
)
|
|
(('region-mode)
|
|
(set! (-> obj region-mode) arg1)
|
|
)
|
|
(('allow-look-around)
|
|
(set! (-> obj allow-look-around) arg1)
|
|
)
|
|
(('ocean-off)
|
|
(set! (-> obj ocean-off) arg1)
|
|
)
|
|
(('weather)
|
|
(set! (-> obj weather) arg1)
|
|
)
|
|
(('mouse)
|
|
(set! (-> obj mouse) arg1)
|
|
)
|
|
(('cursor)
|
|
(set! (-> obj cursor) arg1)
|
|
)
|
|
(('music)
|
|
(set! (-> obj music) arg1)
|
|
)
|
|
(('extra-bank)
|
|
(set! (-> obj extra-bank) (the-as pair arg1))
|
|
)
|
|
(('process-mask)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj process-mask) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj process-mask) arg3)
|
|
)
|
|
(('abs)
|
|
(set! (-> obj process-mask) (the-as process-mask arg3))
|
|
)
|
|
)
|
|
)
|
|
(('task-mask)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj task-mask) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj task-mask) arg3)
|
|
)
|
|
(('abs)
|
|
(set! (-> obj task-mask) (the-as task-mask arg3))
|
|
)
|
|
)
|
|
)
|
|
(('task-manager)
|
|
(set! (-> obj task-manager) (the-as (pointer process) arg1))
|
|
)
|
|
(('task)
|
|
(set! (-> obj task) arg1)
|
|
)
|
|
(('exclusive-task)
|
|
(set! (-> obj exclusive-task) (the-as int arg3))
|
|
)
|
|
(('exclusive-load)
|
|
(set! (-> obj exclusive-load) arg1)
|
|
)
|
|
(('sfx-volume)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj sfx-volume) (* (-> obj sfx-volume) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj sfx-volume) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('music-volume)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj music-volume) (* (-> obj music-volume) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj music-volume) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('ambient-volume)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj ambient-volume) (* (-> obj ambient-volume) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj ambient-volume) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('dialog-volume)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj dialog-volume) (* (-> obj dialog-volume) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj dialog-volume) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('sfx-volume-movie)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj sfx-movie-volume) (* (-> obj sfx-movie-volume) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj sfx-movie-volume) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('music-volume-movie)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj music-volume-movie) (* (-> obj music-volume-movie) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj music-volume-movie) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('ambient-volume-movie)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj ambient-volume-move) (* (-> obj ambient-volume-move) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj ambient-volume-move) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('dialog-volume-hint)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj dialog-volume-hint) (* (-> obj dialog-volume-hint) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj dialog-volume-hint) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('sound-flava)
|
|
(when (>= arg2 (-> obj sound-flava-priority))
|
|
(set! (-> obj sound-flava) arg3)
|
|
(set! (-> obj sound-flava-priority) arg2)
|
|
)
|
|
)
|
|
(('sound-mode)
|
|
(set! (-> obj sound-mode) arg3)
|
|
)
|
|
(('sound-tune)
|
|
(set! (-> obj sound-tune) arg3)
|
|
)
|
|
(('sound-excitement)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj sound-excitement) (* (-> obj sound-excitement) arg2))
|
|
)
|
|
(('add)
|
|
(+! (-> obj sound-excitement) arg2)
|
|
)
|
|
(else
|
|
(set! (-> obj sound-excitement) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('sound-reverb)
|
|
(case arg1
|
|
(('rel)
|
|
(set! (-> obj sound-reverb) (* (-> obj sound-reverb) arg2))
|
|
)
|
|
(('add)
|
|
(+! (-> obj sound-reverb) arg2)
|
|
)
|
|
(else
|
|
(set! (-> obj sound-reverb) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('mode-sound-bank)
|
|
(set! (-> obj mode-sound-bank) (the-as uint arg1))
|
|
)
|
|
(('spotlight-color)
|
|
(set! (-> obj spotlight-color) (the-as rgba arg3))
|
|
)
|
|
(('bg-r)
|
|
(set! (-> obj bg-r) arg2)
|
|
)
|
|
(('bg-g)
|
|
(set! (-> obj bg-g) arg2)
|
|
)
|
|
(('bg-b)
|
|
(set! (-> obj bg-b) arg2)
|
|
)
|
|
(('bg-a)
|
|
(set! (-> obj bg-a) arg2)
|
|
)
|
|
(('bg-a-speed)
|
|
(set! (-> obj bg-a-speed) arg2)
|
|
)
|
|
(('bg-a-force)
|
|
(set! (-> obj bg-a-force) arg2)
|
|
)
|
|
(('allow-blackout)
|
|
(set! (-> obj allow-blackout) arg1)
|
|
)
|
|
(('rain)
|
|
(set! (-> obj rain) arg2)
|
|
)
|
|
(('snow)
|
|
(set! (-> obj snow) arg2)
|
|
)
|
|
(('language)
|
|
(set! (-> obj language) (the-as language-enum arg3))
|
|
)
|
|
(('subtitle-language)
|
|
(set! (-> obj subtitle-language) (the-as language-enum arg3))
|
|
)
|
|
(('vibration)
|
|
(set! (-> obj vibration) arg1)
|
|
)
|
|
(('auto-save)
|
|
(set! (-> obj auto-save) arg1)
|
|
)
|
|
(('allow-pause)
|
|
(set! (-> obj allow-pause) arg1)
|
|
)
|
|
(('allow-progress)
|
|
(set! (-> obj allow-progress) arg1)
|
|
)
|
|
(('allow-continue)
|
|
(set! (-> obj allow-continue) arg1)
|
|
)
|
|
(('allow-timeout)
|
|
(set! (-> obj allow-timeout) arg1)
|
|
)
|
|
(('allow-error)
|
|
(set! (-> obj allow-error) arg1)
|
|
)
|
|
(('under-water-pitch-mod)
|
|
(set! (-> obj under-water-pitch-mod) arg2)
|
|
)
|
|
(('sound-bank-load)
|
|
(set! (-> obj sound-bank-load) arg1)
|
|
)
|
|
(('play-hints)
|
|
(set! (-> obj play-hints) arg1)
|
|
)
|
|
(('subtitle)
|
|
(set! (-> obj subtitle) arg1)
|
|
)
|
|
(('mirror)
|
|
(set! (-> obj mirror) arg1)
|
|
)
|
|
(('movie)
|
|
(set! (-> obj movie) (the-as (pointer process) arg1))
|
|
)
|
|
(('movie-name)
|
|
(set! (-> obj movie-name) arg1)
|
|
)
|
|
(('movie-skip-frame)
|
|
(set! (-> obj movie-skip-frame) arg2)
|
|
)
|
|
(('talking)
|
|
(set! (-> obj talking) (the-as (pointer process) arg1))
|
|
)
|
|
(('spooling)
|
|
(set! (-> obj spooling) (the-as (pointer process) arg1))
|
|
)
|
|
(('spool-anim)
|
|
(set! (-> obj spool-anim) (the-as spool-anim arg1))
|
|
)
|
|
(('hint)
|
|
(set! (-> obj hint) (the-as (pointer process) arg1))
|
|
)
|
|
(('ambient)
|
|
(set! (-> obj ambient) (the-as (pointer process) arg1))
|
|
)
|
|
(('common-page)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj unknown-int32-00) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj unknown-int32-00) arg3)
|
|
)
|
|
)
|
|
)
|
|
(('duck)
|
|
(set! (-> obj duck) arg1)
|
|
)
|
|
(('jump)
|
|
(set! (-> obj jump) arg1)
|
|
)
|
|
(('double-jump)
|
|
(set! (-> obj double-jump) arg1)
|
|
)
|
|
(('darkjak)
|
|
(set! (-> obj darkjak) arg1)
|
|
)
|
|
(('endlessfall)
|
|
(set! (-> obj endlessfall) arg1)
|
|
)
|
|
(('pilot)
|
|
(set! (-> obj pilot) arg1)
|
|
)
|
|
(('pilot-exit)
|
|
(set! (-> obj pilot-exit) arg1)
|
|
)
|
|
(('attack)
|
|
(set! (-> obj attack) arg1)
|
|
)
|
|
(('board)
|
|
(set! (-> obj board) arg1)
|
|
)
|
|
(('gun)
|
|
(set! (-> obj gun) arg1)
|
|
)
|
|
(('doorway)
|
|
(set! (-> obj doorway) arg1)
|
|
)
|
|
(('calm)
|
|
(set! (-> obj attack) (not arg1))
|
|
(set! (-> obj gun) (not arg1))
|
|
(set! (-> obj board) (not arg1))
|
|
(set! (-> obj jump) (not arg1))
|
|
(set! (-> obj double-jump) (not arg1))
|
|
(set! (-> obj darkjak) (not arg1))
|
|
(set! (-> obj pilot) (not arg1))
|
|
(case arg1
|
|
((#t)
|
|
(set! (-> obj speed-mult) 0.5)
|
|
)
|
|
)
|
|
)
|
|
(('airlock)
|
|
(set! (-> obj airlock) arg1)
|
|
)
|
|
(('gun-buoy)
|
|
(set! (-> obj gun-buoy) arg1)
|
|
)
|
|
(('ignore-target)
|
|
(set! (-> obj ignore-target) arg1)
|
|
)
|
|
(('speech-control)
|
|
(set! (-> obj speech-control) arg1)
|
|
)
|
|
(('vehicle-hijacking)
|
|
(set! (-> obj vehicle-hijacking) arg1)
|
|
)
|
|
(('features)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj features) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj features) arg3)
|
|
)
|
|
(('abs)
|
|
(set! (-> obj features) (the-as game-feature arg3))
|
|
)
|
|
)
|
|
)
|
|
(('gem)
|
|
(set! (-> obj gen) arg1)
|
|
)
|
|
(('minimap)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj minimap) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj minimap) arg3)
|
|
)
|
|
(('abs)
|
|
(set! (-> obj minimap) arg3)
|
|
)
|
|
)
|
|
)
|
|
(('race-minimap)
|
|
(set! (-> obj race-minimap) (the-as int arg3))
|
|
)
|
|
(('borrow)
|
|
(set! (-> obj borrow) (the-as pair arg1))
|
|
)
|
|
(('half-speed)
|
|
(set! (-> obj half-speed) arg1)
|
|
)
|
|
(('render)
|
|
(set! (-> obj render) arg1)
|
|
)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; definition for method 9 of type cam-setting-data
|
|
(defmethod cam-setting-data-method-9 cam-setting-data ((obj cam-setting-data) (arg0 engine) (arg1 engine-pers) (arg2 engine))
|
|
(let ((s3-0 (-> arg1 alive-list)))
|
|
(while s3-0
|
|
(cam-setting-data-method-10
|
|
obj
|
|
(-> s3-0 param 0)
|
|
(the-as (pointer process) (-> s3-0 param 1))
|
|
(the-as float (-> s3-0 param 2))
|
|
(the-as int (-> s3-0 param 3))
|
|
)
|
|
(set! s3-0 (-> s3-0 next))
|
|
)
|
|
)
|
|
(let ((s3-1 (-> arg0 alive-list-end))
|
|
(s2-0 (-> arg0 alive-list-end prev0))
|
|
)
|
|
(while (!= s3-1 (-> arg0 alive-list))
|
|
(let ((s1-0 (-> (the-as connection s3-1) param0)))
|
|
(case s1-0
|
|
(('sfx-volume)
|
|
(if (or (not (logtest? (-> *kernel-context* prevent-from-run) (process-mask progress)))
|
|
(= ((method-of-type connection get-process) (the-as connection s3-1)) (ppointer->process *progress-process*))
|
|
)
|
|
(cam-setting-data-method-10
|
|
obj
|
|
s1-0
|
|
(the-as (pointer process) (-> (the-as connection s3-1) param1))
|
|
(the-as float (-> (the-as connection s3-1) param2))
|
|
(-> (the-as connection s3-1) param3)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(cam-setting-data-method-10
|
|
obj
|
|
s1-0
|
|
(the-as (pointer process) (-> (the-as connection s3-1) param1))
|
|
(the-as float (-> (the-as connection s3-1) param2))
|
|
(-> (the-as connection s3-1) param3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! s3-1 s2-0)
|
|
(set! s2-0 (-> s3-1 prev0))
|
|
)
|
|
)
|
|
(let* ((v1-21 (-> arg2 alive-list next0))
|
|
(s4-1 (-> v1-21 next0))
|
|
)
|
|
(while (!= v1-21 (-> arg2 alive-list-end))
|
|
(cam-setting-data-method-10
|
|
obj
|
|
(-> (the-as connection v1-21) param0)
|
|
(the-as (pointer process) (-> (the-as connection v1-21) param1))
|
|
(the-as float (-> (the-as connection v1-21) param2))
|
|
(-> (the-as connection v1-21) param3)
|
|
)
|
|
(set! v1-21 s4-1)
|
|
(set! s4-1 (-> s4-1 next0))
|
|
)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; definition for method 10 of type cam-setting-data
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch cam-setting-data vs none.
|
|
(defmethod cam-setting-data-method-10 cam-setting-data ((obj cam-setting-data) (arg0 object) (arg1 (pointer process)) (arg2 float) (arg3 int))
|
|
(case arg0
|
|
(('fov)
|
|
(if (= arg1 'rel)
|
|
(set! (-> obj fov) (* (-> obj fov) arg2))
|
|
(set! (-> obj fov) arg2)
|
|
)
|
|
)
|
|
(('pov-handle)
|
|
(let ((a0-6 (new 'static 'handle :process arg1 :pid arg3)))
|
|
(when (handle->process a0-6)
|
|
(set! (-> obj pov-handle) a0-6)
|
|
(set! (-> obj pov-bone) (the int arg2))
|
|
)
|
|
)
|
|
)
|
|
(('pov-offset)
|
|
(set! (-> obj pov-offset quad) (-> (the-as vector arg2) quad))
|
|
)
|
|
(('string-max-length)
|
|
(case arg1
|
|
(('low)
|
|
(if (-> obj string-max-length-default)
|
|
(set! (-> obj string-max-length) arg2)
|
|
)
|
|
)
|
|
(('rel)
|
|
(set! (-> obj string-max-length) (* (-> obj string-max-length) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj string-max-length) arg2)
|
|
)
|
|
)
|
|
(set! (-> obj string-default) #f)
|
|
(set! (-> obj string-max-length-default) #f)
|
|
)
|
|
(('string-min-length)
|
|
(case arg1
|
|
(('low)
|
|
(if (-> obj string-min-length-default)
|
|
(set! (-> obj string-min-length) arg2)
|
|
)
|
|
)
|
|
(('rel)
|
|
(set! (-> obj string-min-length) (* (-> obj string-min-length) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj string-min-length) arg2)
|
|
)
|
|
)
|
|
(set! (-> obj string-default) #f)
|
|
(set! (-> obj string-min-length-default) #f)
|
|
)
|
|
(('string-max-height)
|
|
(case arg1
|
|
(('low)
|
|
(if (-> obj string-max-height-default)
|
|
(set! (-> obj string-max-height) arg2)
|
|
)
|
|
)
|
|
(('rel)
|
|
(set! (-> obj string-max-height) (* (-> obj string-max-height) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj string-max-height) arg2)
|
|
)
|
|
)
|
|
(set! (-> obj string-default) #f)
|
|
(set! (-> obj string-max-height-default) #f)
|
|
)
|
|
(('string-min-height)
|
|
(case arg1
|
|
(('low)
|
|
(if (-> obj string-min-height-default)
|
|
(set! (-> obj string-min-height) arg2)
|
|
)
|
|
)
|
|
(('rel)
|
|
(set! (-> obj string-min-height) (* (-> obj string-min-height) arg2))
|
|
)
|
|
(else
|
|
(set! (-> obj string-min-height) arg2)
|
|
)
|
|
)
|
|
(set! (-> obj string-default) #f)
|
|
(set! (-> obj string-min-height-default) #f)
|
|
)
|
|
(('string-cliff-height)
|
|
(set! (-> obj string-cliff-height) arg2)
|
|
(set! (-> obj string-default) #f)
|
|
)
|
|
(('string-camera-ceiling)
|
|
(set! (-> obj string-camera-ceiling) arg2)
|
|
(set! (-> obj string-default) #f)
|
|
)
|
|
(('gun-max-height)
|
|
(set! (-> obj gun-max-height) arg2)
|
|
)
|
|
(('gun-min-height)
|
|
(set! (-> obj gun-min-height) arg2)
|
|
)
|
|
(('string-local-down)
|
|
(vector-normalize-copy! (-> obj string-local-down) (the-as vector arg2) 1.0)
|
|
)
|
|
(('slave-options)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj slave-options) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj slave-options) arg3)
|
|
)
|
|
(('abs)
|
|
(set! (-> obj slave-options) (the-as cam-slave-options arg3))
|
|
)
|
|
)
|
|
)
|
|
(('rapid-tracking)
|
|
(set! (-> obj slave-options) (logior (cam-slave-options RAPID_TRACKING) (-> obj slave-options)))
|
|
)
|
|
(('bike-mode)
|
|
(logior! (-> obj slave-options) (cam-slave-options BIKE_MODE))
|
|
)
|
|
(('vertical-follow-matches-camera)
|
|
(set! (-> obj slave-options)
|
|
(logior (cam-slave-options VERTICAL_FOLLOW_MATCHES_CAMERA) (-> obj slave-options))
|
|
)
|
|
)
|
|
(('matrix-blend-max-angle)
|
|
(set! (-> obj matrix-blend-max-angle) arg2)
|
|
)
|
|
(('matrix-blend-max-partial)
|
|
(set! (-> obj matrix-blend-max-partial) arg2)
|
|
)
|
|
(('string-spline-max-move-player)
|
|
(set! (-> obj string-spline-max-move-player) arg2)
|
|
)
|
|
(('string-spline-accel)
|
|
(set! (-> obj string-spline-accel) arg2)
|
|
)
|
|
(('string-spline-max-move-player)
|
|
(set! (-> obj string-spline-max-move-player) arg2)
|
|
)
|
|
(('string-spline-accel-player)
|
|
(set! (-> obj string-spline-accel-player) arg2)
|
|
)
|
|
(('target-height)
|
|
(set! (-> obj target-height) arg2)
|
|
)
|
|
(('head-offset)
|
|
(set! (-> obj head-offset) arg2)
|
|
)
|
|
(('foot-offset)
|
|
(set! (-> obj foot-offset) arg2)
|
|
)
|
|
(('teleport-on-entity-change)
|
|
(set! (-> obj teleport-on-entity-change) (the-as symbol arg2))
|
|
)
|
|
(('entity-name)
|
|
(when (or *target* (and *camera* (not (send-event *camera* 'query-state cam-free-floating))))
|
|
(set! (-> obj entity-name) (the-as string arg1))
|
|
(set! arg3 (cond
|
|
((= arg3 -1)
|
|
0
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(set! (-> obj entity-mask) (the-as uint arg3))
|
|
(set! (-> obj mode-name) #f)
|
|
)
|
|
)
|
|
(('mode-name)
|
|
(set! (-> obj mode-name) (the-as symbol arg1))
|
|
(set! (-> obj entity-name) #f)
|
|
)
|
|
(('master-options)
|
|
(case arg1
|
|
(('set)
|
|
(logior! (-> obj master-options) arg3)
|
|
)
|
|
(('clear)
|
|
(logclear! (-> obj master-options) arg3)
|
|
)
|
|
(('abs)
|
|
(set! (-> obj master-options) (the-as cam-master-options arg3))
|
|
)
|
|
)
|
|
)
|
|
(('immediate-string-min-max)
|
|
(logior! (-> obj master-options) (cam-master-options IMMEDIATE_STRING_MIN_MAX))
|
|
)
|
|
(('no-intro)
|
|
(set! (-> obj no-intro) (the-as symbol arg2))
|
|
)
|
|
(('mouse-input)
|
|
(set! (-> obj mouse-input) (the-as symbol arg2))
|
|
)
|
|
(('cpad1-skip-buttons)
|
|
(set! (-> obj cpad1-skip-buttons) (the-as symbol arg2))
|
|
)
|
|
(('interp-time)
|
|
(let* ((v1-91 arg1)
|
|
(f0-34 (if (= v1-91 'hi)
|
|
1.0
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
(when (>= f0-34 (the float (-> obj 1Tinterp-time-priority)))
|
|
(set! (-> obj interp-time) (the-as uint (the int arg2)))
|
|
(set! (-> obj 1Tinterp-time-priority) (the-as uint (the int f0-34)))
|
|
)
|
|
)
|
|
)
|
|
(('string-startup-vector)
|
|
(set! (-> obj string-use-startup-vector) #t)
|
|
(set! (-> obj string-startup-vector quad) (-> (the-as vector arg2) quad))
|
|
)
|
|
(('look-at-point)
|
|
(set! (-> obj use-look-at-point) #t)
|
|
(set! (-> obj look-at-point quad) (-> (the-as vector arg2) quad))
|
|
)
|
|
(('point-of-interest)
|
|
(set! (-> obj use-point-of-interest) #t)
|
|
(set! (-> obj point-of-interest quad) (-> (the-as vector arg2) quad))
|
|
(set! (-> obj handle-of-interest) (the-as handle #f))
|
|
)
|
|
(('mouse-tumble-point)
|
|
(set! (-> obj use-mouse-tumble-point) #t)
|
|
(set! (-> obj mouse-tumble-point quad) (-> (the-as vector arg2) quad))
|
|
)
|
|
(('handle-of-interest)
|
|
(let ((a0-118 (new 'static 'handle :process arg1 :pid arg3)))
|
|
(when (handle->process a0-118)
|
|
(set! (-> obj use-point-of-interest) #f)
|
|
(set! (-> obj handle-of-interest) a0-118)
|
|
)
|
|
)
|
|
)
|
|
(('butt-handle)
|
|
(let ((a0-122 (new 'static 'handle :process arg1 :pid arg3)))
|
|
(when (handle->process a0-122)
|
|
(set! (-> obj butt-handle) a0-122)
|
|
(set! (-> obj butt-angle) arg2)
|
|
)
|
|
)
|
|
)
|
|
(('extra-follow-height)
|
|
(set! (-> obj extra-follow-height) arg2)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 9 of type setting-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod add-setting setting-control ((obj setting-control) (arg0 process) (arg1 symbol) (arg2 object) (arg3 object) (arg4 object))
|
|
"Originally called `setting-set` see (anon-function 48 script)"
|
|
(add-connection (-> obj engine) arg0 arg1 arg2 arg3 arg4)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 11 of type setting-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod set-setting setting-control ((obj setting-control) (arg0 process) (arg1 symbol) (arg2 object) (arg3 object) (arg4 object))
|
|
(remove-setting obj arg0 arg1)
|
|
(add-connection (-> obj engine) arg0 arg1 arg2 arg3 arg4)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 10 of type setting-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod persist-with-delay setting-control ((obj setting-control) (arg0 symbol) (arg1 time-frame) (arg2 symbol) (arg3 symbol) (arg4 float) (arg5 int))
|
|
"Originally called `setting-pers` see (anon-function 46 script)"
|
|
(let ((v1-1 (schedule-callback (-> obj engine-pers) arg0 arg1)))
|
|
(when v1-1
|
|
(set! (-> v1-1 param 0) arg2)
|
|
(set! (-> v1-1 param 1) arg3)
|
|
(set! (-> v1-1 param 2) arg4)
|
|
(set! (-> v1-1 param 3) arg5)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 12 of type setting-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod remove-setting setting-control ((obj setting-control) (arg0 process) (arg1 symbol))
|
|
(when arg0
|
|
(let ((s5-0 (-> obj engine))
|
|
(s4-0 (-> arg0 connection-list next1))
|
|
)
|
|
(while s4-0
|
|
(if (and ((method-of-type connection belongs-to-engine?) (the-as connection s4-0) s5-0)
|
|
(or (= arg1 #t) (= arg1 (-> (the-as connection s4-0) param0)))
|
|
)
|
|
((method-of-type connection move-to-dead) (the-as connection s4-0))
|
|
)
|
|
(set! s4-0 (-> s4-0 next1))
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 13 of type setting-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod kill-persister setting-control ((obj setting-control) (arg0 engine-pers) (arg1 object))
|
|
"Calls [[engine-pers::kill-matching]]"
|
|
(kill-matching
|
|
(-> obj engine-pers)
|
|
(lambda ((arg0 engine-pers) (arg1 connection-pers) (arg2 object) (arg3 object))
|
|
(and (= (-> arg1 key) arg2) (= (-> arg1 param 0) arg3))
|
|
)
|
|
arg0
|
|
arg1
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 14 of type setting-control
|
|
(defmethod setting-control-method-14 setting-control ((obj setting-control) (arg0 object))
|
|
(let ((v1-1 (-> obj engine-hi alive-list next0)))
|
|
(-> obj engine-hi)
|
|
(let ((a2-2 (-> v1-1 next0)))
|
|
(while (!= v1-1 (-> obj engine-hi alive-list-end))
|
|
(if (= (-> (the-as connection v1-1) param0) arg0)
|
|
(return v1-1)
|
|
)
|
|
(set! v1-1 a2-2)
|
|
(-> obj engine-hi)
|
|
(set! a2-2 (-> a2-2 next0))
|
|
)
|
|
)
|
|
)
|
|
(the-as connectable #f)
|
|
)
|
|
|
|
;; definition for method 15 of type setting-control
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod remove-setting-by-arg0 setting-control ((obj setting-control) (arg0 object))
|
|
"Calls [[engine::remove-by-param0]] on `engine-hi`"
|
|
(remove-by-param0 (-> obj engine-hi) arg0)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 16 of type setting-control
|
|
(defmethod set-setting-by-param setting-control ((obj setting-control) (arg0 symbol) (arg1 object) (arg2 object) (arg3 object))
|
|
"Same as [[setting-control::set-setting]] but will [[engine::remove-by-param0]] using the symbol provided"
|
|
(remove-by-param0 (-> obj engine-hi) arg0)
|
|
(add-connection (-> obj engine-hi) *dproc* arg0 arg1 arg2 arg3)
|
|
)
|
|
|
|
;; definition for method 17 of type setting-control
|
|
(defmethod apply-settings setting-control ((obj setting-control))
|
|
(speech-control-method-11 *speech-control*)
|
|
(let ((s5-0 (-> obj user-current)))
|
|
(let ((s4-0 (-> obj user-target)))
|
|
(mem-copy! (the-as pointer s4-0) (the-as pointer (-> obj user-default)) 528)
|
|
(set! (-> s4-0 ambient-volume) (* (-> obj user-default sfx-volume) (-> obj user-default ambient-volume)))
|
|
(user-setting-data-method-9 s4-0 (-> obj engine) (-> obj engine-pers) (-> obj engine-hi))
|
|
(when (= (-> s5-0 sound-mode) 1)
|
|
(case (-> s5-0 music)
|
|
(('sewer)
|
|
(set! (-> s4-0 music-volume) (* 1.2 (-> s4-0 music-volume)))
|
|
)
|
|
(else
|
|
(set! (-> s4-0 music-volume) (* 1.111111 (-> s4-0 music-volume)))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s5-0 border-mode) (-> s4-0 border-mode))
|
|
(when (!= (-> s5-0 borrow) (-> s4-0 borrow))
|
|
(set! (-> s5-0 borrow) (-> s4-0 borrow))
|
|
(update-task-masks 'event)
|
|
)
|
|
(set! (-> s5-0 region-mode) (-> s4-0 region-mode))
|
|
(set! (-> s5-0 unknown-int32-00) (-> s4-0 unknown-int32-00))
|
|
(set! (-> s5-0 vibration) (-> s4-0 vibration))
|
|
(set! (-> s5-0 auto-save) (-> s4-0 auto-save))
|
|
(set! (-> s5-0 play-hints) (-> s4-0 play-hints))
|
|
(set! (-> s5-0 sound-bank-load) (-> s4-0 sound-bank-load))
|
|
(set! (-> s5-0 subtitle) (-> s4-0 subtitle))
|
|
(set! (-> s5-0 beard) (if (logtest? (-> *game-info* secrets) (game-secrets toggle-beard))
|
|
(not (-> s4-0 beard))
|
|
(-> s4-0 beard)
|
|
)
|
|
)
|
|
(set! (-> s5-0 movie) (-> s4-0 movie))
|
|
(set! (-> s5-0 movie-name) (-> s4-0 movie-name))
|
|
(set! (-> s5-0 talking) (-> s4-0 talking))
|
|
(set! (-> s5-0 spooling) (-> s4-0 spooling))
|
|
(set! (-> s5-0 spool-anim) (-> s4-0 spool-anim))
|
|
(set! (-> s5-0 hint) (-> s4-0 hint))
|
|
(set! (-> s5-0 ambient) (-> s4-0 ambient))
|
|
(set! (-> s5-0 allow-pause) (-> s4-0 allow-pause))
|
|
(set! (-> s5-0 allow-progress) (-> s4-0 allow-progress))
|
|
(set! (-> s5-0 allow-look-around) (-> s4-0 allow-look-around))
|
|
(set! (-> s5-0 allow-continue) (-> s4-0 allow-continue))
|
|
(set! (-> s5-0 allow-timeout) (-> s4-0 allow-timeout))
|
|
(set! (-> s5-0 allow-error) (-> s4-0 allow-error))
|
|
(set! (-> s5-0 under-water-pitch-mod) (-> s4-0 under-water-pitch-mod))
|
|
(if (and (-> s4-0 mirror) (= (level-status *level* 'ctywide) 'active))
|
|
(set! (-> s5-0 mirror) #f)
|
|
(set! (-> s5-0 mirror) (-> s4-0 mirror))
|
|
)
|
|
(set! (-> s5-0 ocean-off) (-> s4-0 ocean-off))
|
|
(set! (-> s5-0 weather) (-> s4-0 weather))
|
|
(set! (-> s5-0 mouse) (-> s4-0 mouse))
|
|
(set! (-> s5-0 cursor) (-> s4-0 cursor))
|
|
(set! (-> s5-0 ambient-volume-move) (-> s4-0 ambient-volume-move))
|
|
(set! (-> s5-0 music-volume-movie) (-> s4-0 music-volume-movie))
|
|
(set! (-> s5-0 sfx-movie-volume) (-> s4-0 sfx-movie-volume))
|
|
(set! (-> s5-0 dialog-volume-hint) (-> s4-0 dialog-volume-hint))
|
|
(set! (-> s5-0 process-mask) (-> s4-0 process-mask))
|
|
(set! (-> s5-0 movie-skip-frame) (-> s4-0 movie-skip-frame))
|
|
(set! (-> s5-0 extra-bank) (-> s4-0 extra-bank))
|
|
(set! (-> s5-0 task-mask) (-> s4-0 task-mask))
|
|
(set! (-> s5-0 task) (-> s4-0 task))
|
|
(set! (-> s5-0 task-manager) (-> s4-0 task-manager))
|
|
(when (!= (-> s5-0 exclusive-task) (-> s4-0 exclusive-task))
|
|
(set! (-> s5-0 exclusive-task) (-> s4-0 exclusive-task))
|
|
(update-task-masks 'event)
|
|
)
|
|
(set! (-> s5-0 exclusive-load) (-> s4-0 exclusive-load))
|
|
(set! (-> s5-0 duck) (-> s4-0 duck))
|
|
(set! (-> s5-0 jump) (-> s4-0 jump))
|
|
(set! (-> s5-0 double-jump) (-> s4-0 double-jump))
|
|
(set! (-> s5-0 darkjak) (-> s4-0 darkjak))
|
|
(set! (-> s5-0 endlessfall) (-> s4-0 endlessfall))
|
|
(set! (-> s5-0 pilot) (-> s4-0 pilot))
|
|
(set! (-> s5-0 pilot-exit) (-> s4-0 pilot-exit))
|
|
(set! (-> s5-0 attack) (-> s4-0 attack))
|
|
(set! (-> s5-0 board) (-> s4-0 board))
|
|
(set! (-> s5-0 gun) (-> s4-0 gun))
|
|
(set! (-> s5-0 doorway) (-> s4-0 doorway))
|
|
(set! (-> s5-0 airlock) (-> s4-0 airlock))
|
|
(set! (-> s5-0 gun-buoy) (-> s4-0 gun-buoy))
|
|
(set! (-> s5-0 ignore-target) (-> s4-0 ignore-target))
|
|
(set! (-> s5-0 speech-control) (-> s4-0 speech-control))
|
|
(set! (-> s5-0 vehicle-hijacking) (-> s4-0 vehicle-hijacking))
|
|
(set! (-> s5-0 speed-mult) (-> s4-0 speed-mult))
|
|
(set! (-> s5-0 features) (-> s4-0 features))
|
|
(set! (-> s5-0 rain) (-> s4-0 rain))
|
|
(set! (-> s5-0 snow) (-> s4-0 snow))
|
|
(set! (-> s5-0 gen) (-> s4-0 gen))
|
|
(set! (-> s5-0 minimap) (-> s4-0 minimap))
|
|
(set! (-> s5-0 race-minimap) (-> s4-0 race-minimap))
|
|
(set! (-> s5-0 half-speed) (-> s4-0 half-speed))
|
|
(set! (-> s5-0 render) (-> s4-0 render))
|
|
)
|
|
(set! (-> *kernel-context* prevent-from-run) (-> s5-0 process-mask))
|
|
(let ((v1-84 (task-mask)))
|
|
(dotimes (a0-13 (-> *level* length))
|
|
(let ((a1-6 (-> *level* level a0-13)))
|
|
(if (= (-> a1-6 status) 'active)
|
|
(set! v1-84
|
|
(the-as task-mask (logior (the-as int v1-84) (logand (-> a1-6 info base-task-mask) (task-mask primary0))))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(dotimes (a0-16 (-> *level* length))
|
|
(let ((a1-15 (-> *level* level a0-16)))
|
|
(if (= (-> a1-15 status) 'active)
|
|
(set! (-> a1-15 task-mask)
|
|
(logior (logior (logand (-> a1-15 task-mask) (task-mask task0 task1 task2 task3 task4 task5 task6 task7 done))
|
|
(logand (task-mask ctywide never movie0 movie1 movie2) (-> s5-0 task-mask))
|
|
)
|
|
(logclear 8192 (the-as int v1-84))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *level* border?) (-> s5-0 border-mode))
|
|
(when *target*
|
|
(if (-> s5-0 duck)
|
|
(logclear! (-> *target* state-flags) (state-flags prevent-duck))
|
|
(logior! (-> *target* state-flags) (state-flags prevent-duck))
|
|
)
|
|
(if (-> s5-0 jump)
|
|
(logclear! (-> *target* state-flags) (state-flags prevent-jump))
|
|
(logior! (-> *target* state-flags) (state-flags prevent-jump))
|
|
)
|
|
(if (-> s5-0 double-jump)
|
|
(logclear! (-> *target* state-flags) (state-flags prevent-double-jump))
|
|
(set! (-> *target* state-flags) (logior (state-flags prevent-double-jump) (-> *target* state-flags)))
|
|
)
|
|
(if (-> s5-0 attack)
|
|
(logclear! (-> *target* state-flags) (state-flags prevent-attack))
|
|
(logior! (-> *target* state-flags) (state-flags prevent-attack))
|
|
)
|
|
(if (-> s5-0 board)
|
|
(logclear! (-> *target* state-flags) (state-flags prevent-board))
|
|
(set! (-> *target* state-flags) (logior (state-flags prevent-board) (-> *target* state-flags)))
|
|
)
|
|
(if (-> s5-0 gun)
|
|
(logclear! (-> *target* state-flags) (state-flags prevent-gun))
|
|
(set! (-> *target* state-flags) (logior (state-flags prevent-gun) (-> *target* state-flags)))
|
|
)
|
|
)
|
|
)
|
|
(-> obj cam-current)
|
|
(let ((s4-1 (-> obj cam-target)))
|
|
(mem-copy! (the-as pointer s4-1) (the-as pointer (-> obj cam-default)) 780)
|
|
(cam-setting-data-method-9 s4-1 (-> obj engine) (-> obj engine-pers) (-> obj engine-hi))
|
|
)
|
|
(-> obj user-current)
|
|
)
|
|
|
|
;; definition for method 18 of type setting-control
|
|
;; INFO: Used lq/sq
|
|
(defmethod update setting-control ((obj setting-control))
|
|
(local-vars (v1-41 symbol))
|
|
(with-pp
|
|
(run-pending-updates! (-> obj engine-pers) (-> *display* base-clock frame-counter))
|
|
(apply-settings obj)
|
|
(let ((s5-0 (-> obj user-current)))
|
|
(let ((s4-0 (-> obj user-target)))
|
|
(when *sound-player-enable*
|
|
(when (!= (-> s5-0 sfx-volume) (-> s4-0 sfx-volume))
|
|
(seek! (-> s5-0 sfx-volume) (-> s4-0 sfx-volume) (-> pp clock seconds-per-frame))
|
|
(sound-set-volume (sound-group sfx) (-> s5-0 sfx-volume))
|
|
)
|
|
(when (!= (-> s5-0 music-volume) (-> s4-0 music-volume))
|
|
(seek! (-> s5-0 music-volume) (-> s4-0 music-volume) (-> pp clock seconds-per-frame))
|
|
(sound-set-volume (sound-group music) (* 0.75 (-> s5-0 music-volume)))
|
|
)
|
|
(when (!= (-> s5-0 dialog-volume) (-> s4-0 dialog-volume))
|
|
(seek! (-> s5-0 dialog-volume) (-> s4-0 dialog-volume) (-> pp clock seconds-per-frame))
|
|
(sound-set-volume (sound-group dialog dialog2) (-> s5-0 dialog-volume))
|
|
)
|
|
(when (!= (-> s5-0 ambient-volume) (-> s4-0 ambient-volume))
|
|
(seek! (-> s5-0 ambient-volume) (-> s4-0 ambient-volume) (-> pp clock seconds-per-frame))
|
|
(sound-set-volume (sound-group ambient) (-> s5-0 ambient-volume))
|
|
)
|
|
)
|
|
(when (!= (-> s5-0 language) (-> s4-0 language))
|
|
(set! (-> s5-0 language) (-> s4-0 language))
|
|
(case (-> s5-0 language)
|
|
(((language-enum uk-english))
|
|
(set-language (language-enum english))
|
|
)
|
|
(else
|
|
(set-language (-> s5-0 language))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s5-0 subtitle-language) (-> s4-0 subtitle-language))
|
|
(when (!= (-> s5-0 stereo-mode) (-> s4-0 stereo-mode))
|
|
(set! (-> s5-0 stereo-mode) (-> s4-0 stereo-mode))
|
|
(sound-set-stereo-mode (the-as stereo-mode (-> s5-0 stereo-mode)))
|
|
)
|
|
(when (and (!= (-> s4-0 music) (-> s5-0 music))
|
|
(and (zero? (rpc-busy? 1))
|
|
(or (not (-> s4-0 music))
|
|
(and (< 0.0 (-> s5-0 music-volume)) (not (load-in-progress? *level*)) (not (-> s5-0 movie)))
|
|
)
|
|
(begin
|
|
(countdown (v1-40 3)
|
|
(when (not (-> *level* sound-bank v1-40))
|
|
(set! v1-41 #f)
|
|
(goto cfg-37)
|
|
)
|
|
)
|
|
(set! v1-41 #t)
|
|
(label cfg-37)
|
|
(and v1-41 (not *master-exit*))
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((-> s4-0 music)
|
|
(format 0 "Load music ~A~%" (-> s4-0 music))
|
|
(set! (-> s5-0 sound-flava) (the-as uint 0))
|
|
(sound-music-load (string->sound-name (symbol->string (-> s4-0 music))))
|
|
)
|
|
(else
|
|
(format 0 "Unload music~%")
|
|
(sound-music-unload)
|
|
)
|
|
)
|
|
(set! (-> s5-0 music) (-> s4-0 music))
|
|
)
|
|
(set! (-> s4-0 sound-excitement) (fmax 0.0 (fmin 0.99 (-> s4-0 sound-excitement))))
|
|
(set! (-> s4-0 sound-reverb) (fmax 0.0 (fmin 1.0 (-> s4-0 sound-reverb))))
|
|
(when (and (nonzero? (-> obj user-default sound-stinger))
|
|
(>= (- (-> *display* base-clock frame-counter) (-> obj sound-stinger-time)) (seconds 0.5))
|
|
)
|
|
(set! (-> obj user-default sound-stinger) 0)
|
|
0
|
|
)
|
|
(when *sound-player-enable*
|
|
(cond
|
|
((!= (-> s5-0 sound-flava) (-> s4-0 sound-flava))
|
|
(set! (-> s5-0 sound-flava) (-> s4-0 sound-flava))
|
|
(sound-set-midi-reg 14 (the-as int (-> s5-0 sound-flava)))
|
|
)
|
|
((!= (-> s5-0 sound-reverb) (-> s4-0 sound-reverb))
|
|
(set! (-> s5-0 sound-reverb) (-> s4-0 sound-reverb))
|
|
(sound-set-reverb 4 (-> s5-0 sound-reverb) (-> s5-0 sound-reverb) (the-as uint 3))
|
|
)
|
|
((!= (-> s5-0 sound-mode) (-> s4-0 sound-mode))
|
|
(set! (-> s5-0 sound-mode) (-> s4-0 sound-mode))
|
|
(sound-set-midi-reg 3 (the-as int (-> s5-0 sound-mode)))
|
|
)
|
|
((!= (-> s5-0 sound-tune) (-> s4-0 sound-tune))
|
|
(set! (-> s5-0 sound-tune) (-> s4-0 sound-tune))
|
|
(sound-set-midi-reg 4 (the-as int (-> s5-0 sound-tune)))
|
|
)
|
|
((!= (-> s5-0 sound-stinger) (-> s4-0 sound-stinger))
|
|
(set! (-> s5-0 sound-stinger) (-> s4-0 sound-stinger))
|
|
(sound-set-midi-reg 0 (-> s5-0 sound-stinger))
|
|
(set! (-> obj sound-stinger-time) (-> *display* base-clock frame-counter))
|
|
)
|
|
((!= (the int (* 4.0 (-> s4-0 sound-excitement))) (the int (* 4.0 (-> obj sound-excitement-targ))))
|
|
(let ((v1-87 (max 0 (min 3 (the int (* 4.0 (-> s4-0 sound-excitement)))))))
|
|
(when (and (< (-> obj sound-excitement-targ) (-> s4-0 sound-excitement))
|
|
(< (the-as int (-> obj sound-excitement-level)) v1-87)
|
|
(zero? (-> obj user-default sound-stinger))
|
|
)
|
|
(set! (-> obj sound-stinger-time) (-> *display* base-clock frame-counter))
|
|
(set! (-> obj sound-stinger-change-time v1-87) (-> *display* base-clock frame-counter))
|
|
(set! (-> obj user-default sound-stinger) (+ v1-87 9))
|
|
)
|
|
(cond
|
|
((< (the-as int (-> obj sound-excitement-level)) v1-87)
|
|
(set! (-> obj sound-excitement-level) (the-as uint v1-87))
|
|
)
|
|
((< v1-87 (the-as int (+ (-> obj sound-excitement-level) -1)))
|
|
(set! (-> obj sound-excitement-level) (the-as uint (+ v1-87 1)))
|
|
)
|
|
((zero? v1-87)
|
|
(set! (-> obj sound-excitement-level) (the-as uint v1-87))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> obj sound-excitement-change-time) (-> *display* base-clock frame-counter))
|
|
(set! (-> obj sound-excitement-targ) (-> s4-0 sound-excitement))
|
|
)
|
|
((and (!= (the int (* 4.0 (-> s5-0 sound-excitement))) (the int (* 4.0 (-> obj sound-excitement-targ))))
|
|
(>= (- (-> *display* base-clock frame-counter) (-> obj sound-excitement-change-time)) (seconds 0.8))
|
|
)
|
|
(max 0 (min 3 (the int (* 4.0 (-> obj sound-excitement-targ)))))
|
|
(sound-set-midi-reg 2 (the int (* 100.0 (-> s5-0 sound-excitement))))
|
|
(set! (-> s5-0 sound-excitement) (-> obj sound-excitement-targ))
|
|
(sound-set-midi-reg 16 (the int (* 100.0 (-> s5-0 sound-excitement))))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s5-0 mode-sound-bank) (-> s4-0 mode-sound-bank))
|
|
(when (!= (-> s5-0 aspect-ratio) (-> s4-0 aspect-ratio))
|
|
(set! (-> s5-0 aspect-ratio) (-> s4-0 aspect-ratio))
|
|
(set-aspect-ratio (-> s5-0 aspect-ratio))
|
|
)
|
|
(when (!= (-> s5-0 use-progressive-scan) (-> s4-0 use-progressive-scan))
|
|
(set! (-> s5-0 use-progressive-scan) (-> s4-0 use-progressive-scan))
|
|
(set! (-> *video-params* set-video-mode) #t)
|
|
)
|
|
(when (!= (-> s5-0 video-mode) (-> s4-0 video-mode))
|
|
(set! (-> s5-0 video-mode) (-> s4-0 video-mode))
|
|
(set-video-mode (-> s5-0 video-mode))
|
|
)
|
|
(when (!= (-> s5-0 display-dx) (-> s4-0 display-dx))
|
|
(set! (-> s5-0 display-dx) (-> s4-0 display-dx))
|
|
(set! (-> *video-params* display-dx) (/ (-> s4-0 display-dx) 2))
|
|
)
|
|
(when (!= (-> s5-0 display-dy) (-> s4-0 display-dy))
|
|
(set! (-> s5-0 display-dy) (-> s4-0 display-dy))
|
|
(set! (-> *video-params* display-dy) (* (/ (-> s4-0 display-dy) 2) 2))
|
|
)
|
|
(set! (-> *blit-displays-work* horizontal-flip-flag)
|
|
(logtest? (-> *game-info* secrets) (game-secrets hflip-screen))
|
|
)
|
|
(set! (-> s5-0 allow-blackout) (-> s4-0 allow-blackout))
|
|
(set! (-> s5-0 bg-a-speed) (-> s4-0 bg-a-speed))
|
|
(set! (-> s5-0 bg-a-force) (-> s4-0 bg-a-force))
|
|
(set! (-> s5-0 bg-r) (-> s4-0 bg-r))
|
|
(set! (-> s5-0 bg-g) (-> s4-0 bg-g))
|
|
(set! (-> s5-0 bg-b) (-> s4-0 bg-b))
|
|
(seek! (-> s5-0 bg-a) (-> s4-0 bg-a) (* (-> s4-0 bg-a-speed) (-> pp clock seconds-per-frame)))
|
|
(let ((v1-133 *display*))
|
|
(let ((f0-71 (-> s5-0 bg-a)))
|
|
(if (!= (-> s5-0 bg-a-force) 0.0)
|
|
(set! f0-71 (-> s5-0 bg-a-force))
|
|
)
|
|
(if (not (-> s5-0 allow-blackout))
|
|
(set! f0-71 0.0)
|
|
)
|
|
(set! (-> v1-133 bgcolor r) (the int (* 255.0 (-> s5-0 bg-r))))
|
|
(set! (-> v1-133 bgcolor g) (the int (* 255.0 (-> s5-0 bg-g))))
|
|
(set! (-> v1-133 bgcolor b) (the int (* 255.0 (-> s5-0 bg-b))))
|
|
(set! (-> v1-133 pmode alp) (the int (* 255.0 (- 1.0 f0-71))))
|
|
)
|
|
(set! (-> v1-133 run-half-speed) (the-as basic (-> s5-0 half-speed)))
|
|
)
|
|
(set! (-> s5-0 spotlight-color) (-> s4-0 spotlight-color))
|
|
)
|
|
(set! (-> *texture-pool* common-page-mask) (-> s5-0 unknown-int32-00))
|
|
(set! (-> *cpad-list* cpads 0 buzz) (the-as basic (-> s5-0 vibration)))
|
|
(let ((v1-137 *ocean*))
|
|
(case (-> s5-0 ocean-off)
|
|
((#t)
|
|
(set! (-> v1-137 off) #t)
|
|
)
|
|
(('mid)
|
|
(set! (-> v1-137 mid-off) #t)
|
|
)
|
|
(('near)
|
|
(set! (-> v1-137 near-off) #t)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *mouse* active) (-> s5-0 mouse))
|
|
(set! (-> *mouse* cursor) (the-as basic (and (-> s5-0 mouse) (-> s5-0 cursor))))
|
|
)
|
|
(let ((s5-1 (-> obj cam-current)))
|
|
(let ((s4-1 (-> obj cam-target)))
|
|
(set! (-> s5-1 entity-or-mode-changed) #f)
|
|
(if (and (not (name= (-> s5-1 entity-name) (-> s4-1 entity-name)))
|
|
(or (not *target*) (not (logtest? (-> *target* focus-status) (-> s4-1 entity-mask))))
|
|
)
|
|
(set! (-> s4-1 entity-or-mode-changed) #t)
|
|
)
|
|
(if (!= (-> s5-1 mode-name) (-> s4-1 mode-name))
|
|
(set! (-> s4-1 entity-or-mode-changed) #t)
|
|
)
|
|
(set! (-> s5-1 teleport-on-entity-change) (-> s4-1 teleport-on-entity-change))
|
|
(cam-master-set-entity s4-1)
|
|
(cond
|
|
((not (-> s4-1 entity-or-mode-changed))
|
|
)
|
|
((or (= (-> s5-1 cam-mode) cam-eye) (= (-> s4-1 cam-mode) cam-eye))
|
|
(set! (-> s4-1 no-intro) #t)
|
|
(set! (-> s4-1 interp-time) (the-as uint 60))
|
|
(set! (-> s4-1 1Tinterp-time-priority) (the-as uint 2))
|
|
)
|
|
((= (-> s4-1 cam-mode) cam-endlessfall)
|
|
(set! (-> s4-1 no-intro) #t)
|
|
(set! (-> s4-1 interp-time) (the-as uint 30))
|
|
(set! (-> s4-1 1Tinterp-time-priority) (the-as uint 2))
|
|
)
|
|
((or (= (-> s5-1 cam-mode) cam-free-floating) (= (-> s4-1 cam-mode) cam-free-floating))
|
|
(set! (-> s4-1 interp-time) (the-as uint 0))
|
|
(set! (-> s4-1 1Tinterp-time-priority) (the-as uint 2))
|
|
)
|
|
)
|
|
(set! (-> s5-1 entity-name) (-> s4-1 entity-name))
|
|
(set! (-> s5-1 entity-mask) (-> s4-1 entity-mask))
|
|
(set! (-> s5-1 mode-name) (-> s4-1 mode-name))
|
|
(let ((v1-173 (-> s4-1 entity-or-mode-changed)))
|
|
(set! (-> s5-1 entity-or-mode-changed) v1-173)
|
|
(when v1-173
|
|
(set! (-> s5-1 real-entity-name) (-> s4-1 real-entity-name))
|
|
(set! (-> s5-1 cam-mode) (-> s4-1 cam-mode))
|
|
)
|
|
)
|
|
(+! (-> s5-1 fov) (fmax -182.04445 (fmin 182.04445 (* 0.1 (- (-> s4-1 fov) (-> s5-1 fov))))))
|
|
(set! (-> s5-1 pov-handle) (-> s4-1 pov-handle))
|
|
(set! (-> s5-1 pov-bone) (-> s4-1 pov-bone))
|
|
(set! (-> s5-1 pov-offset quad) (-> s4-1 pov-offset quad))
|
|
(set! (-> s5-1 string-default) (-> s4-1 string-default))
|
|
(set! (-> s5-1 string-max-length-default) (-> s4-1 string-max-length-default))
|
|
(set! (-> s5-1 string-min-length-default) (-> s4-1 string-min-length-default))
|
|
(set! (-> s5-1 string-max-height-default) (-> s4-1 string-max-height-default))
|
|
(set! (-> s5-1 string-min-height-default) (-> s4-1 string-min-height-default))
|
|
(set! (-> s5-1 string-max-length) (-> s4-1 string-max-length))
|
|
(set! (-> s5-1 string-min-length) (-> s4-1 string-min-length))
|
|
(set! (-> s5-1 string-max-height) (-> s4-1 string-max-height))
|
|
(set! (-> s5-1 string-min-height) (-> s4-1 string-min-height))
|
|
(set! (-> s5-1 string-cliff-height) (-> s4-1 string-cliff-height))
|
|
(set! (-> s5-1 string-camera-ceiling) (-> s4-1 string-camera-ceiling))
|
|
(cond
|
|
((-> s5-1 string-default)
|
|
(set! (-> s5-1 gun-min-height) (-> s4-1 gun-min-height))
|
|
(set! (-> s5-1 gun-max-height) (-> s4-1 gun-max-height))
|
|
)
|
|
(else
|
|
(set! (-> s5-1 gun-min-height) (-> s4-1 string-min-height))
|
|
(set! (-> s5-1 gun-max-height) (-> s4-1 string-max-height))
|
|
)
|
|
)
|
|
(set! (-> s5-1 string-local-down quad) (-> s4-1 string-local-down quad))
|
|
(set! (-> s5-1 slave-options) (-> s4-1 slave-options))
|
|
(seek! (-> s5-1 matrix-blend-max-angle) (-> s4-1 matrix-blend-max-angle) 182.04445)
|
|
(seek! (-> s5-1 matrix-blend-max-partial) (-> s4-1 matrix-blend-max-partial) 0.05)
|
|
(set! (-> s5-1 string-spline-max-move) (-> s4-1 string-spline-max-move))
|
|
(set! (-> s5-1 string-spline-accel) (-> s4-1 string-spline-accel))
|
|
(set! (-> s5-1 string-spline-max-move-player) (-> s4-1 string-spline-max-move-player))
|
|
(set! (-> s5-1 string-spline-accel-player) (-> s4-1 string-spline-accel-player))
|
|
(set! (-> s5-1 target-height) (-> s4-1 target-height))
|
|
(set! (-> s5-1 head-offset) (-> s4-1 head-offset))
|
|
(set! (-> s5-1 foot-offset) (-> s4-1 foot-offset))
|
|
(set! (-> s5-1 master-options) (-> s4-1 master-options))
|
|
(set! (-> s5-1 no-intro) (-> s4-1 no-intro))
|
|
(set! (-> s5-1 mouse-input) (-> s4-1 mouse-input))
|
|
(set! (-> s5-1 cpad1-skip-buttons) (-> s4-1 cpad1-skip-buttons))
|
|
(set! (-> s5-1 interp-time) (-> s4-1 interp-time))
|
|
(set! (-> s5-1 1Tinterp-time-priority) (-> s4-1 1Tinterp-time-priority))
|
|
(set! (-> s5-1 string-use-startup-vector) (-> s4-1 string-use-startup-vector))
|
|
(set! (-> s5-1 string-startup-vector quad) (-> s4-1 string-startup-vector quad))
|
|
(set! (-> s5-1 use-look-at-point) (-> s4-1 use-look-at-point))
|
|
(set! (-> s5-1 look-at-point quad) (-> s4-1 look-at-point quad))
|
|
(set! (-> s5-1 use-point-of-interest) (-> s4-1 use-point-of-interest))
|
|
(set! (-> s5-1 point-of-interest quad) (-> s4-1 point-of-interest quad))
|
|
(set! (-> s5-1 use-mouse-tumble-point) (-> s4-1 use-mouse-tumble-point))
|
|
(set! (-> s5-1 mouse-tumble-point quad) (-> s4-1 mouse-tumble-point quad))
|
|
(set! (-> s5-1 handle-of-interest) (-> s4-1 handle-of-interest))
|
|
(let* ((s3-1 (handle->process (-> s5-1 handle-of-interest)))
|
|
(a0-147 (the-as process-focusable (if (type? s3-1 process-focusable)
|
|
(the-as process-focusable s3-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (the-as process a0-147)
|
|
(set! (-> s5-1 use-point-of-interest) #t)
|
|
(set! (-> s5-1 point-of-interest quad) (-> (get-trans a0-147 4) quad))
|
|
)
|
|
)
|
|
(set! (-> obj cam-default point-of-interest quad) (-> s5-1 point-of-interest quad))
|
|
(set! (-> s5-1 butt-handle) (-> s4-1 butt-handle))
|
|
(set! (-> s5-1 butt-angle) (-> s4-1 butt-angle))
|
|
(set! (-> s5-1 extra-follow-height) (-> s4-1 extra-follow-height))
|
|
)
|
|
(if (-> s5-1 entity-or-mode-changed)
|
|
(cam-master-activate-slave #f)
|
|
)
|
|
)
|
|
(-> obj user-current)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(when (zero? *setting-control*)
|
|
(kmemopen global "settings")
|
|
(set! *setting-control* (new 'global 'setting-control 64))
|
|
(kmemclose)
|
|
(let ((gp-0 (-> *setting-control* user-default))
|
|
(s5-0 (-> *setting-control* user-current))
|
|
)
|
|
(let ((f0-1 (the float (scf-get-volume))))
|
|
(set! (-> gp-0 ocean-off) #f)
|
|
(set! (-> gp-0 weather) #t)
|
|
(set! (-> gp-0 cursor) #f)
|
|
(set! (-> gp-0 mouse) #f)
|
|
(set! (-> gp-0 allow-look-around) #t)
|
|
(set! (-> gp-0 border-mode) #f)
|
|
(set! (-> gp-0 region-mode) #t)
|
|
(set! (-> gp-0 borrow) '())
|
|
(set! (-> gp-0 sfx-volume) (* 0.01000001 f0-1))
|
|
(set! (-> gp-0 music-volume) (* 0.01000001 f0-1))
|
|
(set! (-> gp-0 dialog-volume) (* 0.01000001 f0-1))
|
|
(set! (-> gp-0 ambient-volume) (* 0.01000001 f0-1))
|
|
(set! (-> gp-0 sfx-movie-volume) (* 0.006000006 f0-1))
|
|
(set! (-> gp-0 music-volume-movie) (* 0.0 f0-1))
|
|
(set! (-> gp-0 ambient-volume-move) (* 0.006000006 f0-1))
|
|
(set! (-> gp-0 dialog-volume-hint) (* 0.008000008 f0-1))
|
|
)
|
|
(set! (-> gp-0 spotlight-color) (new 'static 'rgba :r #xf0 :g #xf0 :b #xf0 :a #x80))
|
|
(set! (-> gp-0 task-mask) (task-mask ctywide never))
|
|
(set! (-> gp-0 task-manager) (the-as (pointer process) #f))
|
|
(set! (-> gp-0 task) #f)
|
|
(set! (-> gp-0 exclusive-task) 0)
|
|
(set! (-> gp-0 exclusive-load) #f)
|
|
(set! (-> gp-0 minimap) (the-as uint 160))
|
|
(set! (-> gp-0 race-minimap) -1)
|
|
(set! (-> gp-0 language) (scf-get-language))
|
|
(set! (-> gp-0 subtitle-language) (-> gp-0 language))
|
|
(set! (-> gp-0 process-mask) (process-mask execute sleep))
|
|
(set! (-> gp-0 use-progressive-scan) #f)
|
|
(set! (-> gp-0 display-dx) 0)
|
|
(set! (-> gp-0 display-dy) 0)
|
|
(set! (-> gp-0 vibration)
|
|
(if (or (= *kernel-boot-message* 'demo) (= *kernel-boot-message* 'demo-shared) (nonzero? (scf-get-territory)))
|
|
#f
|
|
#t
|
|
)
|
|
)
|
|
(set! (-> gp-0 unknowng-symbol-00) #f)
|
|
(set! (-> gp-0 auto-save) #f)
|
|
(set! (-> gp-0 play-hints) #t)
|
|
(set! (-> gp-0 sound-bank-load) #t)
|
|
(set! (-> gp-0 subtitle)
|
|
(if (or (= *kernel-boot-message* 'demo) (or (= *kernel-boot-message* 'demo-shared) (!= (scf-get-territory) 1)))
|
|
#f
|
|
#t
|
|
)
|
|
)
|
|
(let ((v1-31 (scf-get-territory)))
|
|
(set! (-> gp-0 beard) (if (or (= v1-31 2) (= v1-31 3))
|
|
#f
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
(set! (-> gp-0 movie) (the-as (pointer process) #f))
|
|
(set! (-> gp-0 movie-name) #f)
|
|
(set! (-> gp-0 talking) (the-as (pointer process) #f))
|
|
(set! (-> gp-0 spooling) (the-as (pointer process) #f))
|
|
(set! (-> gp-0 spool-anim) #f)
|
|
(set! (-> gp-0 hint) (the-as (pointer process) #f))
|
|
(set! (-> gp-0 ambient) (the-as (pointer process) #f))
|
|
(set! (-> gp-0 duck) #t)
|
|
(set! (-> gp-0 jump) #t)
|
|
(set! (-> gp-0 double-jump) #t)
|
|
(set! (-> gp-0 darkjak) #t)
|
|
(set! (-> gp-0 endlessfall) #t)
|
|
(set! (-> gp-0 pilot) #t)
|
|
(set! (-> gp-0 pilot-exit) #t)
|
|
(set! (-> gp-0 attack) #t)
|
|
(set! (-> gp-0 board) #t)
|
|
(set! (-> gp-0 gun) #t)
|
|
(set! (-> gp-0 doorway) #f)
|
|
(set! (-> gp-0 airlock) #t)
|
|
(set! (-> gp-0 gun-buoy) #t)
|
|
(set! (-> gp-0 speech-control) #t)
|
|
(set! (-> gp-0 vehicle-hijacking) #t)
|
|
(set! (-> gp-0 ignore-target) #f)
|
|
(set! (-> gp-0 gen) #t)
|
|
(set! (-> gp-0 half-speed) #f)
|
|
(set! (-> gp-0 render) #t)
|
|
(set! (-> gp-0 speed-mult) 1.0)
|
|
(set! (-> gp-0 rain) 0.0)
|
|
(set! (-> gp-0 snow) 0.0)
|
|
(set! (-> gp-0 features) (the-as game-feature -1))
|
|
(set! (-> gp-0 sound-flava) (the-as uint 0))
|
|
(set! (-> gp-0 sound-flava-priority) 0.0)
|
|
(set! (-> gp-0 sound-reverb) 0.0)
|
|
(set! (-> gp-0 mode-sound-bank) (the-as uint #f))
|
|
(set! (-> gp-0 music) #f)
|
|
(set! (-> gp-0 extra-bank) '())
|
|
(set! (-> gp-0 bg-a-speed) 8.0)
|
|
(set! (-> gp-0 under-water-pitch-mod) 0.0)
|
|
(set! (-> gp-0 allow-pause) #t)
|
|
(set! (-> gp-0 allow-progress) #t)
|
|
(set! (-> gp-0 allow-continue) #t)
|
|
(set! (-> gp-0 allow-timeout) #f)
|
|
(set! (-> gp-0 allow-error) #t)
|
|
(set! (-> gp-0 mirror) #f)
|
|
(set! (-> gp-0 unknown-int32-00) 1)
|
|
(set! (-> gp-0 stereo-mode) 1)
|
|
(set! (-> gp-0 movie-skip-frame) -1.0)
|
|
(set! (-> gp-0 allow-blackout) #t)
|
|
(set! (-> gp-0 bg-a) 1.0)
|
|
(case (scf-get-aspect)
|
|
((2)
|
|
(set! (-> gp-0 aspect-ratio) 'aspect16x9)
|
|
)
|
|
(else
|
|
(set! (-> gp-0 aspect-ratio) 'aspect4x3)
|
|
)
|
|
)
|
|
(if (zero? *boot-video-mode*)
|
|
(set! (-> gp-0 video-mode) 'ntsc)
|
|
(set! (-> gp-0 video-mode) 'pal)
|
|
)
|
|
(set! (-> s5-0 borrow) (-> gp-0 borrow))
|
|
(set! (-> s5-0 sfx-volume) (+ -0.01 (-> gp-0 sfx-volume)))
|
|
(set! (-> s5-0 music-volume) (+ -0.01 (-> gp-0 music-volume)))
|
|
(set! (-> s5-0 dialog-volume) (+ -0.01 (-> gp-0 dialog-volume)))
|
|
(set! (-> s5-0 ambient-volume) (+ -0.01 (-> gp-0 ambient-volume)))
|
|
(set! (-> s5-0 sfx-movie-volume) (-> gp-0 sfx-movie-volume))
|
|
(set! (-> s5-0 music-volume-movie) (-> gp-0 music-volume-movie))
|
|
(set! (-> s5-0 ambient-volume-move) (-> gp-0 ambient-volume-move))
|
|
(set! (-> s5-0 dialog-volume-hint) (-> gp-0 dialog-volume-hint))
|
|
(set! (-> s5-0 spotlight-color) (-> gp-0 spotlight-color))
|
|
(set! (-> s5-0 movie) (-> gp-0 movie))
|
|
(set! (-> s5-0 movie-name) (-> gp-0 movie-name))
|
|
(set! (-> s5-0 talking) (-> gp-0 talking))
|
|
(set! (-> s5-0 spooling) (-> gp-0 spooling))
|
|
(set! (-> s5-0 spool-anim) (-> gp-0 spool-anim))
|
|
(set! (-> s5-0 hint) (-> gp-0 hint))
|
|
(set! (-> s5-0 ambient) (-> gp-0 ambient))
|
|
(set! (-> s5-0 language) (+ (-> gp-0 language) -1))
|
|
(set! (-> s5-0 subtitle-language) (-> gp-0 subtitle-language))
|
|
(set! (-> s5-0 aspect-ratio) #f)
|
|
(set! (-> s5-0 use-progressive-scan) #f)
|
|
(set! (-> s5-0 video-mode) #f)
|
|
(set! (-> s5-0 music) #f)
|
|
(set! (-> s5-0 extra-bank) '())
|
|
(set! (-> s5-0 allow-blackout) (-> gp-0 allow-blackout))
|
|
(set! (-> s5-0 bg-a-speed) (-> gp-0 bg-a-speed))
|
|
(set! (-> s5-0 under-water-pitch-mod) (-> gp-0 under-water-pitch-mod))
|
|
(set! (-> s5-0 allow-pause) (-> gp-0 allow-pause))
|
|
(set! (-> s5-0 allow-progress) (-> gp-0 allow-progress))
|
|
(set! (-> s5-0 allow-continue) (-> gp-0 allow-continue))
|
|
(set! (-> s5-0 allow-look-around) (-> gp-0 allow-look-around))
|
|
(set! (-> s5-0 allow-timeout) (-> gp-0 allow-timeout))
|
|
(set! (-> s5-0 allow-error) (-> gp-0 allow-error))
|
|
(set! (-> s5-0 mirror) (-> gp-0 mirror))
|
|
(set! (-> s5-0 ocean-off) (-> gp-0 ocean-off))
|
|
(set! (-> s5-0 weather) (-> gp-0 weather))
|
|
(set! (-> s5-0 mouse) (-> gp-0 mouse))
|
|
(set! (-> s5-0 cursor) (-> gp-0 cursor))
|
|
(set! (-> s5-0 mode-sound-bank) (the-as uint #f))
|
|
(set! (-> s5-0 sound-reverb) (+ 0.01 (-> gp-0 sound-reverb)))
|
|
(set! (-> s5-0 stereo-mode) 1)
|
|
(set! (-> s5-0 duck) (-> gp-0 duck))
|
|
(set! (-> s5-0 jump) (-> gp-0 jump))
|
|
(set! (-> s5-0 double-jump) (-> gp-0 double-jump))
|
|
(set! (-> s5-0 darkjak) (-> gp-0 darkjak))
|
|
(set! (-> s5-0 endlessfall) (-> gp-0 endlessfall))
|
|
(set! (-> s5-0 pilot) (-> gp-0 pilot))
|
|
(set! (-> s5-0 pilot-exit) (-> gp-0 pilot-exit))
|
|
(set! (-> s5-0 attack) (-> gp-0 attack))
|
|
(set! (-> s5-0 gun) (-> gp-0 gun))
|
|
(set! (-> s5-0 doorway) (-> gp-0 doorway))
|
|
(set! (-> s5-0 board) (-> gp-0 board))
|
|
(set! (-> s5-0 gen) (-> gp-0 gen))
|
|
(set! (-> s5-0 half-speed) (-> gp-0 half-speed))
|
|
(set! (-> s5-0 render) (-> gp-0 render))
|
|
(set! (-> s5-0 speed-mult) (-> gp-0 speed-mult))
|
|
(set! (-> s5-0 rain) (-> gp-0 rain))
|
|
(set! (-> s5-0 snow) (-> gp-0 snow))
|
|
(set! (-> s5-0 movie-skip-frame) (-> gp-0 movie-skip-frame))
|
|
(set! (-> s5-0 airlock) (-> gp-0 airlock))
|
|
(set! (-> s5-0 gun-buoy) (-> gp-0 gun-buoy))
|
|
(set! (-> s5-0 ignore-target) (-> gp-0 ignore-target))
|
|
(set! (-> s5-0 speech-control) (-> gp-0 speech-control))
|
|
(set! (-> s5-0 vehicle-hijacking) (-> gp-0 vehicle-hijacking))
|
|
(set! (-> s5-0 features) (-> gp-0 features))
|
|
(set! (-> s5-0 task-mask) (-> gp-0 task-mask))
|
|
(set! (-> s5-0 task) (-> gp-0 task))
|
|
(set! (-> s5-0 exclusive-task) (-> gp-0 exclusive-task))
|
|
(set! (-> s5-0 exclusive-load) (-> gp-0 exclusive-load))
|
|
(set! (-> s5-0 task-manager) (-> gp-0 task-manager))
|
|
(set! (-> s5-0 bg-a) (-> gp-0 bg-a))
|
|
)
|
|
(let ((v1-127 (-> *setting-control* cam-default)))
|
|
(let ((a0-29 (-> *setting-control* cam-current)))
|
|
(set! (-> v1-127 fov) 11650.845)
|
|
(set! (-> v1-127 pov-handle) (the-as handle #f))
|
|
(set! (-> v1-127 pov-bone) 0)
|
|
(vector-reset! (-> v1-127 pov-offset))
|
|
(set! (-> v1-127 string-default) #t)
|
|
(set! (-> v1-127 string-max-length-default) #t)
|
|
(set! (-> v1-127 string-min-length-default) #t)
|
|
(set! (-> v1-127 string-max-height-default) #t)
|
|
(set! (-> v1-127 string-min-height-default) #t)
|
|
(set! (-> v1-127 string-max-length) 51200.0)
|
|
(set! (-> v1-127 string-min-length) 20480.0)
|
|
(set! (-> v1-127 string-max-height) 12288.0)
|
|
(set! (-> v1-127 string-min-height) 4096.0)
|
|
(set! (-> v1-127 string-cliff-height) 163840.0)
|
|
(set! (-> v1-127 string-camera-ceiling) 4096000000.0)
|
|
(set! (-> v1-127 gun-min-height) -4096.0)
|
|
(set! (-> v1-127 gun-max-height) 32768.0)
|
|
(set-vector! (-> v1-127 string-local-down) 0.0 -1.0 0.0 1.0)
|
|
(set! (-> v1-127 slave-options) (cam-slave-options JUMP_PITCHES COLLIDE LINE_OF_SIGHT))
|
|
(set! (-> v1-127 matrix-blend-max-angle) 364.0889)
|
|
(set! (-> v1-127 matrix-blend-max-partial) 0.25)
|
|
(set! (-> v1-127 string-spline-max-move) 2457.6)
|
|
(set! (-> v1-127 string-spline-accel) 20.48)
|
|
(set! (-> v1-127 string-spline-max-move-player) 2457.6)
|
|
(set! (-> v1-127 string-spline-accel-player) 102.4)
|
|
(set! (-> v1-127 target-height) (-> *CAMERA_MASTER-bank* target-height))
|
|
(set! (-> v1-127 head-offset) (-> *CAMERA_MASTER-bank* onscreen-head-height))
|
|
(set! (-> v1-127 foot-offset) (-> *CAMERA_MASTER-bank* onscreen-foot-height))
|
|
(set! (-> v1-127 teleport-on-entity-change) #f)
|
|
(set! (-> v1-127 entity-name) #f)
|
|
(set! (-> v1-127 entity-mask) (the-as uint 32))
|
|
(set! (-> v1-127 entity-or-mode-changed) #f)
|
|
(set! (-> v1-127 master-options) (cam-master-options READ_BUTTONS))
|
|
(set! (-> v1-127 mode-name) #f)
|
|
(set! (-> v1-127 real-entity-name) #f)
|
|
(set! (-> v1-127 cam-mode) #f)
|
|
(set! (-> v1-127 no-intro) #f)
|
|
(set! (-> v1-127 mouse-input) #f)
|
|
(set! (-> v1-127 cpad1-skip-buttons) #f)
|
|
(set! (-> v1-127 interp-time) (the-as uint 450))
|
|
(set! (-> v1-127 1Tinterp-time-priority) (the-as uint 0))
|
|
(set! (-> v1-127 string-use-startup-vector) #f)
|
|
(set! (-> v1-127 use-look-at-point) #f)
|
|
(set! (-> v1-127 use-point-of-interest) #f)
|
|
(set! (-> v1-127 use-mouse-tumble-point) #f)
|
|
(set! (-> v1-127 handle-of-interest) (the-as handle #f))
|
|
(set! (-> a0-29 mouse-input) (-> v1-127 mouse-input))
|
|
(set! (-> a0-29 cpad1-skip-buttons) (-> v1-127 cpad1-skip-buttons))
|
|
(set! (-> a0-29 teleport-on-entity-change) (-> v1-127 teleport-on-entity-change))
|
|
(set! (-> a0-29 entity-name) (-> v1-127 entity-name))
|
|
(set! (-> a0-29 entity-mask) (-> v1-127 entity-mask))
|
|
(set! (-> a0-29 mode-name) (-> v1-127 mode-name))
|
|
(set! (-> a0-29 real-entity-name) (-> v1-127 real-entity-name))
|
|
(set! (-> a0-29 cam-mode) (-> v1-127 cam-mode))
|
|
(set! (-> a0-29 string-use-startup-vector) (-> v1-127 string-use-startup-vector))
|
|
(set! (-> a0-29 use-point-of-interest) (-> v1-127 use-point-of-interest))
|
|
(set! (-> a0-29 use-mouse-tumble-point) (-> v1-127 use-mouse-tumble-point))
|
|
(set! (-> a0-29 handle-of-interest) (-> v1-127 handle-of-interest))
|
|
)
|
|
(set! (-> v1-127 butt-handle) (the-as handle #f))
|
|
(set! (-> v1-127 butt-angle) 32768.0)
|
|
(set! (-> v1-127 extra-follow-height) 0.0)
|
|
)
|
|
)
|