mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-05-25 07:23:19 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
2fbd76eec0cceffbaca99319452b64f08cfc170e
jak-project/goal_src/engine/ui/progress/progress.gc
T
water111 911a8e32a4 [decomp] minor type cleanup (#874) 
* clean up some types

* clean up settings
2021-10-02 11:50:12 -04:00

3613 lines
110 KiB
Common Lisp
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; name: progress.gc
;; name in dgo: progress
;; dgos: GAME, ENGINE
(deftype progress-global-state (basic)
((aspect-ratio-choice symbol :offset-assert 4)
(video-mode-choice symbol :offset-assert 8)
(yes-no-choice symbol :offset-assert 12)
(which int32 :offset-assert 16)
(starting-state progress-screen :offset-assert 24)
(last-slot-saved int32 :offset-assert 32)
(slider-backup float :offset-assert 36)
(language-backup int64 :offset-assert 40)
(on-off-backup symbol :offset-assert 48)
(center-x-backup int32 :offset-assert 52)
(center-y-backup int32 :offset-assert 56)
(aspect-ratio-backup symbol :offset-assert 60)
(last-slider-sound int64 :offset-assert 64)
)
:method-count-assert 9
:size-assert #x48
:flag-assert #x900000048
)
(define *progress-state*
(new 'static 'progress-global-state
:yes-no-choice #f
:which -1
:last-slot-saved -1
)
)
(defun get-game-count ((arg0 int))
(-> *game-counts* data arg0)
)
(defun progress-allowed? ()
(not (or (-> *setting-control* current talking)
(-> *setting-control* current movie)
(movie?)
(handle->process (-> *game-info* pov-camera-handle))
(handle->process (-> *game-info* other-camera-handle))
(< (-> *display* base-frame-counter) (the-as int (-> *game-info* letterbox-time)))
(< (-> *display* base-frame-counter) (the-as int (-> *game-info* blackout-time)))
(!= (-> *setting-control* current bg-a) 0.0)
(!= (-> *setting-control* current bg-a-force) 0.0)
(not (-> *setting-control* current allow-progress))
(or (and (handle->process (-> *game-info* auto-save-proc))
(not (send-event (handle->process (-> *game-info* auto-save-proc)) 'progress-allowed?))
)
(not *target*)
)
)
)
)
(defun pause-allowed? ()
(not
(or
(<
(-> *display* base-frame-counter)
(the-as int (-> *game-info* blackout-time))
)
(!= (-> *setting-control* current bg-a) 0.0)
(!= (-> *setting-control* current bg-a-force) 0.0)
(not (-> *setting-control* current allow-pause))
(handle->process (-> *game-info* auto-save-proc))
(not *target*)
)
)
)
(defun init-game-options ((obj progress))
"Set the options for all of the menus."
;; start off by making them all invalid
(dotimes (i 35)
(set! (-> *options-remap* i) #f)
)
;; main menu
(set! (-> *options-remap* 3)
(case *kernel-boot-message*
(('demo)
;; game demo
*main-options-demo*
)
(('demo-shared)
;; game demo with external launcher
*main-options-demo-shared*
)
(else
;; normal game
*main-options*
)
)
)
(set! (-> *options-remap* 4)
(cond
((!= *kernel-boot-message* 'play)
(if (= (scf-get-territory) GAME_TERRITORY_SCEE)
*game-options*
*game-options-demo*
)
)
((and (= (scf-get-territory) GAME_TERRITORY_SCEI)
(not (and (= *progress-cheat* 'language)
(logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l2))
(logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons r2))
)
)
)
;; if ntsc-j and we're not using language cheat (needs l2+r2)
*game-options-japan*
)
(else
*game-options*
)
)
)
(set! (-> *options-remap* 5)
(if (and (= (-> *progress-state* starting-state) 27)
(or (= (scf-get-territory) GAME_TERRITORY_SCEE)
(and (= *progress-cheat* 'pal)
(logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l2))
(logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons r2))
)
)
)
;; (only if we came from title) if PAL or we're using the PAL cheat (needs l2+r2)
*graphic-title-options-pal*
*graphic-options*
)
)
(set! (-> *options-remap* 6) *sound-options*)
(set! (-> *options-remap* 7) *ok-options*)
(set! (-> *options-remap* 8) *ok-options*)
(set! (-> *options-remap* 9) *ok-options*)
(set! (-> *options-remap* 10) *yes-no-options*)
(set! (-> *options-remap* 11) *yes-no-options*)
(set! (-> *options-remap* 19) *ok-options*)
(set! (-> *options-remap* 16) *load-options*)
(set! (-> *options-remap* 17) *save-options*)
(set! (-> *options-remap* 18) *save-options-title*)
(set! (-> *options-remap* 20) *ok-options*)
(set! (-> *options-remap* 21) *ok-options*)
(set! (-> *options-remap* 24) *ok-options*)
(set! (-> *options-remap* 25) *ok-options*)
(set! (-> *options-remap* 26) *ok-options*)
(set! (-> *options-remap* 22) *ok-options*)
(set! (-> *options-remap* 23) *yes-no-options*)
(set! (-> *options-remap* 27) *title*)
(set! (-> *options-remap* 28) *options*)
(set! (-> *options-remap* 29) *ok-options*)
(set! (-> *options-remap* 30) *yes-no-options*)
(set! (-> *options-remap* 31) *yes-no-options*)
(set! (-> *options-remap* 32) *ok-options*)
(set! (-> *options-remap* 33) *ok-options*)
(set! (-> *options-remap* 34) *yes-no-options*)
(set! (-> *progress-state* aspect-ratio-choice) (get-aspect-ratio))
(set! (-> *progress-state* video-mode-choice) (get-video-mode))
(set! (-> *progress-state* yes-no-choice) #f)
(set! (-> *game-options* 0 value-to-modify) (&-> *setting-control* default vibration))
(set! (-> *game-options* 1 value-to-modify) (&-> *setting-control* default play-hints))
(set! (-> *game-options* 2 value-to-modify) (&-> *setting-control* default language))
(set! (-> *game-options-japan* 0 value-to-modify) (&-> *setting-control* default vibration))
(set! (-> *game-options-japan* 1 value-to-modify) (&-> *setting-control* default play-hints))
(set! (-> *game-options-demo* 0 value-to-modify) (&-> *setting-control* default vibration))
(set! (-> *game-options-demo* 1 value-to-modify) (&-> *setting-control* default play-hints))
(set! (-> *graphic-options* 1 value-to-modify) (&-> *progress-state* aspect-ratio-choice))
(set! (-> *graphic-title-options-pal* 1 value-to-modify) (&-> *progress-state* video-mode-choice))
(set! (-> *graphic-title-options-pal* 2 value-to-modify) (&-> *progress-state* aspect-ratio-choice))
(set! (-> *sound-options* 0 value-to-modify) (&-> *setting-control* default sfx-volume))
(set! (-> *sound-options* 1 value-to-modify) (&-> *setting-control* default music-volume))
(set! (-> *sound-options* 2 value-to-modify) (&-> *setting-control* default dialog-volume))
(set! (-> *yes-no-options* 0 value-to-modify) (&-> *progress-state* yes-no-choice))
(none)
)
(defun make-current-level-available-to-progress ()
"exactly what it says on the tin."
(when (and *target* (-> *level* border?))
(let* ((cur-lev (-> *target* current-level))
(lev-idx (+ (-> cur-lev info index) -1)))
(if (and (>= lev-idx 0)
(< lev-idx (-> *level-task-data-remap* length))
(zero? (-> *game-info* level-opened (-> *level-task-data-remap* lev-idx)))
(or (= *kernel-boot-message* 'play) (= (-> cur-lev nickname) 'mis)) ;; only allow misty in demo!
)
(set! (-> *game-info* level-opened (-> *level-task-data-remap* lev-idx)) 1)
)
)
)
(none)
)
(defun make-levels-with-tasks-available-to-progress ()
"Open levels that have tasks to do!"
;; go through EVERY LEVEL'S TASKS
(dotimes (i (length *level-task-data*))
;; level tasks
(let ((tasks (-> *level-task-data* i)))
;; unless there's no tasks or the level is already open...
(unless (or (= tasks #f) (= (-> *game-info* level-opened i) 1))
;; ...do stuff
(cond
((!= *kernel-boot-message* 'play)
;; open misty in demo regardless
(if (= (-> tasks level-name-id) (game-text-id misty-level-name))
(set! (-> *game-info* level-opened i) (the-as uint 1))
)
)
(*cheat-mode*
;; open every level in cheat mode regardless
(set! (-> *game-info* level-opened i) (the-as uint 1))
)
(else
(dotimes (ii (-> tasks nb-of-tasks))
(if (and (zero? (-> *game-info* level-opened ii))
(!= ii (-> tasks buzzer-task-index))
(task-known? (-> tasks task-info ii task-id))
)
;; open level if we know there's a task there and the level is closed
(set! (-> *game-info* level-opened ii) 1)
)
)
)
)
)
)
)
(none)
)
(defun get-next-task-up ((cur-task-idx int) (lev-idx int))
"find next available task. skips over unknown tasks and doesn't do anything if none are found"
(let ((gp-0 cur-task-idx))
(let ((s4-0 (+ cur-task-idx 1))
(s3-0 (-> *level-task-data* lev-idx))
)
(while (and (< s4-0 (-> s3-0 nb-of-tasks)) (= gp-0 cur-task-idx))
(if (or *cheat-mode* (task-known? (-> s3-0 task-info s4-0 task-id)))
(set! gp-0 s4-0)
)
(+! s4-0 1)
)
)
gp-0
)
)
(defun get-next-task-down ((cur-task-idx int) (lev-idx int))
"find previous available task. skips over unknown tasks and doesn't do anything if none are found"
(let ((gp-0 cur-task-idx))
(let ((s4-0 (+ cur-task-idx -1))
(s3-0 (-> *level-task-data* lev-idx))
)
(while (and (>= s4-0 0) (= gp-0 cur-task-idx))
(if (or *cheat-mode* (task-known? (-> s3-0 task-info s4-0 task-id)))
(set! gp-0 s4-0)
)
(+! s4-0 -1)
)
)
gp-0
)
)
(defun get-next-level-up ((lev-idx int))
(let ((gp-0 lev-idx))
(let ((s4-0 (+ lev-idx 1)))
(while (and (< s4-0 (length *level-task-data*)) (= gp-0 lev-idx))
(if (= (-> *game-info* level-opened s4-0) 1)
(set! gp-0 s4-0)
)
(+! s4-0 1)
)
)
gp-0
)
)
;; definition for function get-next-level-down
(defun get-next-level-down ((lev-idx int))
(let ((v0-0 lev-idx))
(let ((v1-0 (+ lev-idx -1)))
(while (and (>= v1-0 0) (= v0-0 lev-idx))
(if (= (-> *game-info* level-opened v1-0) 1)
(set! v0-0 v1-0)
)
(+! v1-0 -1)
)
)
v0-0
)
)
(defun calculate-completion ((the-progress progress))
"Updates counters and calculates game completion.
Cells are tallied 80%
Buzzers are tallied 10%
Orbs are tallied 10%"
(local-vars
(current-cells int)
(current-buzzers int)
(current-orbs int)
(total-cells int)
(total-buzzers int)
(total-orbs int)
)
(set! current-cells 0)
(set! current-buzzers 0)
(set! current-orbs 0)
(set! total-cells 0)
(set! total-buzzers 0)
(set! total-orbs 0)
(dotimes (s5-0 (length *level-task-data*))
(let ((s4-0 (-> *level-task-data* s5-0)))
(when (!= s4-0 #f)
(when (or (= *kernel-boot-message* 'play)
(= (-> s4-0 level-name-id) (game-text-id misty-level-name))
)
(dotimes (s3-0 (-> s4-0 nb-of-tasks))
(if (= (get-task-status (-> s4-0 task-info s3-0 task-id)) (task-status invalid))
(+! current-cells 1)
)
)
(+! total-cells (-> s4-0 nb-of-tasks))
(+! current-orbs (-> *game-info* money-per-level s5-0))
(+! total-orbs (-> *game-counts* data s5-0 money-count))
(let ((v1-20 (-> s4-0 buzzer-task-index)))
(when (!= v1-20 -1)
(+! current-buzzers (buzzer-count *game-info* (-> s4-0 task-info v1-20 task-id)))
(+! total-buzzers (-> *game-counts* data s5-0 buzzer-count))
)
)
)
)
)
)
(when the-progress
(set! (-> the-progress total-nb-of-power-cells) total-cells)
(set! (-> the-progress total-nb-of-buzzers) total-buzzers)
(set! (-> the-progress total-nb-of-orbs) total-orbs)
)
(+
(/ (* 80.0 (the float current-cells)) (the float total-cells))
(/ (* 10.0 (the float current-orbs)) (the float total-orbs))
(/ (* 10.0 (the float current-buzzers)) (the float total-buzzers))
)
)
(define *progress-save-info* (new 'global 'mc-slot-info))
(defmacro progress-make-manipy-icon (obj &key (skel #f)
&key (x #f)
&key (y #f)
&key (z #f)
&key (scale-x #f)
&key (scale-y #f)
)
`(with-pp
(when (< (-> ,obj nb-of-icons) 6)
(let ((icon-idx (-> ,obj nb-of-icons)))
(set! (-> ,obj icons icon-idx) (new 'static 'hud-icon))
(let ((new-manipy (make-init-process manipy manipy-init (new 'static 'vector :w 1.0) #f ,skel #f
:to ,obj
:stack *scratch-memory-top*
)))
(when new-manipy
;;(set! (-> (-> new-manipy) draw dma-add-func) dma-add-process-drawable-hud) TODO
(set-vector! (-> (-> new-manipy) root trans) 0.0 0.0 0.0 1.0)
(set-vector! (-> (-> new-manipy) root scale) ,scale-x ,scale-y ,scale-x 1.0)
(when #f
(send-event (ppointer->process new-manipy) 'trans-hook #f)
)
)
(set! (-> ,obj icons icon-idx icon) new-manipy)
(when new-manipy
(logior! (-> new-manipy 0 mask) (process-mask pause))
(logclear! (-> new-manipy 0 mask) (process-mask menu progress))
(set! (-> (-> new-manipy) root trans z) ,z)
(set! (-> ,obj icons icon-idx icon-x) ,x)
(set! (-> ,obj icons icon-idx icon-y) ,y)
(set! (-> ,obj icons icon-idx icon-z) 0)
(set! (-> ,obj icons icon-idx scale-x) ,scale-x)
(set! (-> ,obj icons icon-idx scale-y) ,scale-y)
)
)
)
(+! (-> ,obj nb-of-icons) 1)
)
)
)
(defmethod initialize-icons progress ((obj progress))
(progress-make-manipy-icon obj :skel *fuelcell-naked-sg*
:x 256
:y 77
:z (meters 0.5)
:scale-x 0.006
:scale-y 0.006
)
(progress-make-manipy-icon obj :skel *fuelcell-naked-sg*
:x 256
:y 77
:z (meters 0.5)
:scale-x 0.006
:scale-y 0.006
)
(progress-make-manipy-icon obj :skel *fuelcell-naked-sg*
:x 256
:y 77
:z (meters 0.5)
:scale-x 0.006
:scale-y 0.006
)
(progress-make-manipy-icon obj :skel *fuelcell-naked-sg*
:x 256
:y 77
:z (meters 0.5)
:scale-x 0.006
:scale-y 0.006
)
(progress-make-manipy-icon obj :skel *money-sg*
:x -320
:y 253
:z (meters 17)
:scale-x 0.013
:scale-y -0.015
)
(progress-make-manipy-icon obj :skel *money-sg*
:x -320
:y 253
:z (meters 0.25)
:scale-x 0.008
:scale-y -0.009
)
(send-event (ppointer->process (-> obj icons 1 icon)) 'set-frame-num 2.5)
(send-event (ppointer->process (-> obj icons 2 icon)) 'set-frame-num 10.0)
(send-event (ppointer->process (-> obj icons 3 icon)) 'set-frame-num 15.5)
(none)
)
(defmethod enter! progress ((obj progress) (screen progress-screen) (option int))
(when (!= (-> obj display-state) screen)
(set! (-> *progress-state* yes-no-choice) #f)
(set! (-> obj selected-option) #f)
(set! (-> obj option-index) option)
(set! (-> obj last-option-index-change) (-> *display* real-frame-counter))
(set! (-> obj display-state) screen)
(set! (-> obj next-display-state) screen)
(set-transition-speed! obj)
(case (-> obj display-state)
(((progress-screen memcard-creating))
(auto-save-command 'create-file 0 0 obj)
)
(((progress-screen memcard-loading))
(set! (-> *progress-state* last-slot-saved) (-> *progress-state* which))
(sound-volume-off)
(auto-save-command 'restore 0 (-> *progress-state* which) obj)
)
(((progress-screen memcard-saving))
(set! (-> *progress-state* last-slot-saved) (-> *progress-state* which))
(auto-save-command 'save 0 (-> *progress-state* which) obj)
)
(((progress-screen memcard-formatting))
(auto-save-command 'format-card 0 0 obj)
)
(((progress-screen save-game) (progress-screen load-game))
(set! (-> obj option-index) (max 0 (-> *progress-state* last-slot-saved)))
)
(((progress-screen memcard-removed))
(set! (-> *progress-state* last-slot-saved) 0)
)
)
)
(none)
)
(defmethod push! progress ((obj progress))
(let ((v1-0 (-> obj display-state-pos)))
(cond
((< v1-0 5)
(set! (-> obj display-state-stack v1-0) (-> obj display-state))
(set! (-> obj option-index-stack v1-0) (-> obj option-index))
(set! (-> obj display-state-pos) (+ v1-0 1))
)
(else
(format #t "ERROR: Can't push any more states on the display-state-stack.~%")
)
)
)
0
(none)
)
(defmethod pop! progress ((obj progress))
(let ((v1-0 (-> obj display-state-pos)))
(cond
((> v1-0 0)
(let ((a2-0 (+ v1-0 -1)))
(set! (-> obj display-state-pos) a2-0)
(enter! obj (-> obj display-state-stack a2-0) (-> obj option-index-stack a2-0))
)
)
(else
(set-master-mode 'game)
)
)
)
(none)
)
(defmethod set-transition-progress! progress ((obj progress) (arg0 int))
(set! (-> obj transition-offset) arg0)
(set! (-> obj transition-offset-invert) (- 512 arg0))
(set! (-> obj transition-percentage) (* 0.001953125 (the float arg0)))
(set!
(-> obj transition-percentage-invert)
(- 1.0 (-> obj transition-percentage))
)
0
(none)
)
(defmethod set-transition-speed! progress ((obj progress))
(let ((v1-0 (-> obj display-state)))
(if (or (= v1-0 0) (= v1-0 1) (= v1-0 2) (= v1-0 16) (= v1-0 17) (= v1-0 18))
(set! (-> obj transition-speed) 15.0)
(set! (-> obj transition-speed) 45.0)
)
)
0
(none)
)
(define-extern progress-waiting (state progress))
(defbehavior progress-init-by-other progress ()
(logclear! (-> self mask) (process-mask menu progress))
(set! (-> self nb-of-particles) 0)
(set! (-> self max-nb-of-particles) 40)
(set! (-> self nb-of-icons) 0)
(set! (-> self in-out-position) 4096)
(set! (-> self current-debug-string) 0)
(set! (-> self current-debug-group) 0)
(set! (-> self display-level-index) 0)
(set! (-> self next-level-index) 0)
(set! (-> self option-index) 0)
(set! (-> self selected-option) #f)
(set! (-> self card-info) #f)
(set! (-> self last-option-index-change) (-> *display* real-frame-counter))
(set! (-> self display-state-pos) 0)
(set! (-> self in-transition) #f)
(set! (-> self force-transition) #f)
(set! (-> self stat-transition) #f)
(set! (-> self level-transition) 0)
(set! (-> self left-side-x-scale) 0.0)
(set! (-> self left-side-y-scale) 0.0)
(set! (-> self right-side-x-scale) 0.0)
(set! (-> self right-side-y-scale) 0.0)
(dotimes (v1-6 5)
(set! (-> self display-state-stack v1-6) (the progress-screen 0))
)
(init-game-options self)
(initialize-icons self)
(initialize-particles self)
(set! (-> self particle-state 0) 0)
(set! (-> self particle-state 1) 0)
(set! (-> self particle-state 2) 0)
(set! (-> self particle-state 3) 0)
(set! (-> self particle-state 4) 0)
(set! (-> self particle-state 5) 0)
(set! (-> self particle-state 6) 1)
(set! (-> self particle-state 7) 1)
(set! (-> self particle-state 8) 1)
(set! (-> self particle-state 9) 1)
(set! (-> self particle-state 10) 1)
(set! (-> self particle-state 11) 1)
(set! (-> self particle-state 12) 1)
(set! (-> self particle-state 13) 1)
(set! (-> self particle-state 14) 0)
(set! (-> self particle-state 15) 0)
(set! (-> self particle-state 16) 3)
(set! (-> self particle-state 17) 0)
(set! (-> self particle-state 18) 0)
(set! (-> self particle-state 19) 0)
(set! (-> self particle-state 20) 0)
(set! (-> self particle-state 21) 0)
(set! (-> self particle-state 22) 0)
(set! (-> self particle-state 23) 0)
(set! (-> self particle-state 24) 0)
(set! (-> self particle-state 25) 0)
(set! (-> self particle-state 26) 0)
(set! (-> self particle-state 27) 0)
(set! (-> self particle-state 28) 0)
(set! (-> self particle-state 29) 0)
(set! (-> self particle-state 30) 0)
(set! (-> self particle-state 31) 0)
(let ((gp-0 (new 'stack-no-clear 'quaternion)))
(quaternion-axis-angle! gp-0 0.0 1.0 0.0 16384.0)
(quaternion*! (-> self icons 0 icon 0 root quat) gp-0 (-> self icons 0 icon 0 root quat))
(quaternion-axis-angle! gp-0 0.0 1.0 0.0 32768.0)
(quaternion*! (-> self icons 1 icon 0 root quat) gp-0 (-> self icons 1 icon 0 root quat))
(quaternion-axis-angle! gp-0 0.0 1.0 0.0 49152.0)
(quaternion*! (-> self icons 2 icon 0 root quat) gp-0 (-> self icons 2 icon 0 root quat))
(quaternion-axis-angle! gp-0 0.0 1.0 0.0 0.0)
(quaternion*! (-> self icons 3 icon 0 root quat) gp-0 (-> self icons 3 icon 0 root quat))
)
(adjust-ratios self (get-aspect-ratio) (get-video-mode))
(adjust-icons self)
(set! (-> self event-hook) (-> progress-waiting event))
(go progress-waiting)
(none)
)
(define *progress-stack* (the (pointer uint8) (malloc 'global #x3800)))
(defconstant *progress-stack-top* (&-> *progress-stack* #x3800))
(defun activate-progress ((creator process) (screen progress-screen))
(when *target*
(cond
((not *progress-process*)
(when (progress-allowed?)
;;(hide-hud) TODO
(make-levels-with-tasks-available-to-progress)
(disable-level-text-file-loading)
(set! (-> *progress-state* starting-state) screen)
(set! *progress-process* (make-init-process progress progress-init-by-other
:to creator
:stack *progress-stack-top*))
(let ((s5-1 *progress-process*))
(set! (-> s5-1 0 completion-percentage) (calculate-completion (-> s5-1 0)))
(set! *master-mode* 'progress)
(let ((s4-1 (-> *target* current-level)))
(cond
((!= *kernel-boot-message* 'play)
(set! (-> s5-1 0 display-level-index) 4) ;; default misty on demo
)
((or (= s4-1 #f)
(< (length *level-task-data-remap*) (-> s4-1 info index))
)
(set! (-> s5-1 0 display-level-index) 0) ;; geyser rock
)
(else
(set! (-> s5-1 0 display-level-index) (-> *level-task-data-remap* (+ (-> s4-1 info index) -1)))
)
)
)
(set! (-> s5-1 0 next-level-index) (-> s5-1 0 display-level-index))
(set! (-> s5-1 0 display-state) (progress-screen invalid))
(set-transition-progress! (-> s5-1 0) 512)
(set! (-> s5-1 0 task-index) (get-next-task-up -1 (-> s5-1 0 display-level-index)))
)
)
(when *progress-process*
(enter! (-> *progress-process* 0) screen 0)
(set! (-> *progress-process* 0 card-info) #f)
)
)
(else
(push! (-> *progress-process* 0))
(set! (-> *progress-process* 0 next-display-state) screen)
(set! (-> *progress-process* 0 card-info) #f)
)
)
)
(none)
)
(defun deactivate-progress ()
(when (and *progress-process*
(= (-> *progress-process* 0 next-state name) 'progress-gone)
)
(copy-settings-from-target! *setting-control*)
(dotimes (gp-0 (-> *progress-process* 0 nb-of-particles))
(kill-and-free-particles (-> *progress-process* 0 particles gp-0 part))
(set! (-> *progress-process* 0 particles gp-0 part matrix) -1)
)
(set! (-> *progress-process* 0 nb-of-particles) 0)
(deactivate (-> *progress-process* 0))
(set! *progress-process* (the-as (pointer progress) #f))
(enable-level-text-file-loading)
)
(none)
)
(defun hide-progress-screen ()
"shoo!"
(when *progress-process*
(send-event (ppointer->process *progress-process*) 'go-away)
)
(none)
)
(defun hide-progress-icons ()
;; starts from 6 and clears 8 particles
(let ((v1-0 6))
(dotimes (a0-0 8)
(set! (-> *progress-process* 0 particles v1-0 init-pos x) -320.0)
(+! v1-0 1)
)
)
(set! (-> *progress-process* 0 particles 5 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 14 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 15 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 19 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 20 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 21 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 22 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 23 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 24 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 25 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 26 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 27 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 28 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 29 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 30 init-pos x) -320.0)
(set! (-> *progress-process* 0 particles 31 init-pos x) -320.0)
(set! (-> *progress-process* 0 icons 4 icon-x) -320)
0
(none)
)
(defmethod relocate game-count-info ((this game-count-info) (offset int))
"Load in the game-count-info. This is a bit of a hack."
(set! *game-counts* this)
)
(defmethod relocate progress ((obj progress) (arg0 int))
(dotimes (v1-0 (-> obj nb-of-particles))
(when (-> obj particles v1-0 part)
(if (nonzero? (-> obj particles v1-0 part))
(set! (-> obj particles v1-0 part)
(the-as sparticle-launch-control (&+ (the-as pointer (-> obj particles v1-0 part)) arg0)))
)
)
)
(the-as progress ((method-of-type process relocate) obj arg0))
)
(defmethod adjust-sprites progress ((obj progress))
(let ((f0-1 (* (1/ METER_LENGTH) (the float (-> obj in-out-position)))))
(set! (-> obj particles 2 init-pos x) (the float (+ (-> obj right-x-offset) 409 (the int (* 301.5 f0-1)))))
(set! (-> obj particles 1 init-pos x) (the float (+ (-> obj left-x-offset) 59)))
(set! (-> obj left-side-x-scale) (* 4096.0 (+ (/ 3.5 (-> obj sides-x-scale)) (* 10.0 f0-1))))
(set! (-> obj left-side-y-scale) (* 4096.0 (+ (-> obj sides-y-scale) (* 10.0 f0-1))))
(set! (-> obj right-side-x-scale) (* 4096.0 (+ (/ 6.0 (-> obj sides-x-scale)) (* 4.0 f0-1))))
(set! (-> obj right-side-y-scale) (* 4096.0 (+ (-> obj sides-y-scale) (* 4.0 f0-1))))
)
(dotimes (s5-0 (-> obj nb-of-particles))
(set! (-> obj particles s5-0 pos x) (+ -256.0 (-> obj particles s5-0 init-pos x)))
(set! (-> obj particles s5-0 pos y) (* 0.5 (- (* (-> obj particles s5-0 init-pos y) (-> *video-parms* relative-y-scale))
(the float (-> *video-parms* screen-sy))
)
)
)
(set! (-> obj particles s5-0 pos z) (-> obj particles s5-0 init-pos z))
(when (> (-> obj particles s5-0 part matrix) 0)
(let ((v1-53 (sprite-get-user-hvdf (-> obj particles s5-0 part matrix))))
(set! (-> v1-53 vector x) (the float (+ (the int (-> obj particles s5-0 pos x)) 2048)))
(set! (-> v1-53 vector y) (the float (+ (the int (-> obj particles s5-0 pos y)) 2048)))
(set! (-> v1-53 vector z) (- (-> *math-camera* hvdf-off z) (* 1024.0 (-> obj particles s5-0 pos z))))
(set! (-> v1-53 vector w) (-> *math-camera* hvdf-off w))
)
)
(spawn (-> obj particles s5-0 part) *null-vector*)
)
(none)
)
(defmethod adjust-icons progress ((obj progress))
(dotimes (v1-0 (-> obj nb-of-icons))
(when (>= v1-0 4)
(set-vector! (-> obj icons v1-0 icon 0 root scale)
(* (-> obj icons v1-0 scale-x) (-> *video-parms* relative-x-scale))
(* (-> obj icons v1-0 scale-y) (-> *video-parms* relative-y-scale))
(* (-> obj icons v1-0 scale-x) (-> *video-parms* relative-x-scale))
1.0
)
(set! (-> obj icons v1-0 icon 0 root trans x) (the float (+ (-> obj icons v1-0 icon-x) -256)))
(set! (-> obj icons v1-0 icon 0 root trans y) (* (-> *video-parms* relative-y-scale)
(- (* (-> *video-parms* relative-y-scale)
(the float (-> obj icons v1-0 icon-y)))
(the float (-> *video-parms* screen-sy))
)
))
)
)
(none)
)
(defmethod adjust-ratios progress ((obj progress) (aspect symbol) (video-mode symbol))
(case aspect
(('aspect4x3)
(set! (-> obj sides-x-scale) 1.0)
(set! (-> obj sides-y-scale) 13.0)
(set! (-> obj left-x-offset) 0)
(set! (-> obj right-x-offset) 0)
(set! (-> obj button-scale) 1.0)
(set! (-> obj slot-scale) 8192.0)
(set! (-> obj small-orb-y-offset) 58)
(set! (-> obj icons 5 scale-x) 0.008)
(set! (-> obj icons 5 scale-y) -0.009)
(set! (-> obj big-orb-y-offset) 243)
(set! (-> obj icons 4 scale-x) 0.013)
(set! (-> obj icons 4 scale-y) -0.015)
)
(('aspect16x9)
(set! (-> obj sides-x-scale) 1.2)
(set! (-> obj sides-y-scale) 9.8)
(set! (-> obj left-x-offset) -10)
(set! (-> obj right-x-offset) 17)
(set! (-> obj button-scale) 1.05)
(set! (-> obj slot-scale) 6144.0)
(set! (-> obj small-orb-y-offset) 59)
(set! (-> obj icons 5 scale-x) 0.008)
(set! (-> obj icons 5 scale-y) -0.0098)
(set! (-> obj big-orb-y-offset) 255)
(set! (-> obj icons 4 scale-x) 0.017)
(set! (-> obj icons 4 scale-y) -0.0205)
)
)
(when (= video-mode 'pal)
(set! (-> obj icons 5 scale-y) (* 1.15 (-> obj icons 5 scale-y)))
(set! (-> obj icons 4 scale-x) (* 1.05 (-> obj icons 4 scale-x)))
(set! (-> obj icons 4 scale-y) (* (-> obj icons 4 scale-y) (if (= aspect 'aspect16x9)
1.18
1.15
)))
(+! (-> obj big-orb-y-offset) (if (= aspect 'aspect16x9)
3
2
))
)
(none)
)
(defmethod dummy-32 progress ((obj progress))
(let ((v1-2 (-> *progress-process* 0 display-state))
(a1-1 (-> *progress-state* starting-state))
)
(and
(= (-> obj next-state name) 'progress-normal)
(not (-> obj in-transition))
(not (-> obj selected-option))
(or
(= v1-2 (progress-screen fuel-cell))
(= v1-2 (progress-screen money))
(= v1-2 (progress-screen buzzer))
(and
(or
(= a1-1 (progress-screen fuel-cell))
(= a1-1 (progress-screen money))
(= a1-1 (progress-screen buzzer))
(= a1-1 (progress-screen title))
)
(or
(= v1-2 (progress-screen settings))
(= v1-2 (progress-screen game-settings))
(= v1-2 (progress-screen graphic-settings))
(= v1-2 (progress-screen sound-settings))
(= v1-2 (progress-screen title))
(= v1-2 (progress-screen settings-title))
)
)
)
)
)
)
(defmethod dummy-19 progress ((obj progress))
(the-as symbol (and *progress-process* (zero? (-> *progress-process* 0 in-out-position))))
)
(defmethod hidden? progress ((obj progress))
(or (not *progress-process*)
(= (-> *progress-process* 0 in-out-position) 4096)
)
)
(defmacro test-make-target ()
`(begin
(set! *target* (-> (make-function-process target (lambda () (loop (suspend))) :from *target-dead-pool* :to *target-pool*)))
(run-now-in-process *target*
(lambda :behavior target ()
(set! (-> self control) (new 'process 'control-info self (collide-list-enum player)))
(set! (-> self fact-info-target) (new 'process 'fact-info-target self (pickup-type eco-pill-random)
(-> *FACT-bank* default-pill-inc)))
(set! (-> self current-level) #f)
(set! (-> self game) *game-info*)
))
)
)
(define-extern progress-gone (state progress))
(define-extern progress-coming-in (state progress))
(define-extern progress-going-out (state progress))
(defstate progress-waiting (progress)
:event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
(('go-away)
(go progress-gone)
)
)
#f
)
:code (behavior ()
(loop
(when (hud-hidden?)
(dotimes (gp-0 (-> self nb-of-particles))
(if (= (-> self particles gp-0 part matrix) -1)
(set! (-> self particles gp-0 part matrix) (sprite-allocate-user-hvdf))
)
)
(set-setting! *setting-control* self 'common-page 'set 0.0 1)
(suspend)
(go progress-coming-in)
)
(suspend)
)
(none)
)
)
(defstate progress-gone (progress)
:code (behavior ()
(clear-pending-settings-from-process *setting-control* self 'process-mask)
(copy-settings-from-target! *setting-control*)
(logior! (-> self mask) (process-mask sleep))
(suspend)
(none)
)
)
(defmethod dummy-53 progress ((obj progress) (arg0 progress-screen))
(let ((s4-0 (-> obj card-info))
(gp-0 arg0)
)
(when s4-0
(case arg0
(((progress-screen memcard-no-space)
(progress-screen memcard-not-inserted)
(progress-screen memcard-not-formatted)
)
(cond
((zero? (-> s4-0 handle))
(set! gp-0 (progress-screen memcard-not-inserted))
)
((zero? (-> s4-0 formatted))
(cond
((or
(zero? (-> obj display-state-pos))
(and
(!= (-> *progress-state* starting-state) 27)
(nonzero? (-> *progress-state* starting-state))
)
)
(set-master-mode 'game)
)
(else
(if (!= arg0 9)
(set! gp-0 (progress-screen memcard-format))
)
)
)
)
((and
(zero? (-> s4-0 inited))
(< (-> s4-0 mem-actual) (-> s4-0 mem-required))
)
(set! gp-0 (progress-screen memcard-no-space))
)
((or
(zero? (-> obj display-state-pos))
(and
(!= (-> *progress-state* starting-state) 27)
(nonzero? (-> *progress-state* starting-state))
)
)
(set-master-mode 'game)
)
(else
(set! gp-0 (progress-screen save-game))
)
)
)
(((progress-screen memcard-insert))
(if (= (-> s4-0 inited) 1)
(set! gp-0 (progress-screen load-game))
)
)
)
(cond
((zero? (-> s4-0 handle))
(cond
((-> *setting-control* current auto-save)
(set! gp-0 (progress-screen memcard-removed))
)
(else
(cond
((= arg0 (progress-screen load-game))
(set! gp-0 (progress-screen memcard-insert))
)
((or
(= arg0 (progress-screen memcard-format))
(= arg0 (progress-screen memcard-no-space))
(= arg0 (progress-screen memcard-not-formatted))
(= arg0 (progress-screen save-game))
(= arg0 (progress-screen save-game-title))
(= arg0 (progress-screen memcard-no-data))
(= arg0 (progress-screen memcard-data-exists))
)
(set! gp-0 (progress-screen memcard-not-inserted))
)
)
)
)
)
((zero? (-> s4-0 formatted))
(case arg0
(((progress-screen load-game))
(set! gp-0 (progress-screen memcard-insert))
)
(((progress-screen save-game) (progress-screen save-game-title))
(set! gp-0 (progress-screen memcard-format))
)
)
)
((zero? (-> s4-0 inited))
(case arg0
(((progress-screen save-game) (progress-screen save-game-title))
(if (>= (-> s4-0 mem-actual) (-> s4-0 mem-required))
(set! gp-0 (progress-screen memcard-no-data))
(set! gp-0 (progress-screen memcard-no-space))
)
)
(((progress-screen load-game))
(set! gp-0 (progress-screen memcard-insert))
)
)
)
)
)
gp-0
)
)
(defmethod dummy-31 progress ((obj progress))
(let ((s5-0 (-> obj card-info)))
(when (and s5-0 (not (-> obj in-transition)))
(when
(or
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons circle))
)
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons circle))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons circle))
(case (-> obj display-state)
(((progress-screen load-game))
(cond
((< (-> obj option-index) 4)
(when (nonzero? (-> s5-0 file (-> obj option-index) present))
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> *progress-state* which) (-> obj option-index))
(set! (-> obj next-display-state) (progress-screen memcard-loading))
)
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
(((progress-screen save-game) (progress-screen save-game-title))
(cond
((< (-> obj option-index) 4)
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> *progress-state* which) (-> obj option-index))
(if (zero? (-> s5-0 file (-> obj option-index) present))
(set! (-> obj next-display-state) (progress-screen memcard-saving))
(set!
(-> obj next-display-state)
(progress-screen memcard-data-exists)
)
)
)
((and
(= (-> obj display-state) (progress-screen save-game-title))
(= (-> obj option-index) 4)
)
(sound-play-by-name
(static-sound-name "starts-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-volume-off)
(set! (-> *game-info* mode) 'play)
(initialize! *game-info* 'game (the-as game-save #f) "intro-start")
(set-master-mode 'game)
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
(((progress-screen memcard-insert))
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
(((progress-screen memcard-data-exists))
(cond
((-> *progress-state* yes-no-choice)
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen memcard-saving))
)
((begin
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(= (-> obj display-state-stack 0) (progress-screen title))
)
(set! (-> obj next-display-state) (progress-screen save-game-title))
)
(else
(set! (-> obj next-display-state) (progress-screen save-game))
)
)
)
(((progress-screen memcard-no-data))
(cond
((-> *progress-state* yes-no-choice)
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen memcard-creating))
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-volume-off)
(set! (-> *game-info* mode) 'play)
(initialize! *game-info* 'game (the-as game-save #f) "intro-start")
(set-master-mode 'game)
)
)
)
(((progress-screen memcard-no-space)
(progress-screen memcard-not-inserted)
(progress-screen memcard-not-formatted)
)
(cond
((= (-> obj display-state-stack 0) (progress-screen title))
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-volume-off)
(set! (-> *game-info* mode) 'play)
(initialize! *game-info* 'game (the-as game-save #f) "intro-start")
(set-master-mode 'game)
)
((nonzero? (-> obj display-state-stack 0))
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set-master-mode 'game)
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
(((progress-screen memcard-error-loading)
(progress-screen memcard-error-saving)
(progress-screen memcard-error-formatting)
(progress-screen memcard-error-creating)
(progress-screen memcard-auto-save-error)
(progress-screen memcard-removed)
(progress-screen auto-save)
)
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
(((progress-screen pal-change-to-60hz))
(cond
((-> *progress-state* yes-no-choice)
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set!
(-> *setting-control* default video-mode)
(-> *progress-state* video-mode-choice)
)
(set!
(-> obj video-mode-timeout)
(the-as uint (-> *display* real-frame-counter))
)
(set! (-> obj next-display-state) (progress-screen pal-now-60hz))
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> *progress-state* video-mode-choice) 'pal)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
(((progress-screen pal-now-60hz))
(cond
((not (-> *progress-state* yes-no-choice))
(set! (-> *progress-state* video-mode-choice) 'pal)
(set!
(-> *setting-control* default video-mode)
(-> *progress-state* video-mode-choice)
)
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
(else
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
(((progress-screen no-disc) (progress-screen bad-disc))
(when (is-cd-in?)
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
(((progress-screen quit))
(cond
((-> *progress-state* yes-no-choice)
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-volume-off)
(set! (-> *game-info* mode) 'play)
(initialize! *game-info* 'game (the-as game-save #f) "title-start")
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
(((progress-screen memcard-format))
(cond
((-> *progress-state* yes-no-choice)
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen memcard-formatting))
)
((= (-> obj display-state-stack 0) (progress-screen title))
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-volume-off)
(set! (-> *game-info* mode) 'play)
(initialize! *game-info* 'game (the-as game-save #f) "intro-start")
(set-master-mode 'game)
)
(else
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
)
)
)
)
(none)
)
(defmethod dummy-29 progress ((obj progress))
(mc-get-slot-info 0 *progress-save-info*)
(set! (-> obj card-info) *progress-save-info*)
(let ((s5-0 (-> *options-remap* (-> obj display-state))))
(when (and s5-0 (not (-> obj in-transition)))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons up))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up))
(when (not (-> obj selected-option))
(if (!= (length s5-0) 1)
(sound-play-by-name
(static-sound-name "cursor-up-down")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
(set!
(-> obj last-option-index-change)
(-> *display* real-frame-counter)
)
(if (> (-> obj option-index) 0)
(+! (-> obj option-index) -1)
(set! (-> obj option-index) (+ (length s5-0) -1))
)
)
)
(else
(when (-> obj selected-option)
(let ((v1-34 #f))
(case (-> s5-0 (-> obj option-index) option-type)
((3)
(when (< -48 (-> *setting-control* current screeny))
(set! v1-34 #t)
(+! (-> *setting-control* default screeny) -1)
)
)
)
(when v1-34
(when
(<
90
(-
(-> *display* real-frame-counter)
(-> *progress-state* last-slider-sound)
)
)
(set!
(-> *progress-state* last-slider-sound)
(-> *display* real-frame-counter)
)
(sound-play-by-name
(static-sound-name "slider2001")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons down))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down))
(when (not (-> obj selected-option))
(if (!= (length s5-0) 1)
(sound-play-by-name
(static-sound-name "cursor-up-down")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
(set!
(-> obj last-option-index-change)
(-> *display* real-frame-counter)
)
(cond
((< (-> obj option-index) (+ (length s5-0) -1))
(+! (-> obj option-index) 1)
)
(else
(set! (-> obj option-index) 0)
0
)
)
)
)
(else
(when (-> obj selected-option)
(let ((v1-69 #f))
(case (-> s5-0 (-> obj option-index) option-type)
((3)
(when (< (-> *setting-control* current screeny) 48)
(set! v1-69 #t)
(+! (-> *setting-control* default screeny) 1)
)
)
)
(when v1-69
(when
(<
90
(-
(-> *display* real-frame-counter)
(-> *progress-state* last-slider-sound)
)
)
(set!
(-> *progress-state* last-slider-sound)
(-> *display* real-frame-counter)
)
(sound-play-by-name
(static-sound-name "slider2001")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons left))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons left))
(when
(or
(-> obj selected-option)
(= (-> s5-0 (-> obj option-index) option-type) 7)
)
(let ((s4-5 #f))
(case (-> s5-0 (-> obj option-index) option-type)
((2 7)
(when
(not
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
(set! s4-5 #t)
(if
(=
(-> s5-0 (-> obj option-index) value-to-modify)
(&-> *setting-control* current vibration)
)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 255 90)
)
)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
#t
)
)
((4)
(set!
s4-5
(=
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'aspect16x9
)
)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'aspect4x3
)
)
((5)
(set!
s4-5
(=
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'ntsc
)
)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'pal
)
)
((1)
(if
(>
(the-as
int
(->
(the-as
(pointer uint64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
0
)
(+!
(->
(the-as
(pointer uint64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
-1
)
(set!
(->
(the-as
(pointer int64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(if
(and
(zero? (scf-get-territory))
(not
(and
(= *progress-cheat* 'language)
(logtest?
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons l2)
)
(logtest?
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons r2)
)
)
)
)
4
5
)
)
)
(set! (-> obj language-transition) #t)
(set! (-> obj language-direction) #t)
(set! s4-5 #t)
)
)
(if s4-5
(sound-play-by-name
(static-sound-name "cursor-l-r")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
(else
(when (-> obj selected-option)
(let ((v1-157 #f))
(let ((a0-101 (-> s5-0 (-> obj option-index) option-type)))
(cond
((zero? a0-101)
(cond
((>=
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(+ 1.0 (-> s5-0 (-> obj option-index) param1))
)
(set!
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(+
-1.0
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
(set! v1-157 #t)
)
((<
(-> s5-0 (-> obj option-index) param1)
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
(set!
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> s5-0 (-> obj option-index) param1)
)
(set! v1-157 #t)
)
)
)
((= a0-101 3)
(when (< -96 (-> *setting-control* default screenx))
(set! v1-157 #t)
(+! (-> *setting-control* default screenx) -1)
)
)
)
)
(when v1-157
(let ((f30-0 100.0))
(case (-> s5-0 (-> obj option-index) name)
(((game-text-id music-volume) (game-text-id speech-volume))
(set!
f30-0
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
(when
(<
90
(-
(-> *display* real-frame-counter)
(-> *progress-state* last-slider-sound)
)
)
(set!
(-> *progress-state* last-slider-sound)
(-> *display* real-frame-counter)
)
(sound-play-by-name
(static-sound-name "slider2001")
(new-sound-id)
(the int (* 10.24 f30-0))
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
)
)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons right))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons right))
(when
(or
(-> obj selected-option)
(= (-> s5-0 (-> obj option-index) option-type) 7)
)
(let ((v1-217 (the-as object #f)))
(case (-> s5-0 (-> obj option-index) option-type)
((2 7)
(set!
v1-217
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
#f
)
)
((4)
(set!
v1-217
(=
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'aspect4x3
)
)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'aspect16x9
)
)
((5)
(set!
v1-217
(=
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'pal
)
)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
'ntsc
)
)
((1)
(let
((v1-243
(if
(and
(zero? (scf-get-territory))
(not
(and
(= *progress-cheat* 'language)
(logtest?
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons l2)
)
(logtest?
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons r2)
)
)
)
)
4
5
)
)
)
(cond
((<
(the-as
int
(->
(the-as
(pointer uint64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
v1-243
)
(+!
(->
(the-as
(pointer uint64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
1
)
)
(else
(set!
(->
(the-as
(pointer int64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
0
)
0
)
)
)
(set! (-> obj language-transition) #t)
(set! (-> obj language-direction) #f)
(set! v1-217 #t)
)
)
(if v1-217
(sound-play-by-name
(static-sound-name "cursor-l-r")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
(else
(when (-> obj selected-option)
(let ((v1-263 #f))
(let ((a0-177 (-> s5-0 (-> obj option-index) option-type)))
(cond
((zero? a0-177)
(cond
((>=
(+ -1.0 (-> s5-0 (-> obj option-index) param2))
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
(set!
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(+
1.0
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
(set! v1-263 #t)
)
((<
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> s5-0 (-> obj option-index) param2)
)
(set!
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> s5-0 (-> obj option-index) param2)
)
(set! v1-263 #t)
)
)
)
((= a0-177 3)
(when (< (-> *setting-control* default screenx) 96)
(set! v1-263 #t)
(+! (-> *setting-control* default screenx) 1)
)
)
)
)
(when v1-263
(let ((f30-1 100.0))
(case (-> s5-0 (-> obj option-index) name)
(((game-text-id music-volume) (game-text-id speech-volume))
(set!
f30-1
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
(when
(<
90
(-
(-> *display* real-frame-counter)
(-> *progress-state* last-slider-sound)
)
)
(set!
(-> *progress-state* last-slider-sound)
(-> *display* real-frame-counter)
)
(sound-play-by-name
(static-sound-name "slider2001")
(new-sound-id)
(the int (* 10.24 f30-1))
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
)
)
)
)
((or
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square))
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
)
(cond
((-> obj selected-option)
(let ((v1-319 (-> s5-0 (-> obj option-index) option-type)))
(cond
((zero? v1-319)
(set!
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> *progress-state* slider-backup)
)
)
((= v1-319 1)
(set!
(->
(the-as
(pointer int64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> *progress-state* language-backup)
)
)
((= v1-319 2)
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> *progress-state* on-off-backup)
)
)
((= v1-319 3)
(set!
(-> *setting-control* default screenx)
(-> *progress-state* center-x-backup)
)
(set!
(-> *setting-control* default screeny)
(-> *progress-state* center-y-backup)
)
)
((or (= v1-319 4) (= v1-319 5))
(set!
(->
(the-as
(pointer symbol)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(-> *progress-state* aspect-ratio-backup)
)
)
)
)
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj selected-option) #f)
)
((or
(dummy-32 obj)
(= (-> obj display-state) (progress-screen load-game))
(= (-> obj display-state) (progress-screen save-game))
(= (-> obj display-state) (progress-screen save-game-title))
)
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square))
(logclear!
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons triangle)
)
(logclear!
(-> *cpad-list* cpads 0 button0-rel 0)
(pad-buttons triangle)
)
(if (= (-> obj display-state) (progress-screen settings))
(sound-play-by-name
(static-sound-name "menu-stats")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
(load-level-text-files
(-> *level-task-data* (-> obj display-level-index) text-group-index)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
((or
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons circle))
)
(cond
((not (-> obj selected-option))
(cond
((= (-> s5-0 (-> obj option-index) option-type) 6)
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
(logclear!
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons circle)
)
(logclear!
(-> *cpad-list* cpads 0 button0-rel 0)
(pad-buttons circle)
)
(push! obj)
(sound-play-by-name
(static-sound-name "select-option")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set!
(-> obj next-display-state)
(the-as progress-screen (-> s5-0 (-> obj option-index) param3))
)
(case (-> obj next-display-state)
(((progress-screen load-game)
(progress-screen save-game)
(progress-screen save-game-title)
)
(set!
(-> obj next-display-state)
(dummy-53 obj (-> obj next-display-state))
)
)
)
)
((= (-> s5-0 (-> obj option-index) option-type) 8)
(cond
((= (-> s5-0 (-> obj option-index) name) (game-text-id exit-demo))
(set! *master-exit* 'force)
(set-master-mode 'game)
)
((= (-> s5-0 (-> obj option-index) name) (game-text-id back))
(if (= (-> obj display-state) (progress-screen settings))
(sound-play-by-name
(static-sound-name "menu-stats")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(sound-play-by-name
(static-sound-name "cursor-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
(load-level-text-files
(->
*level-task-data*
(-> obj display-level-index)
text-group-index
)
)
(set! (-> obj next-display-state) (progress-screen invalid))
)
)
)
((!= (-> s5-0 (-> obj option-index) option-type) 7)
(let ((v1-427 (-> s5-0 (-> obj option-index) option-type)))
(cond
((zero? v1-427)
(set!
(-> *progress-state* slider-backup)
(->
(the-as
(pointer float)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
((= v1-427 1)
(set!
(-> *progress-state* language-backup)
(the-as
int
(->
(the-as
(pointer uint64)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
((= v1-427 2)
(set!
(-> *progress-state* on-off-backup)
(the-as
symbol
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
((= v1-427 3)
(set!
(-> *progress-state* center-x-backup)
(-> *setting-control* default screenx)
)
(set!
(-> *progress-state* center-y-backup)
(-> *setting-control* default screeny)
)
)
((or (= v1-427 4) (= v1-427 5))
(set!
(-> *progress-state* aspect-ratio-backup)
(the-as
symbol
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
)
)
(sound-play-by-name
(static-sound-name "select-option")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
(logclear!
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons circle)
)
(logclear!
(-> *cpad-list* cpads 0 button0-rel 0)
(pad-buttons circle)
)
(set! (-> obj selected-option) #t)
(when (= (-> s5-0 (-> obj option-index) option-type) 1)
(set!
(-> obj language-selection)
(the-as uint (-> *setting-control* current language))
)
(set! (-> obj language-direction) #t)
(set! (-> obj language-transition) #f)
(set! (-> obj language-x-offset) 0)
0
)
)
)
)
(else
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj selected-option) #f)
(case (-> s5-0 (-> obj option-index) option-type)
((4)
(set!
(-> *setting-control* default aspect-ratio)
(the-as
symbol
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
((5)
(case
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
(('pal)
(set!
(-> *setting-control* default video-mode)
(the-as
symbol
(->
(the-as
(pointer uint32)
(-> s5-0 (-> obj option-index) value-to-modify)
)
)
)
)
)
(('ntsc)
(push! obj)
(set!
(-> obj next-display-state)
(progress-screen pal-change-to-60hz)
)
)
)
)
((1)
(if (not (-> obj language-transition))
(load-level-text-files (-> obj display-level-index))
)
)
)
)
)
)
)
)
)
0
(none)
)
(defmethod respond-progress progress ((obj progress))
(when (not (-> obj in-transition))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up))
(let ((s5-0 (-> obj display-level-index)))
(set! (-> obj next-level-index) (get-next-level-down s5-0))
(when (!= s5-0 (-> obj next-level-index))
(sound-play-by-name
(static-sound-name "cursor-up-down")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj level-transition) 2)
)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down))
(let ((s5-2 (-> obj next-level-index)))
(set! (-> obj next-level-index) (get-next-level-up s5-2))
(when (!= s5-2 (-> obj next-level-index))
(sound-play-by-name
(static-sound-name "cursor-up-down")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj level-transition) 1)
)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square))
(when (nonzero? (-> obj display-state))
(sound-play-by-name
(static-sound-name "select-option")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen fuel-cell))
(set! (-> obj stat-transition) #t)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
(when (!= (-> obj display-state) 1)
(sound-play-by-name
(static-sound-name "select-option")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen money))
(set! (-> obj stat-transition) #t)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
(when (!= (-> obj display-state) 2)
(sound-play-by-name
(static-sound-name "select-option")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set! (-> obj next-display-state) (progress-screen buzzer))
(set! (-> obj stat-transition) #t)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons circle))
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons circle))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons circle))
(sound-play-by-name
(static-sound-name "start-options")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(push! obj)
(set! (-> obj next-display-state) (progress-screen settings))
)
((= (-> obj display-state) (progress-screen fuel-cell))
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons left))
(let ((s5-8 (-> obj task-index)))
(set!
(-> obj task-index)
(get-next-task-down (-> obj task-index) (-> obj display-level-index))
)
(if (!= s5-8 (-> obj task-index))
(sound-play-by-name
(static-sound-name "cursor-l-r")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons right))
(let ((s5-10 (-> obj task-index)))
(set!
(-> obj task-index)
(get-next-task-up (-> obj task-index) (-> obj display-level-index))
)
(if (!= s5-10 (-> obj task-index))
(sound-play-by-name
(static-sound-name "cursor-l-r")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
)
)
)
)
)
(none)
)
(defstate progress-normal (progress)
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(local-vars (v0-0 none))
(let ((v1-0 arg2))
(the-as object (cond
((= v1-0 'go-away)
(go progress-going-out)
)
((= v1-0 'notify)
(cond
((= (-> arg3 param 0) 'done)
(case (-> self display-state)
(((progress-screen memcard-saving))
(cond
((=
(-> self display-state-stack 0)
(progress-screen title)
)
(let
((gp-1 (-> *setting-control* default auto-save)))
(sound-volume-off)
(set! (-> *game-info* mode) 'play)
(initialize!
*game-info*
'game
(the-as game-save #f)
"intro-start"
)
(set!
(-> *setting-control* default auto-save)
gp-1
)
)
(set-master-mode 'game)
)
(else
(set! v0-0 (the-as none -1))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
)
)
(((progress-screen memcard-formatting))
(set! (-> self force-transition) #t)
(set! v0-0 (the-as none 15))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
(((progress-screen memcard-creating))
(cond
((=
(-> self display-state-stack 0)
(progress-screen title)
)
(set! v0-0 (the-as none 18))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
)
(else
(set! v0-0 (the-as none 17))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
)
)
v0-0
)
)
)
((= (-> arg3 param 0) 'error)
(let ((t9-4 format)
(a0-17 #t)
(a1-2 "ERROR NOTIFY: ~S ~D~%")
(v1-13 (-> arg3 param 1))
)
(t9-4 a0-17 a1-2 (cond
((= v1-13 17)
"no-auto-save"
)
((= v1-13 16)
"no-process"
)
((= v1-13 15)
"bad-version"
)
((= v1-13 14)
"no-space"
)
((= v1-13 13)
"no-save"
)
((= v1-13 12)
"no-file"
)
((= v1-13 11)
"no-format"
)
((= v1-13 10)
"no-last"
)
((= v1-13 9)
"no-card"
)
((= v1-13 8)
"no-memory"
)
((= v1-13 7)
"new-game"
)
((= v1-13 6)
"read-error"
)
((= v1-13 5)
"write-error"
)
((= v1-13 4)
"internal-error"
)
((= v1-13 3)
"format-failed"
)
((= v1-13 2)
"bad-handle"
)
((= v1-13 1)
"ok"
)
((zero? v1-13)
"busy"
)
(else
"*unknown*"
)
)
(-> self display-state)
)
)
(case (-> arg3 param 1)
((14)
(set! v0-0 (the-as none 7))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
(else
(case (-> self display-state)
(((progress-screen memcard-formatting))
(set! v0-0 (the-as none 24))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
(((progress-screen memcard-creating))
(set! v0-0 (the-as none 25))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
(((progress-screen memcard-saving))
(set! v0-0 (the-as none 21))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
(((progress-screen memcard-loading))
(set! v0-0 (the-as none 20))
(set!
(-> self next-display-state)
(the-as progress-screen v0-0)
)
v0-0
)
)
)
)
)
)
)
)
)
)
)
:code
(behavior ()
(while #t
(when
(and
(logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l1))
(logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons r1))
*cheat-mode*
)
(when
(and
(<
(-> self task-index)
(-> *level-task-data* (-> self display-level-index) nb-of-tasks)
)
(>= (-> self task-index) 0)
)
(let
((gp-0
(->
*level-task-data*
(-> self display-level-index)
task-info
(-> self task-index)
task-id
)
)
)
(close-specific-task! gp-0 (task-status need-resolution))
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-3 from) self)
(set! (-> a1-3 num-params) 2)
(set! (-> a1-3 message) 'get-pickup)
(set! (-> a1-3 param 0) (the-as uint 6))
(set! (-> a1-3 param 1) (the-as uint (the float gp-0)))
(send-event-function *target* a1-3)
)
)
)
)
(if
(and
(= (-> self display-state) (-> self next-display-state))
(= (-> self display-level-index) (-> self next-level-index))
)
(set!
(-> self transition-offset)
(seekl
(-> self transition-offset)
0
(*
(the
int
(* (-> self transition-speed) (-> *display* time-adjust-ratio))
)
(if (or (-> self stat-transition) (nonzero? (-> self level-transition)))
2
1
)
)
)
)
(set!
(-> self transition-offset)
(seekl
(-> self transition-offset)
512
(*
(the
int
(* (-> self transition-speed) (-> *display* time-adjust-ratio))
)
(if (or (-> self stat-transition) (nonzero? (-> self level-transition)))
2
1
)
)
)
)
)
(set-transition-progress! self (-> self transition-offset))
(set!
(-> self in-transition)
(or (-> self force-transition) (nonzero? (-> self transition-offset)))
)
(when
(and
(not (handle->process (-> *game-info* auto-save-proc)))
(or (-> self force-transition) (-> self in-transition))
(>=
(-> self transition-offset)
(if
(and
(zero? (-> self level-transition))
(nonzero? (-> self next-display-state))
(!= (-> self next-display-state) 1)
(!= (-> self next-display-state) 2)
)
512
256
)
)
)
(if (>= (the-as int (-> self next-display-state)) 0)
(enter! self (-> self next-display-state) 0)
(pop! self)
)
(set! (-> self display-level-index) (-> self next-level-index))
(when (nonzero? (-> self level-transition))
(set!
(-> self task-index)
(get-next-task-up -1 (-> self display-level-index))
)
(case (-> self level-transition)
((1)
(set! (-> self level-transition) 2)
)
((2)
(set! (-> self level-transition) 1)
)
)
)
(set! (-> self force-transition) #f)
)
(when (zero? (-> self transition-offset))
(set! (-> self stat-transition) #f)
(set! (-> self level-transition) 0)
0
)
(let ((gp-1 #f))
(let ((v1-62 #f))
(case (-> self display-state)
(((progress-screen fuel-cell)
(progress-screen money)
(progress-screen buzzer)
)
(let ((s5-0 (-> self display-level-index)))
(when
(and
(< (mod (-> *display* real-frame-counter) 60) 30)
(zero? (-> *progress-process* 0 in-out-position))
(not (-> self in-transition))
(zero? (-> self transition-offset))
)
(set! gp-1 (!= s5-0 (get-next-level-up s5-0)))
(set! v1-62 (!= s5-0 (get-next-level-down s5-0)))
)
)
)
)
(set! (-> self particles 3 init-pos x) (the float (if v1-62
(-
195
(->
*progress-process*
0
left-x-offset
)
)
-320
)
)
)
)
(set! (-> self particles 4 init-pos x) (the float (if gp-1
(-
195
(->
*progress-process*
0
left-x-offset
)
)
-320
)
)
)
)
(dummy-29 self)
(set!
(-> self next-display-state)
(dummy-53 self (-> self next-display-state))
)
(let ((v1-74 (-> self display-state)))
(cond
((or
(= v1-74 (progress-screen fuel-cell))
(or
(= v1-74 (progress-screen money))
(= v1-74 (progress-screen buzzer))
)
)
(respond-progress self)
)
((or
(= v1-74 (progress-screen memcard-no-space))
(= v1-74 (progress-screen memcard-format))
(= v1-74 (progress-screen memcard-data-exists))
(= v1-74 (progress-screen memcard-insert))
(= v1-74 (progress-screen load-game))
(= v1-74 (progress-screen save-game))
(= v1-74 (progress-screen save-game-title))
(= v1-74 (progress-screen memcard-error-loading))
(= v1-74 (progress-screen memcard-error-saving))
(= v1-74 (progress-screen memcard-error-formatting))
(= v1-74 (progress-screen memcard-error-creating))
(= v1-74 (progress-screen memcard-auto-save-error))
(= v1-74 (progress-screen memcard-removed))
(= v1-74 (progress-screen memcard-no-data))
(= v1-74 (progress-screen memcard-not-inserted))
(= v1-74 (progress-screen memcard-not-formatted))
(= v1-74 (progress-screen auto-save))
(= v1-74 (progress-screen pal-change-to-60hz))
(= v1-74 (progress-screen pal-now-60hz))
(= v1-74 (progress-screen no-disc))
(= v1-74 (progress-screen bad-disc))
(= v1-74 (progress-screen quit))
)
(dummy-31 self)
)
)
)
(suspend)
)
(none)
)
:post
(behavior ()
(let* ((a1-0 (-> self display-level-index))
(gp-0 (-> *level-task-data* a1-0))
)
#t
(let ((s5-0 #f))
(case (-> self display-state)
(((progress-screen fuel-cell))
(set! s5-0 #t)
(draw-fuel-cell-screen self a1-0)
)
(((progress-screen money))
(set! s5-0 #t)
(draw-money-screen self a1-0)
)
(((progress-screen buzzer))
(set! s5-0 #t)
(draw-buzzer-screen self a1-0)
)
(((progress-screen game-settings) (progress-screen settings))
(hide-progress-icons)
(draw-options self 115 30 0.82)
)
(((progress-screen graphic-settings)
(progress-screen sound-settings)
(progress-screen settings-title)
(progress-screen title)
)
(hide-progress-icons)
(draw-options self 115 30 0.82)
)
(((progress-screen memcard-removed)
(progress-screen memcard-auto-save-error)
)
(draw-notice-screen self)
(draw-options self 192 0 0.82)
)
(((progress-screen memcard-no-data))
(draw-notice-screen self)
(draw-options self 165 0 0.82)
)
(((progress-screen memcard-format))
(draw-notice-screen self)
(draw-options self 172 0 0.82)
)
(((progress-screen memcard-no-space)
(progress-screen memcard-not-inserted)
(progress-screen memcard-not-formatted)
)
(draw-notice-screen self)
(draw-options self 195 0 0.82)
)
(((progress-screen memcard-error-loading)
(progress-screen memcard-error-saving)
(progress-screen memcard-error-formatting)
(progress-screen memcard-error-creating)
(progress-screen memcard-auto-save-error)
)
(draw-notice-screen self)
(draw-options self 190 0 0.82)
)
(((progress-screen pal-change-to-60hz))
(draw-notice-screen self)
(draw-options self 190 0 0.82)
)
(((progress-screen pal-now-60hz))
(when
(<
3000
(-
(-> *display* real-frame-counter)
(the-as int (-> self video-mode-timeout))
)
)
(set! (-> *progress-state* video-mode-choice) 'pal)
(set!
(-> *setting-control* default video-mode)
(-> *progress-state* video-mode-choice)
)
(set! (-> self next-display-state) (progress-screen invalid))
)
(draw-notice-screen self)
(draw-options self 140 0 0.82)
)
(((progress-screen no-disc) (progress-screen bad-disc))
(draw-notice-screen self)
(if (is-cd-in?)
(draw-options self 170 0 0.82)
)
)
(((progress-screen quit))
(draw-notice-screen self)
(draw-options self 110 0 0.82)
)
(((progress-screen auto-save))
(draw-notice-screen self)
(draw-options self 190 0 0.82)
)
(((progress-screen memcard-insert))
(draw-notice-screen self)
(draw-options self 165 0 0.82)
)
(((progress-screen memcard-data-exists))
(draw-notice-screen self)
(draw-options self 168 0 0.82)
)
(((progress-screen memcard-loading)
(progress-screen memcard-saving)
(progress-screen memcard-formatting)
(progress-screen memcard-creating)
)
(draw-notice-screen self)
)
(((progress-screen load-game) (progress-screen save-game))
(draw-notice-screen self)
(draw-options self 190 0 0.82)
)
(((progress-screen save-game-title))
(draw-notice-screen self)
(draw-options self 169 15 0.6)
)
)
(when s5-0
(let* ((v1-98 (cond
((-> self stat-transition)
0
)
((= (-> self level-transition) 1)
(- (-> self transition-offset))
)
(else
(-> self transition-offset)
)
)
)
(f30-0 (the-as float (if (-> self stat-transition)
1.0
(-> self transition-percentage-invert)
)
)
)
(s5-1
(new
'stack
'font-context
*font-default-matrix*
(- 32 (-> self left-x-offset))
(the int (* (+ 42.0 (the float (/ v1-98 2))) f30-0))
8325000.0
(font-color lighter-lighter-blue)
(font-flags shadow kerning)
)
)
)
(let ((v1-103 s5-1))
(set! (-> v1-103 width) (the float 328))
)
(let ((v1-104 s5-1))
(set! (-> v1-104 height) (the float 45))
)
(set! (-> s5-1 flags) (font-flags shadow kerning middle left large))
(print-game-text-scaled
(lookup-text! *common-text* (-> gp-0 level-name-id) #f)
f30-0
s5-1
(the int (* 128.0 f30-0))
)
)
)
)
)
(case (-> self display-state)
(((progress-screen fuel-cell)
(progress-screen money)
(progress-screen buzzer)
)
(draw-progress self)
)
)
(adjust-sprites self)
(adjust-icons self)
(none)
)
)
(defstate progress-coming-in (progress)
:event
(-> progress-waiting event)
:enter
(behavior ()
(sound-group-pause (the-as uint 255))
(logclear! (-> *setting-control* default process-mask) (process-mask pause menu))
(push-setting! *setting-control* self 'process-mask 'set 0.0 16)
(copy-settings-from-target! *setting-control*)
(sound-play-by-name
(static-sound-name "select-menu")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(set-blackout-frames 0)
(set! *pause-lock* #f)
(none)
)
:code
(behavior ()
(loop
(seekl! (-> self in-out-position) 0 (the int (* 170.0 (-> *display* time-adjust-ratio))))
(when (< (-> self in-out-position) 2867)
(seekl! (-> self transition-offset) 0 (the int (* (-> self transition-speed) (-> *display* time-adjust-ratio))))
(set-transition-progress! self (-> self transition-offset))
)
(if (zero? (-> self in-out-position))
(go progress-normal)
)
(suspend)
)
(none)
)
:post (-> progress-normal post)
)
(defstate progress-going-out (progress)
:enter
(behavior ()
(sound-play-by-name
(static-sound-name "menu-close")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
(hide-progress-icons)
(set! (-> self particles 3 init-pos x) -320.0)
(set! (-> self particles 4 init-pos x) -320.0)
(case (-> self display-state)
(((progress-screen load-game)
(progress-screen save-game)
(progress-screen save-game-title)
)
(set! (-> self transition-speed) 30.0)
)
)
(none)
)
:code
(behavior ()
(while #t
(set!
(-> self transition-offset)
(seekl
(-> self transition-offset)
512
(the int (* (-> self transition-speed) (-> *display* time-adjust-ratio)))
)
)
(set-transition-progress! self (-> self transition-offset))
(when (< 153 (-> self transition-offset))
(set!
(-> self in-out-position)
(seekl
(-> self in-out-position)
4096
(the int (* 170.0 (-> *display* time-adjust-ratio)))
)
)
(if (= (-> self in-out-position) 4096)
(go progress-gone)
)
)
(suspend)
)
(none)
)
:post
(-> progress-normal post)
)
(defstate progress-debug (progress)
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(let ((v1-0 arg2))
(the-as object (if (= v1-0 'go-away)
(go progress-going-out)
)
)
)
)
:code
(behavior ()
(while #t
(cond
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons left))
(if (> (-> self current-debug-string) 0)
(+! (-> self current-debug-string) -1)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons right))
(if (< (-> self current-debug-string) (+ (-> *common-text* length) -1))
(+! (-> self current-debug-string) 1)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up))
(when (> (-> self current-debug-group) 0)
(+! (-> self current-debug-group) -1)
(set! (-> self current-debug-string) 0)
0
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down))
(when
(< (-> self current-debug-group) (+ (-> *text-group-names* length) -1))
(+! (-> self current-debug-group) 1)
(set! (-> self current-debug-string) 0)
0
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons l1))
(if (> (the-as int (-> *setting-control* default language)) 0)
(+! (-> *setting-control* default language) -1)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons r1))
(if (< (the-as int (-> *setting-control* default language)) 6)
(+! (-> *setting-control* default language) 1)
)
)
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons l2))
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l2))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons l2))
(go progress-normal)
)
)
(load-game-text-info
(-> *text-group-names* (-> self current-debug-group))
'*common-text*
*common-text-heap*
)
(suspend)
)
(none)
)
:post
(behavior ()
(let* ((s5-0 (-> *display* frames (-> *display* on-screen) frame global-buf))
(gp-0 (-> s5-0 base))
)
(let ((s4-0 draw-string-xy))
(let ((s3-0 format)
(a0-4 (clear *temp-string*))
(a1-0 "TEXT DEBUG: LANGUAGE ~S ID 0x~X")
(v1-4 (-> *setting-control* current language))
)
(s3-0 a0-4 a1-0 (cond
((= v1-4 (language-enum uk-english))
"uk-english"
)
((= v1-4 (language-enum japanese))
"japanese"
)
((= v1-4 (language-enum italian))
"italian"
)
((= v1-4 (language-enum spanish))
"spanish"
)
((= v1-4 (language-enum german))
"german"
)
((= v1-4 (language-enum french))
"french"
)
((= v1-4 (language-enum english))
"english"
)
(else
"*unknown*"
)
)
(-> *common-text* data (-> self current-debug-string) id)
)
)
(s4-0
*temp-string*
s5-0
40
40
(font-color default)
(font-flags shadow kerning)
)
)
(let ((a3-4 (-> s5-0 base)))
(let ((v1-7 (the-as dma-packet (-> s5-0 base))))
(set! (-> v1-7 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
(set! (-> v1-7 vif0) (new 'static 'vif-tag))
(set! (-> v1-7 vif1) (new 'static 'vif-tag))
(set! (-> s5-0 base) (&+ (the-as pointer v1-7) 16))
)
(dma-bucket-insert-tag
(-> *display* frames (-> *display* on-screen) frame bucket-group)
(bucket-id debug-draw0)
gp-0
(the-as (pointer dma-tag) a3-4)
)
)
)
(let* ((s5-1 (-> *display* frames (-> *display* on-screen) frame global-buf))
(gp-1 (-> s5-1 base))
)
(let ((s4-1 draw-string-xy))
(format (clear *temp-string*) "USE LEFT/RIGHT TO SELECT STRING")
(s4-1
*temp-string*
s5-1
40
155
(font-color default)
(font-flags shadow kerning)
)
)
(let ((a3-6 (-> s5-1 base)))
(let ((v1-16 (the-as dma-packet (-> s5-1 base))))
(set! (-> v1-16 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
(set! (-> v1-16 vif0) (new 'static 'vif-tag))
(set! (-> v1-16 vif1) (new 'static 'vif-tag))
(set! (-> s5-1 base) (the-as pointer (the-as dma-packet (&+ v1-16 16))))
)
(dma-bucket-insert-tag
(-> *display* frames (-> *display* on-screen) frame bucket-group)
(bucket-id debug-draw0)
gp-1
(the-as (pointer dma-tag) a3-6)
)
)
)
(let* ((s5-2 (-> *display* frames (-> *display* on-screen) frame global-buf))
(gp-2 (-> s5-2 base))
)
(let ((s4-2 draw-string-xy))
(format (clear *temp-string*) "USE UP/DOWN TO SELECT GROUP")
(s4-2
*temp-string*
s5-2
40
165
(font-color default)
(font-flags shadow kerning)
)
)
(let ((a3-8 (-> s5-2 base)))
(let ((v1-25 (the-as dma-packet (-> s5-2 base))))
(set! (-> v1-25 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
(set! (-> v1-25 vif0) (new 'static 'vif-tag))
(set! (-> v1-25 vif1) (new 'static 'vif-tag))
(set! (-> s5-2 base) (the-as pointer (the-as dma-packet (&+ v1-25 16))))
)
(dma-bucket-insert-tag
(-> *display* frames (-> *display* on-screen) frame bucket-group)
(bucket-id debug-draw0)
gp-2
(the-as (pointer dma-tag) a3-8)
)
)
)
(let* ((s5-3 (-> *display* frames (-> *display* on-screen) frame global-buf))
(gp-3 (-> s5-3 base))
)
(let ((s4-3 draw-string-xy))
(format (clear *temp-string*) "USE L1/R1 TO SELECT LANGUAGE")
(s4-3
*temp-string*
s5-3
40
175
(font-color default)
(font-flags shadow kerning)
)
)
(let ((a3-10 (-> s5-3 base)))
(let ((v1-34 (the-as dma-packet (-> s5-3 base))))
(set! (-> v1-34 dma) (new 'static 'dma-tag :id (dma-tag-id next)))
(set! (-> v1-34 vif0) (new 'static 'vif-tag))
(set! (-> v1-34 vif1) (new 'static 'vif-tag))
(set! (-> s5-3 base) (the-as pointer (the-as dma-packet (&+ v1-34 16))))
)
(dma-bucket-insert-tag
(-> *display* frames (-> *display* on-screen) frame bucket-group)
(bucket-id debug-draw0)
gp-3
(the-as (pointer dma-tag) a3-10)
)
)
)
(let
((gp-4
(new
'stack
'font-context
*font-default-matrix*
32
50
0.0
(font-color default)
(font-flags shadow kerning)
)
)
)
(let ((v1-42 gp-4))
(set! (-> v1-42 width) (the float 328))
)
(let ((v1-43 gp-4))
(set! (-> v1-43 height) (the float 100))
)
(logior! (-> gp-4 flags) (font-flags shadow kerning large))
(draw-debug-text-box gp-4)
(print-game-text
(-> *common-text* data (-> self current-debug-string) text)
gp-4
#f
128
22
)
)
(none)
)
)
Reference in New Issue View Git Blame Copy Permalink