mirror of
https://github.com/open-goal/jak-project
synced 2026-06-03 18:36:52 -04:00
Hat Kid
93afb02cf4
This includes all the collision stuff needed to spawn `target`, decompiles the sparticle code and adds some of the PC hacks needed for merc to run (it doesn't work quite right and looks bad, likely due to a combination of code copied from Jak 2 and the time of day hacks). There are a bunch of temporary hacks (see commits) in place to prevent the game from crashing quite as much, but it is still extremely prone to doing so due to lots of missing functions/potentially bad decomp. --------- Co-authored-by: water <awaterford111445@gmail.com>
7276 lines
290 KiB
Common Lisp
Vendored
Generated
7276 lines
290 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; this file is debug only
|
|
(declare-file (debug))
|
|
|
|
;; definition for symbol *debug-menu-context*, type debug-menu-context
|
|
(define *debug-menu-context* (new 'debug 'debug-menu-context))
|
|
|
|
;; definition for symbol *dm-cam-mode-interpolation*, type int
|
|
(define *dm-cam-mode-interpolation* 0)
|
|
|
|
;; definition for function dm-cam-mode-func
|
|
(defun dm-cam-mode-func ((arg0 (state camera-slave)) (arg1 debug-menu-msg))
|
|
(if (and (= arg1 (debug-menu-msg press)) arg0)
|
|
(set-setting-by-param *setting-control* 'mode-name (-> arg0 name) 0 0)
|
|
)
|
|
(if *camera*
|
|
(send-event *camera* 'query-state arg0)
|
|
(not arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-mode-default
|
|
(defun dm-cam-mode-default ((arg0 object) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(remove-setting-by-arg0 *setting-control* 'mode-name)
|
|
)
|
|
(not (get-setting *setting-control* 'mode-name))
|
|
)
|
|
|
|
;; definition for function dm-cam-settings-default
|
|
(defun dm-cam-settings-default ((arg0 object) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(remove-setting-by-arg0 *setting-control* 'fov)
|
|
(remove-setting-by-arg0 *setting-control* 'slave-options)
|
|
)
|
|
(and (not (get-setting *setting-control* 'fov)) (not (get-setting *setting-control* 'slave-options)))
|
|
)
|
|
|
|
;; definition for function dm-cam-settings-func
|
|
(defun dm-cam-settings-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (and (= arg1 (debug-menu-msg press)) *camera*)
|
|
(cond
|
|
((zero? arg0)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options BUTT_CAM))
|
|
)
|
|
((= arg0 1)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options SAME_SIDE))
|
|
)
|
|
((= arg0 2)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options MOVE_SPHERICAL))
|
|
)
|
|
((= arg0 3)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options DRAG))
|
|
)
|
|
((= arg0 4)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options ALLOW_Z_ROT))
|
|
)
|
|
((= arg0 6)
|
|
(set-setting-by-param *setting-control* 'slave-options 'clear 0 16)
|
|
)
|
|
((= arg0 7)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options FIND_HIDDEN_TARGET))
|
|
)
|
|
((= arg0 8)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options COLLIDE))
|
|
)
|
|
((= arg0 9)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options LINE_OF_SIGHT))
|
|
)
|
|
((= arg0 10)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options NO_ROTATE))
|
|
)
|
|
((= arg0 11)
|
|
(send-event *camera* 'toggle-slave-option (cam-slave-options STICKY_ANGLE))
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
(*camera*
|
|
(cond
|
|
((zero? arg0)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 BUTT_CAM))
|
|
)
|
|
((= arg0 1)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 SAME_SIDE))
|
|
)
|
|
((= arg0 2)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 MOVE_SPHERICAL))
|
|
)
|
|
((= arg0 3)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 DRAG))
|
|
)
|
|
((= arg0 4)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 ALLOW_Z_ROT))
|
|
)
|
|
((= arg0 6)
|
|
(not (get-setting *setting-control* 'slave-options))
|
|
)
|
|
((= arg0 7)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 FIND_HIDDEN_TARGET))
|
|
)
|
|
((= arg0 8)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 COLLIDE))
|
|
)
|
|
((= arg0 9)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 LINE_OF_SIGHT))
|
|
)
|
|
((= arg0 10)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 NO_ROTATE))
|
|
)
|
|
((= arg0 11)
|
|
(logtest? (-> *camera* slave-options) (cam-slave-options-u32 STICKY_ANGLE))
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-settings-func-int
|
|
(defun dm-cam-settings-func-int ((arg0 int) (arg1 debug-menu-msg) (arg2 int) (arg3 int))
|
|
(when (and (= arg1 (debug-menu-msg press)) *camera*)
|
|
(if (= (/ arg0 8) 5)
|
|
(set! *dm-cam-mode-interpolation* arg2)
|
|
)
|
|
)
|
|
(cond
|
|
(*camera*
|
|
(if (= (/ arg0 8) 5)
|
|
*dm-cam-mode-interpolation*
|
|
arg3
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-externalize
|
|
(defun dm-cam-externalize ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(cond
|
|
((= arg0 'reset)
|
|
(if (!= *external-cam-mode* 'locked)
|
|
(external-cam-reset!)
|
|
)
|
|
)
|
|
((= arg0 'allow-z)
|
|
(set! *external-cam-options* (logxor *external-cam-options* (external-cam-option allow-z)))
|
|
)
|
|
((= *external-cam-mode* arg0)
|
|
(set! *external-cam-mode* #f)
|
|
)
|
|
(else
|
|
(if (not *external-cam-mode*)
|
|
(external-cam-reset!)
|
|
)
|
|
(set! *external-cam-mode* arg0)
|
|
)
|
|
)
|
|
)
|
|
(if (= arg0 'allow-z)
|
|
(logtest? *external-cam-options* (external-cam-option allow-z))
|
|
(= *external-cam-mode* arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-setting-float
|
|
(defun dm-cam-setting-float ((arg0 float) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((v1-2 arg0))
|
|
(when (= (the-as int v1-2) 'fov)
|
|
(if (not (get-setting *setting-control* 'fov))
|
|
(set! arg2 64.0)
|
|
)
|
|
(set-setting-by-param *setting-control* 'fov #f (* 182.04445 arg2) 0)
|
|
(if *camera-combiner*
|
|
(set! (-> *camera-combiner* fov) (* 182.04445 arg2))
|
|
)
|
|
(if (and *camera* (-> *camera* slave))
|
|
(set! (-> *camera* slave 0 fov) (* 182.04445 arg2))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((= (the-as int arg0) 'fov)
|
|
(cond
|
|
((get-setting *setting-control* 'fov)
|
|
(empty)
|
|
arg2
|
|
)
|
|
(*math-camera*
|
|
(* 0.005493164 (-> *math-camera* fov))
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-render-float
|
|
(defun dm-cam-render-float ((arg0 int) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(when (zero? (/ arg0 8))
|
|
(when *math-camera*
|
|
(set! (-> *math-camera* fov) (* 182.04445 arg2))
|
|
(update-math-camera
|
|
*math-camera*
|
|
(-> *setting-control* user-current video-mode)
|
|
(-> *setting-control* user-current aspect-ratio)
|
|
(-> *math-camera* fov)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(cond
|
|
(*math-camera*
|
|
(* 0.005493164 (-> *math-camera* fov))
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-subdiv-float
|
|
(defun dm-subdiv-float ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(case arg0
|
|
(('close)
|
|
(when (and *math-camera* *subdivide-settings*)
|
|
(dotimes (v1-6 12)
|
|
(set! (-> *subdivide-settings* close v1-6) (* 4096.0 arg2))
|
|
)
|
|
)
|
|
)
|
|
(('far)
|
|
(when (and *math-camera* *subdivide-settings*)
|
|
(dotimes (v1-13 12)
|
|
(set! (-> *subdivide-settings* far v1-13) (* 4096.0 arg2))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(case arg0
|
|
(('close)
|
|
(if (and *math-camera* *subdivide-settings*)
|
|
(* 0.00024414062 (-> *subdivide-settings* close 0))
|
|
arg3
|
|
)
|
|
)
|
|
(('far)
|
|
(if (and *math-camera* *subdivide-settings*)
|
|
(* 0.00024414062 (-> *subdivide-settings* far 0))
|
|
arg3
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-subdiv-int
|
|
(defun dm-subdiv-int ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 int))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(case arg0
|
|
(('anim-speed)
|
|
(if *anim-tester*
|
|
(set! (-> *anim-tester* 0 speed) arg2)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(case arg0
|
|
(('anim-speed)
|
|
(if *anim-tester*
|
|
(-> *anim-tester* 0 speed)
|
|
arg3
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-select-race-path
|
|
(defun dm-select-race-path ((arg0 object) (arg1 debug-menu-msg) (arg2 int))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *select-race-path* arg2)
|
|
)
|
|
*select-race-path*
|
|
)
|
|
|
|
;; definition for function dm-setting-language
|
|
(defun dm-setting-language ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default language) (the-as language-enum (/ arg0 8)))
|
|
)
|
|
(= (-> *setting-control* user-default language) (/ arg0 8))
|
|
)
|
|
|
|
;; definition for function dm-setting-subtitle-language
|
|
(defun dm-setting-subtitle-language ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default subtitle-language) (the-as language-enum (/ arg0 8)))
|
|
)
|
|
(= (-> *setting-control* user-default subtitle-language) (/ arg0 8))
|
|
)
|
|
|
|
;; definition for function dm-setting-audio-language
|
|
(defun dm-setting-audio-language ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default audio-language) (the-as language-enum (/ arg0 8)))
|
|
)
|
|
(= (-> *setting-control* user-default audio-language) (/ arg0 8))
|
|
)
|
|
|
|
;; definition for function dm-setting-stereo-mode
|
|
(defun dm-setting-stereo-mode ((arg0 object) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default stereo-mode) (the-as int (/ (the-as int arg0) 8)))
|
|
)
|
|
(= (-> *setting-control* user-default stereo-mode) (/ (the-as int arg0) 8))
|
|
)
|
|
|
|
;; definition for function dm-current-continue
|
|
(defun dm-current-continue ((arg0 string) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(start 'play (get-continue-by-name *game-info* arg0))
|
|
)
|
|
(string= (-> (get-current-continue-forced *game-info*) name) arg0)
|
|
)
|
|
|
|
;; definition for function dm-subdiv-draw-func
|
|
(defun dm-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *subdivide-draw-mode* (the-as subdivide-setting (/ arg0 8)))
|
|
)
|
|
(= (/ arg0 8) *subdivide-draw-mode*)
|
|
)
|
|
|
|
;; definition for function dm-scissor-subdiv-draw-func
|
|
(defun dm-scissor-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *subdivide-scissor-draw-mode* (the-as subdivide-setting (/ arg0 8)))
|
|
)
|
|
(= (/ arg0 8) *subdivide-scissor-draw-mode*)
|
|
)
|
|
|
|
;; definition for function dm-foreground-subdiv-draw-func
|
|
(defun dm-foreground-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! *subdivide-foreground-draw-mode* (the-as subdivide-setting (/ arg0 8)))
|
|
(let ((v1-3 *generic-consts*)
|
|
(a1-1 (/ arg0 8))
|
|
)
|
|
(cond
|
|
((zero? a1-1)
|
|
(set! (-> v1-3 base-strgif str-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :tme #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
(set! (-> v1-3 base-strgif fan-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-fan) :iip #x1 :tme #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
)
|
|
((= a1-1 1)
|
|
(set! (-> v1-3 base-strgif str-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line-strip) :iip #x1 :tme #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
(set! (-> v1-3 base-strgif fan-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line-strip) :iip #x1 :tme #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
)
|
|
((= a1-1 2)
|
|
(set! (-> v1-3 base-strgif str-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
(set! (-> v1-3 base-strgif fan-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-fan) :iip #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
)
|
|
((= a1-1 3)
|
|
(set! (-> v1-3 base-strgif str-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type line-strip) :iip #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
(set! (-> v1-3 base-strgif fan-prim)
|
|
(new 'static 'gif-tag-prim
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-fan) :iip #x1 :fge #x1 :abe #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(= (/ arg0 8) *subdivide-foreground-draw-mode*)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-on-func
|
|
(defun dm-col-rend-on-func ((arg0 object) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 draw?) (not (-> v1-0 draw?)))
|
|
)
|
|
(-> v1-0 draw?)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-outline-func
|
|
(defun dm-col-rend-outline-func ((arg0 object) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 outline?) (not (-> v1-0 outline?)))
|
|
)
|
|
(-> v1-0 outline?)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-back-face-func
|
|
(defun dm-col-rend-back-face-func ((arg0 object) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 show-back-faces?) (not (-> v1-0 show-back-faces?)))
|
|
)
|
|
(-> v1-0 show-back-faces?)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-normals-func
|
|
(defun dm-col-rend-normals-func ((arg0 object) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 show-normals?) (not (-> v1-0 show-normals?)))
|
|
)
|
|
(-> v1-0 show-normals?)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-ghost-hidden-func
|
|
(defun dm-col-rend-ghost-hidden-func ((arg0 object) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 ghost-hidden?) (not (-> v1-0 ghost-hidden?)))
|
|
)
|
|
(-> v1-0 ghost-hidden?)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-track-func
|
|
(defun dm-col-rend-track-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 track) (the-as uint (/ arg0 8)))
|
|
)
|
|
(= (/ arg0 8) (-> v1-0 track))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-show-only-toggle-func
|
|
(defun dm-col-rend-show-only-toggle-func ((arg0 uint) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> v1-0 show-only) arg0)
|
|
(logand! (-> v1-0 show-only) -57)
|
|
)
|
|
(logtest? (-> v1-0 show-only) arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-show-only-set-func
|
|
(defun dm-col-rend-show-only-set-func ((arg0 uint) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 show-only) arg0)
|
|
)
|
|
(= (-> v1-0 show-only) arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-cspec-toggle
|
|
(defun dm-col-rend-cspec-toggle ((arg0 uint) (arg1 debug-menu-msg))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> v1-0 cspec) (the-as uint arg0))
|
|
)
|
|
(logtest? (-> v1-0 cspec) arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-size
|
|
(defun dm-col-rend-size ((arg0 object) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 bbox-radius) (* 2048.0 arg2))
|
|
)
|
|
(* 0.00024414062 (* 2.0 (-> v1-0 bbox-radius)))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-col-rend-cam-dist
|
|
(defun dm-col-rend-cam-dist ((arg0 object) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((v1-0 *col-rend*))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> v1-0 camera-to-bbox-dist) (* 4096.0 arg2))
|
|
)
|
|
(* 0.00024414062 (-> v1-0 camera-to-bbox-dist))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-ocean-height-func
|
|
(defun dm-ocean-height-func ((arg0 ocean-height-hack) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! *ocean-height-hack* (the-as ocean-height-hack (/ (the-as int arg0) 8)))
|
|
(let* ((v1-3 (/ (the-as int arg0) 8))
|
|
(f0-0 (cond
|
|
((= v1-3 2)
|
|
-16384000.0
|
|
)
|
|
((= v1-3 3)
|
|
-216498.17
|
|
)
|
|
((= v1-3 4)
|
|
-265650.2
|
|
)
|
|
((= v1-3 5)
|
|
-314802.2
|
|
)
|
|
((= v1-3 6)
|
|
-368050.2
|
|
)
|
|
(else
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-height! *ocean-map-sewer* f0-0)
|
|
)
|
|
)
|
|
(= (/ (the-as int arg0) 8) *ocean-height-hack*)
|
|
)
|
|
|
|
;; definition for function dm-ocean-subdiv-draw-func
|
|
(defun dm-ocean-subdiv-draw-func ((arg0 object) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *subdivide-ocean-draw-mode* (the-as subdivide-setting (/ (the-as int arg0) 8)))
|
|
)
|
|
(= (/ (the-as int arg0) 8) *subdivide-ocean-draw-mode*)
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-func
|
|
(defun dm-time-of-day-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 7)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 1)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 10)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 2)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 12)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 3)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 14)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 4)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 18)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 5)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 19)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 6)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 23)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 7)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'hour 4)
|
|
(set! (-> *time-of-day-context* mode) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
)
|
|
((= (/ arg0 8) 8)
|
|
(send-event
|
|
(ppointer->process *time-of-day*)
|
|
'dest-clock-ratio-set
|
|
(if *time-of-day-fast*
|
|
#x42700000
|
|
#x3f800000
|
|
)
|
|
(seconds 2)
|
|
)
|
|
)
|
|
(else
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
(set! (-> *time-of-day-context* mode)
|
|
(logand (logxor (-> *time-of-day-context* mode) (the-as uint (/ arg0 8)))
|
|
(time-of-day-palette-id palette-0 palette-1 palette-2 palette-3 palette-4 palette-5 palette-6 palette-7)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'minutes 0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'seconds 0)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'frames 0)
|
|
(set! *teleport-count* 1)
|
|
)
|
|
(cond
|
|
((< (/ arg0 8) 9)
|
|
(= (/ arg0 8) (-> *time-of-day-context* mode))
|
|
)
|
|
((< (/ arg0 8) 8)
|
|
#f
|
|
)
|
|
(else
|
|
(logtest? (-> *time-of-day-context* mode) (/ arg0 8))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-func2
|
|
(defun dm-time-of-day-func2 ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! (-> arg0 value) (not (-> arg0 value)))
|
|
(if (nonzero? (send-event (ppointer->process *time-of-day*) 'ratio))
|
|
(send-event
|
|
(ppointer->process *time-of-day*)
|
|
'dest-clock-ratio-set
|
|
(if *time-of-day-fast*
|
|
#x42700000
|
|
#x3f800000
|
|
)
|
|
(seconds 2)
|
|
)
|
|
)
|
|
)
|
|
(-> arg0 value)
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-palette-func
|
|
(defun dm-time-of-day-palette-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! (-> *time-of-day-context* overide-palette) (the-as time-of-day-palette-id (/ arg0 8)))
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-0))
|
|
)
|
|
((= (/ arg0 8) 1)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-1))
|
|
)
|
|
((= (/ arg0 8) 2)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-2))
|
|
)
|
|
((= (/ arg0 8) 3)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-3))
|
|
)
|
|
((= (/ arg0 8) 4)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-4))
|
|
)
|
|
((= (/ arg0 8) 5)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-5))
|
|
)
|
|
((= (/ arg0 8) 6)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-6))
|
|
)
|
|
((= (/ arg0 8) 7)
|
|
(set! (-> *time-of-day-context* mode) (time-of-day-palette-id palette-7))
|
|
)
|
|
)
|
|
(send-event (ppointer->process *time-of-day*) 'change 'ratio 0.0)
|
|
)
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(= (-> *time-of-day-context* mode) 16)
|
|
)
|
|
((= (/ arg0 8) 1)
|
|
(= (-> *time-of-day-context* mode) 32)
|
|
)
|
|
((= (/ arg0 8) 2)
|
|
(= (-> *time-of-day-context* mode) 64)
|
|
)
|
|
((= (/ arg0 8) 3)
|
|
(= (-> *time-of-day-context* mode) 128)
|
|
)
|
|
((= (/ arg0 8) 4)
|
|
(= (-> *time-of-day-context* mode) 256)
|
|
)
|
|
((= (/ arg0 8) 5)
|
|
(= (-> *time-of-day-context* mode) 512)
|
|
)
|
|
((= (/ arg0 8) 6)
|
|
(= (-> *time-of-day-context* mode) 1024)
|
|
)
|
|
((= (/ arg0 8) 7)
|
|
(= (-> *time-of-day-context* mode) 2048)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-boolean-toggle-pick-func
|
|
(defun dm-boolean-toggle-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> arg0 value) (not (-> arg0 value)))
|
|
)
|
|
(-> arg0 value)
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-pick-func
|
|
(defun dm-time-of-day-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(time-of-day-setup (= arg1 (debug-menu-msg press)))
|
|
)
|
|
|
|
;; definition for function dm-stats-memory-func
|
|
(defun dm-stats-memory-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(let ((v1-0 (/ arg0 8)))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *stats-memory-level-index* v1-0)
|
|
)
|
|
(= *stats-memory-level-index* v1-0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-actor-marks-pick-func
|
|
(defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-actor-marks* arg0)
|
|
)
|
|
(= *display-actor-marks* arg0)
|
|
)
|
|
|
|
;; definition for function dm-debug-actor-lod-dist
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch number vs object.
|
|
(defun dm-debug-actor-lod-dist ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(local-vars (sv-16 res-tag))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(when (and *debug-actor* (>= (-> (the-as process-drawable *debug-actor*) draw lod-set max-lod) (/ arg0 8)))
|
|
(let ((a0-4 (&+ (-> (the-as process-drawable *debug-actor*) draw jgeo extra data-base) (* (/ arg0 8) 4))))
|
|
(mem-set32! a0-4 1 (the-as int (* 4096.0 arg2)))
|
|
)
|
|
(reset-actors 'debug)
|
|
)
|
|
)
|
|
(cond
|
|
(*debug-actor*
|
|
(let ((f30-0 0.00024414062))
|
|
(set! sv-16 (new 'static 'res-tag))
|
|
(let ((v1-21 (res-lump-data
|
|
(-> (the-as process-drawable *debug-actor*) draw jgeo extra)
|
|
'lod-dist
|
|
(pointer float)
|
|
:tag-ptr (& sv-16)
|
|
)
|
|
)
|
|
)
|
|
(* f30-0 (if (and v1-21 (< (/ arg0 8) (the-as int (-> sv-16 elt-count))))
|
|
(-> v1-21 (/ arg0 8))
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
0
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-select-race-pick-func
|
|
(defun dm-select-race-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *select-race* (the-as race-selection (/ arg0 8)))
|
|
)
|
|
(= (/ arg0 8) *select-race*)
|
|
)
|
|
|
|
;; definition for function dm-compact-actor-pick-func
|
|
(defun dm-compact-actor-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *compact-actors* arg0)
|
|
)
|
|
(= *compact-actors* arg0)
|
|
)
|
|
|
|
;; definition for function dm-actor-vis-pick-func
|
|
(defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-actor-vis* arg0)
|
|
)
|
|
(= *display-actor-vis* arg0)
|
|
)
|
|
|
|
;; definition for function dm-game-mode-pick-func
|
|
(defun dm-game-mode-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *game-info* mode) arg0)
|
|
)
|
|
(= (-> *game-info* mode) arg0)
|
|
)
|
|
|
|
;; definition for function dm-game-feature-toggle-pick-func
|
|
(defun dm-game-feature-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(let ((v1-1 (ash 1 (/ arg0 8))))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *game-info* features) (the-as uint v1-1))
|
|
(set! (-> *game-info* debug-features)
|
|
(logior (logclear (-> *game-info* debug-features) v1-1) (logand (-> *game-info* features) v1-1))
|
|
)
|
|
(if (logtest? (game-feature
|
|
gun-red-1
|
|
gun-red-2
|
|
gun-red-3
|
|
gun-yellow-1
|
|
gun-yellow-2
|
|
gun-yellow-3
|
|
gun-blue-1
|
|
gun-blue-2
|
|
gun-blue-3
|
|
gun-dark-1
|
|
gun-dark-2
|
|
gun-dark-3
|
|
)
|
|
(-> *game-info* features)
|
|
)
|
|
(logior! (-> *game-info* features) (game-feature gun))
|
|
(logclear! (-> *game-info* features) (game-feature gun))
|
|
)
|
|
(if (logtest? (game-feature
|
|
gun-red-1
|
|
gun-red-2
|
|
gun-red-3
|
|
gun-yellow-1
|
|
gun-yellow-2
|
|
gun-yellow-3
|
|
gun-blue-1
|
|
gun-blue-2
|
|
gun-blue-3
|
|
gun-dark-1
|
|
gun-dark-2
|
|
gun-dark-3
|
|
)
|
|
(-> *game-info* debug-features)
|
|
)
|
|
(logior! (-> *game-info* debug-features) (game-feature gun))
|
|
(logclear! (-> *game-info* debug-features) (game-feature gun))
|
|
)
|
|
)
|
|
(logtest? (-> *game-info* features) v1-1)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-game-vehicle-toggle-pick-func
|
|
(defun dm-game-vehicle-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(let ((v1-1 (ash 1 (/ arg0 8))))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *game-info* vehicles) (the-as uint v1-1))
|
|
(set! (-> *game-info* debug-vehicles)
|
|
(logior (logclear (-> *game-info* debug-vehicles) v1-1) (logand (-> *game-info* vehicles) v1-1))
|
|
)
|
|
)
|
|
(logtest? (-> *game-info* vehicles) v1-1)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-game-secret-toggle-pick-func
|
|
(defun dm-game-secret-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *game-info* secrets) (the-as uint (ash 1 (/ arg0 8))))
|
|
(update-task-masks 'event)
|
|
)
|
|
(logtest? (-> *game-info* secrets) (ash 1 (/ arg0 8)))
|
|
)
|
|
|
|
;; definition for function display-scene-control-toggle-pick-func
|
|
(defun display-scene-control-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-scene-control* (logxor *display-scene-control* (the-as uint arg0)))
|
|
)
|
|
(logtest? *display-scene-control* arg0)
|
|
)
|
|
|
|
;; definition for function display-scene-control-set-pick-func
|
|
(defun display-scene-control-set-pick-func ((arg0 scene-controls) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-scene-control* arg0)
|
|
)
|
|
(= *display-scene-control* arg0)
|
|
)
|
|
|
|
;; definition for function display-bot-marks-toggle-pick-func
|
|
(defun display-bot-marks-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-bot-marks* (logxor *display-bot-marks* (the-as uint arg0)))
|
|
)
|
|
(logtest? *display-bot-marks* arg0)
|
|
)
|
|
|
|
;; definition for function display-bot-marks-set-pick-func
|
|
(defun display-bot-marks-set-pick-func ((arg0 bot-marks-controls) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-bot-marks* arg0)
|
|
)
|
|
(= *display-bot-marks* arg0)
|
|
)
|
|
|
|
;; definition for function display-race-marks-toggle-pick-func
|
|
(defun display-race-marks-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-race-marks* (logxor *display-race-marks* (the-as uint arg0)))
|
|
)
|
|
(logtest? *display-race-marks* arg0)
|
|
)
|
|
|
|
;; definition for function display-race-marks-set-pick-func
|
|
(defun display-race-marks-set-pick-func ((arg0 race-marks-controls) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-race-marks* arg0)
|
|
)
|
|
(= *display-race-marks* arg0)
|
|
)
|
|
|
|
;; definition for function dm-vu1-user-toggle-pick-func
|
|
(defun dm-vu1-user-toggle-pick-func ((arg0 vu1-renderer-mask) (arg1 debug-menu-msg))
|
|
(let ((v1-1 (ash 1 (/ (the-as int arg0) 8))))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *display* vu1-enable-user-menu) (the-as uint v1-1))
|
|
)
|
|
(logtest? (-> *display* vu1-enable-user-menu) v1-1)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-vu1-user-all-pick-func
|
|
(defun dm-vu1-user-all-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(let ((v1-1 (the-as uint #x17fffffff8)))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *display* vu1-enable-user-menu) (the-as vu1-renderer-mask v1-1))
|
|
)
|
|
(= (-> *display* vu1-enable-user-menu) v1-1)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-vu1-user-none-pick-func
|
|
(defun dm-vu1-user-none-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(let ((v1-0 0))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *display* vu1-enable-user-menu) (the-as vu1-renderer-mask v1-0))
|
|
)
|
|
(= (-> *display* vu1-enable-user-menu) v1-0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-texture-user-toggle-pick-func
|
|
(defun dm-texture-user-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *texture-pool* texture-enable-user-menu) (the-as uint arg0))
|
|
)
|
|
(logtest? (-> *texture-pool* texture-enable-user-menu) arg0)
|
|
)
|
|
|
|
;; definition for function dm-texture-user-set-pick-func
|
|
(defun dm-texture-user-set-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *texture-pool* texture-enable-user-menu) (the-as texture-enable-mask arg0))
|
|
)
|
|
(= (-> *texture-pool* texture-enable-user-menu) arg0)
|
|
)
|
|
|
|
;; definition for function dm-strip-lines-toggle-pick-func
|
|
(defun dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-strip-lines* (logxor *display-strip-lines* (the-as uint (/ arg0 8))))
|
|
)
|
|
(logtest? *display-strip-lines* (/ arg0 8))
|
|
)
|
|
|
|
;; definition for function dm-strip-lines-set-pick-func
|
|
(defun dm-strip-lines-set-pick-func ((arg0 strip-lines-controls) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *display-strip-lines* (the-as strip-lines-controls (/ (the-as int arg0) 8)))
|
|
)
|
|
(= *display-strip-lines* (/ (the-as int arg0) 8))
|
|
)
|
|
|
|
;; definition for function dm-edit-instance-toggle-pick-func
|
|
(defun dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(dotimes (s4-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s4-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(let ((v1-4 (find-instance-by-name-level *edit-instance* a1-1)))
|
|
(when v1-4
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> v1-4 flags) (the-as uint arg0))
|
|
)
|
|
(logtest? (-> v1-4 flags) arg0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function all-texture-tweak-adjust
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun all-texture-tweak-adjust ((arg0 texture-page-dir) (arg1 float))
|
|
(dotimes (s4-0 (-> arg0 length))
|
|
(let ((s3-0 (-> arg0 entries s4-0 page)))
|
|
(dotimes (s2-0 (min (-> s3-0 length) (-> arg0 entries s4-0 length)))
|
|
(when (-> arg0 entries s4-0 link)
|
|
(let ((v1-12 (+ (the-as uint (-> arg0 entries s4-0 link)) (* s2-0 4)))
|
|
(s1-0 (-> arg0 entries s4-0 page data s2-0))
|
|
)
|
|
(+! (-> s1-0 uv-dist) arg1)
|
|
(+ v1-12 0)
|
|
(let ((s0-0 (the-as object (* (-> (dynamic-array-field-access v1-12 next PLACEHOLDER) shader) 16))))
|
|
(while (nonzero? (the-as uint s0-0))
|
|
(adgif-shader-update! (the-as adgif-shader s0-0) s1-0)
|
|
(&-> (the-as adgif-shader s0-0) reg-2)
|
|
(set! s0-0 (* (-> (the-as adgif-shader s0-0) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function dm-float-field-tie-rvanish-func
|
|
(defun dm-float-field-tie-rvanish-func ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(let ((f30-0 arg3))
|
|
(dotimes (s3-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s3-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(let ((s2-0 (find-instance-by-name-level (the-as string (-> arg0 value)) a1-1)))
|
|
(when s2-0
|
|
(case (prototype-bucket-type s2-0)
|
|
((instance-tie)
|
|
(let* ((f0-0 (-> (the-as prototype-bucket-tie s2-0) tie-vanish-far))
|
|
(f1-2 (- f0-0 (/ 128.0 (-> (the-as prototype-bucket-tie s2-0) tie-rvanish))))
|
|
)
|
|
(let ((f2-1 (-> (the-as prototype-bucket-tie s2-0) dists w)))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(logior! (-> (the-as prototype-bucket-tie s2-0) flags) (prototype-flags vanish))
|
|
(set! f1-2 (fmax (fmin (* 4096.0 arg2) f0-0) (+ 4096.0 f2-1)))
|
|
(let ((f0-1 (fmax f0-0 (+ 4096.0 f1-2))))
|
|
(set! (-> (the-as prototype-bucket-tie s2-0) tie-rvanish) (/ 128.0 (- f0-1 f1-2)))
|
|
(set! (-> (the-as prototype-bucket-tie s2-0) tie-vanish-far) f0-1)
|
|
)
|
|
)
|
|
)
|
|
(set! f30-0 (* 0.00024414062 f1-2))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
f30-0
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-float-field-tie-vanish-far-func
|
|
(defun dm-float-field-tie-vanish-far-func ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(let ((f30-0 arg3))
|
|
(dotimes (s3-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s3-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(let ((s2-0 (find-instance-by-name-level (the-as string (-> arg0 value)) a1-1)))
|
|
(when s2-0
|
|
(case (prototype-bucket-type s2-0)
|
|
((instance-tie)
|
|
(let ((f0-0 (-> (the-as prototype-bucket-tie s2-0) tie-vanish-far)))
|
|
(let ((f2-1 (- f0-0 (/ 128.0 (-> (the-as prototype-bucket-tie s2-0) tie-rvanish))))
|
|
(f1-2 (-> (the-as prototype-bucket-tie s2-0) dists w))
|
|
)
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(logior! (-> s2-0 flags) (prototype-flags vanish))
|
|
(set! f0-0 (fmax (* 4096.0 arg2) (+ 4096.0 f2-1)))
|
|
(let ((f1-4 (fmax (fmin f2-1 f0-0) (+ 4096.0 f1-2))))
|
|
(set! (-> (the-as prototype-bucket-tie s2-0) tie-rvanish) (/ 128.0 (- f0-0 f1-4)))
|
|
)
|
|
(set! (-> (the-as prototype-bucket-tie s2-0) tie-vanish-far) f0-0)
|
|
)
|
|
)
|
|
(set! f30-0 (* 0.00024414062 f0-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
f30-0
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-bug-report-output-pick-func
|
|
(defun dm-bug-report-output-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! *bug-report-output-mode* arg0)
|
|
)
|
|
(= *bug-report-output-mode* arg0)
|
|
)
|
|
|
|
;; definition for function dm-bug-report-report-pick-func
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun dm-bug-report-report-pick-func ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(bug-report-display arg0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function debug-menu-node<?
|
|
(defun debug-menu-node<? ((arg0 debug-menu-node) (arg1 debug-menu-node))
|
|
(string<=? (-> arg0 name) (-> arg1 name))
|
|
)
|
|
|
|
;; definition for function dm-shader-pick-func
|
|
(defun dm-shader-pick-func ((arg0 texture-id) (arg1 debug-menu-msg))
|
|
(if (and (= arg1 (debug-menu-msg press))
|
|
*texture-page-dir*
|
|
(-> *texture-page-dir* entries (-> arg0 page) page)
|
|
(-> *texture-page-dir* entries (-> arg0 page) link)
|
|
(nonzero? (-> *texture-page-dir* entries (-> arg0 page) link next (-> arg0 index)))
|
|
)
|
|
(set! *edit-shader* arg0)
|
|
)
|
|
(and (nonzero? *edit-shader*) (= arg0 *edit-shader*))
|
|
)
|
|
|
|
;; definition for symbol *shader-pick-menu*, type debug-menu
|
|
(define *shader-pick-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for function build-shader-list
|
|
;; WARN: Return type mismatch pair vs none.
|
|
(defun build-shader-list ()
|
|
(debug-menu-remove-all-items *shader-pick-menu*)
|
|
(when *texture-page-dir*
|
|
(dotimes (gp-0 (-> *texture-page-dir* length))
|
|
(let ((s5-0 (-> *texture-page-dir* entries gp-0 page))
|
|
(s4-0 (-> *texture-page-dir* entries gp-0 link))
|
|
)
|
|
(when (and s5-0 s4-0)
|
|
(dotimes (s3-0 (-> s5-0 length))
|
|
(when (and (-> s5-0 data s3-0) (nonzero? (-> s4-0 next s3-0)))
|
|
(let ((a1-1 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(-> s5-0 data s3-0 name)
|
|
(logior (shr (shl s3-0 52) 44) (shr (shl gp-0 52) 32))
|
|
dm-shader-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item *shader-pick-menu* a1-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *shader-pick-menu* items) (sort (-> *shader-pick-menu* items) debug-menu-node<?))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function dm-instance-pick-func
|
|
;; WARN: Return type mismatch object vs basic.
|
|
(defun dm-instance-pick-func ((arg0 string) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! *edit-instance* #f)
|
|
(dotimes (s5-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s5-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(if (find-instance-by-name-level arg0 a1-1)
|
|
(set! *edit-instance* arg0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(the-as basic (and *edit-instance* (string= arg0 *edit-instance*)))
|
|
)
|
|
|
|
;; definition for function dm-enable-instance-func
|
|
(defun dm-enable-instance-func ((arg0 string) (arg1 debug-menu-msg))
|
|
(let ((s3-0 #f))
|
|
(dotimes (s4-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s4-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(let ((v1-4 (find-instance-by-name-level arg0 a1-1)))
|
|
(when v1-4
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> v1-4 flags) (prototype-flags disable))
|
|
)
|
|
(set! s3-0 (not (logtest? (-> v1-4 flags) (prototype-flags disable))))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
s3-0
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *instance-shrub-menu*, type debug-menu
|
|
(define *instance-shrub-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for symbol *instance-tie-menu*, type debug-menu
|
|
(define *instance-tie-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for symbol *enable-instance-shrub-menu*, type debug-menu
|
|
(define *enable-instance-shrub-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for symbol *enable-instance-tie-menu*, type debug-menu
|
|
(define *enable-instance-tie-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for function build-instance-list
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun build-instance-list ((arg0 object))
|
|
(debug-menu-remove-all-items *instance-shrub-menu*)
|
|
(debug-menu-remove-all-items *instance-tie-menu*)
|
|
(debug-menu-remove-all-items *enable-instance-shrub-menu*)
|
|
(debug-menu-remove-all-items *enable-instance-tie-menu*)
|
|
(set! *display-instance-info* #f)
|
|
(dotimes (gp-0 (-> *level* length))
|
|
(let ((v1-3 (-> *level* level gp-0)))
|
|
(when (= (-> v1-3 status) 'active)
|
|
(let ((s5-0 (-> v1-3 bsp drawable-trees)))
|
|
(dotimes (s4-0 (-> s5-0 length))
|
|
(let ((v1-7 (-> s5-0 trees s4-0)))
|
|
(case (-> v1-7 type)
|
|
((drawable-tree-instance-shrub)
|
|
(let ((s3-0 (-> (the-as drawable-tree-instance-shrub v1-7) info prototype-inline-array-shrub)))
|
|
(dotimes (s2-0 (-> s3-0 length))
|
|
(let ((a1-4
|
|
(new
|
|
'global
|
|
'debug-menu-item-flag
|
|
(-> s3-0 data s2-0 name)
|
|
(the-as int (-> s3-0 data s2-0 name))
|
|
dm-instance-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item *instance-shrub-menu* a1-4)
|
|
)
|
|
(let ((a1-6
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(-> s3-0 data s2-0 name)
|
|
(the-as int (-> s3-0 data s2-0 name))
|
|
dm-enable-instance-func
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a1-6 is-on) #t)
|
|
(debug-menu-append-item *enable-instance-shrub-menu* a1-6)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((drawable-tree-instance-tie)
|
|
(let ((s3-1 (-> (the-as drawable-tree-instance-tie v1-7) prototypes prototype-array-tie)))
|
|
(dotimes (s2-1 (-> s3-1 length))
|
|
(let ((a1-9
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(-> s3-1 array-data s2-1 name)
|
|
(the-as int (-> s3-1 array-data s2-1 name))
|
|
dm-instance-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item *instance-tie-menu* a1-9)
|
|
)
|
|
(let ((a1-11
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(-> s3-1 array-data s2-1 name)
|
|
(the-as int (-> s3-1 array-data s2-1 name))
|
|
dm-enable-instance-func
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a1-11 is-on) #t)
|
|
(debug-menu-append-item *enable-instance-tie-menu* a1-11)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *instance-shrub-menu* items)
|
|
(sort
|
|
(-> *instance-shrub-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu)) (string<=? (-> arg0 name) (-> arg1 name)))
|
|
)
|
|
)
|
|
(set! (-> *instance-tie-menu* items)
|
|
(sort
|
|
(-> *instance-tie-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu)) (string<=? (-> arg0 name) (-> arg1 name)))
|
|
)
|
|
)
|
|
(set! (-> *enable-instance-shrub-menu* items)
|
|
(sort
|
|
(-> *enable-instance-shrub-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu)) (string<=? (-> arg0 name) (-> arg1 name)))
|
|
)
|
|
)
|
|
(set! (-> *enable-instance-tie-menu* items)
|
|
(sort
|
|
(-> *enable-instance-tie-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu)) (string<=? (-> arg0 name) (-> arg1 name)))
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function dm-scene-load-pick-func
|
|
(defun dm-scene-load-pick-func ((arg0 pair) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((s5-0 *display-profile*))
|
|
(play-clean #f)
|
|
(set! *display-profile* s5-0)
|
|
)
|
|
(set! *debug-menu-scene-play* #t)
|
|
(let ((s5-1 (car (cdr arg0))))
|
|
(process-spawn scene-player :init scene-player-init s5-1 #t (car arg0) :name "scene-player")
|
|
)
|
|
(debug-menu-context-send-msg *debug-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
(set-master-mode 'game)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function debug-create-cam-restore
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defun debug-create-cam-restore ()
|
|
(cond
|
|
(*math-camera*
|
|
(format #t "(defun-debug cam-restore ()~%")
|
|
(format #t " ;;this function is a hack, don't use it as an example~%")
|
|
(format #t " (let ((pos (new 'stack 'vector))~%")
|
|
(format #t " (rot (new 'stack 'matrix)))~%")
|
|
(format #t " (set! (-> pos x) ~12F)~%" (-> *math-camera* trans x))
|
|
(format #t " (set! (-> pos y) ~12F)~%" (-> *math-camera* trans y))
|
|
(format #t " (set! (-> pos z) ~12F)~%" (-> *math-camera* trans z))
|
|
(format #t " (set! (-> pos w) 1.0)~%")
|
|
(format #t " (set! (-> rot data 0) ~12F)~%" (-> *math-camera* inv-camera-rot rvec x))
|
|
(format #t " (set! (-> rot data 1) ~12F)~%" (-> *math-camera* inv-camera-rot rvec y))
|
|
(format #t " (set! (-> rot data 2) ~12F)~%" (-> *math-camera* inv-camera-rot rvec z))
|
|
(format #t " (set! (-> rot data 3) ~12F)~%" (-> *math-camera* inv-camera-rot rvec w))
|
|
(format #t " (set! (-> rot data 4) ~12F)~%" (-> *math-camera* inv-camera-rot uvec x))
|
|
(format #t " (set! (-> rot data 5) ~12F)~%" (-> *math-camera* inv-camera-rot uvec y))
|
|
(format #t " (set! (-> rot data 6) ~12F)~%" (-> *math-camera* inv-camera-rot uvec z))
|
|
(format #t " (set! (-> rot data 7) ~12F)~%" (-> *math-camera* inv-camera-rot uvec w))
|
|
(format #t " (set! (-> rot data 8) ~12F)~%" (-> *math-camera* inv-camera-rot fvec x))
|
|
(format #t " (set! (-> rot data 9) ~12F)~%" (-> *math-camera* inv-camera-rot fvec y))
|
|
(format #t " (set! (-> rot data 10) ~12F)~%" (-> *math-camera* inv-camera-rot fvec z))
|
|
(format #t " (set! (-> rot data 11) ~12F)~%" (-> *math-camera* inv-camera-rot fvec w))
|
|
(format #t " (set! (-> rot data 12) ~12F)~%" 0)
|
|
(format #t " (set! (-> rot data 13) ~12F)~%" 0)
|
|
(format #t " (set! (-> rot data 14) ~12F)~%" 0)
|
|
(format #t " (set! (-> rot data 15) ~12F)~%" #x3f800000)
|
|
(let ((gp-0 (new 'stack-no-clear 'euler-angles)))
|
|
(matrix->eul gp-0 (-> *math-camera* inv-camera-rot) 21)
|
|
(format #t " ;; euler angles (xyz order degrees) x ~R y ~R z ~R~%" (-> gp-0 x) (-> gp-0 y) (-> gp-0 z))
|
|
(format
|
|
#t
|
|
" ;; MAYA euler angles (xyz order degrees) x ~R y ~R z ~R~%"
|
|
(-> gp-0 x)
|
|
(- 32768.0 (-> gp-0 y))
|
|
(-> gp-0 z)
|
|
)
|
|
)
|
|
(format #t " (debug-set-camera-pos-rot! pos rot)~%")
|
|
(format #t " (send-event *camera* 'set-fov (deg ~f))~%" (* 0.005493164 (-> *math-camera* fov)))
|
|
(format #t " (clear *camera-old-level*)~%")
|
|
(format #t " (format *camera-old-level* \"~A\")~%" (-> *level* level0 name))
|
|
(let ((t9-31 format)
|
|
(a0-31 #t)
|
|
(a1-31 " (set! *camera-old-cpu* ~D)~%")
|
|
(a2-25 (-> *display* frames (-> *display* last-screen) profile-array data 0))
|
|
)
|
|
(t9-31 a0-31 a1-31 (- (-> a2-25 data 0 end-time) (-> a2-25 data 0 start-time)))
|
|
)
|
|
(let ((t9-32 format)
|
|
(a0-32 #t)
|
|
(a1-32 " (set! *camera-old-vu* ~D)~%")
|
|
(a2-29 (-> *display* frames (-> *display* on-screen) profile-array data 1))
|
|
)
|
|
(t9-32 a0-32 a1-32 (- (-> a2-29 data 0 end-time) (-> a2-29 data 0 start-time)))
|
|
)
|
|
(compute-memory-usage! (the-as level (-> *level* level)) #f)
|
|
(format #t " (set! *camera-old-tfrag-bytes* ~D)~%" (+ (-> *level* level0 mem-usage-block data 1 total)
|
|
(-> *level* level0 mem-usage-block data 2 total)
|
|
(-> *level* level0 mem-usage-block data 3 total)
|
|
(-> *level* level0 mem-usage-block data 4 total)
|
|
(-> *level* level0 mem-usage-block data 5 total)
|
|
(-> *level* level0 mem-usage-block data 6 total)
|
|
(-> *level* level0 mem-usage-block data 7 total)
|
|
(-> *level* level0 mem-usage-block data 8 total)
|
|
)
|
|
)
|
|
(format #t " (clear *camera-old-stat-string-tfrag*)~%")
|
|
(format #t " (clear *camera-old-stat-string-tfrag-near*)~%")
|
|
(format #t " (clear *camera-old-stat-string-total*)~%")
|
|
(when *stats-poly*
|
|
(format #t " (format *camera-old-stat-string-tfrag* \"~S\")~%" *stat-string-tfrag*)
|
|
(format #t " (format *camera-old-stat-string-tfrag-near* \"~S\")~%" *stat-string-tfrag-scissor*)
|
|
(format #t " (format *camera-old-stat-string-total* \"~S\")~%" *stat-string-total*)
|
|
)
|
|
(format #t " (set! *display-camera-old-stats* #t)~%")
|
|
(format #t " )~%")
|
|
(format #t " )~%")
|
|
)
|
|
(else
|
|
(format #t "camera save failed~%")
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-camera-mode-menu
|
|
(defun debug-menu-make-camera-mode-menu ((arg0 debug-menu) (arg1 debug-menu))
|
|
(new 'debug 'debug-menu-item-submenu "Camera" arg0)
|
|
(let ((a1-3 (new 'debug 'debug-menu-item-submenu "Mode" arg1)))
|
|
(debug-menu-append-item arg0 a1-3)
|
|
)
|
|
(let ((a1-5 (new 'debug 'debug-menu-item-flag "Default" (the-as int #f) dm-cam-mode-default)))
|
|
(debug-menu-append-item arg1 a1-5)
|
|
)
|
|
(let ((a1-7 (new 'debug 'debug-menu-item-flag "Free-floating" (the-as int cam-free-floating) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-7)
|
|
)
|
|
(let ((a1-9 (new 'debug 'debug-menu-item-flag "Fixed" (the-as int cam-fixed) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-9)
|
|
)
|
|
(let ((a1-11 (new 'debug 'debug-menu-item-flag "No Trans" (the-as int cam-no-trans) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-11)
|
|
)
|
|
(let ((a1-13 (new 'debug 'debug-menu-item-flag "Pov" (the-as int cam-pov) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-13)
|
|
)
|
|
(let ((a1-15 (new 'debug 'debug-menu-item-flag "Pov180" (the-as int cam-pov180) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-15)
|
|
)
|
|
(let ((a1-17 (new 'debug 'debug-menu-item-flag "Pov-track" (the-as int cam-pov-track) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-17)
|
|
)
|
|
(let ((a1-19 (new 'debug 'debug-menu-item-flag "Decel" (the-as int cam-decel) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-19)
|
|
)
|
|
(let ((a1-21 (new 'debug 'debug-menu-item-flag "Endless fall" (the-as int cam-endlessfall) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-21)
|
|
)
|
|
(let ((a1-23 (new 'debug 'debug-menu-item-flag "Eye" (the-as int cam-eye) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-23)
|
|
)
|
|
(let ((a1-25 (new 'debug 'debug-menu-item-flag "Stick" (the-as int cam-stick) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-25)
|
|
)
|
|
(let ((a1-27 (new 'debug 'debug-menu-item-flag "String" (the-as int cam-string) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-27)
|
|
)
|
|
(let ((a1-29 (new 'debug 'debug-menu-item-flag "Standoff" (the-as int cam-standoff) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-29)
|
|
)
|
|
(let ((a1-31 (new 'debug 'debug-menu-item-flag "Circular" (the-as int cam-circular) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-31)
|
|
)
|
|
(let ((a1-33 (new 'debug 'debug-menu-item-flag "Look At" (the-as int cam-lookat) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-33)
|
|
)
|
|
(let ((a1-35 (new 'debug 'debug-menu-item-flag "Center of world" (the-as int cam-point-watch) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-35)
|
|
)
|
|
(let ((a1-37 (new 'debug 'debug-menu-item-flag "Spline" (the-as int cam-spline) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-37)
|
|
)
|
|
(let ((a1-39 (new 'debug 'debug-menu-item-flag "Tube Sled" (the-as int cam-tube-sled) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-39)
|
|
)
|
|
(let ((a1-41 (new 'debug 'debug-menu-item-flag "Bike" (the-as int cam-bike) dm-cam-mode-func)))
|
|
(debug-menu-append-item arg1 a1-41)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-camera-menu
|
|
(defun debug-menu-make-camera-menu ((arg0 debug-menu-context))
|
|
(let* ((gp-0 (new 'debug 'debug-menu arg0 "Camera menu"))
|
|
(s5-0 (new 'debug 'debug-menu-item-submenu "Camera" gp-0))
|
|
)
|
|
(let ((a1-3 (new 'debug 'debug-menu arg0 "Camera mode menu")))
|
|
(debug-menu-make-camera-mode-menu gp-0 a1-3)
|
|
)
|
|
(let ((s3-0 (new 'debug 'debug-menu arg0 "Camera externalize menu")))
|
|
(let ((a1-6 (new 'debug 'debug-menu-item-submenu "External" s3-0)))
|
|
(debug-menu-append-item gp-0 a1-6)
|
|
)
|
|
(let ((a1-8 (new 'debug 'debug-menu-item-flag "CPad 0" (the-as int 'pad-0) dm-cam-externalize)))
|
|
(debug-menu-append-item s3-0 a1-8)
|
|
)
|
|
(let ((a1-10 (new 'debug 'debug-menu-item-flag "CPad 1" (the-as int 'pad-1) dm-cam-externalize)))
|
|
(debug-menu-append-item s3-0 a1-10)
|
|
)
|
|
(let ((a1-12 (new 'debug 'debug-menu-item-flag "Lock" (the-as int 'locked) dm-cam-externalize)))
|
|
(debug-menu-append-item s3-0 a1-12)
|
|
)
|
|
(let ((a1-14 (new 'debug 'debug-menu-item-flag "Reset" (the-as int 'reset) dm-cam-externalize)))
|
|
(debug-menu-append-item s3-0 a1-14)
|
|
)
|
|
(let ((a1-16 (new 'debug 'debug-menu-item-flag "Allow z rot" (the-as int 'allow-z) dm-cam-externalize)))
|
|
(debug-menu-append-item s3-0 a1-16)
|
|
)
|
|
(let ((s2-0 (new 'debug 'debug-menu-item-var "Fov" 0 80)))
|
|
(debug-menu-item-var-make-float s2-0 dm-cam-render-float 1.0 #t 15.0 180.0 1)
|
|
(debug-menu-append-item s3-0 s2-0)
|
|
)
|
|
(let ((a1-21
|
|
(new 'debug 'debug-menu-item-flag "turbo free" (the-as int '*camera-turbo-free*) dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-0 a1-21)
|
|
)
|
|
)
|
|
(let ((s3-1 (new 'debug 'debug-menu arg0 "Camera collision menu")))
|
|
(let ((a1-24 (new 'debug 'debug-menu-item-submenu "Collision" s3-1)))
|
|
(debug-menu-append-item gp-0 a1-24)
|
|
)
|
|
(let ((a1-26 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Record"
|
|
(the-as int '*record-cam-collide-history*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-1 a1-26)
|
|
)
|
|
(let ((a1-28 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Display"
|
|
(the-as int '*display-cam-collide-history*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-1 a1-28)
|
|
)
|
|
)
|
|
(let ((s4-1 (new 'debug 'debug-menu arg0 "Camera settings menu")))
|
|
(let ((a1-31 (new 'debug 'debug-menu-item-submenu "Settings" s4-1)))
|
|
(debug-menu-append-item gp-0 a1-31)
|
|
)
|
|
(let ((a1-33 (new 'debug 'debug-menu-item-flag "Default" (the-as int #f) dm-cam-settings-default)))
|
|
(debug-menu-append-item s4-1 a1-33)
|
|
)
|
|
(let ((a1-35
|
|
(new 'debug 'debug-menu-item-flag "turbo free" (the-as int '*camera-turbo-free*) dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-35)
|
|
)
|
|
(let ((s3-2 (new 'debug 'debug-menu-item-var "Fov" (the-as int 'fov) 80)))
|
|
(debug-menu-item-var-make-float
|
|
s3-2
|
|
(the-as (function int debug-menu-msg float float float) dm-cam-setting-float)
|
|
1.0
|
|
#t
|
|
15.0
|
|
180.0
|
|
1
|
|
)
|
|
(debug-menu-append-item s4-1 s3-2)
|
|
)
|
|
(let ((a1-40 (new 'debug 'debug-menu-item-flag "Butt cam" 0 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-40)
|
|
)
|
|
(let ((a1-42 (new 'debug 'debug-menu-item-flag "Same side" 1 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-42)
|
|
)
|
|
(let ((a1-44 (new 'debug 'debug-menu-item-flag "Move spherical" 2 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-44)
|
|
)
|
|
(let ((a1-46 (new 'debug 'debug-menu-item-flag "Drag" 3 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-46)
|
|
)
|
|
(let ((a1-48 (new 'debug 'debug-menu-item-flag "Allow Z rot" 4 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-48)
|
|
)
|
|
(let ((a1-50 (new 'debug 'debug-menu-item-flag "Pitch for jump" 6 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-50)
|
|
)
|
|
(let ((a1-52 (new 'debug 'debug-menu-item-flag "Find hidden target" 7 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-52)
|
|
)
|
|
(let ((a1-54 (new 'debug 'debug-menu-item-flag "Collide" 8 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-54)
|
|
)
|
|
(let ((a1-56 (new 'debug 'debug-menu-item-flag "Line of Sight" 9 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-56)
|
|
)
|
|
(let ((a1-58 (new 'debug 'debug-menu-item-flag "No Rotate" 10 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-58)
|
|
)
|
|
(let ((a1-60 (new 'debug 'debug-menu-item-flag "Sticky Angle" 11 dm-cam-settings-func)))
|
|
(debug-menu-append-item s4-1 a1-60)
|
|
)
|
|
(let ((s3-3 (new 'debug 'debug-menu-item-var "Interp Frms" 40 80)))
|
|
(debug-menu-item-var-make-int s3-3 dm-cam-settings-func-int 1 #f 0 0 #f)
|
|
(debug-menu-append-item s4-1 s3-3)
|
|
)
|
|
(let ((a1-65 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"no mip/lod correction"
|
|
(the-as int '*camera-no-mip-correction*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-65)
|
|
)
|
|
(let ((a1-67 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"last attacker"
|
|
(the-as int '*display-camera-last-attacker*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-67)
|
|
)
|
|
(let ((a1-69 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"old stats"
|
|
(the-as int '*display-camera-old-stats*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-69)
|
|
)
|
|
(let ((a1-71 (new 'debug 'debug-menu-item-flag "Amy cam" (the-as int '*amy-cam*) dm-boolean-toggle-pick-func)))
|
|
(debug-menu-append-item s4-1 a1-71)
|
|
)
|
|
(let ((a1-73
|
|
(new 'debug 'debug-menu-item-flag "xyz axes" (the-as int '*display-xyz-axes*) dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-73)
|
|
)
|
|
(let ((a1-75 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Master Marks"
|
|
(the-as int '*display-cam-master-marks*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-75)
|
|
)
|
|
(let ((a1-77
|
|
(new 'debug 'debug-menu-item-flag "Other Marks" (the-as int '*display-cam-other*) dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-77)
|
|
)
|
|
(let ((a1-79 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"los debug"
|
|
(the-as int '*display-cam-los-debug*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-79)
|
|
)
|
|
(let ((a1-81
|
|
(new 'debug 'debug-menu-item-flag "los info" (the-as int '*display-cam-los-info*) dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-81)
|
|
)
|
|
(let ((a1-83 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"los Marks"
|
|
(the-as int '*display-cam-los-marks*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-83)
|
|
)
|
|
(let ((a1-85 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"coll Marks"
|
|
(the-as int '*display-cam-coll-marks*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-85)
|
|
)
|
|
(let ((a1-87 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Camera Marks"
|
|
(the-as int '*display-camera-marks*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-87)
|
|
)
|
|
)
|
|
(let ((a1-89 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Edit"
|
|
(the-as int '*cam-layout*)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(if (-> arg0 value)
|
|
(cam-layout-stop)
|
|
(cam-layout-start)
|
|
)
|
|
)
|
|
(-> arg0 value)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-89)
|
|
)
|
|
(let ((a1-91 (new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Save Pos"
|
|
(the-as int #f)
|
|
(the-as (function object object) debug-create-cam-restore)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-91)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-shader-menu
|
|
(defun debug-menu-make-shader-menu ((arg0 debug-menu-context))
|
|
(let* ((gp-0 (new 'debug 'debug-menu arg0 "Shader menu"))
|
|
(s5-0 (new 'debug 'debug-menu-item-submenu "Shader" gp-0))
|
|
)
|
|
(let ((a3-3 (new 'debug 'debug-menu arg0 "Shader pick menu")))
|
|
(set! *shader-pick-menu* a3-3)
|
|
(let ((a1-4 (new 'debug 'debug-menu-item-submenu "Pick Shader" a3-3)))
|
|
(debug-menu-append-item gp-0 a1-4)
|
|
)
|
|
)
|
|
(let ((a1-6 (new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Refresh"
|
|
(the-as int #f)
|
|
(the-as (function object object) build-shader-list)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-6)
|
|
)
|
|
(let ((s4-1 (new 'debug 'debug-menu-item-var "tweak" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-float
|
|
s4-1
|
|
(the-as
|
|
(function int debug-menu-msg float float float)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((s4-0 (the-as texture-id (-> arg0 value)))
|
|
(gp-0 (lookup-texture-by-id s4-0))
|
|
(v1-3 (-> *texture-page-dir* entries (-> s4-0 page) link))
|
|
)
|
|
(cond
|
|
((and gp-0 v1-3)
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! (-> gp-0 uv-dist) arg2)
|
|
(let ((s5-1 (the-as object (* (-> v1-3 next (-> s4-0 index) shader) 16))))
|
|
(while (nonzero? (the-as uint s5-1))
|
|
(adgif-shader-update! (the-as adgif-shader s5-1) gp-0)
|
|
(set! s5-1 (* (-> (the-as adgif-shader s5-1) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(-> gp-0 uv-dist)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0.1
|
|
#t
|
|
0.1
|
|
30.0
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s4-1)
|
|
)
|
|
(let ((a1-11 (new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"all tweak+"
|
|
(the-as int #f)
|
|
(the-as (function object object) (lambda () (all-texture-tweak-adjust *texture-page-dir* 0.1)))
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-11)
|
|
)
|
|
(let ((a1-13 (new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"all tweak-"
|
|
(the-as int #f)
|
|
(the-as (function object object) (lambda () (all-texture-tweak-adjust *texture-page-dir* -0.1)))
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-13)
|
|
)
|
|
(let ((s4-2 (new 'debug 'debug-menu-item-var "l" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-2
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 l) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 l)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#f
|
|
)
|
|
(debug-menu-append-item gp-0 s4-2)
|
|
)
|
|
(let ((s4-3 (new 'debug 'debug-menu-item-var "k" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-3
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (the-as adgif-shader (-> a0-3 next (-> v1-1 index) shader)) 16))))
|
|
(while (nonzero? (the-as int a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 k) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(sar (shl (the-as int (the-as adgif-shader (-> (the-as adgif-shader v1-8) tex1))) 20) 52)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
-2048
|
|
2047
|
|
#f
|
|
)
|
|
(debug-menu-append-item gp-0 s4-3)
|
|
)
|
|
(let ((s4-4 (new 'debug 'debug-menu-item-var "mmin" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-4
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 mmin) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 mmin)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
5
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-4)
|
|
)
|
|
(let ((s4-5 (new 'debug 'debug-menu-item-var "mmag" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-5
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 mmag) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 mmag)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
1
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-5)
|
|
)
|
|
(let ((s4-6 (new 'debug 'debug-menu-item-var "lcm" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-6
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 lcm) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 lcm)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
1
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-6)
|
|
)
|
|
(let ((s4-7 (new 'debug 'debug-menu-item-var "tfx" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-7
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (the-as adgif-shader (-> a0-3 next (-> v1-1 index) shader)) 16))))
|
|
(while (nonzero? (the-as int a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tfx) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(shr (shl (the-as int (the-as adgif-shader (-> (the-as adgif-shader v1-8) tex0))) 27) 62)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-7)
|
|
)
|
|
(let ((s4-8 (new 'debug 'debug-menu-item-var "tbp" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-8
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tbp0) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tbp0)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
#x4000
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-8)
|
|
)
|
|
(let ((s4-9 (new 'debug 'debug-menu-item-var "tbw" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-9
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tbw) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tbw)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
15
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-9)
|
|
)
|
|
(let ((s4-10 (new 'debug 'debug-menu-item-var "tw" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-10
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tw) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tw)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
10
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-10)
|
|
)
|
|
(let ((s4-11 (new 'debug 'debug-menu-item-var "th" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-11
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (the-as adgif-shader (-> a0-3 next (-> v1-1 index) shader)) 16))))
|
|
(while (nonzero? (the-as int a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 th) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(shr (shl (the-as int (the-as adgif-shader (-> (the-as adgif-shader v1-8) tex0))) 30) 60)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
10
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-11)
|
|
)
|
|
(let ((s4-12 (new 'debug 'debug-menu-item-var "mxl" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-12
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 mxl) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 mxl)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
6
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-12)
|
|
)
|
|
(let ((s4-13 (new 'debug 'debug-menu-item-var "wms" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-13
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp wms) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp wms)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-13)
|
|
)
|
|
(let ((s4-14 (new 'debug 'debug-menu-item-var "wmt" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-14
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp wmt) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp wmt)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-14)
|
|
)
|
|
(let ((s4-15 (new 'debug 'debug-menu-item-var "minu" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-15
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp minu) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp minu)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-15)
|
|
)
|
|
(let ((s4-16 (new 'debug 'debug-menu-item-var "maxu" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-16
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp maxu) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp maxu)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-16)
|
|
)
|
|
(let ((s4-17 (new 'debug 'debug-menu-item-var "minv" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-17
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (the-as adgif-shader (-> a0-3 next (-> v1-1 index) shader)) 16))))
|
|
(while (nonzero? (the-as int a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp minv) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(shr (shl (the-as int (the-as adgif-shader (-> (the-as adgif-shader v1-8) clamp))) 30) 54)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-17)
|
|
)
|
|
(let ((s4-18 (new 'debug 'debug-menu-item-var "maxv" (the-as int '*edit-shader*) 80)))
|
|
(debug-menu-item-var-make-int
|
|
s4-18
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((a1-8 (the-as object (* (the-as adgif-shader (-> a0-3 next (-> v1-1 index) shader)) 16))))
|
|
(while (nonzero? (the-as int a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp maxv) (the-as int arg2))
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))))
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(shr (shl (the-as int (the-as adgif-shader (-> (the-as adgif-shader v1-8) clamp))) 20) 54)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-18)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-instance-menu
|
|
(defun debug-menu-make-instance-menu ((arg0 debug-menu-context))
|
|
(let* ((gp-0 (new 'debug 'debug-menu arg0 "Instance menu"))
|
|
(s5-0 (new 'debug 'debug-menu-item-submenu "Instance" gp-0))
|
|
)
|
|
(let ((a3-3 (new 'debug 'debug-menu arg0 "Instance shrub menu")))
|
|
(set! *instance-shrub-menu* a3-3)
|
|
(let ((a1-4 (new 'debug 'debug-menu-item-submenu "Pick Shrub" a3-3)))
|
|
(debug-menu-append-item gp-0 a1-4)
|
|
)
|
|
)
|
|
(let ((a3-5 (new 'debug 'debug-menu arg0 "Instance tie menu")))
|
|
(set! *instance-tie-menu* a3-5)
|
|
(let ((a1-7 (new 'debug 'debug-menu-item-submenu "Pick Tie" a3-5)))
|
|
(debug-menu-append-item gp-0 a1-7)
|
|
)
|
|
)
|
|
(let ((a1-9 (new 'debug 'debug-menu-item-function "Refresh" (the-as int #f) build-instance-list)))
|
|
(debug-menu-append-item gp-0 a1-9)
|
|
)
|
|
(let ((a1-11 (new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Print Info"
|
|
(the-as int #f)
|
|
(the-as (function object object) print-prototype-list)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-11)
|
|
)
|
|
(let ((s3-0 (new 'debug 'debug-menu-item-var "near" (the-as int '*edit-instance*) 80)))
|
|
(debug-menu-item-var-make-float
|
|
s3-0
|
|
(the-as
|
|
(function int debug-menu-msg float float float)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(let ((f30-0 arg3))
|
|
(dotimes (s3-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s3-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(let ((s2-0 (find-instance-by-name-level (the-as string (-> arg0 value)) a1-1)))
|
|
(when s2-0
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! (-> s2-0 dists x) (* 4096.0 arg2))
|
|
(prototype-bucket-recalc-fields s2-0)
|
|
)
|
|
(set! f30-0 (* 0.00024414062 (-> s2-0 dists x)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
f30-0
|
|
)
|
|
)
|
|
)
|
|
1.0
|
|
#t
|
|
10.0
|
|
250.0
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s3-0)
|
|
)
|
|
(let ((s3-1 (new 'debug 'debug-menu-item-var "far" (the-as int '*edit-instance*) 80)))
|
|
(debug-menu-item-var-make-float
|
|
s3-1
|
|
(the-as
|
|
(function int debug-menu-msg float float float)
|
|
(lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float))
|
|
(let ((f30-0 arg3))
|
|
(dotimes (s3-0 (-> *level* length))
|
|
(let ((a1-1 (-> *level* level s3-0)))
|
|
(when (= (-> a1-1 status) 'active)
|
|
(let ((s2-0 (find-instance-by-name-level (the-as string (-> arg0 value)) a1-1)))
|
|
(when s2-0
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! (-> s2-0 dists w) (* 4096.0 arg2))
|
|
(prototype-bucket-recalc-fields s2-0)
|
|
)
|
|
(set! f30-0 (* 0.00024414062 (-> s2-0 dists w)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
f30-0
|
|
)
|
|
)
|
|
)
|
|
1.0
|
|
#t
|
|
10.0
|
|
250.0
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s3-1)
|
|
)
|
|
(let ((s3-2 (new 'debug 'debug-menu-item-var "tie vanish near" (the-as int '*edit-instance*) 80)))
|
|
(debug-menu-item-var-make-float
|
|
s3-2
|
|
(the-as (function int debug-menu-msg float float float) dm-float-field-tie-rvanish-func)
|
|
1.0
|
|
#t
|
|
10.0
|
|
250.0
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s3-2)
|
|
)
|
|
(let ((s3-3 (new 'debug 'debug-menu-item-var "tie vanish far" (the-as int '*edit-instance*) 80)))
|
|
(debug-menu-item-var-make-float
|
|
s3-3
|
|
(the-as (function int debug-menu-msg float float float) dm-float-field-tie-vanish-far-func)
|
|
1.0
|
|
#t
|
|
10.0
|
|
250.0
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s3-3)
|
|
)
|
|
(let ((a1-25 (new 'debug 'debug-menu-item-flag "invisible" 1 dm-edit-instance-toggle-pick-func)))
|
|
(debug-menu-append-item gp-0 a1-25)
|
|
)
|
|
(let ((a3-18 (new 'debug 'debug-menu arg0 "Enable Instance Shrub Menu")))
|
|
(set! *enable-instance-shrub-menu* a3-18)
|
|
(let ((a1-28 (new 'debug 'debug-menu-item-submenu "Enable Shrub" a3-18)))
|
|
(debug-menu-append-item gp-0 a1-28)
|
|
)
|
|
)
|
|
(let ((a3-20 (new 'debug 'debug-menu arg0 "Enable Instance Tie Menu")))
|
|
(set! *enable-instance-tie-menu* a3-20)
|
|
(let ((a1-31 (new 'debug 'debug-menu-item-submenu "Enable Tie" a3-20)))
|
|
(debug-menu-append-item gp-0 a1-31)
|
|
)
|
|
)
|
|
(let ((a1-33 (new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Instance Info"
|
|
(the-as int '*display-instance-info*)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-33)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-menu-pick-func
|
|
(defun dm-task-menu-pick-func ((arg0 game-task) (arg1 debug-menu-msg))
|
|
(let ((gp-0 (/ (the-as int arg0) 8)))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(cond
|
|
((cpad-hold? 0 l1)
|
|
(task-node-open! (the-as game-task-node gp-0) 'menu)
|
|
)
|
|
(else
|
|
(let ((t9-1 task-node-close!)
|
|
(a0-2 gp-0)
|
|
)
|
|
'menu
|
|
(t9-1 (the-as game-task-node a0-2))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (and (not (task-node-closed? (the-as game-task-node gp-0)))
|
|
(not (task-node-open? (the-as game-task-node gp-0)))
|
|
)
|
|
(return 'invalid)
|
|
)
|
|
(task-node-closed? (the-as game-task-node gp-0))
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-continue-sub-menu
|
|
;; INFO: Used lq/sq
|
|
(defun debug-menu-make-continue-sub-menu ((arg0 game-info) (arg1 symbol))
|
|
(local-vars
|
|
(sv-16 (function symbol type object object pair))
|
|
(sv-32 symbol)
|
|
(sv-48 type)
|
|
(sv-64 symbol)
|
|
(sv-80 (function symbol type object object pair))
|
|
(sv-96 symbol)
|
|
(sv-112 type)
|
|
(sv-128 string)
|
|
(sv-144 (function symbol type object object pair))
|
|
(sv-160 symbol)
|
|
(sv-176 type)
|
|
(sv-192 string)
|
|
(sv-208 symbol)
|
|
(sv-224 type)
|
|
)
|
|
(let ((s4-0 *level-load-list*)
|
|
(s5-0 '())
|
|
)
|
|
(while (not (null? s4-0))
|
|
(let ((v1-1 (-> (the-as symbol (car s4-0)) value)))
|
|
(when (or (= arg1 'test) (= (-> (the-as level-load-info v1-1) taskname) arg1))
|
|
(let ((s3-0 (-> (the-as level-load-info v1-1) continues)))
|
|
(while (not (null? s3-0))
|
|
(let ((v1-2 (car s3-0))
|
|
(a0-5 arg1)
|
|
)
|
|
(when (if (= a0-5 'test)
|
|
(logtest? (continue-flags continue-flag-16) (-> (the-as continue-point v1-2) flags))
|
|
#t
|
|
)
|
|
(let ((s2-0 (method-of-type pair new))
|
|
(s1-0 'global)
|
|
(s0-0 pair)
|
|
)
|
|
(set! sv-16 (method-of-type pair new))
|
|
(set! sv-32 'global)
|
|
(set! sv-48 pair)
|
|
(set! sv-64 'flag)
|
|
(set! sv-80 (method-of-type pair new))
|
|
(set! sv-96 'global)
|
|
(set! sv-112 pair)
|
|
(set! sv-128 (-> (the-as continue-point v1-2) name))
|
|
(set! sv-144 (method-of-type pair new))
|
|
(set! sv-160 'global)
|
|
(set! sv-176 pair)
|
|
(set! sv-192 (-> (the-as continue-point v1-2) name))
|
|
(let* ((a3-1 (cons 'dm-current-continue '()))
|
|
(a3-2 (sv-144 sv-160 sv-176 sv-192 a3-1))
|
|
(a3-3 (sv-80 sv-96 sv-112 sv-128 a3-2))
|
|
)
|
|
(set! s5-0 (s2-0 s1-0 s0-0 (sv-16 sv-32 sv-48 sv-64 a3-3) s5-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! s3-0 (cdr s3-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! s4-0 (cdr s4-0))
|
|
)
|
|
(let ((s4-1 s5-0)
|
|
(s5-1 '())
|
|
)
|
|
(let ((a2-6 (car s4-1)))
|
|
(while (not (null? s4-1))
|
|
(set! s5-1 (cons a2-6 s5-1))
|
|
(set! s4-1 (cdr s4-1))
|
|
(set! a2-6 (car s4-1))
|
|
)
|
|
)
|
|
(let ((s4-2 (method-of-type pair new))
|
|
(s3-1 'global)
|
|
(s2-1 pair)
|
|
(s1-1 'menu)
|
|
(s0-1 (method-of-type pair new))
|
|
)
|
|
(set! sv-208 'global)
|
|
(set! sv-224 pair)
|
|
(let ((a2-7 (symbol->string-debug arg1))
|
|
(a3-6 s5-1)
|
|
)
|
|
(s4-2 s3-1 s2-1 s1-1 (s0-1 sv-208 sv-224 a2-7 a3-6))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-sub-menu
|
|
;; INFO: Used lq/sq
|
|
(defun debug-menu-make-task-sub-menu ((arg0 symbol))
|
|
(local-vars
|
|
(sv-16 (function symbol type object object pair))
|
|
(sv-32 symbol)
|
|
(sv-48 type)
|
|
(sv-64 symbol)
|
|
(sv-80 (function symbol type object object pair))
|
|
(sv-96 symbol)
|
|
(sv-112 type)
|
|
(sv-128 string)
|
|
(sv-144 (function symbol type object object pair))
|
|
(sv-160 symbol)
|
|
(sv-176 type)
|
|
(sv-192 int)
|
|
(sv-208 symbol)
|
|
(sv-224 type)
|
|
)
|
|
(let ((gp-0 '()))
|
|
(let ((s4-0 (-> *game-info* sub-task-list)))
|
|
(countdown (s3-0 (-> s4-0 length))
|
|
(when (nonzero? s3-0)
|
|
(let ((v1-4 (-> s4-0 s3-0)))
|
|
(when (= (-> v1-4 level) arg0)
|
|
(let ((s2-0 (method-of-type pair new))
|
|
(s1-0 'global)
|
|
(s0-0 pair)
|
|
)
|
|
(set! sv-16 (method-of-type pair new))
|
|
(set! sv-32 'global)
|
|
(set! sv-48 pair)
|
|
(set! sv-64 'flag)
|
|
(set! sv-80 (method-of-type pair new))
|
|
(set! sv-96 'global)
|
|
(set! sv-112 pair)
|
|
(set! sv-128 (-> v1-4 name))
|
|
(set! sv-144 (method-of-type pair new))
|
|
(set! sv-160 'global)
|
|
(set! sv-176 pair)
|
|
(set! sv-192 (* s3-0 8))
|
|
(let* ((a3-1 (cons 'dm-task-menu-pick-func '()))
|
|
(a3-2 (sv-144 sv-160 sv-176 sv-192 a3-1))
|
|
(a3-3 (sv-80 sv-96 sv-112 sv-128 a3-2))
|
|
)
|
|
(set! gp-0 (s2-0 s1-0 s0-0 (sv-16 sv-32 sv-48 sv-64 a3-3) gp-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-1 (method-of-type pair new))
|
|
(s3-1 'global)
|
|
(s2-1 pair)
|
|
(s1-1 'menu)
|
|
(s0-1 (method-of-type pair new))
|
|
)
|
|
(set! sv-208 'global)
|
|
(set! sv-224 pair)
|
|
(let ((a2-5 (symbol->string-debug arg0))
|
|
(a3-5 gp-0)
|
|
)
|
|
(s4-1 s3-1 s2-1 s1-1 (s0-1 sv-208 sv-224 a2-5 a3-5))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-menu
|
|
;; INFO: Used lq/sq
|
|
(defun debug-menu-make-task-menu ((arg0 debug-menu-context))
|
|
(local-vars (sv-16 debug-menu-context))
|
|
(let* ((s5-0 (new 'debug 'debug-menu arg0 "Task menu"))
|
|
(s4-0 (new 'debug 'debug-menu-item-submenu "Task" s5-0))
|
|
)
|
|
(let* ((s3-0 '(city
|
|
comb
|
|
desert
|
|
factory
|
|
forest
|
|
mine
|
|
nest
|
|
palace
|
|
sewer
|
|
wascity
|
|
arena
|
|
temple
|
|
tower
|
|
volcano
|
|
precursor
|
|
default
|
|
test
|
|
)
|
|
)
|
|
(a0-3 (car s3-0))
|
|
)
|
|
(while (not (null? s3-0))
|
|
(let ((s2-0 debug-menu-append-item)
|
|
(s1-0 s5-0)
|
|
(s0-0 debug-menu-make-from-template)
|
|
)
|
|
(set! sv-16 arg0)
|
|
(let ((a1-2 (debug-menu-make-task-sub-menu (the-as symbol a0-3))))
|
|
(s2-0 s1-0 (s0-0 sv-16 a1-2))
|
|
)
|
|
)
|
|
(set! s3-0 (cdr s3-0))
|
|
(set! a0-3 (car s3-0))
|
|
)
|
|
)
|
|
s4-0
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-play-task-with-continue
|
|
;; WARN: Return type mismatch int vs object.
|
|
(defun dm-play-task-with-continue ((arg0 game-task) (arg1 string))
|
|
(let* ((t9-0 play-task)
|
|
(a1-1 'debug)
|
|
(a2-0 (cond
|
|
((cpad-hold? 0 l1)
|
|
'pre-play
|
|
)
|
|
((cpad-hold? 0 r1)
|
|
'kiosk
|
|
)
|
|
)
|
|
)
|
|
(a1-2 (t9-0 arg0 a1-1 a2-0))
|
|
)
|
|
(if arg1
|
|
(set! a1-2 arg1)
|
|
)
|
|
(start 'play (get-continue-by-name *game-info* a1-2))
|
|
)
|
|
(set-master-mode 'game)
|
|
0
|
|
)
|
|
|
|
;; definition for function dm-play-task
|
|
(defun dm-play-task ((arg0 game-task))
|
|
(dm-play-task-with-continue (the-as game-task (/ (the-as int arg0) 8)) (the-as string #f))
|
|
)
|
|
|
|
;; definition for function dm-play-race
|
|
(defun dm-play-race ((arg0 race-selection) (arg1 symbol))
|
|
(let ((s5-0 (the-as string #f))
|
|
(gp-0 0)
|
|
)
|
|
(case arg0
|
|
(((race-selection desertb-race-record))
|
|
(set! gp-0 15)
|
|
(set! s5-0 "desertb-race-record")
|
|
)
|
|
(((race-selection rs1))
|
|
(set! gp-0 131)
|
|
(set! s5-0 "desertb-race-record")
|
|
)
|
|
(((race-selection desrally-record))
|
|
(set! gp-0 132)
|
|
(set! s5-0 "desrally-record")
|
|
)
|
|
)
|
|
(if (not arg1)
|
|
(set! s5-0 (the-as string #f))
|
|
)
|
|
(format #t "dm-play-race starting task ~d continue ~s~%" gp-0 s5-0)
|
|
(if (nonzero? gp-0)
|
|
(dm-play-task-with-continue (the-as game-task gp-0) s5-0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-play-menu
|
|
;; INFO: Used lq/sq
|
|
(defun debug-menu-make-play-menu ((arg0 debug-menu-context))
|
|
(local-vars
|
|
(sv-16 type)
|
|
(sv-32 (function symbol type object object pair))
|
|
(sv-48 symbol)
|
|
(sv-64 type)
|
|
(sv-80 symbol)
|
|
(sv-96 (function symbol type object object pair))
|
|
(sv-112 symbol)
|
|
(sv-128 type)
|
|
(sv-144 string)
|
|
(sv-160 (function symbol type object object pair))
|
|
(sv-176 symbol)
|
|
(sv-192 type)
|
|
(sv-208 symbol)
|
|
(sv-224 type)
|
|
(sv-240 (function symbol type object object pair))
|
|
(sv-256 symbol)
|
|
(sv-272 type)
|
|
(sv-288 symbol)
|
|
(sv-304 (function symbol type object object pair))
|
|
(sv-320 symbol)
|
|
(sv-336 type)
|
|
(sv-352 (function symbol type object object pair))
|
|
(sv-368 symbol)
|
|
(sv-384 type)
|
|
(sv-400 int)
|
|
(sv-416 type)
|
|
(sv-432 symbol)
|
|
(sv-448 (function symbol type object object pair))
|
|
(sv-464 symbol)
|
|
(sv-480 type)
|
|
(sv-496 string)
|
|
(sv-512 (function symbol type object object pair))
|
|
(sv-528 symbol)
|
|
(sv-544 type)
|
|
(sv-560 symbol)
|
|
)
|
|
(let ((s5-0 '()))
|
|
(let ((s2-0 #x200000))
|
|
(countdown (s4-0 (-> *game-info* play-list length))
|
|
(let ((s3-0 (-> *game-info* play-list s4-0)))
|
|
(when (-> s3-0 play-continue)
|
|
(let ((s1-0
|
|
(logand (game-task-node-flag act1 act2 act3 bbush) (-> *game-info* sub-task-list (-> s3-0 play-node) flags))
|
|
)
|
|
)
|
|
(when (!= s1-0 s2-0)
|
|
(let ((s2-1 (method-of-type pair new))
|
|
(s0-0 'global)
|
|
)
|
|
(set! sv-16 pair)
|
|
(set! sv-32 (method-of-type pair new))
|
|
(set! sv-48 'global)
|
|
(set! sv-64 pair)
|
|
(set! sv-80 'function)
|
|
(set! sv-96 (method-of-type pair new))
|
|
(set! sv-112 'global)
|
|
(set! sv-128 pair)
|
|
(cond
|
|
((logtest? (game-task-node-flag act3) s1-0)
|
|
(set! sv-144 "=== Burning Bush ===")
|
|
)
|
|
((logtest? (game-task-node-flag act2) s1-0)
|
|
(set! sv-144 "====== ACT 3 ======")
|
|
)
|
|
((logtest? (game-task-node-flag act1) s1-0)
|
|
(set! sv-144 "====== ACT 2 ======")
|
|
)
|
|
(else
|
|
(set! sv-144 "======= END =======")
|
|
)
|
|
)
|
|
(set! sv-160 (method-of-type pair new))
|
|
(set! sv-176 'global)
|
|
(set! sv-192 pair)
|
|
(set! sv-208 (the-as symbol #f))
|
|
(let* ((a3-1 (cons 'nothing '()))
|
|
(a3-2 (sv-160 sv-176 sv-192 sv-208 a3-1))
|
|
(a3-3 (sv-96 sv-112 sv-128 sv-144 a3-2))
|
|
(a2-4 (sv-32 sv-48 sv-64 sv-80 a3-3))
|
|
)
|
|
(set! s5-0 (s2-1 s0-0 sv-16 a2-4 s5-0))
|
|
)
|
|
)
|
|
(set! s2-0 (the-as int s1-0))
|
|
)
|
|
)
|
|
(let ((s1-1 (method-of-type pair new))
|
|
(s0-1 'global)
|
|
)
|
|
(set! sv-224 pair)
|
|
(set! sv-240 (method-of-type pair new))
|
|
(set! sv-256 'global)
|
|
(set! sv-272 pair)
|
|
(set! sv-288 'function)
|
|
(set! sv-304 (method-of-type pair new))
|
|
(set! sv-320 'global)
|
|
(set! sv-336 pair)
|
|
(let ((s3-1 (-> s3-0 name)))
|
|
(set! sv-352 (method-of-type pair new))
|
|
(set! sv-368 'global)
|
|
(set! sv-384 pair)
|
|
(set! sv-400 (* s4-0 8))
|
|
(let* ((a3-6 (cons 'dm-play-task '()))
|
|
(a3-7 (sv-352 sv-368 sv-384 sv-400 a3-6))
|
|
(a3-8 (sv-304 sv-320 sv-336 s3-1 a3-7))
|
|
(a2-9 (sv-240 sv-256 sv-272 sv-288 a3-8))
|
|
(a3-9 s5-0)
|
|
)
|
|
(set! s5-0 (s1-1 s0-1 sv-224 a2-9 a3-9))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-1 (method-of-type pair new))
|
|
(s3-2 'global)
|
|
(s2-2 pair)
|
|
(s1-2 (method-of-type pair new))
|
|
(s0-2 'global)
|
|
)
|
|
(set! sv-416 pair)
|
|
(set! sv-432 'function)
|
|
(set! sv-448 (method-of-type pair new))
|
|
(set! sv-464 'global)
|
|
(set! sv-480 pair)
|
|
(set! sv-496 "====== ACT 1 ======")
|
|
(set! sv-512 (method-of-type pair new))
|
|
(set! sv-528 'global)
|
|
(set! sv-544 pair)
|
|
(set! sv-560 (the-as symbol #f))
|
|
(let* ((a3-11 (cons 'nothing '()))
|
|
(a3-12 (sv-512 sv-528 sv-544 sv-560 a3-11))
|
|
(a3-13 (sv-448 sv-464 sv-480 sv-496 a3-12))
|
|
(a3-15 (s4-1 s3-2 s2-2 (s1-2 s0-2 sv-416 sv-432 a3-13) s5-0))
|
|
)
|
|
(debug-menu-make-from-template arg0 (cons 'menu (cons "Play" a3-15)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-anim-tester-flag-func
|
|
(defun dm-anim-tester-flag-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(when *anim-tester*
|
|
(case arg0
|
|
(('at-apply-align)
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt5))
|
|
)
|
|
(return (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt5)))
|
|
)
|
|
(('at-show-joint-info)
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(logxor! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt4))
|
|
)
|
|
(return (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt4)))
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function dm-anim-tester-func
|
|
(defun dm-anim-tester-func ((arg0 int) (arg1 debug-menu-msg))
|
|
(local-vars (v0-1 symbol))
|
|
(if (not *anim-tester*)
|
|
(anim-tester-start)
|
|
)
|
|
(when *anim-tester*
|
|
(cond
|
|
((= arg0 'at-pick-object)
|
|
(send-event (ppointer->process *anim-tester*) 'pick-object)
|
|
(set! v0-1 #t)
|
|
(set! (-> *debug-menu-context* is-hidden) v0-1)
|
|
v0-1
|
|
)
|
|
((= arg0 'at-pick-joint-anim)
|
|
(send-event (ppointer->process *anim-tester*) 'pick-joint-anim)
|
|
(set! v0-1 #t)
|
|
(set! (-> *debug-menu-context* is-hidden) v0-1)
|
|
v0-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-pilot-mode
|
|
(defun dm-pilot-mode ((arg0 object))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'pilot #f arg0 #t)
|
|
)
|
|
|
|
;; definition for function stop-watch-display
|
|
(defun stop-watch-display ((arg0 object) (arg1 object))
|
|
(let ((v1-3 (- (-> *display* base-clock frame-counter) (-> *game-info* stop-watch-start))))
|
|
(format arg1 "Stop watch ~D:~D:~D~%" (/ v1-3 #x4650) (/ (mod v1-3 #x4650) 300) (/ (* 100 (mod v1-3 300)) 300))
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function debug-menu-context-make-default-menus
|
|
;; INFO: Used lq/sq
|
|
(defun debug-menu-context-make-default-menus ((arg0 debug-menu-context))
|
|
(local-vars (sv-16 debug-menu-context))
|
|
(let ((s5-0 (new 'debug 'debug-menu arg0 "Main menu")))
|
|
(debug-menu-context-set-root-menu arg0 s5-0)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Artist"
|
|
(flag "Poly Stats" *stats-poly* dm-boolean-toggle-pick-func)
|
|
(menu
|
|
"Memory Stats"
|
|
(flag "Enable" *stats-memory* dm-boolean-toggle-pick-func)
|
|
(flag "Short" *stats-memory-short* dm-boolean-toggle-pick-func)
|
|
(flag "Level 0" 0 dm-stats-memory-func)
|
|
(flag "Level 1" 1 dm-stats-memory-func)
|
|
(flag "Level 2" 2 dm-stats-memory-func)
|
|
(flag "Level 3" 3 dm-stats-memory-func)
|
|
(flag "Level 4" 4 dm-stats-memory-func)
|
|
(flag "Level 5" 5 dm-stats-memory-func)
|
|
(flag "Level 6" 6 dm-stats-memory-func)
|
|
(flag "Level 7" 7 dm-stats-memory-func)
|
|
(flag "Level 8" 8 dm-stats-memory-func)
|
|
(flag "Level 9" 9 dm-stats-memory-func)
|
|
)
|
|
(flag "All Visible" *artist-all-visible* dm-boolean-toggle-pick-func)
|
|
(flag "Flip Visible" *artist-flip-visible* dm-boolean-toggle-pick-func)
|
|
(flag "Fix Visible" *artist-fix-visible* dm-boolean-toggle-pick-func)
|
|
(flag "Fix Frustum" *artist-fix-frustum* dm-boolean-toggle-pick-func)
|
|
(flag "Manual Sample Point" *manual-sample-point* dm-boolean-toggle-pick-func)
|
|
(flag "Error Spheres" *artist-error-spheres* dm-boolean-toggle-pick-func)
|
|
(flag "Use menu subdiv" *artist-use-menu-subdiv* dm-boolean-toggle-pick-func)
|
|
(float-var "Subdiv Close" close dm-subdiv-float 10 1 #t 1 1000 1)
|
|
(float-var "Subdiv Far" far dm-subdiv-float 10 1 #t 1 1000 1)
|
|
(function
|
|
"Target Start"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
)
|
|
(function "Target Stop" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (stop 'debug)))
|
|
(menu
|
|
"Anim Tester"
|
|
(int-var "Speed" anim-speed dm-subdiv-int 10 10 #t -300 1000)
|
|
(flag "Apply Align" at-apply-align dm-anim-tester-flag-func)
|
|
(flag "Show Joint Inf" at-show-joint-info dm-anim-tester-flag-func)
|
|
(function "Pick Object" at-pick-object dm-anim-tester-func)
|
|
(function "Pick Joint Anim" at-pick-joint-anim dm-anim-tester-func)
|
|
(function "Pick Sequence" at-pick-sequence dm-anim-tester-func)
|
|
(function "Save Sequences" at-save-sequences dm-anim-tester-func)
|
|
)
|
|
(flag "Show Entity Errors" *display-entity-errors* dm-boolean-toggle-pick-func)
|
|
(flag "Capture Mode" *display-capture-mode* dm-boolean-toggle-pick-func)
|
|
(flag "Sprite Info" *display-sprite-info* dm-boolean-toggle-pick-func)
|
|
(flag "Sprite Marks" *display-sprite-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Sprite Spheres" *display-sprite-spheres* dm-boolean-toggle-pick-func)
|
|
(flag "Time of Day" #f dm-time-of-day-pick-func)
|
|
(flag "Preload Anims" *preload-spool-anims* dm-boolean-toggle-pick-func)
|
|
(function
|
|
"Mike F"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(debug-actor "drill-crane-14")
|
|
(send-event *debug-actor* 'die)
|
|
)
|
|
)
|
|
(function
|
|
"Editor"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(kill-by-type editable-player *active-pool*)
|
|
(process-spawn editable-player :init editable-player-init #f :name "editable-player" :to *entity-pool*)
|
|
(set-master-mode 'game)
|
|
)
|
|
)
|
|
(flag
|
|
"Screen shot highres enable"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *screen-shot-work* highres-enable) (not (-> *screen-shot-work* highres-enable)))
|
|
)
|
|
(-> *screen-shot-work* highres-enable)
|
|
)
|
|
)
|
|
(flag
|
|
"Screen shot hud enable"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *screen-shot-work* hud-enable) (not (-> *screen-shot-work* hud-enable)))
|
|
)
|
|
(-> *screen-shot-work* hud-enable)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Game"
|
|
(function
|
|
"New Game"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(initialize! *game-info* 'game (the-as game-save #f) (the-as string #f) (the-as resetter-spec #f))
|
|
)
|
|
)
|
|
(function
|
|
"New Life"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(initialize! *game-info* 'dead (the-as game-save #f) (the-as string #f) (the-as resetter-spec #f))
|
|
)
|
|
)
|
|
(function
|
|
"Kill Target"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *game-info* mode) 'play)
|
|
(send-event
|
|
*target*
|
|
'attack
|
|
#f
|
|
(static-attack-info
|
|
:mask (vehicle-impulse-factor)
|
|
((id (new-attack-id)) (damage 2.0) (vehicle-damage-factor 1.0) (vehicle-impulse-factor 1.0) (mode 'death))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Hit Target"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *game-info* mode) 'play)
|
|
(send-event
|
|
*target*
|
|
'attack
|
|
#f
|
|
(static-attack-info
|
|
:mask (vehicle-impulse-factor)
|
|
((id (new-attack-id)) (damage 2.0) (vehicle-damage-factor 1.0) (vehicle-impulse-factor 1.0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Reset Game"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *game-info* mode) 'debug)
|
|
(initialize! *game-info* 'game (the-as game-save #f) (the-as string #f) (the-as resetter-spec #f))
|
|
)
|
|
)
|
|
(function "Reset Actors" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (reset-actors 'debug)))
|
|
(function
|
|
"Save Game"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (auto-save-command 'save 0 0 *default-pool* #f))
|
|
)
|
|
(function
|
|
"Load Game"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (auto-save-command 'restore 0 0 *default-pool* #f))
|
|
)
|
|
(function
|
|
"Manager Complete"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (script-eval '(send-event *task-manager* 'complete)))
|
|
)
|
|
(flag "Target" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(if *target*
|
|
(stop 'debug)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
)
|
|
*target*
|
|
)
|
|
)
|
|
(flag "Game Mode" play dm-game-mode-pick-func)
|
|
(flag "Debug Mode" debug dm-game-mode-pick-func)
|
|
(function
|
|
"Stop Watch Start"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(remove-by-param0 *debug-engine* stop-watch-display)
|
|
(add-connection *debug-engine* *dproc* stop-watch-display *dproc* *stdcon0* #f)
|
|
(set! (-> *game-info* stop-watch-start) (-> *display* base-clock frame-counter))
|
|
(set! (-> *game-info* stop-watch-stop) 0)
|
|
(format #t "Stop watch started!~%")
|
|
)
|
|
)
|
|
(function
|
|
"Stop Watch Stop"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(remove-by-param0 *debug-engine* stop-watch-display)
|
|
(set! (-> *game-info* stop-watch-stop) (-> *display* base-clock frame-counter))
|
|
(let ((v1-7 (- (-> *game-info* stop-watch-stop) (-> *game-info* stop-watch-start))))
|
|
(format
|
|
#t
|
|
"Stop watch elasped time was ~D:~D:~D~%"
|
|
(/ v1-7 #x4650)
|
|
(/ (mod v1-7 #x4650) 300)
|
|
(/ (* 100 (mod v1-7 300)) 300)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Continue Start"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (start 'play (-> *game-info* current-continue)))
|
|
)
|
|
(function
|
|
"Kiosk Reset"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (auto-save-command 'restore 0 0 *default-pool* #f))
|
|
)
|
|
(menu
|
|
"Secrets"
|
|
(flag "hero-mode" 0 dm-game-secret-toggle-pick-func)
|
|
(flag "toggle-beard" 14 dm-game-secret-toggle-pick-func)
|
|
(flag "hflip-screen" 15 dm-game-secret-toggle-pick-func)
|
|
(flag "endless-ammo" 16 dm-game-secret-toggle-pick-func)
|
|
(flag "invulnerable" 17 dm-game-secret-toggle-pick-func)
|
|
(flag "endless-dark" 18 dm-game-secret-toggle-pick-func)
|
|
(flag "endless-light" 19 dm-game-secret-toggle-pick-func)
|
|
(flag "scene-player-1" 1 dm-game-secret-toggle-pick-func)
|
|
(flag "scene-player-2" 2 dm-game-secret-toggle-pick-func)
|
|
(flag "scene-player-3" 3 dm-game-secret-toggle-pick-func)
|
|
(flag "level-select-1" 5 dm-game-secret-toggle-pick-func)
|
|
(flag "level-select-2" 6 dm-game-secret-toggle-pick-func)
|
|
(flag "level-select-3" 7 dm-game-secret-toggle-pick-func)
|
|
(flag "scrap-book-1" 8 dm-game-secret-toggle-pick-func)
|
|
(flag "scrap-book-2" 9 dm-game-secret-toggle-pick-func)
|
|
(flag "scrap-book-3" 10 dm-game-secret-toggle-pick-func)
|
|
(flag "gungame-blue" 20 dm-game-secret-toggle-pick-func)
|
|
(flag "gungame-dark" 21 dm-game-secret-toggle-pick-func)
|
|
(flag "gungame-ratchet" 22 dm-game-secret-toggle-pick-func)
|
|
(flag "big-head" 23 dm-game-secret-toggle-pick-func)
|
|
(flag "little-head" 24 dm-game-secret-toggle-pick-func)
|
|
(flag "fast-movie" 25 dm-game-secret-toggle-pick-func)
|
|
(flag "slow-movie" 26 dm-game-secret-toggle-pick-func)
|
|
(flag "unlimited-turbos" 27 dm-game-secret-toggle-pick-func)
|
|
(flag "vehicle-hit-points" 28 dm-game-secret-toggle-pick-func)
|
|
(flag "board-fast" 29 dm-game-secret-toggle-pick-func)
|
|
(flag "vehicle-fox" 30 dm-game-secret-toggle-pick-func)
|
|
(flag "vehicle-mirage" 31 dm-game-secret-toggle-pick-func)
|
|
(flag "vehicle-x-ride" 32 dm-game-secret-toggle-pick-func)
|
|
(flag "model-viewer-1" 11 dm-game-secret-toggle-pick-func)
|
|
(flag "model-viewer-2" 12 dm-game-secret-toggle-pick-func)
|
|
(flag "model-viewer-3" 13 dm-game-secret-toggle-pick-func)
|
|
(flag "kleever-diaper" 33 dm-game-secret-toggle-pick-func)
|
|
(flag "bad-weather" 34 dm-game-secret-toggle-pick-func)
|
|
(flag "fast-weather" 35 dm-game-secret-toggle-pick-func)
|
|
(flag "daxter-pants" 36 dm-game-secret-toggle-pick-func)
|
|
(flag "darkjak-tracking" 37 dm-game-secret-toggle-pick-func)
|
|
(flag "commentary" 4 dm-game-secret-toggle-pick-func)
|
|
(flag "jak-is-jak2" 38 dm-game-secret-toggle-pick-func)
|
|
(flag "button-invis" 40 dm-game-secret-toggle-pick-func)
|
|
(flag "statistics" 39 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-dark-4" 41 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-red-1" 42 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-red-2" 43 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-red-3" 44 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-yellow-1" 45 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-yellow-2" 46 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-yellow-3" 47 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-blue-1" 48 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-blue-2" 49 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-blue-3" 50 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-dark-1" 51 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-dark-2" 52 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-dark-3" 53 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-ammo-red" 54 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-ammo-yellow" 55 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-ammo-blue" 56 dm-game-secret-toggle-pick-func)
|
|
(flag "gun-upgrade-ammo-dark" 57 dm-game-secret-toggle-pick-func)
|
|
)
|
|
(function "Print Load State" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(dotimes (gp-0 11)
|
|
(let ((s5-0 (-> *level* level gp-0)))
|
|
(if (!= (-> s5-0 status) 'inactive)
|
|
(format
|
|
#t
|
|
"~Tlevel ~2D ~16S ~16S bits #b~18,'0B ~A~%"
|
|
gp-0
|
|
(-> s5-0 name)
|
|
(if (nonzero? (-> s5-0 info))
|
|
(level-memory-mode->string (-> s5-0 info memory-mode))
|
|
)
|
|
(-> s5-0 memory-mask)
|
|
(-> s5-0 status)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
)
|
|
(menu "Continue")
|
|
(menu
|
|
"Settings"
|
|
(float-var
|
|
"sfx-volume"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *setting-control* (nonzero? *setting-control*))
|
|
(set! (-> *setting-control* user-default sfx-volume) arg2)
|
|
)
|
|
)
|
|
((or (not *setting-control*) (zero? *setting-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *setting-control* user-default sfx-volume)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.01)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(float-var
|
|
"ambient-volume"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *setting-control* (nonzero? *setting-control*))
|
|
(set! (-> *setting-control* user-default ambient-volume) arg2)
|
|
)
|
|
)
|
|
((or (not *setting-control*) (zero? *setting-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *setting-control* user-default ambient-volume)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.01)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(float-var
|
|
"music-volume"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *setting-control* (nonzero? *setting-control*))
|
|
(set! (-> *setting-control* user-default music-volume) arg2)
|
|
)
|
|
)
|
|
((or (not *setting-control*) (zero? *setting-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *setting-control* user-default music-volume)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.01)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(float-var
|
|
"dialog-volume"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *setting-control* (nonzero? *setting-control*))
|
|
(set! (-> *setting-control* user-default dialog-volume) arg2)
|
|
)
|
|
)
|
|
((or (not *setting-control*) (zero? *setting-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *setting-control* user-default dialog-volume)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.01)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(float-var
|
|
"contrast"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *setting-control* (nonzero? *setting-control*))
|
|
(set! (-> *setting-control* user-default contrast) arg2)
|
|
)
|
|
)
|
|
((or (not *setting-control*) (zero? *setting-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *setting-control* user-default contrast)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
(new 'static 'bfloat :data 0.25)
|
|
(new 'static 'bfloat :data 1.0)
|
|
0
|
|
)
|
|
(float-var
|
|
"brightness"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *setting-control* (nonzero? *setting-control*))
|
|
(set! (-> *setting-control* user-default brightness) arg2)
|
|
)
|
|
)
|
|
((or (not *setting-control*) (zero? *setting-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *setting-control* user-default brightness)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
(new 'static 'bfloat :data 0.25)
|
|
(new 'static 'bfloat :data 1.0)
|
|
0
|
|
)
|
|
(function
|
|
"reset contrast and brightness"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *setting-control* user-default contrast) 0.5)
|
|
(set! (-> *setting-control* user-default brightness) 0.5)
|
|
)
|
|
)
|
|
(menu
|
|
"Language"
|
|
(flag "english" 0 dm-setting-language)
|
|
(flag "french" 1 dm-setting-language)
|
|
(flag "german" 2 dm-setting-language)
|
|
(flag "spanish" 3 dm-setting-language)
|
|
(flag "italian" 4 dm-setting-language)
|
|
(flag "korean" 7 dm-setting-language)
|
|
(flag "russian" 8 dm-setting-language)
|
|
(flag "portuguese" 9 dm-setting-language)
|
|
(flag "uk-english" 11 dm-setting-language)
|
|
)
|
|
(menu
|
|
"Audio Language"
|
|
(flag "english" 0 dm-setting-audio-language)
|
|
(flag "french" 1 dm-setting-audio-language)
|
|
(flag "german" 2 dm-setting-audio-language)
|
|
(flag "spanish" 3 dm-setting-audio-language)
|
|
(flag "italian" 4 dm-setting-audio-language)
|
|
(flag "commentary" 5 dm-setting-audio-language)
|
|
)
|
|
(menu
|
|
"Subtitle Language"
|
|
(flag "english" 0 dm-setting-subtitle-language)
|
|
(flag "french" 1 dm-setting-subtitle-language)
|
|
(flag "german" 2 dm-setting-subtitle-language)
|
|
(flag "spanish" 3 dm-setting-subtitle-language)
|
|
(flag "italian" 4 dm-setting-subtitle-language)
|
|
(flag "korean" 7 dm-setting-subtitle-language)
|
|
(flag "russian" 8 dm-setting-subtitle-language)
|
|
(flag "portuguese" 9 dm-setting-subtitle-language)
|
|
(flag "uk-english" 11 dm-setting-subtitle-language)
|
|
)
|
|
(flag
|
|
"play-hints "
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default play-hints) (not (-> *setting-control* user-default play-hints)))
|
|
)
|
|
(-> *setting-control* user-default play-hints)
|
|
)
|
|
)
|
|
(flag
|
|
"subtitle "
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default subtitle) (not (-> *setting-control* user-default subtitle)))
|
|
)
|
|
(-> *setting-control* user-default subtitle)
|
|
)
|
|
)
|
|
(flag
|
|
"vibration"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default vibration) (not (-> *setting-control* user-default vibration)))
|
|
)
|
|
(-> *setting-control* user-default vibration)
|
|
)
|
|
)
|
|
(menu
|
|
"Stereo Mode"
|
|
(flag "mono" 0 dm-setting-stereo-mode)
|
|
(flag "stereo" 1 dm-setting-stereo-mode)
|
|
(flag "surround" 2 dm-setting-stereo-mode)
|
|
)
|
|
(flag
|
|
"camera-stick-dir"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default camera-stick-dir)
|
|
(not (-> *setting-control* user-default camera-stick-dir))
|
|
)
|
|
)
|
|
(-> *setting-control* user-default camera-stick-dir)
|
|
)
|
|
)
|
|
(flag
|
|
"progressive-scan"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default set-video-mode)
|
|
(not (-> *setting-control* user-default set-video-mode))
|
|
)
|
|
)
|
|
(-> *setting-control* user-default set-video-mode)
|
|
)
|
|
)
|
|
(flag
|
|
"border-mode"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(set! (-> *setting-control* user-default border-mode) (not (-> *setting-control* user-default border-mode)))
|
|
(set! (-> *level* play?) (-> *setting-control* user-default border-mode))
|
|
)
|
|
(-> *setting-control* user-default border-mode)
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Features"
|
|
(flag "armor0" 52 dm-game-feature-toggle-pick-func)
|
|
(flag "armor1" 53 dm-game-feature-toggle-pick-func)
|
|
(flag "armor2" 54 dm-game-feature-toggle-pick-func)
|
|
(flag "armor3" 55 dm-game-feature-toggle-pick-func)
|
|
(flag "artifact-invis" 51 dm-game-feature-toggle-pick-func)
|
|
(flag "board" 18 dm-game-feature-toggle-pick-func)
|
|
(flag "board-training" 36 dm-game-feature-toggle-pick-func)
|
|
(flag "board-launch" 37 dm-game-feature-toggle-pick-func)
|
|
(flag "board-zap" 39 dm-game-feature-toggle-pick-func)
|
|
(flag "board-trail" 38 dm-game-feature-toggle-pick-func)
|
|
(flag "carry" 19 dm-game-feature-toggle-pick-func)
|
|
(flag "sidekick" 20 dm-game-feature-toggle-pick-func)
|
|
(flag "darkeco" 58 dm-game-feature-toggle-pick-func)
|
|
(flag "darkjak" 40 dm-game-feature-toggle-pick-func)
|
|
(flag "darkjak-smack" 41 dm-game-feature-toggle-pick-func)
|
|
(flag "darkjak-bomb0" 42 dm-game-feature-toggle-pick-func)
|
|
(flag "darkjak-bomb1" 43 dm-game-feature-toggle-pick-func)
|
|
(flag "darkjak-tracking" 44 dm-game-feature-toggle-pick-func)
|
|
(flag "darkjak-invinc" 45 dm-game-feature-toggle-pick-func)
|
|
(flag "lighteco" 57 dm-game-feature-toggle-pick-func)
|
|
(flag "lightjak" 46 dm-game-feature-toggle-pick-func)
|
|
(flag "lightjak-regen" 47 dm-game-feature-toggle-pick-func)
|
|
(flag "lightjak-swoop" 48 dm-game-feature-toggle-pick-func)
|
|
(flag "lightjak-freeze" 49 dm-game-feature-toggle-pick-func)
|
|
(flag "lightjak-shield" 50 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-yellow-1" 9 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-yellow-2" 10 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-yellow-3" 11 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-yellow-ammo-1" 23 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-yellow-ammo-2" 24 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-red-1" 6 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-red-2" 7 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-red-3" 8 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-red-ammo-1" 25 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-red-ammo-2" 26 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-blue-1" 12 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-blue-2" 13 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-blue-3" 14 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-blue-ammo-1" 27 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-blue-ammo-2" 28 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-dark-1" 15 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-dark-2" 16 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-dark-3" 17 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-dark-ammo-1" 29 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-dark-ammo-2" 30 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-speed" 21 dm-game-feature-toggle-pick-func)
|
|
(flag "gun-upgrade-damage" 22 dm-game-feature-toggle-pick-func)
|
|
(flag "pass-port-mh" 31 dm-game-feature-toggle-pick-func)
|
|
(flag "pass-port-inda" 32 dm-game-feature-toggle-pick-func)
|
|
(flag "pass-inda-indb" 33 dm-game-feature-toggle-pick-func)
|
|
(flag "pass-indb-sluma" 34 dm-game-feature-toggle-pick-func)
|
|
(flag "pass-slumb-genb" 35 dm-game-feature-toggle-pick-func)
|
|
(flag "turtle" 0 dm-game-vehicle-toggle-pick-func)
|
|
(flag "snake" 1 dm-game-vehicle-toggle-pick-func)
|
|
(flag "scorpion" 2 dm-game-vehicle-toggle-pick-func)
|
|
(flag "toad" 3 dm-game-vehicle-toggle-pick-func)
|
|
(flag "fox" 4 dm-game-vehicle-toggle-pick-func)
|
|
(flag "rhino" 5 dm-game-vehicle-toggle-pick-func)
|
|
(flag "mirage" 6 dm-game-vehicle-toggle-pick-func)
|
|
(flag "x-ride" 7 dm-game-vehicle-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let* ((s4-2 (debug-menu-find-from-template arg0 '("Game" "Continue")))
|
|
(s3-2
|
|
'(city
|
|
comb
|
|
desert
|
|
factory
|
|
forest
|
|
mine
|
|
nest
|
|
palace
|
|
sewer
|
|
wascity
|
|
arena
|
|
temple
|
|
tower
|
|
volcano
|
|
precursor
|
|
default
|
|
test
|
|
)
|
|
)
|
|
(a1-7 (car s3-2))
|
|
)
|
|
(while (not (null? s3-2))
|
|
(let ((s2-0 debug-menu-append-item)
|
|
(s1-0 s4-2)
|
|
(s0-0 debug-menu-make-from-template)
|
|
)
|
|
(set! sv-16 arg0)
|
|
(let ((a1-8 (debug-menu-make-continue-sub-menu *game-info* (the-as symbol a1-7))))
|
|
(s2-0 s1-0 (s0-0 sv-16 a1-8))
|
|
)
|
|
)
|
|
(set! s3-2 (cdr s3-2))
|
|
(set! a1-7 (car s3-2))
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Stats"
|
|
(flag "Poly" *stats-poly* dm-boolean-toggle-pick-func)
|
|
(flag "Collide" *stats-collide* dm-boolean-toggle-pick-func)
|
|
(flag "Bsp" *stats-bsp* dm-boolean-toggle-pick-func)
|
|
(flag "Buffer" *stats-buffer* dm-boolean-toggle-pick-func)
|
|
(flag "Target" *stats-target* dm-boolean-toggle-pick-func)
|
|
(flag "Blerc" *stats-blerc* dm-boolean-toggle-pick-func)
|
|
(flag "Profile bars" *stats-profile-bars* dm-boolean-toggle-pick-func)
|
|
(flag "Perf" *stats-perf* dm-boolean-toggle-pick-func)
|
|
(menu
|
|
"Memory Stats"
|
|
(flag "Enable" *stats-memory* dm-boolean-toggle-pick-func)
|
|
(flag "Short" *stats-memory-short* dm-boolean-toggle-pick-func)
|
|
(flag "Level 0" 0 dm-stats-memory-func)
|
|
(flag "Level 1" 1 dm-stats-memory-func)
|
|
(flag "Level 2" 2 dm-stats-memory-func)
|
|
(flag "Level 3" 3 dm-stats-memory-func)
|
|
(flag "Level 4" 4 dm-stats-memory-func)
|
|
(flag "Level 5" 5 dm-stats-memory-func)
|
|
(flag "Level 6" 6 dm-stats-memory-func)
|
|
(flag "Level 7" 7 dm-stats-memory-func)
|
|
(flag "Level 8" 8 dm-stats-memory-func)
|
|
(flag "Level 9" 9 dm-stats-memory-func)
|
|
)
|
|
(function
|
|
"Print Entity Memory"
|
|
#f
|
|
,(lambda ()
|
|
(format #t "~%~%========================= Entity Memory =========================~%~%")
|
|
(let ((gp-0 (-> *level* level)))
|
|
(inspect (-> gp-0 0 art-group))
|
|
(dotimes (s5-0 (-> gp-0 0 art-group art-group-array length))
|
|
(inspect (-> gp-0 0 art-group art-group-array s5-0))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
(function
|
|
"Print Texture Info"
|
|
#f
|
|
,(lambda ()
|
|
(format #t "~%~%========================= Texture Info =========================~%~%")
|
|
(inspect *texture-page-dir*)
|
|
)
|
|
)
|
|
(function
|
|
"Print Texture Verbose"
|
|
#f
|
|
,(lambda ()
|
|
(format #t "~%~%========================= Texture Info =========================~%~%")
|
|
(texture-page-dir-inspect *texture-page-dir* #t)
|
|
)
|
|
)
|
|
(function
|
|
"Print Merc Stats"
|
|
#f
|
|
,(lambda ()
|
|
(format #t "~%~%========================== Merc Stats ==========================~%~%")
|
|
(merc-stats)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Render"
|
|
(menu
|
|
"Background"
|
|
(flag "Textured" 0 dm-subdiv-draw-func)
|
|
(flag "Outline" 1 dm-subdiv-draw-func)
|
|
(flag "Gouraud" 2 dm-subdiv-draw-func)
|
|
(flag "Hack" 3 dm-subdiv-draw-func)
|
|
)
|
|
(menu
|
|
"Background Scissor"
|
|
(flag "Textured" 0 dm-scissor-subdiv-draw-func)
|
|
(flag "Outline" 1 dm-scissor-subdiv-draw-func)
|
|
(flag "Gouraud" 2 dm-scissor-subdiv-draw-func)
|
|
(flag "Hack" 3 dm-scissor-subdiv-draw-func)
|
|
)
|
|
(menu
|
|
"Foreground"
|
|
(flag "Textured" 0 dm-foreground-subdiv-draw-func)
|
|
(flag "Outline" 1 dm-foreground-subdiv-draw-func)
|
|
(flag "Gouraud" 2 dm-foreground-subdiv-draw-func)
|
|
(flag "Hack" 3 dm-foreground-subdiv-draw-func)
|
|
)
|
|
(menu
|
|
"Ocean"
|
|
(flag "Textured" 0 dm-ocean-subdiv-draw-func)
|
|
(flag "Outline" 1 dm-ocean-subdiv-draw-func)
|
|
(flag "Gouraud" 2 dm-ocean-subdiv-draw-func)
|
|
(flag "Hack" 3 dm-ocean-subdiv-draw-func)
|
|
)
|
|
(flag "SKY TEXTURES" 32 dm-texture-user-toggle-pick-func)
|
|
(flag "sky" 3 dm-vu1-user-toggle-pick-func)
|
|
(flag "ocean" 4 dm-vu1-user-toggle-pick-func)
|
|
(flag "ocean-wave" 5 dm-vu1-user-toggle-pick-func)
|
|
(flag "HFRAG TIE TEXTURES" 64 dm-texture-user-toggle-pick-func)
|
|
(flag "hfrag" 6 dm-vu1-user-toggle-pick-func)
|
|
(flag "hfrag-scissor" 7 dm-vu1-user-toggle-pick-func)
|
|
(flag "TFRAG TIE TEXTURES" #x1 dm-texture-user-toggle-pick-func)
|
|
(flag "tfrag" 8 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie" 10 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-envmap" 11 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-scissor" 9 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-envmap-scissor" 12 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-vanish" 13 dm-vu1-user-toggle-pick-func)
|
|
(flag "SHRUB TEXTURES" #x4 dm-texture-user-toggle-pick-func)
|
|
(flag "shrub-near" 18 dm-vu1-user-toggle-pick-func)
|
|
(flag "shrubbery" 17 dm-vu1-user-toggle-pick-func)
|
|
(flag "shrubbery-vanish" 20 dm-vu1-user-toggle-pick-func)
|
|
(flag "billboard" 19 dm-vu1-user-toggle-pick-func)
|
|
(flag "ALPHA TEXTURES" 1 dm-texture-user-toggle-pick-func)
|
|
(flag "tfrag-trans" 21 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-trans" 23 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-envmap-trans" 24 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-scissor-trans" 22 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-envmap-scissor-trans" 25 dm-vu1-user-toggle-pick-func)
|
|
(flag "PRIS TEXTURES" #x2 dm-texture-user-toggle-pick-func)
|
|
(flag "merc" 15 dm-vu1-user-toggle-pick-func)
|
|
(flag "emerc" 16 dm-vu1-user-toggle-pick-func)
|
|
(flag "generic" 14 dm-vu1-user-toggle-pick-func)
|
|
(flag "WATER TEXTURES" 2 dm-texture-user-toggle-pick-func)
|
|
(flag "tfrag-water" 26 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-water" 28 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-envmap-water" 29 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-scissor-water" 27 dm-vu1-user-toggle-pick-func)
|
|
(flag "tie-envmap-scissor-water" 30 dm-vu1-user-toggle-pick-func)
|
|
(flag "SPRITE TEXTURES" 8 dm-texture-user-toggle-pick-func)
|
|
(flag "sprite" 31 dm-vu1-user-toggle-pick-func)
|
|
(flag "shadow" 32 dm-vu1-user-toggle-pick-func)
|
|
(flag "shadow-debug" *shadow-debug* dm-boolean-toggle-pick-func)
|
|
(flag "depth-cue" 36 dm-vu1-user-toggle-pick-func)
|
|
(flag "WARP TEXTURES" 4 dm-texture-user-toggle-pick-func)
|
|
(flag "HUD TEXTURES" 16 dm-texture-user-toggle-pick-func)
|
|
(flag "all on" #f dm-vu1-user-all-pick-func)
|
|
(flag "all off" #f dm-vu1-user-none-pick-func)
|
|
(flag "all textures on" #x3ff dm-texture-user-set-pick-func)
|
|
(flag "all textures off" 0 dm-texture-user-set-pick-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Collision"
|
|
(menu
|
|
"Collision Renderer"
|
|
(flag "On" 0 dm-col-rend-on-func)
|
|
(flag "Track Player" 0 dm-col-rend-track-func)
|
|
(flag "Track Camera" 1 dm-col-rend-track-func)
|
|
(float-var " Dist" #f dm-col-rend-cam-dist 10 1 #t 0 80 1)
|
|
(flag "Fixed Pos" 2 dm-col-rend-track-func)
|
|
(float-var "Size" #f dm-col-rend-size 10 1 #t 1 20 1)
|
|
(flag "Outline" 0 dm-col-rend-outline-func)
|
|
(flag "Show Back-faces" 0 dm-col-rend-back-face-func)
|
|
(flag "Show Normals" 0 dm-col-rend-normals-func)
|
|
(flag "Ghost Hidden" 0 dm-col-rend-ghost-hidden-func)
|
|
(menu
|
|
"Show Only"
|
|
(flag "(board)" 1 dm-col-rend-show-only-set-func)
|
|
(flag "(grind)" 2 dm-col-rend-show-only-set-func)
|
|
(flag "(grindonly)" 4 dm-col-rend-show-only-set-func)
|
|
(flag "melt" 16384 dm-col-rend-show-only-toggle-func)
|
|
(flag "noboard" 8 dm-col-rend-show-only-toggle-func)
|
|
(flag "nocamera" 16 dm-col-rend-show-only-toggle-func)
|
|
(flag "noedge" 32 dm-col-rend-show-only-toggle-func)
|
|
(flag "noendlessfall" 64 dm-col-rend-show-only-toggle-func)
|
|
(flag "noentity" 128 dm-col-rend-show-only-toggle-func)
|
|
(flag "nogrind" 256 dm-col-rend-show-only-toggle-func)
|
|
(flag "nojak" 512 dm-col-rend-show-only-toggle-func)
|
|
(flag "nolineofsight" 1024 dm-col-rend-show-only-toggle-func)
|
|
(flag "nomech" 2048 dm-col-rend-show-only-toggle-func)
|
|
(flag "nopilot" 4096 dm-col-rend-show-only-toggle-func)
|
|
(flag "noproj" 8192 dm-col-rend-show-only-toggle-func)
|
|
(flag "probe" 32768 dm-col-rend-show-only-toggle-func)
|
|
(flag "Select All" 49144 dm-col-rend-show-only-set-func)
|
|
(flag "Unselect All" 0 dm-col-rend-show-only-set-func)
|
|
)
|
|
(menu
|
|
"Find"
|
|
(flag "background" 1 dm-col-rend-cspec-toggle)
|
|
(flag "obstacles" 2 dm-col-rend-cspec-toggle)
|
|
(flag "pushers" 4 dm-col-rend-cspec-toggle)
|
|
(flag "Jak" 8 dm-col-rend-cspec-toggle)
|
|
(flag "other" 16 dm-col-rend-cspec-toggle)
|
|
)
|
|
)
|
|
(flag "Collision Cache" *display-collide-cache* dm-boolean-toggle-pick-func)
|
|
(flag "Collision Marks" *display-collision-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Ground Stats" *display-ground-stats* dm-boolean-toggle-pick-func)
|
|
(flag "Hipri Collision Marks" *display-hipri-collision-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Edge Collision Marks" *display-edge-collision-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Collide Stats" *stats-collide* dm-boolean-toggle-pick-func)
|
|
(flag "Render Collision" *display-render-collision* dm-boolean-toggle-pick-func)
|
|
(flag "Collide List Boxes" *collide-list-boxes* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Display"
|
|
(flag "Profile" *display-profile* dm-boolean-toggle-pick-func)
|
|
(flag "Ticks" *profile-ticks* dm-boolean-toggle-pick-func)
|
|
(flag "File Info" *display-file-info* dm-boolean-toggle-pick-func)
|
|
(flag "Level Spheres" *display-level-spheres* dm-boolean-toggle-pick-func)
|
|
(flag "Camera Marks" *display-camera-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Camera Info" *display-camera-info* dm-boolean-toggle-pick-func)
|
|
(flag "Geometry Marks" *display-geo-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Art Control" *display-art-control* dm-boolean-toggle-pick-func)
|
|
(flag "Gui Control" *display-gui-control* dm-boolean-toggle-pick-func)
|
|
(flag "Instance Info" *display-instance-info* dm-boolean-toggle-pick-func)
|
|
(menu
|
|
"strip lines"
|
|
(flag "strippable" 1 dm-strip-lines-toggle-pick-func)
|
|
(flag "convertible" 2 dm-strip-lines-toggle-pick-func)
|
|
(flag "edgeable" 4 dm-strip-lines-toggle-pick-func)
|
|
(flag "ordinary" 8 dm-strip-lines-toggle-pick-func)
|
|
(flag "color mismatch" 16 dm-strip-lines-toggle-pick-func)
|
|
(flag "shader mismatch" 32 dm-strip-lines-toggle-pick-func)
|
|
(flag "uv mismatch" 64 dm-strip-lines-toggle-pick-func)
|
|
(flag "too big" 128 dm-strip-lines-toggle-pick-func)
|
|
(flag "good" 3 dm-strip-lines-set-pick-func)
|
|
(flag "bad" 240 dm-strip-lines-set-pick-func)
|
|
(flag "all edges" 255 dm-strip-lines-set-pick-func)
|
|
(flag "strips" 256 dm-strip-lines-set-pick-func)
|
|
(flag "frags" 512 dm-strip-lines-set-pick-func)
|
|
(flag "none" 0 dm-strip-lines-set-pick-func)
|
|
)
|
|
(menu
|
|
"collision mesh"
|
|
(flag "wall" 1024 dm-strip-lines-toggle-pick-func)
|
|
(flag "ground" 2048 dm-strip-lines-toggle-pick-func)
|
|
(flag "all" 3072 dm-strip-lines-set-pick-func)
|
|
(flag "none" 0 dm-strip-lines-set-pick-func)
|
|
)
|
|
(flag "Texture Distances" *display-texture-distances* dm-boolean-toggle-pick-func)
|
|
(flag "Texture Download" *display-texture-download* dm-boolean-toggle-pick-func)
|
|
(flag "Level Border" *display-level-border* dm-boolean-toggle-pick-func)
|
|
(flag "Split Boxes" *display-split-boxes* dm-boolean-toggle-pick-func)
|
|
(flag "Split Box Info" *display-split-box-info* dm-boolean-toggle-pick-func)
|
|
(flag "Memcard Info" *display-memcard-info* dm-boolean-toggle-pick-func)
|
|
(flag "Trail Graph" *display-trail-graph* dm-boolean-toggle-pick-func)
|
|
(flag "Color Bars" *display-color-bars* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Actor"
|
|
(flag "Spawn Actors" *spawn-actors* dm-boolean-toggle-pick-func)
|
|
(function "Reset Actors" #f ,(lambda () (reset-actors 'debug)))
|
|
(function "Traffic Start" #f ,(lambda () (let ((gp-0 traffic-start))
|
|
(if (valid? gp-0 function "" #t 0)
|
|
(gp-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function "Traffic Kill" #f ,(lambda () (let ((gp-0 traffic-kill))
|
|
(if (valid? gp-0 function "" #t 0)
|
|
(gp-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Bot"
|
|
(function
|
|
"Bot Next"
|
|
#f
|
|
,(lambda ()
|
|
(send-event (process-by-name "sig-atoll-1" *active-pool*) 'skip)
|
|
(send-event (process-by-name "hal-sewer-1" *active-pool*) 'skip)
|
|
(send-event (process-by-name "hal-escort-1" *active-pool*) 'skip)
|
|
(send-event (process-by-name "squid-2" *active-pool*) 'skip)
|
|
(send-event (process-by-name "metalkor-1" *active-pool*) 'skip)
|
|
(send-event (process-by-name "sig-under-1" *active-pool*) 'skip)
|
|
(send-event (process-by-name "scorpion-gun-manager-1" *active-pool*) 'skip)
|
|
(send-event (process-by-name "terraformer-1" *active-pool*) 'skip)
|
|
)
|
|
)
|
|
(menu
|
|
"Bot Marks"
|
|
(flag "course spots" 1 display-bot-marks-toggle-pick-func)
|
|
(flag "task spots" 2 display-bot-marks-toggle-pick-func)
|
|
(flag "all on" 3 display-bot-marks-set-pick-func)
|
|
(flag "all off" 0 display-bot-marks-set-pick-func)
|
|
)
|
|
)
|
|
(menu
|
|
"Actor Compaction"
|
|
(flag "off" #f dm-compact-actor-pick-func)
|
|
(flag "on" #t dm-compact-actor-pick-func)
|
|
(flag "debug" debug dm-compact-actor-pick-func)
|
|
)
|
|
(flag "Traffic height map" *display-traffic-height-map* dm-boolean-toggle-pick-func)
|
|
(flag "View Anims" *debug-view-anims* dm-boolean-toggle-pick-func)
|
|
(flag "Unkillable" *debug-unkillable* dm-boolean-toggle-pick-func)
|
|
(flag "Jak Vehicle Unkillable" *debug-player-vehicle-unkillable* dm-boolean-toggle-pick-func)
|
|
(flag "Regions" *execute-regions* dm-boolean-toggle-pick-func)
|
|
(flag "Region Marks" *display-region-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Actor Vis" *vis-actors* dm-boolean-toggle-pick-func)
|
|
(float-var
|
|
"Entity clock"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *display* (nonzero? *display*))
|
|
(update-rates! (-> *display* entity-clock) arg2)
|
|
)
|
|
)
|
|
((or (not *display*) (zero? *display*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *display* entity-clock clock-ratio)
|
|
)
|
|
)
|
|
)
|
|
4
|
|
(new 'static 'bfloat :data 0.01)
|
|
#t
|
|
(new 'static 'bfloat)
|
|
(new 'static 'bfloat :data 1.0)
|
|
(new 'static 'bfloat :data 0.0001)
|
|
)
|
|
(flag "Battle Marks" *display-battle-marks* dm-boolean-toggle-pick-func)
|
|
(menu
|
|
"Hover Marks"
|
|
(flag "Nav Network" *display-nav-network* dm-boolean-toggle-pick-func)
|
|
(flag "Debug Hover" *debug-hover* dm-boolean-toggle-pick-func)
|
|
)
|
|
(flag "Path Marks" *display-path-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Nav Marks" *display-nav-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Vol Marks" *display-vol-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Collision Marks" *display-collision-marks* dm-boolean-toggle-pick-func)
|
|
(menu
|
|
"Debug Actor"
|
|
(float-var "lod0-dist" 0 dm-debug-actor-lod-dist 10 (new 'static 'bfloat :data 1.0) #f 0 0 1)
|
|
(float-var "lod1-dist" 1 dm-debug-actor-lod-dist 10 (new 'static 'bfloat :data 1.0) #f 0 0 1)
|
|
(float-var "lod2-dist" 2 dm-debug-actor-lod-dist 10 (new 'static 'bfloat :data 1.0) #f 0 0 1)
|
|
(flag "Joint Axes" *display-joint-axes* dm-boolean-toggle-pick-func)
|
|
)
|
|
(menu
|
|
"Actor Vis"
|
|
(flag "off" #f dm-actor-vis-pick-func)
|
|
(flag "box" box dm-actor-vis-pick-func)
|
|
(flag "sphere" sphere dm-actor-vis-pick-func)
|
|
(flag "all" #t dm-actor-vis-pick-func)
|
|
)
|
|
(menu
|
|
"Actor Marks"
|
|
(flag "off" #f dm-actor-marks-pick-func)
|
|
(flag "alive entities" #t dm-actor-marks-pick-func)
|
|
(flag "all entities" full dm-actor-marks-pick-func)
|
|
(flag "processes" process dm-actor-marks-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Target"
|
|
(menu
|
|
"Mode"
|
|
(function
|
|
"normal"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (send-event *target* 'change-mode 'normal))
|
|
)
|
|
(function "racer" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'racer #f)
|
|
)
|
|
)
|
|
(function "flut" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'flut #f)
|
|
)
|
|
)
|
|
(function "board" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(logior! (-> *game-info* features) (game-feature board))
|
|
(logior! (-> *game-info* debug-features) (game-feature board))
|
|
(send-event *target* 'change-mode 'board #f)
|
|
)
|
|
)
|
|
(function "mech" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'mech #f)
|
|
)
|
|
)
|
|
(function "gun" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(logior! (-> *game-info* features) (game-feature gun))
|
|
(logior! (-> *game-info* debug-features) (game-feature gun))
|
|
(send-event *target* 'change-mode 'gun #f (pickup-type none))
|
|
)
|
|
)
|
|
(function
|
|
"darkjak"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0))
|
|
)
|
|
)
|
|
(function
|
|
"lightjak"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'lightjak #f 5)
|
|
)
|
|
)
|
|
(function "indax" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'indax #f #f)
|
|
)
|
|
)
|
|
(function
|
|
"invisible"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature artifact-invis) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature artifact-invis) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'invisible #f)
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Pilot Mode"
|
|
(function "h-bike-a" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 0)))
|
|
(function "h-bike-b" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 1)))
|
|
(function "h-bike-c" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 2)))
|
|
(function "h-bike-d" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 6)))
|
|
(function "h-car-a" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 3)))
|
|
(function "h-car-b" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 4)))
|
|
(function "h-car-c" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 5)))
|
|
(function "h-hellcat" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 7)))
|
|
(function "h-warf" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 8)))
|
|
(function "h-glider" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 9)))
|
|
(function "h-sled" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 10)))
|
|
(function "v-turtle" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 12)))
|
|
(function "v-snake" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 13)))
|
|
(function "v-scorpion" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 14)))
|
|
(function "v-toad" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 15)))
|
|
(function "v-fox" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 16)))
|
|
(function "v-rhino" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 17)))
|
|
(function "v-mirage" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 18)))
|
|
(function "v-x-ride" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 19)))
|
|
(function "v-marauder" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 20)))
|
|
(function "v-faccar" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 21)))
|
|
(function "v-catapult" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 22)))
|
|
(function "v-marauder-b" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 23)))
|
|
(function "evantestbike" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 29)))
|
|
(function "test-car" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 25)))
|
|
(function "wbike-test" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (dm-pilot-mode 26)))
|
|
)
|
|
(flag "Target" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(if *target*
|
|
(stop 'debug)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
)
|
|
*target*
|
|
)
|
|
)
|
|
(menu
|
|
"Darkjak"
|
|
(function
|
|
"get all"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *game-info* features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature darkjak darkjak-smack darkjak-bomb0 darkjak-bomb1 feature44 feature45)
|
|
(-> *game-info* features)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature darkjak darkjak-smack darkjak-bomb0 darkjak-bomb1 feature44 feature45)
|
|
(-> *game-info* debug-features)
|
|
)
|
|
)
|
|
)
|
|
(send-event *target* 'get-pickup (pickup-type eco-pill-dark) 100.0)
|
|
)
|
|
)
|
|
(function
|
|
"debug"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *game-info* features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature darkjak darkjak-smack darkjak-bomb0 darkjak-bomb1 feature44 feature45)
|
|
(-> *game-info* features)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature darkjak darkjak-smack darkjak-bomb0 darkjak-bomb1 feature44 feature45)
|
|
(-> *game-info* debug-features)
|
|
)
|
|
)
|
|
)
|
|
(send-event *target* 'get-pickup (pickup-type eco-pill-dark) 100.0)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage active bomb0 no-anim disable-force-on))
|
|
)
|
|
)
|
|
(function
|
|
"manual"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0))
|
|
)
|
|
)
|
|
(function
|
|
"rapid"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage bomb0))
|
|
)
|
|
)
|
|
(function "smack" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0 bomb1))
|
|
)
|
|
)
|
|
(function
|
|
"bomb0"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0 bomb1 invinc))
|
|
)
|
|
)
|
|
(function
|
|
"bomb1"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0 bomb1 invinc giant))
|
|
)
|
|
)
|
|
(function
|
|
"tracking"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0 bomb1 invinc giant no-anim))
|
|
)
|
|
)
|
|
(function
|
|
"invinc"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event
|
|
*target*
|
|
'change-mode
|
|
'darkjak
|
|
#f
|
|
(darkjak-stage force-on bomb0 invinc giant no-anim disable-force-on)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Lightjak"
|
|
(function
|
|
"get all"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! (-> *game-info* features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature lightjak lightjak-regen lightjak-swoop lightjak-freeze lightjak-shield)
|
|
(-> *game-info* features)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'get-pickup (pickup-type eco-pill-light) 100.0)
|
|
)
|
|
)
|
|
(function
|
|
"debug"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature lightjak lightjak-regen lightjak-swoop lightjak-freeze lightjak-shield)
|
|
(-> *game-info* features)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'get-pickup (pickup-type eco-pill-light) 100.0)
|
|
(send-event *target* 'change-mode 'lightjak #f 6)
|
|
)
|
|
)
|
|
(function
|
|
"manual"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'lightjak #f 5)
|
|
)
|
|
)
|
|
(function
|
|
"normal"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'lightjak #f 4)
|
|
)
|
|
)
|
|
)
|
|
(flag "Target Marks" *display-target-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Gun Marks" *gun-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Target Stats" *stats-target* dm-boolean-toggle-pick-func)
|
|
(flag "Sidekick Stats" *display-sidekick-stats* dm-boolean-toggle-pick-func)
|
|
(flag "Invulnerable" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(if *target*
|
|
(logxor! (-> *target* target-flags) (target-flags tf2))
|
|
)
|
|
)
|
|
(and *target* (logtest? (-> *target* target-flags) (target-flags tf2)))
|
|
)
|
|
)
|
|
(flag
|
|
"Endless Ammo"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(if *target*
|
|
(set! (-> *target* target-flags) (logxor (target-flags tf16) (the-as int (-> *target* target-flags))))
|
|
)
|
|
)
|
|
(and *target* (logtest? (target-flags tf16) (-> *target* target-flags)))
|
|
)
|
|
)
|
|
(function
|
|
"Full Stuff"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(send-event *target* 'get-pickup (pickup-type health) 1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type shield) 1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type skill) 100.0)
|
|
(send-event *target* 'get-pickup (pickup-type gem) 100.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-yellow) 1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-red) 1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-blue) 1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-dark) 1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type eco-pill-dark) 100.0)
|
|
(send-event *target* 'get-pickup (pickup-type eco-pill-light) 100.0)
|
|
(set! (-> *game-info* features)
|
|
(the-as
|
|
game-feature
|
|
(logior (game-feature
|
|
gun
|
|
gun-red-1
|
|
gun-red-2
|
|
gun-red-3
|
|
gun-yellow-1
|
|
gun-yellow-2
|
|
gun-yellow-3
|
|
gun-blue-1
|
|
gun-blue-2
|
|
gun-blue-3
|
|
gun-dark-1
|
|
gun-dark-2
|
|
gun-dark-3
|
|
board
|
|
darkjak
|
|
)
|
|
(-> *game-info* features)
|
|
)
|
|
)
|
|
)
|
|
(let ((v0-10
|
|
(logior (game-feature gun gun-red-1 gun-yellow-1 gun-blue-1 gun-dark-1 board darkjak)
|
|
(-> *game-info* debug-features)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *game-info* debug-features) (the-as game-feature v0-10))
|
|
v0-10
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Dump Stuff"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(send-event *target* 'get-pickup (pickup-type shield) -1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-yellow) -1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-red) -1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-blue) -1000.0)
|
|
(send-event *target* 'get-pickup (pickup-type ammo-dark) -1000.0)
|
|
)
|
|
)
|
|
(function
|
|
"Trick Mode"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(send-event *target* 'get-pickup (pickup-type trick-judge) 18000.0)
|
|
)
|
|
)
|
|
(function
|
|
"Reset Trans"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when *target*
|
|
(position-in-front-of-camera! (target-pos 0) 40960.0 4096.0)
|
|
(set! (-> *target* control transv quad) (the-as uint128 0))
|
|
(quaternion-identity! (-> *target* control quat))
|
|
(quaternion-identity! (-> *target* control quat-for-control))
|
|
(quaternion-identity! (-> *target* control dir-targ))
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Zero Trans"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when *target*
|
|
(set-vector! (-> *target* control trans) 0.0 163840.0 0.0 1.0)
|
|
(set! (-> *target* control transv quad) (the-as uint128 0))
|
|
(quaternion-identity! (-> *target* control quat))
|
|
(quaternion-identity! (-> *target* control quat-for-control))
|
|
(quaternion-identity! (-> *target* control dir-targ))
|
|
)
|
|
)
|
|
)
|
|
(flag "Slow Frame Rate" *slow-frame-rate* dm-boolean-toggle-pick-func)
|
|
(function "Print Pos" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((v1-0 (target-pos 0)))
|
|
(format #t "~6,,2m ~6,,2m ~6,,2m~%" (-> v1-0 x) (-> v1-0 y) (-> v1-0 z))
|
|
)
|
|
0
|
|
)
|
|
)
|
|
(flag "Goggles" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(cond
|
|
((not *target*)
|
|
)
|
|
((= (-> *target* goggles-interp-targ) 0.0)
|
|
(set! (-> *target* goggles-interp-targ) 1.0)
|
|
)
|
|
(else
|
|
(set! (-> *target* goggles-interp-targ) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(if *target*
|
|
(!= (-> *target* goggles-interp-targ) 0.0)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(flag "Scarf" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(cond
|
|
((not *target*)
|
|
)
|
|
((= (-> *target* scarf-interp-targ) 0.0)
|
|
(set! (-> *target* scarf-interp-targ) 1.0)
|
|
)
|
|
(else
|
|
(set! (-> *target* scarf-interp-targ) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(if *target*
|
|
(!= (-> *target* scarf-interp-targ) 0.0)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Save Continue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (if *target*
|
|
(trsq->continue-point (-> *target* control))
|
|
)
|
|
)
|
|
)
|
|
(flag "RC Board Controls" *target-rc-board-controls* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s5-0 (debug-menu-make-camera-menu arg0))
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Racing"
|
|
(flag "Desertb" 0 dm-select-race-pick-func)
|
|
(flag "Desert Rally" 2 dm-select-race-pick-func)
|
|
(int-var "Select Path" 0 dm-select-race-path 10 1 #t 0 7)
|
|
(menu
|
|
"Race Marks"
|
|
(flag "Path 0 (Red)" 1 display-race-marks-toggle-pick-func)
|
|
(flag "Path 1 (Green)" 2 display-race-marks-toggle-pick-func)
|
|
(flag "Path 2 (Blue)" 4 display-race-marks-toggle-pick-func)
|
|
(flag "Path 3 (Yellow)" 8 display-race-marks-toggle-pick-func)
|
|
(flag "Path 4 (Cyan)" 16 display-race-marks-toggle-pick-func)
|
|
(flag "Path 5 (Violet)" 32 display-race-marks-toggle-pick-func)
|
|
(flag "Path 6 (Orange)" 64 display-race-marks-toggle-pick-func)
|
|
(flag "Path 7 (Black)" 128 display-race-marks-toggle-pick-func)
|
|
(flag "All Paths On" 255 display-race-marks-set-pick-func)
|
|
(flag "All Off" 0 display-race-marks-set-pick-func)
|
|
)
|
|
(flag "Race Mesh" *display-race-mesh* dm-boolean-toggle-pick-func)
|
|
(function
|
|
"Record Selected Path"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! *race-record-path* #t)
|
|
(dm-play-race *select-race* #t)
|
|
)
|
|
)
|
|
(function
|
|
"Play Race"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(set! *race-record-path* #f)
|
|
(dm-play-race *select-race* #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Nav Graph"
|
|
(function
|
|
"Start Editor"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (when (not (get-nav-graph-editor))
|
|
(let ((t9-1 run-nav-graph-editor)
|
|
(a0-1 'test)
|
|
)
|
|
(t9-1 a0-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Exit Editor"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (if (get-nav-graph-editor)
|
|
(exit-nav-graph-editor)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Toggle Plane Mode"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(if a0-1
|
|
((method-of-object a0-1 nav-graph-editor-method-64))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Toggle Hover Mode"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(if a0-1
|
|
((method-of-object a0-1 nav-graph-editor-method-65))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Load"
|
|
(function
|
|
"Hover Foresta"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'hover
|
|
'foresta
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Hover Sewc"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'hover
|
|
'sewc
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Hover Sewg"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'hover
|
|
'sewg
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Hover Sewl"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'hover
|
|
'sewl
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Traffic"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'traffic
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Minimap"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'minimap
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"flyingsaw_2"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'flyingsaw_2
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"flyingsaw_3"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'flyingsaw_3
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"forest-plant-1"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'forest-plant-1
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"forest-plant-2"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'forest-plant-2
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"forest-plant-3"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'forest-plant-3
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"forest-plant-4"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'forest-plant-4
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Desert Beast"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'beast
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Was Minimap"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'wasminimap
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Desert Rescue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'desrescue
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Assault"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'assault
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Timer Chase 1"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'timer-chase-1
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"ProtectHQ"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'protect-hq
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Blow Tower"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'blow-tower
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"desert-lizard"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'desert-lizard
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"terraformer-walk"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'terraformer-walk
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"terraformer-fly"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'terraformer-fly
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Desert Beast Battle"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'beast-battle
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Desert Chase Marauder"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(when a0-1
|
|
(let ((t9-1 (method-of-object a0-1 nav-graph-editor-method-66)))
|
|
'desert-chase-marauder
|
|
(t9-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Save"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(let ((a0-1 (get-nav-graph-editor)))
|
|
(if a0-1
|
|
((method-of-object a0-1 nav-graph-editor-method-67))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Nav Mesh"
|
|
(function
|
|
"Start Editor"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (not *nav-mesh-editor*)
|
|
(kill-by-type nav-mesh-editor *active-pool*)
|
|
(let ((gp-0 (get-process *default-dead-pool* nav-mesh-editor #x4000 1)))
|
|
(when gp-0
|
|
(let ((t9-2 (method-of-type nav-mesh-editor activate)))
|
|
(t9-2 (the-as nav-mesh-editor gp-0) *entity-pool* "nav-mesh-editor" (the-as pointer #x70004000))
|
|
)
|
|
(let ((t9-3 run-function-in-process)
|
|
(a0-4 gp-0)
|
|
(a1-4 nav-mesh-editor-init)
|
|
)
|
|
((the-as (function object object none) t9-3) a0-4 a1-4)
|
|
)
|
|
(-> gp-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"Exit Editor"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) (kill-by-type nav-mesh-editor *active-pool*))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Ocean"
|
|
(menu
|
|
"Ocean Height"
|
|
(flag "zero" 1 dm-ocean-height-func)
|
|
(flag "far-below" 2 dm-ocean-height-func)
|
|
(flag "sewer-start" 3 dm-ocean-height-func)
|
|
(flag "sewer-hi" 4 dm-ocean-height-func)
|
|
(flag "sewer-med" 5 dm-ocean-height-func)
|
|
(flag "sewer-lo" 6 dm-ocean-height-func)
|
|
)
|
|
(menu
|
|
"Ocean Subdiv"
|
|
(flag "Textured" 0 dm-ocean-subdiv-draw-func)
|
|
(flag "Outline" 1 dm-ocean-subdiv-draw-func)
|
|
(flag "Gouraud" 2 dm-ocean-subdiv-draw-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Time of day"
|
|
(flag "7am sunrise" 0 dm-time-of-day-func)
|
|
(flag "10am morning" 1 dm-time-of-day-func)
|
|
(flag "12pm noon" 2 dm-time-of-day-func)
|
|
(flag "2pm afternoon" 3 dm-time-of-day-func)
|
|
(flag "6pm sunset" 4 dm-time-of-day-func)
|
|
(flag "7pm twilight" 5 dm-time-of-day-func)
|
|
(flag "11pm evening" 6 dm-time-of-day-func)
|
|
(flag "4am green sun" 7 dm-time-of-day-func)
|
|
(flag "palette 0" 16 dm-time-of-day-func)
|
|
(flag "palette 1" 32 dm-time-of-day-func)
|
|
(flag "palette 2" 64 dm-time-of-day-func)
|
|
(flag "palette 3" 128 dm-time-of-day-func)
|
|
(flag "palette 4" 256 dm-time-of-day-func)
|
|
(flag "palette 5" 512 dm-time-of-day-func)
|
|
(flag "palette 6" 1024 dm-time-of-day-func)
|
|
(flag "palette 7" 2048 dm-time-of-day-func)
|
|
(flag "on" #f dm-time-of-day-pick-func)
|
|
(flag "Fast" *time-of-day-fast* dm-time-of-day-func2)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Mood"
|
|
(flag
|
|
"Overide Enable"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *time-of-day-context* overide-enable) (not (-> *time-of-day-context* overide-enable)))
|
|
)
|
|
(-> *time-of-day-context* overide-enable)
|
|
)
|
|
)
|
|
(menu
|
|
"Weather"
|
|
(flag
|
|
"Overide Weather Enable"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *mood-control* overide-weather-flag) (not (-> *mood-control* overide-weather-flag)))
|
|
)
|
|
(-> *mood-control* overide-weather-flag)
|
|
)
|
|
)
|
|
(flag
|
|
"Display Values"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(if (= arg1 (debug-menu-msg press))
|
|
(set! (-> *mood-control* display-flag) (not (-> *mood-control* display-flag)))
|
|
)
|
|
(-> *mood-control* display-flag)
|
|
)
|
|
)
|
|
(float-var
|
|
"Clouds"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *mood-control* (nonzero? *mood-control*))
|
|
(set! (-> *mood-control* overide cloud) arg2)
|
|
)
|
|
)
|
|
((or (not *mood-control*) (zero? *mood-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *mood-control* overide cloud)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.0)
|
|
0
|
|
)
|
|
(float-var
|
|
"Fog"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *mood-control* (nonzero? *mood-control*))
|
|
(set! (-> *mood-control* overide fog) arg2)
|
|
)
|
|
)
|
|
((or (not *mood-control*) (zero? *mood-control*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *mood-control* overide fog)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.0)
|
|
0
|
|
)
|
|
)
|
|
(menu
|
|
"Colors"
|
|
(flag "7am sunrise" 0 dm-time-of-day-func)
|
|
(flag "10am morning" 1 dm-time-of-day-func)
|
|
(flag "12pm noon" 2 dm-time-of-day-func)
|
|
(flag "2pm afternoon" 3 dm-time-of-day-func)
|
|
(flag "6pm sunset" 4 dm-time-of-day-func)
|
|
(flag "7pm twilight" 5 dm-time-of-day-func)
|
|
(flag "11pm evening" 6 dm-time-of-day-func)
|
|
(flag "4am green sun" 7 dm-time-of-day-func)
|
|
(flag "time of day on" #f dm-time-of-day-pick-func)
|
|
(float-var
|
|
"Ambient Red"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
x
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
x
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Ambient Green"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
y
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
y
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Ambient Blue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
z
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
z
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Ambient Mult"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
w
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
w
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
2
|
|
0
|
|
)
|
|
(float-var
|
|
"Light Red"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
x
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
x
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Light Green"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
y
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
y
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Light Blue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
z
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
z
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Light Mult"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-color-table* (nonzero? *overide-mood-color-table*))
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
w
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-color-table*) (zero? *overide-mood-color-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
w
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
2
|
|
0
|
|
)
|
|
(function
|
|
"reset selected time"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(mem-copy!
|
|
(the-as
|
|
pointer
|
|
(-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
)
|
|
)
|
|
(the-as
|
|
pointer
|
|
(-> *debug-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
)
|
|
)
|
|
32
|
|
)
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
lgt-color
|
|
w
|
|
)
|
|
1.0
|
|
)
|
|
(set! (-> *overide-mood-color-table*
|
|
data
|
|
(logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2))
|
|
amb-color
|
|
w
|
|
)
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"reset all times"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(mem-copy! (the-as pointer *overide-mood-color-table*) (the-as pointer *debug-mood-color-table*) 256)
|
|
(dotimes (v1-0 8)
|
|
(set! (-> *overide-mood-color-table* data v1-0 lgt-color w) 1.0)
|
|
(set! (-> *overide-mood-color-table* data v1-0 amb-color w) 1.0)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Fog"
|
|
(flag "7am sunrise" 0 dm-time-of-day-func)
|
|
(flag "10am morning" 1 dm-time-of-day-func)
|
|
(flag "12pm noon" 2 dm-time-of-day-func)
|
|
(flag "2pm afternoon" 3 dm-time-of-day-func)
|
|
(flag "6pm sunset" 4 dm-time-of-day-func)
|
|
(flag "7pm twilight" 5 dm-time-of-day-func)
|
|
(flag "11pm evening" 6 dm-time-of-day-func)
|
|
(flag "4am green sun" 7 dm-time-of-day-func)
|
|
(flag "time of day on" #f dm-time-of-day-pick-func)
|
|
(float-var
|
|
"Red"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
x
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
x
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 1.0)
|
|
#t
|
|
0
|
|
255
|
|
0
|
|
)
|
|
(float-var
|
|
"Green"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
y
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
y
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 1.0)
|
|
#t
|
|
0
|
|
255
|
|
0
|
|
)
|
|
(float-var
|
|
"Blue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
z
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
z
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 1.0)
|
|
#t
|
|
0
|
|
255
|
|
0
|
|
)
|
|
(float-var
|
|
"Mult"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
w
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
w
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(float-var
|
|
"Start"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
x
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
x
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 1.0)
|
|
#t
|
|
-1000
|
|
10000
|
|
0
|
|
)
|
|
(float-var
|
|
"End"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
y
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
y
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 1.0)
|
|
#t
|
|
0
|
|
10000
|
|
0
|
|
)
|
|
(float-var
|
|
"Max"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
w
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
w
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.5)
|
|
#t
|
|
0
|
|
255
|
|
0
|
|
)
|
|
(float-var
|
|
"Min"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *overide-mood-fog-table* (nonzero? *overide-mood-fog-table*))
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
z
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
)
|
|
((or (not *overide-mood-fog-table*) (zero? *overide-mood-fog-table*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
z
|
|
)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.5)
|
|
#t
|
|
0
|
|
255
|
|
0
|
|
)
|
|
(function
|
|
"reset selected time"
|
|
#f
|
|
,(lambda ()
|
|
(mem-copy!
|
|
(the-as
|
|
pointer
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
)
|
|
)
|
|
(the-as
|
|
pointer
|
|
(-> *debug-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
)
|
|
)
|
|
48
|
|
)
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-color
|
|
w
|
|
)
|
|
1.0
|
|
)
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
x
|
|
)
|
|
(* 0.00024414062
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
x
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
y
|
|
)
|
|
(* 0.00024414062
|
|
(-> *overide-mood-fog-table*
|
|
data
|
|
(the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
|
|
fog-dists
|
|
y
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function
|
|
"reset all times"
|
|
#f
|
|
,(lambda ()
|
|
(mem-copy! (the-as pointer *overide-mood-fog-table*) (the-as pointer *debug-mood-fog-table*) 384)
|
|
(dotimes (v1-0 8)
|
|
(set! (-> *overide-mood-fog-table* data v1-0 fog-color w) 1.0)
|
|
(set! (-> *overide-mood-fog-table* data v1-0 fog-dists x)
|
|
(* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists x))
|
|
)
|
|
(set! (-> *overide-mood-fog-table* data v1-0 fog-dists y)
|
|
(* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists y))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Palette"
|
|
(flag "palette 0" 0 dm-time-of-day-palette-func)
|
|
(flag "palette 1" 1 dm-time-of-day-palette-func)
|
|
(flag "palette 2" 2 dm-time-of-day-palette-func)
|
|
(flag "palette 3" 3 dm-time-of-day-palette-func)
|
|
(flag "palette 4" 4 dm-time-of-day-palette-func)
|
|
(flag "palette 5" 5 dm-time-of-day-palette-func)
|
|
(flag "palette 6" 6 dm-time-of-day-palette-func)
|
|
(flag "palette 7" 7 dm-time-of-day-palette-func)
|
|
(flag "time of day on" #f dm-time-of-day-pick-func)
|
|
(float-var
|
|
"Red"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) x) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) x)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Green"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) y) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) y)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Blue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) z) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) z)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Mult"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) w) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* times (-> *time-of-day-context* overide-palette) w)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(function
|
|
"reset selected time"
|
|
#f
|
|
,(lambda () (let ((v0-0 (-> *time-of-day-context* times (-> *time-of-day-context* overide-palette))))
|
|
(set! (-> v0-0 x) 1.0)
|
|
(set! (-> v0-0 y) 1.0)
|
|
(set! (-> v0-0 z) 1.0)
|
|
(set! (-> v0-0 w) 1.0)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
(function "reset all times" #f ,(lambda ()
|
|
(dotimes (v1-0 8)
|
|
(set-vector! (-> *time-of-day-context* times v1-0) 1.0 1.0 1.0 1.0)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Filter"
|
|
(float-var
|
|
"Red"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* filter-color x) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* filter-color x)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Green"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* filter-color y) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* filter-color y)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Blue"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* filter-color z) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* filter-color z)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
(new 'static 'bfloat :data 1.9921875)
|
|
0
|
|
)
|
|
(float-var
|
|
"Mult"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* filter-color w) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* filter-color w)
|
|
)
|
|
)
|
|
)
|
|
2
|
|
(new 'static 'bfloat :data 0.007781982)
|
|
#t
|
|
0
|
|
2
|
|
0
|
|
)
|
|
(function "reset filter" #f ,(lambda () (let ((v0-0 (-> *time-of-day-context* filter-color)))
|
|
(set! (-> v0-0 x) 1.0)
|
|
(set! (-> v0-0 y) 1.0)
|
|
(set! (-> v0-0 z) 1.0)
|
|
(set! (-> v0-0 w) 1.0)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(menu
|
|
"Sky"
|
|
(float-var
|
|
"Cloud Min"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* current-clouds cloud-min) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* current-clouds cloud-min)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(float-var
|
|
"Cloud Max"
|
|
#f
|
|
,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(cond
|
|
((= arg1 (debug-menu-msg press))
|
|
(if (and *time-of-day-context* (nonzero? *time-of-day-context*))
|
|
(set! (-> *time-of-day-context* current-clouds cloud-max) arg2)
|
|
)
|
|
)
|
|
((or (not *time-of-day-context*) (zero? *time-of-day-context*))
|
|
0
|
|
)
|
|
(else
|
|
(-> *time-of-day-context* current-clouds cloud-max)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
(new 'static 'bfloat :data 0.00390625)
|
|
#t
|
|
0
|
|
1
|
|
0
|
|
)
|
|
(function
|
|
"reset sky"
|
|
#f
|
|
,(lambda ()
|
|
(set! (-> *time-of-day-context* current-clouds cloud-min) (-> *mood-control* mood-clouds cloud-min))
|
|
(set! (-> *time-of-day-context* current-clouds cloud-max) (-> *mood-control* mood-clouds cloud-max))
|
|
)
|
|
)
|
|
)
|
|
(function "Print mood tables" #f ,(lambda () (print-mood-tables)))
|
|
(function
|
|
"reset everything"
|
|
#f
|
|
,(lambda ()
|
|
(mem-copy! (the-as pointer *overide-mood-color-table*) (the-as pointer *debug-mood-color-table*) 256)
|
|
(mem-copy! (the-as pointer *overide-mood-fog-table*) (the-as pointer *debug-mood-fog-table*) 384)
|
|
(dotimes (v1-0 8)
|
|
(set! (-> *overide-mood-color-table* data v1-0 lgt-color w) 1.0)
|
|
(set! (-> *overide-mood-color-table* data v1-0 amb-color w) 1.0)
|
|
(set! (-> *overide-mood-fog-table* data v1-0 fog-color w) 1.0)
|
|
(set! (-> *overide-mood-fog-table* data v1-0 fog-dists x)
|
|
(* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists x))
|
|
)
|
|
(set! (-> *overide-mood-fog-table* data v1-0 fog-dists y)
|
|
(* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists y))
|
|
)
|
|
(set-vector! (-> *time-of-day-context* times v1-0) 1.0 1.0 1.0 1.0)
|
|
)
|
|
(set-vector! (-> *time-of-day-context* filter-color) 1.0 1.0 1.0 1.0)
|
|
(set! (-> *time-of-day-context* current-clouds cloud-min) (-> *mood-control* mood-clouds cloud-min))
|
|
(set! (-> *time-of-day-context* current-clouds cloud-max) (-> *mood-control* mood-clouds cloud-max))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Sound"
|
|
(flag "Effect Debug" *debug-effect-control* dm-boolean-toggle-pick-func)
|
|
(flag "Regions" *execute-regions* dm-boolean-toggle-pick-func)
|
|
(flag "Region Marks" *display-region-marks* dm-boolean-toggle-pick-func)
|
|
(flag "Sound channels" *display-iop-info* dm-boolean-toggle-pick-func)
|
|
(function "Reload Banks" #f sound-bank-reload)
|
|
(function "List Sounds" #f ,(lambda () (list-sounds)))
|
|
(function "IOP Info" #f ,(lambda () (loader-test-command (sound-command iop-mem) (the-as uint 0))))
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s5-0 (debug-menu-make-shader-menu arg0))
|
|
(debug-menu-append-item s5-0 (debug-menu-make-instance-menu arg0))
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Bug Report"
|
|
(flag "display" *display-bug-report* dm-boolean-toggle-pick-func)
|
|
(function "Start" #f ,(lambda () (bug-report-start)))
|
|
(function "Stop" #f ,(lambda () (bug-report-stop)))
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(menu
|
|
"Scene"
|
|
(menu
|
|
"Scene Info"
|
|
(flag "channel" 1 display-scene-control-toggle-pick-func)
|
|
(flag "anim name" 2 display-scene-control-toggle-pick-func)
|
|
(flag "dma size" 4 display-scene-control-toggle-pick-func)
|
|
(flag "bounds spheres" 8 display-scene-control-toggle-pick-func)
|
|
(flag "actors" 16 display-scene-control-toggle-pick-func)
|
|
(flag "actor-marks" 32 display-scene-control-toggle-pick-func)
|
|
(flag "special fma spheres" 64 display-scene-control-toggle-pick-func)
|
|
(flag "all on" 95 display-scene-control-set-pick-func)
|
|
(flag "all off" 0 display-scene-control-set-pick-func)
|
|
)
|
|
(menu
|
|
"arena"
|
|
(function
|
|
"arena-training-1-intro"
|
|
("waspala-intro-training" "arena-training-1-intro")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "arena-fight-1-intro" ("wasstada-pre-fight-1" "arena-fight-1-intro") dm-scene-load-pick-func)
|
|
(function "arena-fight-1-res" ("wasstada-fight" "arena-fight-1-res") dm-scene-load-pick-func)
|
|
(function "wascity-chase-intro" ("wasstada-wascity-chase" "wascity-chase-intro") dm-scene-load-pick-func)
|
|
(function "arena-fight-2-res" ("wasstada-fight" "arena-fight-2-res") dm-scene-load-pick-func)
|
|
(function "arena-fight-3-intro" ("wasstada-fight" "arena-fight-3-intro") dm-scene-load-pick-func)
|
|
(function "arena-fight-3-res" ("wasstada-fight" "arena-fight-3-res") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"city"
|
|
(function "sewer-hum-kg-entrance" ("ctyslumb-sewer" "sewer-hum-kg-entrance") dm-scene-load-pick-func)
|
|
(function "sewer-kg-entrance" ("ctyinda-sewer" "sewer-kg-entrance") dm-scene-load-pick-func)
|
|
(function "sewer-genb-entrance" ("ctygenb-sewer" "sewer-genb-entrance") dm-scene-load-pick-func)
|
|
(function "city-gun-course-intro" ("gungame-start" "city-gun-course-intro") dm-scene-load-pick-func)
|
|
(function "city-gun-course-1-res" ("gungame-start" "city-gun-course-1-res") dm-scene-load-pick-func)
|
|
(function "city-gun-course-2-intro" ("gungame-start" "city-gun-course-2-intro") dm-scene-load-pick-func)
|
|
(function "city-gun-course-2-res" ("gungame-start" "city-gun-course-2-res") dm-scene-load-pick-func)
|
|
(function "city-port-attack-intro-b" ("ctyport-hiphog" "ctyport-attack-get-on-nuke") dm-scene-load-pick-func)
|
|
(function "city-port-attack-res" ("ctyport-attack-res" "city-port-attack-res") dm-scene-load-pick-func)
|
|
(function "city-hijack-vehicle-res" ("ctyhijack-res" "city-hijack-vehicle-res") dm-scene-load-pick-func)
|
|
(function "city-get-dark-punch" ("mhcitya-fma" "city-get-dark-punch") dm-scene-load-pick-func)
|
|
(function "sewer-met-hum-intro" ("ctygenb-samos" "sewer-met-hum-intro") dm-scene-load-pick-func)
|
|
(function "city-destroy-grid-res" ("ctyinda-grid-res-a" "city-destroy-grid-res") dm-scene-load-pick-func)
|
|
(function "tower-destroy-intro" ("mhcityb-tower-fma" "tower-destroy-intro") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"desert"
|
|
(function "nest-destroy-barrier" ("desertg-egg-wall-scene" "nest-destroy-barrier") dm-scene-load-pick-func)
|
|
(function "nest-hunt-intro" ("desertg-egg-wall-scene" "nest-hunt-intro") dm-scene-load-pick-func)
|
|
(function "nest-hunt-res" ("desertg-hunt-res-start" "nest-hunt-res") dm-scene-load-pick-func)
|
|
(function
|
|
"desert-oasis-defense-res"
|
|
("desert-ashelin-movie" "desert-oasis-defense-res")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "desert-rescue-res-a" ("desert-rescue-movie" "desert-rescue-res-a") dm-scene-load-pick-func)
|
|
(function "desert-hover-res" ("desert-hover-movie" "desert-hover-res") dm-scene-load-pick-func)
|
|
(function "desert-lizard-catch" ("desert-lizard-corral" "desert-lizard-catch") dm-scene-load-pick-func)
|
|
(function "desert-lizard-catch-2" ("desert-lizard-corral" "desert-lizard-catch-2") dm-scene-load-pick-func)
|
|
(function "desert-lizard-catch-3" ("desert-lizard-corral" "desert-lizard-resolution") dm-scene-load-pick-func)
|
|
(function
|
|
"desert-oasis-defense-res-b"
|
|
("desert-ashelin-movie" "desert-oasis-defense-res-b")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "desert-glide-res" ("volcanox-vola-start" "desert-glide-res") dm-scene-load-pick-func)
|
|
(function "desert-courserace-win" ("desertg-hunt-res-start" "desert-courserace-win") dm-scene-load-pick-func)
|
|
(function
|
|
"desert-final-boss-res"
|
|
("desert-final-boss-res-movie-a" "desert-final-boss-res")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"desert-final-boss-res-b"
|
|
("desert-final-boss-res-movie" "desert-final-boss-res-b")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"desert-final-boss-intro"
|
|
("wasall-final-boss-intro-movie" "desert-final-boss-intro")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"full desert-jak-gets-on-terraformer"
|
|
("desert-boss-res-a" ("desert-jak-gets-on-t-a" "desert-jak-gets-on-t-b" "desert-jak-gets-on-t-c"))
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "desert-jak-gets-on-t-a" ("desert-boss-res-a" "desert-jak-gets-on-t-a") dm-scene-load-pick-func)
|
|
(function "desert-jak-gets-on-t-b" ("desert-boss-res-b" "desert-jak-gets-on-t-b") dm-scene-load-pick-func)
|
|
(function "desert-jak-gets-on-t-c" ("desert-boss-res-b" "desert-jak-gets-on-t-c") dm-scene-load-pick-func)
|
|
(function
|
|
"full outro"
|
|
("desert-final-boss-res-movie-a" ("desert-final-boss-res" "desert-final-boss-res-b" "arena-outro"))
|
|
dm-scene-load-pick-func
|
|
)
|
|
)
|
|
(menu
|
|
"comb"
|
|
(function "comb-exit" ("combn-start" "comb-exit") dm-scene-load-pick-func)
|
|
(function "comb-entrance-temple" ("temple-comb-entrance" "comb-entrance-temple") dm-scene-load-pick-func)
|
|
(function "catacombs-wild-ride-res" ("railx-start" "catacombs-wild-ride-res") dm-scene-load-pick-func)
|
|
(function "catacomb-get-shield" ("combn-start" "catacomb-get-shield") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"factory"
|
|
(function "factory-sky-battle-res" ("factorya-movie" "factory-sky-battle-res") dm-scene-load-pick-func)
|
|
(function
|
|
"factory-sky-battle-intro-b"
|
|
("factorya-intro-b" "factory-sky-battle-intro-b")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "factory-indax-1-intro" ("factoryc-start" "factory-indax-1-intro") dm-scene-load-pick-func)
|
|
(function "factory-indax-2-intro" ("factoryc-start" "factory-indax-2-intro") dm-scene-load-pick-func)
|
|
(function "factory-indax-3-intro" ("factoryc-start" "factory-indax-3-intro") dm-scene-load-pick-func)
|
|
(function "factory-indax-4-intro" ("factoryc-start" "factory-indax-4-intro") dm-scene-load-pick-func)
|
|
(function "factory-boss-intro" ("factoryd-start" "factory-boss-intro") dm-scene-load-pick-func)
|
|
(function "factory-boss-res" ("factoryd-res-fma" "factory-boss-res") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"forest"
|
|
(function "forest-tower" ("foresta-start" "forest-tower") dm-scene-load-pick-func)
|
|
(function
|
|
"forest-turn-on-machine-res"
|
|
("forest-pillar-start" "forest-turn-on-machine-res")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "precursor-tour-res" ("precura-foresta" "precursor-tour-res") dm-scene-load-pick-func)
|
|
(function "forest-ring-chase-res" ("foresta-start" "forest-ring-chase-res") dm-scene-load-pick-func)
|
|
(function "forest-res-b" ("foresta-start" "forest-res-b") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"freehq"
|
|
(function "factory-sky-battle-intro" ("freehq-movie" "factory-sky-battle-intro") dm-scene-load-pick-func)
|
|
(function "city-protect-hq-intro" ("freehq-movie" "city-protect-hq-intro") dm-scene-load-pick-func)
|
|
(function "city-protect-hq-res" ("freehq-movie" "city-protect-hq-res") dm-scene-load-pick-func)
|
|
(function "city-blow-tower-intro" ("freehq-movie" "city-blow-tower-intro") dm-scene-load-pick-func)
|
|
(function "temple-defend-intro" ("freehq-movie" "temple-defend-intro") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"hiphog"
|
|
(function "sewer-kg-met-intro" ("hiphog-movie" "sewer-kg-met-intro") dm-scene-load-pick-func)
|
|
(function "port-assault-intro" ("hiphog-movie" "port-assault-intro") dm-scene-load-pick-func)
|
|
(function "city-blow-barricade-intro" ("hiphog-movie" "city-blow-barricade-intro") dm-scene-load-pick-func)
|
|
(function "city-blow-barricade-res" ("hiphog-movie" "city-blow-barricade-res") dm-scene-load-pick-func)
|
|
(function "city-port-fight-intro" ("hiphog-movie" "city-port-fight-intro") dm-scene-load-pick-func)
|
|
(function "city-sniper-fight-intro" ("hiphog-movie" "city-sniper-fight-intro") dm-scene-load-pick-func)
|
|
(function "city-port-attack-intro" ("hiphog-movie" "city-port-attack-intro") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"intro"
|
|
(function
|
|
"full intro"
|
|
("wasintro-start" ("intro-drop" "intro-lost" "intro-ffhq" "intro-tired" "intro-palace" "intro-rescue"))
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "intro-drop" ("wasintro-start" "intro-drop") dm-scene-load-pick-func)
|
|
(function "intro-lost" ("wasintro-start" "intro-lost") dm-scene-load-pick-func)
|
|
(function "intro-ffhq" ("freehq-intro" "intro-ffhq") dm-scene-load-pick-func)
|
|
(function "intro-tired" ("wasintro-tired" "intro-tired") dm-scene-load-pick-func)
|
|
(function "intro-palace" ("wasintro-palace" "intro-palace") dm-scene-load-pick-func)
|
|
(function "intro-rescue" ("wasintro-rescue" "intro-rescue") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"mine"
|
|
(function "catacombs-travel-res" ("minec-start" "catacombs-travel-res") dm-scene-load-pick-func)
|
|
(function "mine-train-intro" ("mineb-elevator-room" "mine-train-intro") dm-scene-load-pick-func)
|
|
(function "mine-train-res" ("minec-train" "mine-train-res") dm-scene-load-pick-func)
|
|
(function "mine-boss-intro" ("prebot-intro" "mine-boss-intro") dm-scene-load-pick-func)
|
|
(function "prebot-hit-a" ("prebot-fight" "prebot-hit-a") dm-scene-load-pick-func)
|
|
(function "prebot-hit-b" ("prebot-fight" "prebot-hit-b") dm-scene-load-pick-func)
|
|
(function "mine-boss-res" ("prebot-fight" "mine-boss-res") dm-scene-load-pick-func)
|
|
(function "minee-genb-exit" ("minee-exit" "minee-genb-exit") dm-scene-load-pick-func)
|
|
(function "mine-explore-res" ("mineb-elevator-room" "mine-explore-res") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"onintent"
|
|
(function
|
|
"city-find-catacomb-ent-intro"
|
|
("onintent-start" "city-find-catacomb-ent-intro")
|
|
dm-scene-load-pick-func
|
|
)
|
|
)
|
|
(menu "outro" (function "arena-outro" ("wasstada-outro" "arena-outro") dm-scene-load-pick-func))
|
|
(menu
|
|
"precursor"
|
|
(function "precursor-destroy-ship-res" ("precurd-start" "precursor-destroy-ship-res") dm-scene-load-pick-func)
|
|
(function "desert-final-boss-intro-a" ("precurd-escape" "desert-final-boss-intro-a") dm-scene-load-pick-func)
|
|
(function
|
|
"precursor-destroy-ship-exp-res"
|
|
("precurd-escape" "precursor-destroy-ship-exp-res")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"precursor-destroy-ship-lose"
|
|
("precura-start" "precursor-destroy-ship-lose")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"full final-boss-intro"
|
|
("precurd-escape" ("desert-final-boss-intro-a" "precursor-destroy-ship-exp-res" "desert-final-boss-intro"))
|
|
dm-scene-load-pick-func
|
|
)
|
|
)
|
|
(menu
|
|
"rubble"
|
|
(function "palace-ruins-attack-intro" ("rubblea-start" "palace-ruins-attack-intro") dm-scene-load-pick-func)
|
|
(function
|
|
"full palace-ruins-attack-res"
|
|
("rubblec-fma" ("palace-ruins-attack-res-a" "palace-ruins-attack-res"))
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "palace-ruins-attack-res" ("rubblec-fma" "palace-ruins-attack-res") dm-scene-load-pick-func)
|
|
(function "palace-ruins-attack-res-a" ("rubblec-fma" "palace-ruins-attack-res-a") dm-scene-load-pick-func)
|
|
(function "palace-ruins-patrol-intro" ("stadium-tunnel" "palace-ruins-patrol-intro") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"sewer"
|
|
(function "sewer-kg-exit" ("sewf-start" "sewer-kg-exit") dm-scene-load-pick-func)
|
|
(function "sewer-mh-exit" ("sewj-exit" "sewer-mh-exit") dm-scene-load-pick-func)
|
|
(function "sewer-port-exit" ("sewo-exit" "sewer-port-exit") dm-scene-load-pick-func)
|
|
(function "sewer-waterslide" ("sewd-start" "sewer-waterslide") dm-scene-load-pick-func)
|
|
(function "sewer-hum-kg-res" ("sewe-switch" "sewer-hum-kg-res") dm-scene-load-pick-func)
|
|
(function "sewer-met-hum-intro" ("ctygenb-samos" "sewer-met-hum-intro") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"temple"
|
|
(function "temple-climb-intro" ("templex-start" "temple-climb-intro") dm-scene-load-pick-func)
|
|
(function "temple-climb-res" ("templex-pre-hang" "temple-climb-res") dm-scene-load-pick-func)
|
|
(function "temple-oracle-intro" ("templeb-oracle-movie" "temple-oracle-intro") dm-scene-load-pick-func)
|
|
(function "temple-oracle-res" ("templeb-start" "temple-oracle-res") dm-scene-load-pick-func)
|
|
(function
|
|
"temple-jak-gets-light-glide"
|
|
("templeb-glide" "temple-jak-gets-light-glide")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "temple-tests-res-a" ("templeb-flash-freeze" "temple-tests-res-a") dm-scene-load-pick-func)
|
|
(function "temple-tests-res-b" ("comba-elevator" "temple-tests-res-b") dm-scene-load-pick-func)
|
|
(function "temple-tests-intro" ("templea-mardoor" "temple-tests-intro") dm-scene-load-pick-func)
|
|
(function "temple-defend-res" ("templed-start" "temple-defend-res") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"throne"
|
|
(function
|
|
"full training intro"
|
|
("waspala-intro-training" ("intro-training" "arena-training-1-intro"))
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "intro-training" ("waspala-intro-training" "intro-training") dm-scene-load-pick-func)
|
|
(function "arena-fight-2-intro" ("waspala-start" "arena-fight-2-intro") dm-scene-load-pick-func)
|
|
(function "nest-eggs-intro" ("waspala-start" "nest-eggs-intro") dm-scene-load-pick-func)
|
|
(function "desert-rescue-intro" ("waspala-start" "desert-rescue-intro") dm-scene-load-pick-func)
|
|
(function "desert-jump-mission-intro" ("waspala-start" "desert-jump-mission-intro") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"tower"
|
|
(function "tower-destroy-res" ("towerb-top" "tower-destroy-res") dm-scene-load-pick-func)
|
|
(function "tower-destroy-res-b" ("ltowerb-fma" "tower-destroy-res-b") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"vinroom"
|
|
(function "city-power-game-intro" ("vinroom-movie" "city-power-game-intro") dm-scene-load-pick-func)
|
|
(function "city-power-game-res" ("vinroom-movie" "city-power-game-res") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"volcano"
|
|
(function "volcano-darkeco-res" ("volcano-movie" "volcano-darkeco-res") dm-scene-load-pick-func)
|
|
(function "volcano-indax-1-intro" ("volcano-movie" "volcano-indax-1-intro") dm-scene-load-pick-func)
|
|
(function "volcano-indax-1-res" ("volcano-movie" "volcano-indax-1-res") dm-scene-load-pick-func)
|
|
(function "volcano-indax-2-intro" ("volcano-movie" "volcano-indax-2-intro") dm-scene-load-pick-func)
|
|
(function "volcano-indax-2-res" ("volcano-movie" "volcano-indax-2-res") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"warp"
|
|
(function "desert-air-train-in" ("desert-warp" "desert-air-train-in") dm-scene-load-pick-func)
|
|
(function "desert-air-train-out" ("desert-warp" "desert-air-train-out") dm-scene-load-pick-func)
|
|
(function "city-air-train-out" ("ctyport-air-train" "city-air-train-out") dm-scene-load-pick-func)
|
|
(function "city-air-train-in-desert" ("ctyport-air-train" "city-air-train-in-desert") dm-scene-load-pick-func)
|
|
)
|
|
(menu
|
|
"wasdoors"
|
|
(function "desert-course-race-intro" ("wasdoors-desert" "desert-course-race-intro") dm-scene-load-pick-func)
|
|
(function
|
|
"desert-artifact-race-1-intro"
|
|
("wasdoors-desert" "desert-artifact-race-1-intro")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"desert-artifact-race-1-res"
|
|
("wasdoors-desert" "desert-artifact-race-1-res")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function
|
|
"desert-artifact-race-2-intro"
|
|
("wasdoors-desert" "desert-artifact-race-2-intro")
|
|
dm-scene-load-pick-func
|
|
)
|
|
(function "desert-hover-intro" ("wasdoors-desert" "desert-hover-intro") dm-scene-load-pick-func)
|
|
(function "desert-beast-battle-intro" ("wasdoors-desert" "desert-beast-battle-intro") dm-scene-load-pick-func)
|
|
(function
|
|
"desert-catch-lizards-intro"
|
|
("wasdoors-desert" "desert-catch-lizards-intro")
|
|
dm-scene-load-pick-func
|
|
)
|
|
)
|
|
(menu
|
|
"wasteland"
|
|
(function "wascity-pre-game-intro" ("wascityb-seem" "wascity-pre-game-intro") dm-scene-load-pick-func)
|
|
(function "wascity-pre-game-res" ("wascityb-seem" "wascity-pre-game-res") dm-scene-load-pick-func)
|
|
(function "wascity-leaper-race-intro" ("wascitya-seem" "wascity-leaper-race-intro") dm-scene-load-pick-func)
|
|
(function "wascity-leaper-race-res" ("wascityb-flut" "wascity-leaper-race-res") dm-scene-load-pick-func)
|
|
(function "wascity-gun-intro" ("wascityb-gungame" "wascity-gun-intro") dm-scene-load-pick-func)
|
|
(function "wascity-gun-res" ("wascityb-gungame" "wascity-gun-res") dm-scene-load-pick-func)
|
|
(function "nest-eggs-intro" ("waspala-nest" "nest-eggs-intro") dm-scene-load-pick-func)
|
|
(function "wascity-defend-res" ("wascityb-gungame" "wascity-defend-res") dm-scene-load-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s5-0 (debug-menu-make-task-menu arg0))
|
|
(debug-menu-append-item s5-0 (debug-menu-make-play-menu arg0))
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for symbol *popup-menu-context*, type debug-menu-context
|
|
(define *popup-menu-context* (new 'debug 'debug-menu-context))
|
|
|
|
;; definition for function popup-menu-context-make-default-menus
|
|
(defun popup-menu-context-make-default-menus ((arg0 debug-menu-context))
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(main-menu
|
|
"Popup"
|
|
(flag "Cam 1" pad-1 dm-cam-externalize)
|
|
(flag "Turbo Cam" *camera-turbo-free* dm-boolean-toggle-pick-func)
|
|
(flag "Target" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(if *target*
|
|
(stop 'debug)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
)
|
|
*target*
|
|
)
|
|
)
|
|
(menu
|
|
"Mode"
|
|
(function "normal" #f ,(lambda () (send-event *target* 'change-mode 'normal)))
|
|
(function "racer" #f ,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'racer #f)
|
|
)
|
|
)
|
|
(function "flut" #f ,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'flut #f)
|
|
)
|
|
)
|
|
(function "board" #f ,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(logior! (-> *game-info* features) (game-feature board))
|
|
(logior! (-> *game-info* debug-features) (game-feature board))
|
|
(send-event *target* 'change-mode 'board #f)
|
|
)
|
|
)
|
|
(function "mech" #f ,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'mech #f)
|
|
)
|
|
)
|
|
(function "gun" #f ,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(logior! (-> *game-info* features) (game-feature gun))
|
|
(logior! (-> *game-info* debug-features) (game-feature gun))
|
|
(send-event *target* 'change-mode 'gun #f (pickup-type none))
|
|
)
|
|
)
|
|
(function
|
|
"darkjak"
|
|
#f
|
|
,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature darkjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'darkjak #f (darkjak-stage force-on bomb0))
|
|
)
|
|
)
|
|
(function
|
|
"lightjak"
|
|
#f
|
|
,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature lightjak) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'lightjak #f 5)
|
|
)
|
|
)
|
|
(function "indax" #f ,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(send-event *target* 'change-mode 'indax #f)
|
|
)
|
|
)
|
|
(function
|
|
"invisible"
|
|
#f
|
|
,(lambda ()
|
|
(if (not *target*)
|
|
(start 'debug (get-current-continue-forced *game-info*))
|
|
)
|
|
(set! (-> *game-info* features)
|
|
(the-as game-feature (logior (game-feature artifact-invis) (-> *game-info* features)))
|
|
)
|
|
(set! (-> *game-info* debug-features)
|
|
(the-as game-feature (logior (game-feature artifact-invis) (-> *game-info* debug-features)))
|
|
)
|
|
(send-event *target* 'change-mode 'invisible #f)
|
|
)
|
|
)
|
|
)
|
|
(flag "Game" #f ,(lambda ((arg0 int) (arg1 debug-menu-msg))
|
|
(when (= arg1 (debug-menu-msg press))
|
|
(let ((v1-3 (-> *game-info* mode)))
|
|
(set! (-> *game-info* mode) (cond
|
|
((= v1-3 'play)
|
|
'debug
|
|
)
|
|
((= v1-3 'debug)
|
|
'play
|
|
)
|
|
(else
|
|
(-> *game-info* mode)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(= (-> *game-info* mode) 'play)
|
|
)
|
|
)
|
|
(function "Clean" #f ,(lambda ()
|
|
(if (time-of-day-setup #f)
|
|
(time-of-day-setup #t)
|
|
)
|
|
(play-clean #f)
|
|
)
|
|
)
|
|
(flag "Stats" *stats-target* dm-boolean-toggle-pick-func)
|
|
(function "Reset" #f ,(lambda () (reset-actors 'debug)))
|
|
(function "Start" #f ,(lambda () (start 'play (-> *game-info* current-continue))))
|
|
(function
|
|
"Editor"
|
|
#f
|
|
,(lambda ()
|
|
(kill-by-type editable-player *active-pool*)
|
|
(process-spawn editable-player :init editable-player-init #f :name "editable-player" :to *entity-pool*)
|
|
(set-master-mode 'game)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(debug-menu-context-make-default-menus *debug-menu-context*)
|
|
|
|
;; failed to figure out what this is:
|
|
(popup-menu-context-make-default-menus *popup-menu-context*)
|
|
|
|
;; definition for function menu-respond-to-pause
|
|
(defun menu-respond-to-pause ()
|
|
(case *master-mode*
|
|
(('menu)
|
|
(cond
|
|
((and (cpad-hold? 0 l3) (cpad-hold? 0 select))
|
|
(debug-menu-context-send-msg *popup-menu-context* (debug-menu-msg activate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *debug-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *editable-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
)
|
|
((and (cpad-hold? 1 start) *editable*)
|
|
(debug-menu-context-send-msg *editable-menu-context* (debug-menu-msg activate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *debug-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *popup-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
)
|
|
((and (cpad-hold? 0 l3) (cpad-hold? 0 start))
|
|
(debug-menu-context-send-msg *debug-menu-context* (debug-menu-msg activate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *popup-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *editable-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(debug-menu-context-send-msg *debug-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *popup-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
(debug-menu-context-send-msg *editable-menu-context* (debug-menu-msg deactivate) (debug-menu-dest activation))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function *menu-hook*
|
|
(defun *menu-hook* ()
|
|
(debug-menus-handler *debug-menu-context*)
|
|
(debug-menus-handler *popup-menu-context*)
|
|
)
|
|
|
|
|
|
|
|
|