From 236f2981385280e90e04fed36a5686d096d4e293 Mon Sep 17 00:00:00 2001 From: Tyler Wilding Date: Mon, 25 Oct 2021 19:22:52 -0400 Subject: [PATCH] decomp: add `default-menu` to ref tests, cleanup irrelevant gsrc forward decls (#941) * decomp: add `default-menu` to ref tests, cleanup gsrc * re-disable function * decomp: add `drawable-group` to ref-tests --- .../jak1_ntsc_black_label/type_casts.jsonc | 13 +- goal_src/engine/debug/default-menu.gc | 911 +- .../engine/debug/default-menu_REF.gc | 9015 +++++++++++++++++ .../engine/draw/drawable-group_REF.gc | 147 + test/offline/config.jsonc | 4 + 5 files changed, 9475 insertions(+), 615 deletions(-) create mode 100644 test/decompiler/reference/engine/debug/default-menu_REF.gc create mode 100644 test/decompiler/reference/engine/draw/drawable-group_REF.gc diff --git a/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc b/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc index fd143b118c..518258f143 100644 --- a/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc +++ b/decompiler/config/jak1_ntsc_black_label/type_casts.jsonc @@ -1070,7 +1070,9 @@ "debug-menu-func-decode": [[[12, 14], "a0", "symbol"]], - "dm-cam-render-float": [[[71, 72], "v0", "float"]], + "dm-cam-render-float": [ + [72, "v1", "float"] + ], "can-hint-be-played?": [[[25, 28], "a0", "level-hint"]], "debug-menu-rebuild": [[[4, 13], "a0", "debug-menu-item"]], @@ -2098,6 +2100,10 @@ [118, "a0", "process-drawable"] ], + "dm-task-get-money": [ + [32, "v1", "float"] + ], + "ground-tween-update": [ [16, "f1", "float"], [20, "f2", "float"], @@ -2113,7 +2119,10 @@ [171, "v1", "float"] ], - "all-texture-tweak-adjust": [[[35, 44], "s0", "adgif-shader"]], + "all-texture-tweak-adjust": [ + [38, "s0", "adgif-shader"], + [42, "s0", "adgif-shader"] + ], "build-instance-list": [ [30, "v1", "drawable-tree-instance-shrub"], diff --git a/goal_src/engine/debug/default-menu.gc b/goal_src/engine/debug/default-menu.gc index 99e2ff3e31..7c98deec8f 100644 --- a/goal_src/engine/debug/default-menu.gc +++ b/goal_src/engine/debug/default-menu.gc @@ -6,261 +6,137 @@ ;; dgos: GAME, ENGINE ;; Forward declarations for stuff we haven't written yet: -(define-extern external-cam-reset! (function none)) -(define-extern time-of-day-setup (function symbol symbol)) -(define-extern *compact-actors* symbol) (define-extern find-instance-by-name (function string instance)) (define-extern *edit-instance* string) -(define-extern cam-free-floating (state camera-slave)) -(define-extern cam-standoff (state camera-slave)) ;; unknown type -(define-extern cam-pov (state camera-slave)) ;; unknown type -(define-extern cam-pov180 (state camera-slave)) ;; unknown type -(define-extern cam-pov-track (state camera-slave)) ;; unknown type -(define-extern cam-billy (state camera-slave)) ;; unknown type -(define-extern cam-endlessfall (state camera-slave)) ;; unknown type -(define-extern cam-lookat (state camera-slave)) ;; unknown type -(define-extern cam-stick (state camera-slave)) ;; unknown type -(define-extern cam-bike (state camera-slave)) ;; unknown type -(define-extern cam-fixed (state camera-slave)) -(define-extern cam-decel (state camera-slave)) -(define-extern cam-eye (state camera-slave)) -(define-extern cam-point-watch (state camera-slave)) -(define-extern cam-orbit (state camera-slave)) -(define-extern cam-robotboss (state camera-slave)) (define-extern prototype-bucket-recalc-fields (function instance none)) -(define-extern auto-save-command (function symbol int int process-tree none)) + +;; Necessary forward declarations +(define-extern cam-robotboss (state camera-slave)) + +;; DECOMP BEGINS ;; this file is debug only (when *debug-segment* -;; 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 debug-menu (define *dm-cam-mode-interpolation* (the-as debug-menu 0)) -;; definition for function dm-cam-mode-func (defun dm-cam-mode-func ((arg0 uint) (arg1 int)) - (with-pp - (when (and (= arg1 4) arg0) - (let ((a1-1 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-1 from) pp) - (set! (-> a1-1 num-params) 2) - (set! (-> a1-1 message) 'change-state) - (set! (-> a1-1 param 0) arg0) - (set! (-> a1-1 param 1) (the-as uint *dm-cam-mode-interpolation*)) - (send-event-function *camera* a1-1) - ) - ) - (cond - (*camera* - (let ((a1-2 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-2 from) pp) - (set! (-> a1-2 num-params) 1) - (set! (-> a1-2 message) 'query-state) - (set! (-> a1-2 param 0) arg0) - (send-event-function *camera* a1-2) - ) - ) - (else - (not arg0) - ) - ) + (if (and (= arg1 4) arg0) + (send-event *camera* 'change-state arg0 *dm-cam-mode-interpolation*) + ) + (if *camera* + (send-event *camera* 'query-state arg0) + (not arg0) ) ) -;; definition for function dm-cam-settings-func (defun dm-cam-settings-func ((arg0 int) (arg1 int)) - (with-pp - (when (and (= arg1 4) *camera*) + (when (and (= arg1 4) *camera*) + (cond + ((zero? arg0) + (send-event *camera* 'toggle-slave-option 1) + ) + ((= arg0 13) + (send-event *camera* 'toggle-slave-option 8192) + ) + ((= arg0 1) + (send-event *camera* 'toggle-slave-option 2) + ) + ((= arg0 2) + (send-event *camera* 'toggle-slave-option 4) + ) + ((= arg0 3) + (send-event *camera* 'toggle-slave-option 128) + ) + ((= arg0 4) + (send-event *camera* 'toggle-slave-option 8) + ) + ((= arg0 7) + (send-event *camera* 'toggle-slave-option 16) + ) + ((= arg0 8) + (send-event *camera* 'toggle-slave-option 64) + ) + ((= arg0 6) + (send-event *camera* 'reset-root) + ) + ((= arg0 9) + (set! (-> *camera* master-options) (logxor (-> *camera* master-options) 1)) + ) + ((= arg0 10) + (set! (-> *camera* master-options) (logxor (-> *camera* master-options) 4)) + ) + ((= arg0 11) + (send-event *camera* 'toggle-slave-option 32) + ) + ((= arg0 12) + (send-event *camera* 'toggle-slave-option 512) + ) + ((= arg0 14) + (send-event *camera* 'toggle-slave-option #x8000) + ) + ((= arg0 15) + (send-event *camera* 'toggle-slave-option #x10000) + ) + ) + ) + (cond + (*camera* (cond ((zero? arg0) - (let ((a1-1 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-1 from) pp) - (set! (-> a1-1 num-params) 1) - (set! (-> a1-1 message) 'toggle-slave-option) - (set! (-> a1-1 param 0) (the-as uint 1)) - (send-event-function *camera* a1-1) - ) + (logtest? (-> *camera* slave-options) 1) ) ((= arg0 13) - (let ((a1-2 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-2 from) pp) - (set! (-> a1-2 num-params) 1) - (set! (-> a1-2 message) 'toggle-slave-option) - (set! (-> a1-2 param 0) (the-as uint 8192)) - (send-event-function *camera* a1-2) - ) + (logtest? (-> *camera* slave-options) 8192) ) ((= arg0 1) - (let ((a1-3 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-3 from) pp) - (set! (-> a1-3 num-params) 1) - (set! (-> a1-3 message) 'toggle-slave-option) - (set! (-> a1-3 param 0) (the-as uint 2)) - (send-event-function *camera* a1-3) - ) + (logtest? (-> *camera* slave-options) 2) ) ((= arg0 2) - (let ((a1-4 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-4 from) pp) - (set! (-> a1-4 num-params) 1) - (set! (-> a1-4 message) 'toggle-slave-option) - (set! (-> a1-4 param 0) (the-as uint 4)) - (send-event-function *camera* a1-4) - ) + (logtest? (-> *camera* slave-options) 4) ) ((= arg0 3) - (let ((a1-5 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-5 from) pp) - (set! (-> a1-5 num-params) 1) - (set! (-> a1-5 message) 'toggle-slave-option) - (set! (-> a1-5 param 0) (the-as uint 128)) - (send-event-function *camera* a1-5) - ) + (logtest? (-> *camera* slave-options) 128) ) ((= arg0 4) - (let ((a1-6 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-6 from) pp) - (set! (-> a1-6 num-params) 1) - (set! (-> a1-6 message) 'toggle-slave-option) - (set! (-> a1-6 param 0) (the-as uint 8)) - (send-event-function *camera* a1-6) - ) + (logtest? (-> *camera* slave-options) 8) ) ((= arg0 7) - (let ((a1-7 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-7 from) pp) - (set! (-> a1-7 num-params) 1) - (set! (-> a1-7 message) 'toggle-slave-option) - (set! (-> a1-7 param 0) (the-as uint 16)) - (send-event-function *camera* a1-7) - ) + (logtest? (-> *camera* slave-options) 16) ) ((= arg0 8) - (let ((a1-8 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-8 from) pp) - (set! (-> a1-8 num-params) 1) - (set! (-> a1-8 message) 'toggle-slave-option) - (set! (-> a1-8 param 0) (the-as uint 64)) - (send-event-function *camera* a1-8) - ) - ) - ((= arg0 6) - (let ((a1-9 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-9 from) pp) - (set! (-> a1-9 num-params) 0) - (set! (-> a1-9 message) 'reset-root) - (send-event-function *camera* a1-9) - ) - ) - ((= arg0 9) - (set! - (-> *camera* master-options) - (logxor (-> *camera* master-options) 1) - ) - ) - ((= arg0 10) - (set! - (-> *camera* master-options) - (logxor (-> *camera* master-options) 4) - ) + (logtest? (-> *camera* slave-options) 64) ) ((= arg0 11) - (let ((a1-10 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-10 from) pp) - (set! (-> a1-10 num-params) 1) - (set! (-> a1-10 message) 'toggle-slave-option) - (set! (-> a1-10 param 0) (the-as uint 32)) - (send-event-function *camera* a1-10) - ) + (logtest? (-> *camera* slave-options) 32) ) ((= arg0 12) - (let ((a1-11 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-11 from) pp) - (set! (-> a1-11 num-params) 1) - (set! (-> a1-11 message) 'toggle-slave-option) - (set! (-> a1-11 param 0) (the-as uint 512)) - (send-event-function *camera* a1-11) - ) + (logtest? (-> *camera* slave-options) 512) ) ((= arg0 14) - (let ((a1-12 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-12 from) pp) - (set! (-> a1-12 num-params) 1) - (set! (-> a1-12 message) 'toggle-slave-option) - (set! (-> a1-12 param 0) (the-as uint #x8000)) - (send-event-function *camera* a1-12) - ) + (logtest? (-> *camera* slave-options) #x8000) ) ((= arg0 15) - (let ((a1-13 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-13 from) pp) - (set! (-> a1-13 num-params) 1) - (set! (-> a1-13 message) 'toggle-slave-option) - (set! (-> a1-13 param 0) (the-as uint #x10000)) - (send-event-function *camera* a1-13) - ) + (logtest? #x10000 (-> *camera* slave-options)) + ) + ((= arg0 9) + (logtest? (-> *camera* master-options) 1) + ) + ((= arg0 10) + (logtest? (-> *camera* master-options) 4) + ) + (else + #f ) ) ) - (cond - (*camera* - (cond - ((zero? arg0) - (logtest? (-> *camera* slave-options) 1) - ) - ((= arg0 13) - (logtest? (-> *camera* slave-options) 8192) - ) - ((= arg0 1) - (logtest? (-> *camera* slave-options) 2) - ) - ((= arg0 2) - (logtest? (-> *camera* slave-options) 4) - ) - ((= arg0 3) - (logtest? (-> *camera* slave-options) 128) - ) - ((= arg0 4) - (logtest? (-> *camera* slave-options) 8) - ) - ((= arg0 7) - (logtest? (-> *camera* slave-options) 16) - ) - ((= arg0 8) - (logtest? (-> *camera* slave-options) 64) - ) - ((= arg0 11) - (logtest? (-> *camera* slave-options) 32) - ) - ((= arg0 12) - (logtest? (-> *camera* slave-options) 512) - ) - ((= arg0 14) - (logtest? (-> *camera* slave-options) #x8000) - ) - ((= arg0 15) - (logtest? #x10000 (-> *camera* slave-options)) - ) - ((= arg0 9) - (logtest? (-> *camera* master-options) 1) - ) - ((= arg0 10) - (logtest? (-> *camera* master-options) 4) - ) - (else - #f - ) - ) - ) - (else - #f - ) + (else + #f ) ) ) -;; definition for function dm-cam-settings-func-int (defun dm-cam-settings-func-int ((arg0 int) (arg1 int) (arg2 debug-menu) (arg3 debug-menu)) @@ -282,7 +158,6 @@ ) ) -;; definition for function dm-cam-externalize (defun dm-cam-externalize ((arg0 symbol) (arg1 int)) (when (= arg1 4) (cond @@ -311,7 +186,6 @@ ) ) -;; definition for function dm-cam-render-float (defun dm-cam-render-float ((arg0 int) (arg1 int) (arg2 float) (arg3 float)) (with-pp (when (= arg1 4) @@ -327,14 +201,8 @@ ) ) ((= (/ arg0 8) 1) - (when *camera* - (let ((a1-2 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-2 from) pp) - (set! (-> a1-2 num-params) 1) - (set! (-> a1-2 message) 'set-fov) - (set! (-> a1-2 param 0) (the-as uint (* 182.04445 arg2))) - (send-event-function *camera* a1-2) - ) + (if *camera* + (send-event *camera* 'set-fov (* 182.04445 arg2)) ) ) ) @@ -377,7 +245,6 @@ ) ) -;; definition for function dm-subdiv-float (defun dm-subdiv-float ((arg0 symbol) (arg1 int) (arg2 float) (arg3 float)) (when (= arg1 4) (case arg0 @@ -412,7 +279,6 @@ ) ) -;; definition for function dm-subdiv-int (defun dm-subdiv-int ((arg0 function) (arg1 int) (arg2 object) (arg3 object)) (when (= arg1 4) (case arg0 @@ -436,16 +302,16 @@ ) ) -;; definition for function dm-setting-language (defun dm-setting-language ((arg0 function) (arg1 int)) (if (= arg1 4) - (set! (-> *setting-control* default language) (the-as language-enum (/ (the-as int arg0) 8))) + (set! + (-> *setting-control* default language) + (the-as language-enum (/ (the-as int arg0) 8)) + ) ) - (= (-> *setting-control* default language) (the-as language-enum (/ (the-as int arg0) 8))) + (= (-> *setting-control* default language) (/ (the-as int arg0) 8)) ) -;; definition for function dm-current-continue -;; INFO: Return type mismatch symbol vs object. (defun dm-current-continue ((arg0 function) (arg1 int)) (if (= arg1 4) (start 'play (get-continue-by-name *game-info* (the-as string arg0))) @@ -459,7 +325,6 @@ ) ) -;; definition for function dm-subdiv-draw-func (defun dm-subdiv-draw-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *subdivide-draw-mode* (/ arg0 8)) @@ -467,7 +332,6 @@ (= (/ arg0 8) *subdivide-draw-mode*) ) -;; definition for function dm-ocean-subdiv-draw-func (defun dm-ocean-subdiv-draw-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *ocean-subdivide-draw-mode* (/ arg0 8)) @@ -475,7 +339,6 @@ (= (/ arg0 8) *ocean-subdivide-draw-mode*) ) -;; definition for function dm-time-of-day-func (defun dm-time-of-day-func ((arg0 int) (arg1 int)) (when (= arg1 4) (set! *time-of-day-mode* (/ arg0 8)) @@ -524,7 +387,6 @@ (= (/ arg0 8) *time-of-day-mode*) ) -;; definition for function dm-time-of-day-func2 (defun dm-time-of-day-func2 ((arg0 (pointer symbol)) (arg1 int)) (when (= arg1 4) (set! (-> arg0 0) (not (-> arg0 0))) @@ -538,8 +400,6 @@ (-> arg0 0) ) -;; definition for function dm-boolean-toggle-pick-func -;; INFO: Return type mismatch symbol vs object. (defun dm-boolean-toggle-pick-func ((arg0 (pointer symbol)) (arg1 int)) (if (= arg1 4) (set! (-> arg0 0) (not (-> arg0 0))) @@ -547,13 +407,11 @@ (the-as object (-> arg0 0)) ) -;; definition for function dm-time-of-day-pick-func (defun dm-time-of-day-pick-func ((arg0 symbol) (arg1 int)) (time-of-day-setup (= arg1 4)) (none) ) -;; definition for function dm-actor-marks-pick-func (defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 int)) (if (= arg1 4) (set! *display-actor-marks* arg0) @@ -561,8 +419,6 @@ (= *display-actor-marks* arg0) ) -;; definition for function dm-compact-actor-pick-func -;; INFO: Return type mismatch symbol vs object. (defun dm-compact-actor-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *compact-actors* (the-as symbol arg0)) @@ -570,7 +426,6 @@ (the-as object (= *compact-actors* arg0)) ) -;; definition for function dm-actor-vis-pick-func (defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 int)) (if (= arg1 4) (set! *display-actor-vis* arg0) @@ -578,7 +433,6 @@ (= *display-actor-vis* arg0) ) -;; definition for function dm-game-mode-pick-func (defun dm-game-mode-pick-func ((arg0 symbol) (arg1 int)) (if (= arg1 4) (set! (-> *game-info* mode) arg0) @@ -586,7 +440,6 @@ (= (-> *game-info* mode) arg0) ) -;; definition for function dm-vu1-user-toggle-pick-func (defun dm-vu1-user-toggle-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *vu1-enable-user-menu* (logxor *vu1-enable-user-menu* arg0)) @@ -594,7 +447,6 @@ (logtest? *vu1-enable-user-menu* arg0) ) -;; definition for function dm-vu1-user-set-pick-func (defun dm-vu1-user-set-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *vu1-enable-user-menu* arg0) @@ -602,7 +454,6 @@ (= *vu1-enable-user-menu* arg0) ) -;; definition for function dm-texture-user-toggle-pick-func (defun dm-texture-user-toggle-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *texture-enable-user-menu* (logxor *texture-enable-user-menu* arg0)) @@ -610,7 +461,6 @@ (logtest? *texture-enable-user-menu* arg0) ) -;; definition for function dm-texture-user-set-pick-func (defun dm-texture-user-set-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *texture-enable-user-menu* arg0) @@ -618,7 +468,6 @@ (= *texture-enable-user-menu* arg0) ) -;; definition for function dm-strip-lines-toggle-pick-func (defun dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *display-strip-lines* (logxor *display-strip-lines* (/ arg0 8))) @@ -626,7 +475,6 @@ (logtest? *display-strip-lines* (/ arg0 8)) ) -;; definition for function dm-strip-lines-set-pick-func (defun dm-strip-lines-set-pick-func ((arg0 int) (arg1 int)) (if (= arg1 4) (set! *display-strip-lines* (/ arg0 8)) @@ -634,7 +482,6 @@ (= *display-strip-lines* (/ arg0 8)) ) -;; definition for function dm-edit-instance-toggle-pick-func (defun dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 int)) (let ((v1-0 (find-instance-by-name *edit-instance*))) (when v1-0 @@ -646,9 +493,8 @@ ) ) -;; definition for function all-texture-tweak-adjust -;; INFO: Return type mismatch int vs object. (defun all-texture-tweak-adjust ((arg0 texture-page-dir) (arg1 float)) + ;; TODO - fix! (format #t "texture tweak NYI~%") ; (dotimes (s4-0 (-> arg0 length)) ; (let ((s3-0 (-> arg0 entries s4-0 page))) @@ -684,13 +530,10 @@ ; (the-as object 0) ) -;; definition for function debug-menu-node arg0 name) (-> arg1 name)) ) -;; definition for function dm-shader-pick-func -;; INFO: Return type mismatch symbol vs object. (defun dm-shader-pick-func ((arg0 texture-id) (arg1 int)) (if (and @@ -707,10 +550,8 @@ (the-as object (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 (defun build-shader-list () (debug-menu-remove-all-items *shader-pick-menu*) (when *texture-page-dir* @@ -746,7 +587,6 @@ ) ) -;; definition for function dm-instance-pick-func (defun dm-instance-pick-func ((arg0 string) (arg1 int)) (when (= arg1 4) (if (find-instance-by-name arg0) @@ -757,7 +597,6 @@ (and *edit-instance* (string= arg0 *edit-instance*)) ) -;; definition for function dm-enable-instance-func (defun dm-enable-instance-func ((arg0 string) (arg1 int)) (let ((v1-0 (find-instance-by-name arg0))) (cond @@ -774,17 +613,12 @@ ) ) -;; 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-tie-menu*, type debug-menu (define *enable-instance-tie-menu* (the-as debug-menu #f)) -;; definition for function build-instance-list -;; INFO: Return type mismatch int vs none. (defun build-instance-list () (debug-menu-remove-all-items *instance-shrub-menu*) (debug-menu-remove-all-items *instance-tie-menu*) @@ -795,7 +629,7 @@ (when (= (-> v1-3 status) 'active) (let ((s5-0 (-> v1-3 bsp drawable-trees))) (dotimes (s4-0 (-> s5-0 length)) - (let ((v1-7 (-> s5-0 data s4-0))) + (let ((v1-7 (-> s5-0 trees s4-0))) (case (-> v1-7 type) ((drawable-tree-instance-shrub) (let @@ -921,8 +755,6 @@ (none) ) -;; definition for function debug-create-cam-restore -;; INFO: Return type mismatch object vs none. (defun debug-create-cam-restore () (cond (*math-camera* @@ -1099,8 +931,6 @@ (none) ) -;; definition for function debug-menu-make-camera-mode-menu -;; INFO: Return type mismatch debug-menu-item vs object. (defun debug-menu-make-camera-mode-menu ((arg0 int) (arg1 int)) (new 'debug 'debug-menu-item-submenu "Camera" (the-as debug-menu arg0)) (let @@ -1370,7 +1200,6 @@ ) ) -;; 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)) @@ -1951,7 +1780,6 @@ ) ) -;; 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)) @@ -1988,7 +1816,9 @@ (set! arg3 (cond (*texture-page-dir* (let* ((s4-0 (the-as texture-id (-> arg0 value))) - (gp-0 (lookup-texture-by-id s4-0)) + (gp-0 + (lookup-texture-by-id (the-as texture-id s4-0)) + ) (v1-3 (-> *texture-page-dir* entries (-> s4-0 page) link) ) @@ -3098,152 +2928,151 @@ ) ) -;; definition for function debug-menu-make-instance-menu (defun debug-menu-make-instance-menu ((arg0 debug-menu-context)) (let* ((stub-menu (new 'debug 'debug-menu arg0 "Instance menu")) (stub-item (new 'debug 'debug-menu-item-submenu "Instance" stub-menu))) - stub-item ) - #| - (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 - ((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 int float float float) - (lambda ((arg0 debug-menu) (arg1 int) (arg2 float) (arg3 float)) - (let ((gp-0 (find-instance-by-name (-> arg0 name)))) - (the-as object (cond - (gp-0 - (when (= arg1 4) - (set! (-> gp-0 unknown-vector x) (* 4096.0 arg2)) - (prototype-bucket-recalc-fields gp-0) - ) - (* 0.00024414062 (-> gp-0 unknown-vector x)) - ) - (else - (empty) - arg3 - ) - ) - ) - ) - ) - ) - (the-as float 1.0) - #t - (the-as float 10.0) - (the-as float 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 int float float float) - (lambda ((arg0 debug-menu) (arg1 int) (arg2 float) (arg3 float)) - (let ((gp-0 (find-instance-by-name (-> arg0 name)))) - (the-as object (cond - (gp-0 - (when (= arg1 4) - (set! (-> gp-0 unknown-vector w) (* 4096.0 arg2)) - (prototype-bucket-recalc-fields gp-0) - ) - (* 0.00024414062 (-> gp-0 unknown-vector w)) - ) - (else - (empty) - arg3 - ) - ) - ) - ) - ) - ) - (the-as float 1.0) - #t - (the-as float 10.0) - (the-as float 250.0) - 1 - ) - (debug-menu-append-item gp-0 s3-1) - ) - (let - ((a1-17 - (new - 'debug - 'debug-menu-item-flag - "invisible" - (the-as symbol 1) - dm-edit-instance-toggle-pick-func - ) - ) - ) - (debug-menu-append-item gp-0 a1-17) - ) - (let ((a3-13 (new 'debug 'debug-menu arg0 "Enable Instance Tie Menu"))) - (set! *enable-instance-tie-menu* a3-13) - (let ((a1-20 (new 'debug 'debug-menu-item-submenu "Enable Tie" a3-13))) - (debug-menu-append-item gp-0 a1-20) - ) - ) - (let - ((a1-22 - (new - 'debug - 'debug-menu-item-flag - "Instance Info" - '*display-instance-info* - dm-boolean-toggle-pick-func - ) - ) - ) - (debug-menu-append-item gp-0 a1-22) - ) - s5-0 - ) - |# + ;; TODO - fix me! + ; (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) + ; (the-as (function int object) build-instance-list) + ; ) + ; ) + ; ) + ; (debug-menu-append-item gp-0 a1-9) + ; ) + ; (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 debug-menu) (arg1 int) (arg2 float) (arg3 float)) + ; (let ((gp-0 (find-instance-by-name (-> arg0 name)))) + ; (the-as object (cond + ; (gp-0 + ; (when (= arg1 4) + ; (set! (-> gp-0 unknown-vector x) (* 4096.0 arg2)) + ; (prototype-bucket-recalc-fields gp-0) + ; ) + ; (* 0.00024414062 (-> gp-0 unknown-vector x)) + ; ) + ; (else + ; (empty) + ; arg3 + ; ) + ; ) + ; ) + ; ) + ; ) + ; ) + ; (the-as float 1.0) + ; #t + ; (the-as float 10.0) + ; (the-as float 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 debug-menu) (arg1 int) (arg2 float) (arg3 float)) + ; (let ((gp-0 (find-instance-by-name (-> arg0 name)))) + ; (the-as object (cond + ; (gp-0 + ; (when (= arg1 4) + ; (set! (-> gp-0 unknown-vector w) (* 4096.0 arg2)) + ; (prototype-bucket-recalc-fields gp-0) + ; ) + ; (* 0.00024414062 (-> gp-0 unknown-vector w)) + ; ) + ; (else + ; (empty) + ; arg3 + ; ) + ; ) + ; ) + ; ) + ; ) + ; ) + ; (the-as float 1.0) + ; #t + ; (the-as float 10.0) + ; (the-as float 250.0) + ; 1 + ; ) + ; (debug-menu-append-item gp-0 s3-1) + ; ) + ; (let + ; ((a1-17 + ; (new + ; 'debug + ; 'debug-menu-item-flag + ; "invisible" + ; 1 + ; (the-as + ; (function int debug-menu-msg object) + ; dm-edit-instance-toggle-pick-func + ; ) + ; ) + ; ) + ; ) + ; (debug-menu-append-item gp-0 a1-17) + ; ) + ; (let ((a3-13 (new 'debug 'debug-menu arg0 "Enable Instance Tie Menu"))) + ; (set! *enable-instance-tie-menu* a3-13) + ; (let ((a1-20 (new 'debug 'debug-menu-item-submenu "Enable Tie" a3-13))) + ; (debug-menu-append-item gp-0 a1-20) + ; ) + ; ) + ; (let + ; ((a1-22 + ; (new + ; 'debug + ; 'debug-menu-item-flag + ; "Instance Info" + ; (the-as int '*display-instance-info*) + ; (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) + ; ) + ; ) + ; ) + ; (debug-menu-append-item gp-0 a1-22) + ; ) + ; s5-0 + ; ) ) -;; definition for function dm-task-unknown (defun dm-task-unknown ((arg0 int) (arg1 int)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status unknown))) @@ -3256,7 +3085,6 @@ ) ) -;; definition for function dm-task-hint (defun dm-task-hint ((arg0 int) (arg1 int)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status need-hint))) @@ -3269,7 +3097,6 @@ ) ) -;; definition for function dm-task-introduction (defun dm-task-introduction ((arg0 int) (arg1 int)) (let ((gp-0 (/ arg0 8))) (if @@ -3286,7 +3113,6 @@ ) ) -;; definition for function dm-task-reminder-a (defun dm-task-reminder-a ((arg0 int) (arg1 int)) (let ((gp-0 (/ arg0 8))) (if @@ -3300,7 +3126,6 @@ ) ) -;; definition for function dm-task-reminder (defun dm-task-reminder ((arg0 int) (arg1 int)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder))) @@ -3313,7 +3138,6 @@ ) ) -;; definition for function dm-task-reward-speech (defun dm-task-reward-speech ((arg0 int) (arg1 int)) (let ((gp-0 (/ arg0 8))) (if @@ -3332,34 +3156,20 @@ ) ) -;; definition for function dm-task-resolution (defun dm-task-resolution ((arg0 int) (arg1 int)) - (with-pp - (let ((gp-0 (/ arg0 8))) - (if - (not (task-exists? (the-as game-task gp-0) (task-status need-resolution))) - (return 'invalid) - ) - (when (= arg1 4) - (let ((a1-2 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-2 from) pp) - (set! (-> a1-2 num-params) 2) - (set! (-> a1-2 message) 'get-pickup) - (set! (-> a1-2 param 0) (the-as uint 6)) - (set! (-> a1-2 param 1) (the-as uint (the float gp-0))) - (send-event-function *target* a1-2) - ) - (close-specific-task! - (the-as game-task gp-0) - (task-status need-resolution) - ) - ) - (task-closed? (the-as game-task gp-0) (task-status need-resolution)) + (let ((gp-0 (/ arg0 8))) + (if + (not (task-exists? (the-as game-task gp-0) (task-status need-resolution))) + (return 'invalid) ) + (when (= arg1 4) + (send-event *target* 'get-pickup 6 (the float gp-0)) + (close-specific-task! (the-as game-task gp-0) (task-status need-resolution)) + ) + (task-closed? (the-as game-task gp-0) (task-status need-resolution)) ) ) -;; definition for function debug-menu-make-task-unknown-menu (defun debug-menu-make-task-unknown-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -3947,7 +3757,6 @@ ) ) -;; definition for function debug-menu-make-task-need-hint-menu (defun debug-menu-make-task-need-hint-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -4535,7 +4344,6 @@ ) ) -;; definition for function debug-menu-make-task-need-introduction-menu (defun debug-menu-make-task-need-introduction-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -5123,7 +4931,6 @@ ) ) -;; definition for function debug-menu-make-task-need-reminder-a-menu (defun debug-menu-make-task-need-reminder-a-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -5711,7 +5518,6 @@ ) ) -;; definition for function debug-menu-make-task-need-reminder-menu (defun debug-menu-make-task-need-reminder-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -6299,7 +6105,6 @@ ) ) -;; definition for function debug-menu-make-task-need-reward-speech-menu (defun debug-menu-make-task-need-reward-speech-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -6887,7 +6692,6 @@ ) ) -;; definition for function debug-menu-make-task-need-resolution-menu (defun debug-menu-make-task-need-resolution-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) @@ -7475,18 +7279,10 @@ ) ) -;; definition for function dm-task-get-money (defun dm-task-get-money ((arg0 int) (arg1 int)) (with-pp - (when (= arg1 4) - (let ((a1-1 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-1 from) pp) - (set! (-> a1-1 num-params) 2) - (set! (-> a1-1 message) 'get-pickup) - (set! (-> a1-1 param 0) (the-as uint 5)) - (set! (-> a1-1 param 1) (the-as uint (-> *GAME-bank* money-task-inc))) - (send-event-function *target* a1-1) - ) + (if (= arg1 4) + (send-event *target* 'get-pickup 5 (-> *GAME-bank* money-task-inc)) ) (let ((a1-2 (new 'stack-no-clear 'event-message-block))) (set! (-> a1-2 from) pp) @@ -7502,55 +7298,33 @@ ) ) -;; definition for function dm-give-all-cells (defun dm-give-all-cells ((arg0 int) (arg1 int)) - (with-pp - (when (= arg1 4) - (dotimes (gp-0 100) - (let ((a1-1 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-1 from) pp) - (set! (-> a1-1 num-params) 2) - (set! (-> a1-1 message) 'get-pickup) - (set! (-> a1-1 param 0) (the-as uint 6)) - (set! (-> a1-1 param 1) (the-as uint (the float (+ gp-0 2)))) - (send-event-function *target* a1-1) - ) - (close-specific-task! - (the-as game-task (+ gp-0 2)) - (task-status need-resolution) - ) + (when (= arg1 4) + (dotimes (gp-0 100) + (send-event *target* 'get-pickup 6 (the float (+ gp-0 2))) + (close-specific-task! + (the-as game-task (+ gp-0 2)) + (task-status need-resolution) ) ) - (dotimes (gp-1 100) - (if - (not - (task-closed? (the-as game-task (+ gp-1 2)) (task-status need-resolution)) - ) - (return #f) - ) - ) - #t ) + (dotimes (gp-1 100) + (if + (not + (task-closed? (the-as game-task (+ gp-1 2)) (task-status need-resolution)) + ) + (return #f) + ) + ) + #t ) -;; definition for function dm-give-cell -;; INFO: Return type mismatch int vs none. (defun dm-give-cell ((arg0 int)) - (with-pp - (let ((a1-0 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-0 from) pp) - (set! (-> a1-0 num-params) 2) - (set! (-> a1-0 message) 'get-pickup) - (set! (-> a1-0 param 0) (the-as uint 6)) - (set! (-> a1-0 param 1) (the-as uint (the float arg0))) - (send-event-function *target* a1-0) - ) - (close-specific-task! (the-as game-task arg0) (task-status need-resolution)) - (none) - ) + (send-event *target* 'get-pickup 6 (the float arg0)) + (close-specific-task! (the-as game-task arg0) (task-status need-resolution)) + (none) ) -;; definition for function dm-levitator-ready (defun dm-levitator-ready ((arg0 int) (arg1 int)) (when (= arg1 4) (close-specific-task! @@ -7614,7 +7388,6 @@ ) ) -;; definition for function dm-lavabike-ready (defun dm-lavabike-ready ((arg0 int) (arg1 int)) (when (= arg1 4) (dm-give-cell 2) @@ -7699,7 +7472,6 @@ ) ) -;; definition for function debug-menu-make-task-menu (defun debug-menu-make-task-menu ((arg0 debug-menu-context)) (let* ((s5-0 (new 'debug 'debug-menu arg0 "Task menu")) (s4-0 (new 'debug 'debug-menu-item-submenu "Task" s5-0)) @@ -7770,8 +7542,6 @@ ) ) -;; definition for function dm-anim-tester-flag-func -;; INFO: Return type mismatch symbol vs object. (defun dm-anim-tester-flag-func ((arg0 int) (arg1 int)) (when *anim-tester* (case arg0 @@ -7792,78 +7562,39 @@ #f ) -;; definition for function dm-anim-tester-func -;; INFO: Return type mismatch object vs none. (defun dm-anim-tester-func ((arg0 int)) - (with-pp - (if (not *anim-tester*) - (anim-tester-start) - ) - (when *anim-tester* - (cond - ((= arg0 'at-pick-object) - (let ((a1-0 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-0 from) pp) - (set! (-> a1-0 num-params) 0) - (set! (-> a1-0 message) 'pick-object) - (send-event-function (ppointer->process *anim-tester*) a1-0) - ) - (set! (-> *debug-menu-context* is-hidden) #t) - ) - ((= arg0 'at-pick-joint-anim) - (let ((a1-1 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-1 from) pp) - (set! (-> a1-1 num-params) 0) - (set! (-> a1-1 message) 'pick-joint-anim) - (send-event-function (ppointer->process *anim-tester*) a1-1) - ) - (set! (-> *debug-menu-context* is-hidden) #t) - ) - ((= arg0 'at-pick-sequence) - (let ((a1-2 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-2 from) pp) - (set! (-> a1-2 num-params) 0) - (set! (-> a1-2 message) 'pick-sequence) - (send-event-function (ppointer->process *anim-tester*) a1-2) - ) - (set! (-> *debug-menu-context* is-hidden) #t) - ) - ((= arg0 'at-save-sequences) - (let ((a1-3 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-3 from) pp) - (set! (-> a1-3 num-params) 0) - (set! (-> a1-3 message) 'save-sequences) - (send-event-function (ppointer->process *anim-tester*) a1-3) - ) - ) - ((= arg0 'at-cam-stick) - (set! *camera-orbit-target* *anim-tester*) - (let ((a1-4 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-4 from) pp) - (set! (-> a1-4 num-params) 2) - (set! (-> a1-4 message) 'change-state) - (set! (-> a1-4 param 0) (the-as uint cam-orbit)) - (set! (-> a1-4 param 1) (the-as uint 0)) - (send-event-function *camera* a1-4) - ) - ) - ((= arg0 'at-cam-free-floating) - (let ((a1-5 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-5 from) pp) - (set! (-> a1-5 num-params) 2) - (set! (-> a1-5 message) 'change-state) - (set! (-> a1-5 param 0) (the-as uint cam-free-floating)) - (set! (-> a1-5 param 1) (the-as uint 0)) - (send-event-function *camera* a1-5) - ) - ) + (if (not *anim-tester*) + (anim-tester-start) + ) + (when *anim-tester* + (cond + ((= arg0 'at-pick-object) + (send-event (ppointer->process *anim-tester*) 'pick-object) + (set! (-> *debug-menu-context* is-hidden) #t) + ) + ((= arg0 'at-pick-joint-anim) + (send-event (ppointer->process *anim-tester*) 'pick-joint-anim) + (set! (-> *debug-menu-context* is-hidden) #t) + ) + ((= arg0 'at-pick-sequence) + (send-event (ppointer->process *anim-tester*) 'pick-sequence) + (set! (-> *debug-menu-context* is-hidden) #t) + ) + ((= arg0 'at-save-sequences) + (send-event (ppointer->process *anim-tester*) 'save-sequences) + ) + ((= arg0 'at-cam-stick) + (set! *camera-orbit-target* *anim-tester*) + (send-event *camera* 'change-state cam-orbit 0) + ) + ((= arg0 'at-cam-free-floating) + (send-event *camera* 'change-state cam-free-floating 0) ) ) - (none) ) + (none) ) -;; definition for function build-continue-menu (defun build-continue-menu ((arg0 debug-menu-context)) (let ((s5-0 *level-load-list*)) (while (not (null? s5-0)) @@ -7898,7 +7629,6 @@ arg0 ) -;; definition for function debug-menu-context-make-default-menus (defun debug-menu-context-make-default-menus ((arg0 debug-menu-context)) (let ((s5-0 (new 'debug 'debug-menu arg0 "Main menu"))) (debug-menu-context-set-root-menu arg0 s5-0) @@ -8896,58 +8626,19 @@ ) ) (menu "Mode" (function "normal" #f (lambda () - (with-pp - (let - ((a1-0 - (new 'stack-no-clear 'event-message-block - ) - ) - ) - (set! (-> a1-0 from) pp) - (set! (-> a1-0 num-params) 0) - (set! (-> a1-0 message) 'end-mode) - (send-event-function - *target* - a1-0 - ) - ) - ) + (send-event *target* 'end-mode) ) ) (function "racing" #f (lambda () - (with-pp - (let - ((a1-0 - (new 'stack-no-clear 'event-message-block) - ) - ) - (set! (-> a1-0 from) pp) - (set! (-> a1-0 num-params) 2) - (set! (-> a1-0 message) 'change-mode) - (set! (-> a1-0 param 0) (the-as uint 'racing)) - (set! (-> a1-0 param 1) (the-as uint #f)) - (send-event-function *target* a1-0) - ) - ) + (send-event *target* 'change-mode 'racing #f) ) ) (function "snowball" #f (lambda () - (with-pp - (let - ((a1-0 - (new 'stack-no-clear 'event-message-block) - ) - ) - (set! (-> a1-0 from) pp) - (set! (-> a1-0 num-params) 2) - (set! (-> a1-0 message) 'change-mode) - (set! - (-> a1-0 param 0) - (the-as uint 'snowball) - ) - (set! (-> a1-0 param 1) (the-as uint #f)) - (send-event-function *target* a1-0) - ) + (send-event + *target* + 'change-mode + 'snowball + #f ) ) ) @@ -9146,10 +8837,8 @@ 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 @@ -9214,13 +8903,10 @@ 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) @@ -9253,7 +8939,6 @@ #f ) -;; definition for function *menu-hook* (defun *menu-hook* () (debug-menus-handler *debug-menu-context*) (debug-menus-handler *popup-menu-context*) diff --git a/test/decompiler/reference/engine/debug/default-menu_REF.gc b/test/decompiler/reference/engine/debug/default-menu_REF.gc new file mode 100644 index 0000000000..e5d674486c --- /dev/null +++ b/test/decompiler/reference/engine/debug/default-menu_REF.gc @@ -0,0 +1,9015 @@ +;;-*-Lisp-*- +(in-package goal) + +;; this file is debug only +(when *debug-segment* +;; 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 debug-menu +(define *dm-cam-mode-interpolation* (the-as debug-menu 0)) + +;; definition for function dm-cam-mode-func +(defun dm-cam-mode-func ((arg0 uint) (arg1 int)) + (if (and (= arg1 4) arg0) + (send-event *camera* 'change-state arg0 *dm-cam-mode-interpolation*) + ) + (if *camera* + (send-event *camera* 'query-state arg0) + (not arg0) + ) + ) + +;; definition for function dm-cam-settings-func +(defun dm-cam-settings-func ((arg0 int) (arg1 int)) + (when (and (= arg1 4) *camera*) + (cond + ((zero? arg0) + (send-event *camera* 'toggle-slave-option 1) + ) + ((= arg0 13) + (send-event *camera* 'toggle-slave-option 8192) + ) + ((= arg0 1) + (send-event *camera* 'toggle-slave-option 2) + ) + ((= arg0 2) + (send-event *camera* 'toggle-slave-option 4) + ) + ((= arg0 3) + (send-event *camera* 'toggle-slave-option 128) + ) + ((= arg0 4) + (send-event *camera* 'toggle-slave-option 8) + ) + ((= arg0 7) + (send-event *camera* 'toggle-slave-option 16) + ) + ((= arg0 8) + (send-event *camera* 'toggle-slave-option 64) + ) + ((= arg0 6) + (send-event *camera* 'reset-root) + ) + ((= arg0 9) + (set! (-> *camera* master-options) (logxor (-> *camera* master-options) 1)) + ) + ((= arg0 10) + (set! (-> *camera* master-options) (logxor (-> *camera* master-options) 4)) + ) + ((= arg0 11) + (send-event *camera* 'toggle-slave-option 32) + ) + ((= arg0 12) + (send-event *camera* 'toggle-slave-option 512) + ) + ((= arg0 14) + (send-event *camera* 'toggle-slave-option #x8000) + ) + ((= arg0 15) + (send-event *camera* 'toggle-slave-option #x10000) + ) + ) + ) + (cond + (*camera* + (cond + ((zero? arg0) + (logtest? (-> *camera* slave-options) 1) + ) + ((= arg0 13) + (logtest? (-> *camera* slave-options) 8192) + ) + ((= arg0 1) + (logtest? (-> *camera* slave-options) 2) + ) + ((= arg0 2) + (logtest? (-> *camera* slave-options) 4) + ) + ((= arg0 3) + (logtest? (-> *camera* slave-options) 128) + ) + ((= arg0 4) + (logtest? (-> *camera* slave-options) 8) + ) + ((= arg0 7) + (logtest? (-> *camera* slave-options) 16) + ) + ((= arg0 8) + (logtest? (-> *camera* slave-options) 64) + ) + ((= arg0 11) + (logtest? (-> *camera* slave-options) 32) + ) + ((= arg0 12) + (logtest? (-> *camera* slave-options) 512) + ) + ((= arg0 14) + (logtest? (-> *camera* slave-options) #x8000) + ) + ((= arg0 15) + (logtest? #x10000 (-> *camera* slave-options)) + ) + ((= arg0 9) + (logtest? (-> *camera* master-options) 1) + ) + ((= arg0 10) + (logtest? (-> *camera* master-options) 4) + ) + (else + #f + ) + ) + ) + (else + #f + ) + ) + ) + +;; definition for function dm-cam-settings-func-int +(defun + dm-cam-settings-func-int + ((arg0 int) (arg1 int) (arg2 debug-menu) (arg3 debug-menu)) + (when (and (= arg1 4) *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 int)) + (when (= arg1 4) + (cond + ((= arg0 'reset) + (if (!= *external-cam-mode* 'locked) + (external-cam-reset!) + ) + ) + ((= arg0 'allow-z) + (set! *external-cam-options* (logxor *external-cam-options* 1)) + ) + ((= *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* 1) + (= *external-cam-mode* arg0) + ) + ) + +;; definition for function dm-cam-render-float +(defun dm-cam-render-float ((arg0 int) (arg1 int) (arg2 float) (arg3 float)) + (with-pp + (when (= arg1 4) + (cond + ((zero? (/ arg0 8)) + (when *math-camera* + (set! (-> *math-camera* fov) (* 182.04445 arg2)) + (update-math-camera + *math-camera* + (-> *setting-control* current video-mode) + (-> *setting-control* current aspect-ratio) + ) + ) + ) + ((= (/ arg0 8) 1) + (if *camera* + (send-event *camera* 'set-fov (* 182.04445 arg2)) + ) + ) + ) + ) + (cond + ((zero? (/ arg0 8)) + (cond + (*math-camera* + (* 0.005493164 (-> *math-camera* fov)) + ) + (else + (empty) + arg3 + ) + ) + ) + ((= (/ arg0 8) 1) + (cond + (*camera* + (let ((f30-0 0.005493164) + (a1-3 (new 'stack-no-clear 'event-message-block)) + ) + (set! (-> a1-3 from) pp) + (set! (-> a1-3 num-params) 0) + (set! (-> a1-3 message) 'query-fov) + (* f30-0 (the-as float (send-event-function *camera* a1-3))) + ) + ) + (else + (empty) + arg3 + ) + ) + ) + (else + (empty) + arg3 + ) + ) + ) + ) + +;; definition for function dm-subdiv-float +(defun dm-subdiv-float ((arg0 symbol) (arg1 int) (arg2 float) (arg3 float)) + (when (= arg1 4) + (case arg0 + (('close) + (if (and *math-camera* *subdivide-settings*) + (set! (-> *subdivide-settings* close 3) (* 4096.0 arg2)) + ) + ) + (('far) + (if (and *math-camera* *subdivide-settings*) + (set! (-> *subdivide-settings* far 3) (* 4096.0 arg2)) + ) + ) + ) + ) + (case arg0 + (('close) + (if (and *math-camera* *subdivide-settings*) + (* 0.00024414062 (-> *subdivide-settings* close 3)) + arg3 + ) + ) + (('far) + (if (and *math-camera* *subdivide-settings*) + (* 0.00024414062 (-> *subdivide-settings* far 3)) + arg3 + ) + ) + (else + arg3 + ) + ) + ) + +;; definition for function dm-subdiv-int +(defun dm-subdiv-int ((arg0 function) (arg1 int) (arg2 object) (arg3 object)) + (when (= arg1 4) + (case arg0 + (('anim-speed) + (if *anim-tester* + (set! (-> *anim-tester* 0 speed) (the-as int arg2)) + ) + ) + ) + ) + (case arg0 + (('anim-speed) + (if *anim-tester* + (-> *anim-tester* 0 speed) + arg3 + ) + ) + (else + arg3 + ) + ) + ) + +;; definition for function dm-setting-language +(defun dm-setting-language ((arg0 function) (arg1 int)) + (if (= arg1 4) + (set! + (-> *setting-control* default language) + (the-as language-enum (/ (the-as int arg0) 8)) + ) + ) + (= (-> *setting-control* default language) (/ (the-as int arg0) 8)) + ) + +;; definition for function dm-current-continue +;; INFO: Return type mismatch symbol vs object. +(defun dm-current-continue ((arg0 function) (arg1 int)) + (if (= arg1 4) + (start 'play (get-continue-by-name *game-info* (the-as string arg0))) + ) + (the-as + object + (string= + (-> (get-or-create-continue! *game-info*) name) + (the-as string arg0) + ) + ) + ) + +;; definition for function dm-subdiv-draw-func +(defun dm-subdiv-draw-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *subdivide-draw-mode* (/ arg0 8)) + ) + (= (/ arg0 8) *subdivide-draw-mode*) + ) + +;; definition for function dm-ocean-subdiv-draw-func +(defun dm-ocean-subdiv-draw-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *ocean-subdivide-draw-mode* (/ arg0 8)) + ) + (= (/ arg0 8) *ocean-subdivide-draw-mode*) + ) + +;; definition for function dm-time-of-day-func +(defun dm-time-of-day-func ((arg0 int) (arg1 int)) + (when (= arg1 4) + (set! *time-of-day-mode* (/ arg0 8)) + (set! (-> *time-of-day-proc* 0 minute) 0) + (cond + ((zero? (/ arg0 8)) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 7) + ) + ((= (/ arg0 8) 1) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 9) + ) + ((= (/ arg0 8) 2) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 12) + ) + ((= (/ arg0 8) 3) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 15) + ) + ((= (/ arg0 8) 4) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 18) + ) + ((= (/ arg0 8) 5) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 19) + ) + ((= (/ arg0 8) 6) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 23) + ) + ((= (/ arg0 8) 7) + (set! (-> *time-of-day-proc* 0 time-ratio) 0.0) + (set! (-> *time-of-day-proc* 0 hour) 4) + ) + ((= (/ arg0 8) 8) + (if *time-of-day-fast* + (set! (-> *time-of-day-proc* 0 time-ratio) 18000.0) + (set! (-> *time-of-day-proc* 0 time-ratio) 300.0) + ) + ) + ) + ) + (= (/ arg0 8) *time-of-day-mode*) + ) + +;; definition for function dm-time-of-day-func2 +(defun dm-time-of-day-func2 ((arg0 (pointer symbol)) (arg1 int)) + (when (= arg1 4) + (set! (-> arg0 0) (not (-> arg0 0))) + (when (!= (-> *time-of-day-proc* 0 time-ratio) 0.0) + (if *time-of-day-fast* + (set! (-> *time-of-day-proc* 0 time-ratio) 18000.0) + (set! (-> *time-of-day-proc* 0 time-ratio) 300.0) + ) + ) + ) + (-> arg0 0) + ) + +;; definition for function dm-boolean-toggle-pick-func +;; INFO: Return type mismatch symbol vs object. +(defun dm-boolean-toggle-pick-func ((arg0 (pointer symbol)) (arg1 int)) + (if (= arg1 4) + (set! (-> arg0 0) (not (-> arg0 0))) + ) + (the-as object (-> arg0 0)) + ) + +;; definition for function dm-time-of-day-pick-func +;; INFO: Return type mismatch symbol vs none. +(defun dm-time-of-day-pick-func ((arg0 symbol) (arg1 int)) + (time-of-day-setup (= arg1 4)) + (none) + ) + +;; definition for function dm-actor-marks-pick-func +(defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 int)) + (if (= arg1 4) + (set! *display-actor-marks* arg0) + ) + (= *display-actor-marks* arg0) + ) + +;; definition for function dm-compact-actor-pick-func +;; INFO: Return type mismatch symbol vs object. +(defun dm-compact-actor-pick-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *compact-actors* (the-as symbol arg0)) + ) + (the-as object (= *compact-actors* arg0)) + ) + +;; definition for function dm-actor-vis-pick-func +(defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 int)) + (if (= arg1 4) + (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 int)) + (if (= arg1 4) + (set! (-> *game-info* mode) arg0) + ) + (= (-> *game-info* mode) arg0) + ) + +;; definition for function dm-vu1-user-toggle-pick-func +(defun dm-vu1-user-toggle-pick-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *vu1-enable-user-menu* (logxor *vu1-enable-user-menu* arg0)) + ) + (logtest? *vu1-enable-user-menu* arg0) + ) + +;; definition for function dm-vu1-user-set-pick-func +(defun dm-vu1-user-set-pick-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *vu1-enable-user-menu* arg0) + ) + (= *vu1-enable-user-menu* arg0) + ) + +;; definition for function dm-texture-user-toggle-pick-func +(defun dm-texture-user-toggle-pick-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *texture-enable-user-menu* (logxor *texture-enable-user-menu* arg0)) + ) + (logtest? *texture-enable-user-menu* arg0) + ) + +;; definition for function dm-texture-user-set-pick-func +(defun dm-texture-user-set-pick-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *texture-enable-user-menu* arg0) + ) + (= *texture-enable-user-menu* arg0) + ) + +;; definition for function dm-strip-lines-toggle-pick-func +(defun dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! *display-strip-lines* (logxor *display-strip-lines* (/ 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 int) (arg1 int)) + (if (= arg1 4) + (set! *display-strip-lines* (/ arg0 8)) + ) + (= *display-strip-lines* (/ arg0 8)) + ) + +;; definition for function dm-edit-instance-toggle-pick-func +(defun dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 int)) + (let ((v1-0 (find-instance-by-name *edit-instance*))) + (when v1-0 + (if (= arg1 4) + (set! (-> v1-0 unknown) (logxor (-> v1-0 unknown) (the-as uint arg0))) + ) + (logtest? (-> v1-0 unknown) arg0) + ) + ) + ) + +;; definition for function all-texture-tweak-adjust +;; INFO: Return type mismatch int vs object. +(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 uint s0-0) 40) + (set! s0-0 (* (-> (the-as adgif-shader s0-0) next shader) 16)) + ) + ) + ) + ) + ) + ) + ) + (the-as object 0) + ) + +;; definition for function debug-menu-node arg0 name) (-> arg1 name)) + ) + +;; definition for function dm-shader-pick-func +;; INFO: Return type mismatch symbol vs object. +(defun dm-shader-pick-func ((arg0 texture-id) (arg1 int)) + (if + (and + (= arg1 4) + *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* (the-as int arg0)) + ) + (the-as object (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 +(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)) + (the-as (function int debug-menu-msg object) dm-shader-pick-func) + ) + ) + ) + (debug-menu-append-item *shader-pick-menu* a1-1) + ) + ) + ) + ) + ) + ) + ) + (let ((v0-3 (sort (-> *shader-pick-menu* items) debug-menu-node *shader-pick-menu* items) (the-as pair v0-3)) + v0-3 + ) + ) + +;; definition for function dm-instance-pick-func +(defun dm-instance-pick-func ((arg0 string) (arg1 int)) + (when (= arg1 4) + (if (find-instance-by-name arg0) + (set! *edit-instance* arg0) + (set! *edit-instance* #f) + ) + ) + (and *edit-instance* (string= arg0 *edit-instance*)) + ) + +;; definition for function dm-enable-instance-func +(defun dm-enable-instance-func ((arg0 string) (arg1 int)) + (let ((v1-0 (find-instance-by-name arg0))) + (cond + (v1-0 + (if (= arg1 4) + (set! (-> v1-0 unknown) (logxor (-> v1-0 unknown) 1)) + ) + (zero? (logand (-> v1-0 unknown) 1)) + ) + (else + #f + ) + ) + ) + ) + +;; 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-tie-menu*, type debug-menu +(define *enable-instance-tie-menu* (the-as debug-menu #f)) + +;; definition for function build-instance-list +;; INFO: Return type mismatch int vs none. +(defun build-instance-list () + (debug-menu-remove-all-items *instance-shrub-menu*) + (debug-menu-remove-all-items *instance-tie-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 + (the-as string (-> s3-0 data s2-0 name)) + (the-as int (-> s3-0 data s2-0 name)) + (the-as + (function int debug-menu-msg object) + dm-instance-pick-func + ) + ) + ) + ) + (debug-menu-append-item *instance-shrub-menu* a1-4) + ) + ) + ) + ) + ((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-7 + (new + 'debug + 'debug-menu-item-flag + (the-as string (-> s3-1 array-data s2-1 name)) + (the-as int (-> s3-1 array-data s2-1 name)) + (the-as + (function int debug-menu-msg object) + dm-instance-pick-func + ) + ) + ) + ) + (debug-menu-append-item *instance-tie-menu* a1-7) + ) + (let + ((a1-9 + (new + 'debug + 'debug-menu-item-flag + (the-as string (-> s3-1 array-data s2-1 name)) + (the-as int (-> s3-1 array-data s2-1 name)) + (the-as + (function int debug-menu-msg object) + dm-enable-instance-func + ) + ) + ) + ) + (set! (-> a1-9 is-on) #t) + (debug-menu-append-item *enable-instance-tie-menu* a1-9) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + (set! + (-> *instance-shrub-menu* items) + (the-as + pair + (sort + (-> *instance-shrub-menu* items) + (lambda ((arg0 debug-menu) (arg1 debug-menu)) + (string<=? (-> arg0 name) (-> arg1 name)) + ) + ) + ) + ) + (set! + (-> *instance-tie-menu* items) + (the-as + pair + (sort + (-> *instance-tie-menu* items) + (lambda ((arg0 debug-menu) (arg1 debug-menu)) + (string<=? (-> arg0 name) (-> arg1 name)) + ) + ) + ) + ) + (set! + (-> *enable-instance-tie-menu* items) + (the-as + pair + (sort + (-> *enable-instance-tie-menu* items) + (lambda ((arg0 debug-menu) (arg1 debug-menu)) + (string<=? (-> arg0 name) (-> arg1 name)) + ) + ) + ) + ) + 0 + (none) + ) + +;; definition for function debug-create-cam-restore +;; INFO: 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 vector 0 x) + ) + (format + #t + " (set! (-> rot data 1) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 0 y) + ) + (format + #t + " (set! (-> rot data 2) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 0 z) + ) + (format + #t + " (set! (-> rot data 3) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 0 w) + ) + (format + #t + " (set! (-> rot data 4) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 1 x) + ) + (format + #t + " (set! (-> rot data 5) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 1 y) + ) + (format + #t + " (set! (-> rot data 6) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 1 z) + ) + (format + #t + " (set! (-> rot data 7) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 1 w) + ) + (format + #t + " (set! (-> rot data 8) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 2 x) + ) + (format + #t + " (set! (-> rot data 9) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 2 y) + ) + (format + #t + " (set! (-> rot data 10) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 2 z) + ) + (format + #t + " (set! (-> rot data 11) ~12F)~%" + (-> *math-camera* inv-camera-rot vector 2 w) + ) + (format #t " (set! (-> rot data 12) ~12F)~%" 0.0) + (format #t " (set! (-> rot data 13) ~12F)~%" 0.0) + (format #t " (set! (-> rot data 14) ~12F)~%" 0.0) + (format #t " (set! (-> rot data 15) ~12F)~%" 1.0) + (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)~%") + (v1-29 + (-> *display* frames (-> *display* last-screen) frame profile-bar 0) + ) + ) + (t9-31 + a0-31 + a1-31 + (-> v1-29 data (+ (-> v1-29 profile-frame-count) -2) time-stamp) + ) + ) + (let ((t9-32 format) + (a0-32 #t) + (a1-32 " (set! *camera-old-vu* ~D)~%") + (v1-34 + (-> *display* frames (-> *display* last-screen) frame profile-bar 1) + ) + ) + (t9-32 + a0-32 + a1-32 + (-> v1-34 data (+ (-> v1-34 profile-frame-count) -2) time-stamp) + ) + ) + (dummy-14 (-> *level* level0) #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-near* + ) + (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 +;; INFO: Return type mismatch debug-menu-item vs object. +(defun debug-menu-make-camera-mode-menu ((arg0 int) (arg1 int)) + (new 'debug 'debug-menu-item-submenu "Camera" (the-as debug-menu arg0)) + (let + ((a1-3 (new 'debug 'debug-menu-item-submenu "Mode" (the-as debug-menu arg1))) + ) + (debug-menu-append-item (the-as debug-menu arg0) a1-3) + ) + (let + ((a1-5 + (new + 'debug + 'debug-menu-item-flag + "Off" + (the-as int #f) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-5) + ) + (let + ((a1-7 + (new + 'debug + 'debug-menu-item-flag + "Free-floating" + (the-as int cam-free-floating) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-7) + ) + (let + ((a1-9 + (new + 'debug + 'debug-menu-item-flag + "Fixed" + (the-as int cam-fixed) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-9) + ) + (let + ((a1-11 + (new + 'debug + 'debug-menu-item-flag + "Pov" + (the-as int cam-pov) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-11) + ) + (let + ((a1-13 + (new + 'debug + 'debug-menu-item-flag + "Pov180" + (the-as int cam-pov180) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-13) + ) + (let + ((a1-15 + (new + 'debug + 'debug-menu-item-flag + "Billy" + (the-as int cam-billy) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-15) + ) + (let + ((a1-17 + (new + 'debug + 'debug-menu-item-flag + "Pov-track" + (the-as int cam-pov-track) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-17) + ) + (let + ((a1-19 + (new + 'debug + 'debug-menu-item-flag + "Decel" + (the-as int cam-decel) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-19) + ) + (let + ((a1-21 + (new + 'debug + 'debug-menu-item-flag + "Endless fall" + (the-as int cam-endlessfall) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-21) + ) + (let + ((a1-23 + (new + 'debug + 'debug-menu-item-flag + "Eye" + (the-as int cam-eye) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-23) + ) + (let + ((a1-25 + (new + 'debug + 'debug-menu-item-flag + "Stick" + (the-as int cam-stick) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-25) + ) + (let + ((a1-27 + (new + 'debug + 'debug-menu-item-flag + "String" + (the-as int cam-string) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-27) + ) + (let + ((a1-29 + (new + 'debug + 'debug-menu-item-flag + "Standoff" + (the-as int cam-standoff) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-29) + ) + (let + ((a1-31 + (new + 'debug + 'debug-menu-item-flag + "Circular" + (the-as int cam-circular) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-31) + ) + (let + ((a1-33 + (new + 'debug + 'debug-menu-item-flag + "Look At" + (the-as int cam-lookat) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-33) + ) + (let + ((a1-35 + (new + 'debug + 'debug-menu-item-flag + "Center of world" + (the-as int cam-point-watch) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-35) + ) + (let + ((a1-37 + (new + 'debug + 'debug-menu-item-flag + "Spline" + (the-as int cam-spline) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-37) + ) + (let + ((a1-39 + (new + 'debug + 'debug-menu-item-flag + "Bike" + (the-as int cam-bike) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-39) + ) + (let + ((a1-41 + (new + 'debug + 'debug-menu-item-flag + "Robotboss" + (the-as int cam-robotboss) + (the-as (function int debug-menu-msg object) dm-cam-mode-func) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg1) a1-41) + ) + (let + ((a1-43 + (new + 'debug + 'debug-menu-item-function + "Reset Free" + 6 + (the-as (function int object) dm-cam-settings-func) + ) + ) + ) + (the-as object (debug-menu-append-item (the-as debug-menu arg1) a1-43)) + ) + ) + +;; 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 (the-as int gp-0) (the-as int 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) + (the-as (function int debug-menu-msg object) 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) + (the-as (function int debug-menu-msg object) 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) + (the-as (function int debug-menu-msg object) 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) + (the-as (function int debug-menu-msg object) 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) + (the-as (function int debug-menu-msg object) 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 + (the-as + (function int debug-menu-msg float float float) + dm-cam-render-float + ) + (the-as float 1.0) + #t + (the-as float 15.0) + (the-as float 180.0) + 1 + ) + (debug-menu-append-item s3-0 s2-0) + ) + ) + (let ((s3-1 (new 'debug 'debug-menu arg0 "Camera collision menu"))) + (let ((a1-22 (new 'debug 'debug-menu-item-submenu "Collision" s3-1))) + (debug-menu-append-item gp-0 a1-22) + ) + (let + ((a1-24 + (new + 'debug + 'debug-menu-item-flag + "Record" + (the-as int '*record-cam-collide-history*) + (the-as + (function int debug-menu-msg object) + dm-boolean-toggle-pick-func + ) + ) + ) + ) + (debug-menu-append-item s3-1 a1-24) + ) + (let + ((a1-26 + (new + 'debug + 'debug-menu-item-flag + "Display" + (the-as int '*display-cam-collide-history*) + (the-as + (function int debug-menu-msg object) + dm-boolean-toggle-pick-func + ) + ) + ) + ) + (debug-menu-append-item s3-1 a1-26) + ) + ) + (let ((s4-1 (new 'debug 'debug-menu arg0 "Camera settings menu"))) + (let ((a1-29 (new 'debug 'debug-menu-item-submenu "Settings" s4-1))) + (debug-menu-append-item gp-0 a1-29) + ) + (let + ((a1-31 + (new + 'debug + 'debug-menu-item-flag + "Butt cam" + 0 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-31) + ) + (let + ((a1-33 + (new + 'debug + 'debug-menu-item-flag + "Block shift buttons" + 13 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-33) + ) + (let + ((a1-35 + (new + 'debug + 'debug-menu-item-flag + "Same side" + 1 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-35) + ) + (let + ((a1-37 + (new + 'debug + 'debug-menu-item-flag + "Move spherical" + 2 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-37) + ) + (let + ((a1-39 + (new + 'debug + 'debug-menu-item-flag + "Drag" + 3 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-39) + ) + (let + ((a1-41 + (new + 'debug + 'debug-menu-item-flag + "Allow Z rot" + 4 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-41) + ) + (let + ((a1-43 + (new + 'debug + 'debug-menu-item-flag + "Pitch for jump" + 7 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-43) + ) + (let + ((a1-45 + (new + 'debug + 'debug-menu-item-flag + "Find hidden target" + 8 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-45) + ) + (let + ((a1-47 + (new + 'debug + 'debug-menu-item-flag + "Move along camera Z" + (the-as int '*cam-free-move-along-z*) + (the-as + (function int debug-menu-msg object) + dm-boolean-toggle-pick-func + ) + ) + ) + ) + (debug-menu-append-item s4-1 a1-47) + ) + (let + ((a1-49 + (new + 'debug + 'debug-menu-item-flag + "Ignore regions" + 9 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-49) + ) + (let + ((a1-51 + (new + 'debug + 'debug-menu-item-flag + "Switch only on ground" + 10 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-51) + ) + (let + ((a1-53 + (new + 'debug + 'debug-menu-item-flag + "Collide" + 11 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-53) + ) + (let + ((a1-55 + (new + 'debug + 'debug-menu-item-flag + "Line of Sight" + 12 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-55) + ) + (let + ((a1-57 + (new + 'debug + 'debug-menu-item-flag + "No Rotate" + 14 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-57) + ) + (let + ((a1-59 + (new + 'debug + 'debug-menu-item-flag + "Sticky Angle" + 15 + (the-as (function int debug-menu-msg object) dm-cam-settings-func) + ) + ) + ) + (debug-menu-append-item s4-1 a1-59) + ) + (let ((s3-2 (new 'debug 'debug-menu-item-var "Interp Frms" 40 80))) + (debug-menu-item-var-make-int + s3-2 + (the-as + (function int debug-menu-msg int int int) + dm-cam-settings-func-int + ) + 1 + #f + 0 + 0 + #f + ) + (debug-menu-append-item s4-1 s3-2) + ) + (let ((s3-3 (new 'debug 'debug-menu-item-var "Fov" 8 80))) + (debug-menu-item-var-make-float + s3-3 + (the-as + (function int debug-menu-msg float float float) + dm-cam-render-float + ) + (the-as float 1.0) + #t + (the-as float 15.0) + (the-as float 180.0) + 1 + ) + (debug-menu-append-item s4-1 s3-3) + ) + (let + ((a1-67 + (new + 'debug + 'debug-menu-item-flag + "no mip/lod correction" + (the-as int '*camera-no-mip-correction*) + (the-as + (function int debug-menu-msg object) + dm-boolean-toggle-pick-func + ) + ) + ) + ) + (debug-menu-append-item s4-1 a1-67) + ) + (let + ((a1-69 + (new + 'debug + 'debug-menu-item-flag + "last attacker" + (the-as int '*display-camera-last-attacker*) + (the-as + (function int debug-menu-msg object) + dm-boolean-toggle-pick-func + ) + ) + ) + ) + (debug-menu-append-item s4-1 a1-69) + ) + (let + ((a1-71 + (new + 'debug + 'debug-menu-item-flag + "old stats" + (the-as int '*display-camera-old-stats*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + 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*) + (the-as + (function int debug-menu-msg object) + (lambda ((arg0 symbol) (arg1 int)) + (when (= arg1 4) + (if (-> arg0 value) + (cam-layout-stop) + (cam-layout-start) + ) + ) + (-> arg0 value) + (none) + ) + ) + ) + ) + ) + (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 int 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 int 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 int) (arg2 float) (arg3 float)) + (set! arg3 (cond + (*texture-page-dir* + (let* ((s4-0 (the-as texture-id (-> arg0 value))) + (gp-0 + (lookup-texture-by-id (the-as texture-id s4-0)) + ) + (v1-3 + (-> *texture-page-dir* entries (-> s4-0 page) link) + ) + ) + (cond + ((and gp-0 v1-3) + (when (= arg1 4) + (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 + ) + ) + ) + (none) + ) + ) + (the-as float 0.1) + #t + (the-as float 0.1) + (the-as float 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 int object) (lambda () + (all-texture-tweak-adjust + *texture-page-dir* + (the-as float 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 int object) (lambda () + (all-texture-tweak-adjust + *texture-page-dir* + (the-as float -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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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 k) 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 k) + 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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 tfx) 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 tfx) + 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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 th) 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 th) + 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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) 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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 minv) 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 minv) + 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 int) (arg2 int) (arg3 basic)) + (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 4) + (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 maxv) 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 maxv) + 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) + (the-as (function int object) build-instance-list) + ) + ) + ) + (debug-menu-append-item gp-0 a1-9) + ) + (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 debug-menu) (arg1 int) (arg2 float) (arg3 float)) + (let ((gp-0 (find-instance-by-name (-> arg0 name)))) + (the-as object (cond + (gp-0 + (when (= arg1 4) + (set! (-> gp-0 unknown-vector x) (* 4096.0 arg2)) + (prototype-bucket-recalc-fields gp-0) + ) + (* 0.00024414062 (-> gp-0 unknown-vector x)) + ) + (else + (empty) + arg3 + ) + ) + ) + ) + ) + ) + (the-as float 1.0) + #t + (the-as float 10.0) + (the-as float 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 debug-menu) (arg1 int) (arg2 float) (arg3 float)) + (let ((gp-0 (find-instance-by-name (-> arg0 name)))) + (the-as object (cond + (gp-0 + (when (= arg1 4) + (set! (-> gp-0 unknown-vector w) (* 4096.0 arg2)) + (prototype-bucket-recalc-fields gp-0) + ) + (* 0.00024414062 (-> gp-0 unknown-vector w)) + ) + (else + (empty) + arg3 + ) + ) + ) + ) + ) + ) + (the-as float 1.0) + #t + (the-as float 10.0) + (the-as float 250.0) + 1 + ) + (debug-menu-append-item gp-0 s3-1) + ) + (let + ((a1-17 + (new + 'debug + 'debug-menu-item-flag + "invisible" + 1 + (the-as + (function int debug-menu-msg object) + dm-edit-instance-toggle-pick-func + ) + ) + ) + ) + (debug-menu-append-item gp-0 a1-17) + ) + (let ((a3-13 (new 'debug 'debug-menu arg0 "Enable Instance Tie Menu"))) + (set! *enable-instance-tie-menu* a3-13) + (let ((a1-20 (new 'debug 'debug-menu-item-submenu "Enable Tie" a3-13))) + (debug-menu-append-item gp-0 a1-20) + ) + ) + (let + ((a1-22 + (new + 'debug + 'debug-menu-item-flag + "Instance Info" + (the-as int '*display-instance-info*) + (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) + ) + ) + ) + (debug-menu-append-item gp-0 a1-22) + ) + s5-0 + ) + ) + +;; definition for function dm-task-unknown +(defun dm-task-unknown ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if (not (task-exists? (the-as game-task gp-0) (task-status unknown))) + (return 'invalid) + ) + (if (= arg1 4) + (close-specific-task! (the-as game-task gp-0) (task-status unknown)) + ) + (task-closed? (the-as game-task gp-0) (task-status unknown)) + ) + ) + +;; definition for function dm-task-hint +(defun dm-task-hint ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-hint))) + (return 'invalid) + ) + (if (= arg1 4) + (close-specific-task! (the-as game-task gp-0) (task-status need-hint)) + ) + (task-closed? (the-as game-task gp-0) (task-status need-hint)) + ) + ) + +;; definition for function dm-task-introduction +(defun dm-task-introduction ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if + (not (task-exists? (the-as game-task gp-0) (task-status need-introduction))) + (return 'invalid) + ) + (if (= arg1 4) + (close-specific-task! + (the-as game-task gp-0) + (task-status need-introduction) + ) + ) + (task-closed? (the-as game-task gp-0) (task-status need-introduction)) + ) + ) + +;; definition for function dm-task-reminder-a +(defun dm-task-reminder-a ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if + (not (task-exists? (the-as game-task gp-0) (task-status need-reminder-a))) + (return 'invalid) + ) + (if (= arg1 4) + (close-specific-task! (the-as game-task gp-0) (task-status need-reminder-a)) + ) + (task-closed? (the-as game-task gp-0) (task-status need-reminder-a)) + ) + ) + +;; definition for function dm-task-reminder +(defun dm-task-reminder ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder))) + (return 'invalid) + ) + (if (= arg1 4) + (close-specific-task! (the-as game-task gp-0) (task-status need-reminder)) + ) + (task-closed? (the-as game-task gp-0) (task-status need-reminder)) + ) + ) + +;; definition for function dm-task-reward-speech +(defun dm-task-reward-speech ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if + (not + (task-exists? (the-as game-task gp-0) (task-status need-reward-speech)) + ) + (return 'invalid) + ) + (if (= arg1 4) + (close-specific-task! + (the-as game-task gp-0) + (task-status need-reward-speech) + ) + ) + (task-closed? (the-as game-task gp-0) (task-status need-reward-speech)) + ) + ) + +;; definition for function dm-task-resolution +(defun dm-task-resolution ((arg0 int) (arg1 int)) + (let ((gp-0 (/ arg0 8))) + (if + (not (task-exists? (the-as game-task gp-0) (task-status need-resolution))) + (return 'invalid) + ) + (when (= arg1 4) + (send-event *target* 'get-pickup 6 (the float gp-0)) + (close-specific-task! (the-as game-task gp-0) (task-status need-resolution)) + ) + (task-closed? (the-as game-task gp-0) (task-status need-resolution)) + ) + ) + +;; definition for function debug-menu-make-task-unknown-menu +(defun + debug-menu-make-task-unknown-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "unknown" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-unknown + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-unknown + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-unknown + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-unknown + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-unknown + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-unknown + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-unknown + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-unknown + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-unknown + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-unknown + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-unknown + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-unknown + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-unknown + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-unknown + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-unknown + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-unknown + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-unknown + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-unknown + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-unknown + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-unknown + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-unknown + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-unknown + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-unknown + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-unknown + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-unknown + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-unknown + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-unknown + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-unknown + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-unknown + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-unknown + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-unknown + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-unknown + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-unknown + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-unknown + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-unknown + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-unknown + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-unknown + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-unknown + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-unknown + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-unknown + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-unknown + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-unknown + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-unknown + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-unknown + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-unknown + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-unknown + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-unknown + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-unknown + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-unknown + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-unknown + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-unknown + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-unknown + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-unknown + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-unknown + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-unknown + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-unknown + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-unknown + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-unknown + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-unknown + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-unknown + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-unknown + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-unknown + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-unknown + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-unknown + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-unknown + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-unknown + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-unknown + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-unknown + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-unknown + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-unknown + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-unknown + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-unknown + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-unknown + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-unknown + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-unknown + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-unknown + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-unknown + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-unknown + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-unknown + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-unknown + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-unknown + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-unknown + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-unknown + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-unknown + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-unknown + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-unknown + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-unknown + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-unknown + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-unknown + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-unknown + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-unknown + ) + (flag + "training-door" + (the binteger 93) + dm-task-unknown + ) + (flag + "training-climb" + (the binteger 94) + dm-task-unknown + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-unknown + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-unknown + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-unknown + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-unknown + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-unknown + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-unknown + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-unknown + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-unknown + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-unknown + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-unknown + ) + (flag + "village3-button" + (the binteger 105) + dm-task-unknown + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-unknown + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-unknown + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-unknown + ) + (flag + "intro" + (the binteger 109) + dm-task-unknown + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-unknown + ) + (flag + "village4-button" + (the binteger 111) + dm-task-unknown + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-unknown + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-unknown + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-unknown + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-unknown + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function debug-menu-make-task-need-hint-menu +(defun + debug-menu-make-task-need-hint-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "need-hint" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-hint + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-hint + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-hint + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-hint + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-hint + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-hint + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-hint + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-hint + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-hint + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-hint + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-hint + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-hint + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-hint + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-hint + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-hint + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-hint + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-hint + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-hint + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-hint + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-hint + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-hint + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-hint + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-hint + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-hint + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-hint + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-hint + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-hint + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-hint + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-hint + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-hint + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-hint + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-hint + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-hint + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-hint + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-hint + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-hint + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-hint + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-hint + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-hint + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-hint + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-hint + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-hint + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-hint + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-hint + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-hint + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-hint + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-hint + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-hint + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-hint + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-hint + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-hint + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-hint + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-hint + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-hint + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-hint + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-hint + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-hint + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-hint + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-hint + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-hint + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-hint + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-hint + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-hint + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-hint + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-hint + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-hint + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-hint + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-hint + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-hint + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-hint + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-hint + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-hint + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-hint + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-hint + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-hint + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-hint + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-hint + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-hint + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-hint + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-hint + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-hint + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-hint + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-hint + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-hint + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-hint + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-hint + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-hint + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-hint + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-hint + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-hint + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-hint + ) + (flag + "training-door" + (the binteger 93) + dm-task-hint + ) + (flag + "training-climb" + (the binteger 94) + dm-task-hint + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-hint + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-hint + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-hint + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-hint + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-hint + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-hint + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-hint + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-hint + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-hint + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-hint + ) + (flag + "village3-button" + (the binteger 105) + dm-task-hint + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-hint + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-hint + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-hint + ) + (flag + "intro" + (the binteger 109) + dm-task-hint + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-hint + ) + (flag + "village4-button" + (the binteger 111) + dm-task-hint + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-hint + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-hint + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-hint + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-hint + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function debug-menu-make-task-need-introduction-menu +(defun + debug-menu-make-task-need-introduction-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "need-introduction" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-introduction + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-introduction + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-introduction + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-introduction + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-introduction + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-introduction + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-introduction + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-introduction + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-introduction + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-introduction + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-introduction + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-introduction + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-introduction + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-introduction + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-introduction + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-introduction + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-introduction + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-introduction + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-introduction + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-introduction + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-introduction + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-introduction + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-introduction + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-introduction + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-introduction + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-introduction + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-introduction + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-introduction + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-introduction + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-introduction + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-introduction + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-introduction + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-introduction + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-introduction + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-introduction + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-introduction + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-introduction + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-introduction + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-introduction + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-introduction + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-introduction + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-introduction + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-introduction + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-introduction + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-introduction + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-introduction + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-introduction + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-introduction + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-introduction + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-introduction + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-introduction + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-introduction + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-introduction + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-introduction + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-introduction + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-introduction + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-introduction + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-introduction + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-introduction + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-introduction + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-introduction + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-introduction + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-introduction + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-introduction + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-introduction + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-introduction + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-introduction + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-introduction + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-introduction + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-introduction + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-introduction + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-introduction + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-introduction + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-introduction + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-introduction + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-introduction + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-introduction + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-introduction + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-introduction + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-introduction + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-introduction + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-introduction + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-introduction + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-introduction + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-introduction + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-introduction + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-introduction + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-introduction + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-introduction + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-introduction + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-introduction + ) + (flag + "training-door" + (the binteger 93) + dm-task-introduction + ) + (flag + "training-climb" + (the binteger 94) + dm-task-introduction + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-introduction + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-introduction + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-introduction + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-introduction + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-introduction + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-introduction + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-introduction + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-introduction + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-introduction + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-introduction + ) + (flag + "village3-button" + (the binteger 105) + dm-task-introduction + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-introduction + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-introduction + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-introduction + ) + (flag + "intro" + (the binteger 109) + dm-task-introduction + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-introduction + ) + (flag + "village4-button" + (the binteger 111) + dm-task-introduction + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-introduction + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-introduction + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-introduction + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-introduction + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function debug-menu-make-task-need-reminder-a-menu +(defun + debug-menu-make-task-need-reminder-a-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "need-reminder-a" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-reminder-a + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-reminder-a + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-reminder-a + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-reminder-a + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-reminder-a + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-reminder-a + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-reminder-a + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-reminder-a + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-reminder-a + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-reminder-a + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-reminder-a + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-reminder-a + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-reminder-a + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-reminder-a + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-reminder-a + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-reminder-a + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-reminder-a + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-reminder-a + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-reminder-a + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-reminder-a + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-reminder-a + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-reminder-a + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-reminder-a + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-reminder-a + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-reminder-a + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-reminder-a + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-reminder-a + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-reminder-a + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-reminder-a + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-reminder-a + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-reminder-a + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-reminder-a + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-reminder-a + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-reminder-a + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-reminder-a + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-reminder-a + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-reminder-a + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-reminder-a + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-reminder-a + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-reminder-a + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-reminder-a + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-reminder-a + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-reminder-a + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-reminder-a + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-reminder-a + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-reminder-a + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-reminder-a + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-reminder-a + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-reminder-a + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-reminder-a + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-reminder-a + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-reminder-a + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-reminder-a + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-reminder-a + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-reminder-a + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-reminder-a + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-reminder-a + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-reminder-a + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-reminder-a + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-reminder-a + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-reminder-a + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-reminder-a + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-reminder-a + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-reminder-a + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-reminder-a + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-reminder-a + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-reminder-a + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-reminder-a + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-reminder-a + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-reminder-a + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-reminder-a + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-reminder-a + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-reminder-a + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-reminder-a + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-reminder-a + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-reminder-a + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-reminder-a + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-reminder-a + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-reminder-a + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-reminder-a + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-reminder-a + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-reminder-a + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-reminder-a + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-reminder-a + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-reminder-a + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-reminder-a + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-reminder-a + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-reminder-a + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-reminder-a + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-reminder-a + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-reminder-a + ) + (flag + "training-door" + (the binteger 93) + dm-task-reminder-a + ) + (flag + "training-climb" + (the binteger 94) + dm-task-reminder-a + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-reminder-a + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-reminder-a + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-reminder-a + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-reminder-a + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-reminder-a + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-reminder-a + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-reminder-a + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-reminder-a + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-reminder-a + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-reminder-a + ) + (flag + "village3-button" + (the binteger 105) + dm-task-reminder-a + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-reminder-a + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-reminder-a + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-reminder-a + ) + (flag + "intro" + (the binteger 109) + dm-task-reminder-a + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-reminder-a + ) + (flag + "village4-button" + (the binteger 111) + dm-task-reminder-a + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-reminder-a + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-reminder-a + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-reminder-a + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-reminder-a + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function debug-menu-make-task-need-reminder-menu +(defun + debug-menu-make-task-need-reminder-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "need-reminder" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-reminder + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-reminder + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-reminder + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-reminder + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-reminder + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-reminder + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-reminder + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-reminder + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-reminder + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-reminder + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-reminder + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-reminder + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-reminder + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-reminder + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-reminder + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-reminder + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-reminder + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-reminder + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-reminder + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-reminder + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-reminder + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-reminder + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-reminder + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-reminder + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-reminder + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-reminder + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-reminder + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-reminder + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-reminder + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-reminder + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-reminder + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-reminder + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-reminder + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-reminder + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-reminder + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-reminder + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-reminder + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-reminder + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-reminder + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-reminder + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-reminder + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-reminder + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-reminder + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-reminder + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-reminder + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-reminder + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-reminder + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-reminder + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-reminder + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-reminder + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-reminder + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-reminder + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-reminder + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-reminder + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-reminder + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-reminder + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-reminder + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-reminder + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-reminder + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-reminder + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-reminder + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-reminder + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-reminder + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-reminder + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-reminder + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-reminder + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-reminder + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-reminder + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-reminder + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-reminder + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-reminder + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-reminder + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-reminder + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-reminder + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-reminder + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-reminder + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-reminder + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-reminder + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-reminder + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-reminder + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-reminder + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-reminder + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-reminder + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-reminder + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-reminder + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-reminder + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-reminder + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-reminder + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-reminder + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-reminder + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-reminder + ) + (flag + "training-door" + (the binteger 93) + dm-task-reminder + ) + (flag + "training-climb" + (the binteger 94) + dm-task-reminder + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-reminder + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-reminder + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-reminder + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-reminder + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-reminder + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-reminder + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-reminder + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-reminder + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-reminder + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-reminder + ) + (flag + "village3-button" + (the binteger 105) + dm-task-reminder + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-reminder + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-reminder + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-reminder + ) + (flag + "intro" + (the binteger 109) + dm-task-reminder + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-reminder + ) + (flag + "village4-button" + (the binteger 111) + dm-task-reminder + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-reminder + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-reminder + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-reminder + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-reminder + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function debug-menu-make-task-need-reward-speech-menu +(defun + debug-menu-make-task-need-reward-speech-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "need-reward-speech" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-reward-speech + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-reward-speech + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-reward-speech + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-reward-speech + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-reward-speech + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-reward-speech + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-reward-speech + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-reward-speech + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-reward-speech + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-reward-speech + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-reward-speech + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-reward-speech + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-reward-speech + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-reward-speech + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-reward-speech + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-reward-speech + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-reward-speech + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-reward-speech + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-reward-speech + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-reward-speech + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-reward-speech + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-reward-speech + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-reward-speech + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-reward-speech + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-reward-speech + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-reward-speech + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-reward-speech + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-reward-speech + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-reward-speech + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-reward-speech + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-reward-speech + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-reward-speech + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-reward-speech + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-reward-speech + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-reward-speech + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-reward-speech + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-reward-speech + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-reward-speech + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-reward-speech + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-reward-speech + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-reward-speech + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-reward-speech + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-reward-speech + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-reward-speech + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-reward-speech + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-reward-speech + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-reward-speech + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-reward-speech + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-reward-speech + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-reward-speech + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-reward-speech + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-reward-speech + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-reward-speech + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-reward-speech + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-reward-speech + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-reward-speech + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-reward-speech + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-reward-speech + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-reward-speech + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-reward-speech + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-reward-speech + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-reward-speech + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-reward-speech + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-reward-speech + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-reward-speech + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-reward-speech + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-reward-speech + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-reward-speech + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-reward-speech + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-reward-speech + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-reward-speech + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-reward-speech + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-reward-speech + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-reward-speech + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-reward-speech + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-reward-speech + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-reward-speech + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-reward-speech + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-reward-speech + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-reward-speech + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-reward-speech + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-reward-speech + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-reward-speech + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-reward-speech + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-reward-speech + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-reward-speech + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-reward-speech + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-reward-speech + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-reward-speech + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-reward-speech + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-reward-speech + ) + (flag + "training-door" + (the binteger 93) + dm-task-reward-speech + ) + (flag + "training-climb" + (the binteger 94) + dm-task-reward-speech + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-reward-speech + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-reward-speech + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-reward-speech + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-reward-speech + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-reward-speech + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-reward-speech + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-reward-speech + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-reward-speech + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-reward-speech + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-reward-speech + ) + (flag + "village3-button" + (the binteger 105) + dm-task-reward-speech + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-reward-speech + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-reward-speech + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-reward-speech + ) + (flag + "intro" + (the binteger 109) + dm-task-reward-speech + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-reward-speech + ) + (flag + "village4-button" + (the binteger 111) + dm-task-reward-speech + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-reward-speech + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-reward-speech + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-reward-speech + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-reward-speech + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function debug-menu-make-task-need-resolution-menu +(defun + debug-menu-make-task-need-resolution-menu + ((arg0 debug-menu-context) (arg1 debug-menu-context)) + (debug-menu-append-item + (the-as debug-menu arg0) + (the-as + debug-menu-item + (debug-menu-make-from-template + arg1 + '( + menu "need-resolution" #f #f (flag + "jungle-eggtop" + (the binteger 2) + dm-task-resolution + ) + (flag + "jungle-lurkerm" + (the binteger 3) + dm-task-resolution + ) + (flag + "jungle-tower" + (the binteger 4) + dm-task-resolution + ) + (flag + "jungle-fishgame" + (the binteger 5) + dm-task-resolution + ) + (flag + "jungle-plant" + (the binteger 6) + dm-task-resolution + ) + (flag + "jungle-buzzer" + (the binteger 7) + dm-task-resolution + ) + (flag + "jungle-canyon-end" + (the binteger 8) + dm-task-resolution + ) + (flag + "jungle-temple-door" + (the binteger 9) + dm-task-resolution + ) + (flag + "village1-yakow" + (the binteger 10) + dm-task-resolution + ) + (flag + "village1-mayor-money" + (the binteger 11) + dm-task-resolution + ) + (flag + "village1-uncle-money" + (the binteger 12) + dm-task-resolution + ) + (flag + "village1-oracle-money1" + (the binteger 13) + dm-task-resolution + ) + (flag + "village1-oracle-money2" + (the binteger 14) + dm-task-resolution + ) + (flag + "beach-ecorocks" + (the binteger 15) + dm-task-resolution + ) + (flag + "beach-pelican" + (the binteger 16) + dm-task-resolution + ) + (flag + "beach-flutflut" + (the binteger 17) + dm-task-resolution + ) + (flag + "beach-seagull" + (the binteger 18) + dm-task-resolution + ) + (flag + "beach-cannon" + (the binteger 19) + dm-task-resolution + ) + (flag + "beach-buzzer" + (the binteger 20) + dm-task-resolution + ) + (flag + "beach-gimmie" + (the binteger 21) + dm-task-resolution + ) + (flag + "beach-sentinel" + (the binteger 22) + dm-task-resolution + ) + (flag + "misty-muse" + (the binteger 23) + dm-task-resolution + ) + (flag + "misty-boat" + (the binteger 24) + dm-task-resolution + ) + (flag + "misty-warehouse" + (the binteger 25) + dm-task-resolution + ) + (flag + "misty-cannon" + (the binteger 26) + dm-task-resolution + ) + (flag + "misty-bike" + (the binteger 27) + dm-task-resolution + ) + (flag + "misty-buzzer" + (the binteger 28) + dm-task-resolution + ) + (flag + "misty-bike-jump" + (the binteger 29) + dm-task-resolution + ) + (flag + "misty-eco-challenge" + (the binteger 30) + dm-task-resolution + ) + (flag + "village2-gambler-money" + (the binteger 31) + dm-task-resolution + ) + (flag + "village2-geologist-money" + (the binteger 32) + dm-task-resolution + ) + (flag + "village2-warrior-money" + (the binteger 33) + dm-task-resolution + ) + (flag + "village2-oracle-money1" + (the binteger 34) + dm-task-resolution + ) + (flag + "village2-oracle-money2" + (the binteger 35) + dm-task-resolution + ) + (flag + "swamp-billy" + (the binteger 36) + dm-task-resolution + ) + (flag + "swamp-flutflut" + (the binteger 37) + dm-task-resolution + ) + (flag + "swamp-battle" + (the binteger 38) + dm-task-resolution + ) + (flag + "swamp-tether-1" + (the binteger 39) + dm-task-resolution + ) + (flag + "swamp-tether-2" + (the binteger 40) + dm-task-resolution + ) + (flag + "swamp-tether-3" + (the binteger 41) + dm-task-resolution + ) + (flag + "swamp-tether-4" + (the binteger 42) + dm-task-resolution + ) + (flag + "swamp-buzzer" + (the binteger 43) + dm-task-resolution + ) + (flag + "sunken-platforms" + (the binteger 44) + dm-task-resolution + ) + (flag + "sunken-pipe" + (the binteger 45) + dm-task-resolution + ) + (flag + "sunken-slide" + (the binteger 46) + dm-task-resolution + ) + (flag + "sunken-room" + (the binteger 47) + dm-task-resolution + ) + (flag + "sunken-sharks" + (the binteger 48) + dm-task-resolution + ) + (flag + "sunken-buzzer" + (the binteger 49) + dm-task-resolution + ) + (flag + "sunken-top-of-helix" + (the binteger 50) + dm-task-resolution + ) + (flag + "sunken-spinning-room" + (the binteger 51) + dm-task-resolution + ) + (flag + "rolling-race" + (the binteger 52) + dm-task-resolution + ) + (flag + "rolling-robbers" + (the binteger 53) + dm-task-resolution + ) + (flag + "rolling-moles" + (the binteger 54) + dm-task-resolution + ) + (flag + "rolling-plants" + (the binteger 55) + dm-task-resolution + ) + (flag + "rolling-lake" + (the binteger 56) + dm-task-resolution + ) + (flag + "rolling-buzzer" + (the binteger 57) + dm-task-resolution + ) + (flag + "rolling-ring-chase-1" + (the binteger 58) + dm-task-resolution + ) + (flag + "rolling-ring-chase-2" + (the binteger 59) + dm-task-resolution + ) + (flag + "snow-eggtop" + (the binteger 60) + dm-task-resolution + ) + (flag + "snow-ram" + (the binteger 61) + dm-task-resolution + ) + (flag + "snow-fort" + (the binteger 62) + dm-task-resolution + ) + (flag + "snow-ball" + (the binteger 63) + dm-task-resolution + ) + (flag + "snow-bunnies" + (the binteger 64) + dm-task-resolution + ) + (flag + "snow-buzzer" + (the binteger 65) + dm-task-resolution + ) + (flag + "snow-bumpers" + (the binteger 66) + dm-task-resolution + ) + (flag + "snow-cage" + (the binteger 67) + dm-task-resolution + ) + (flag + "firecanyon-buzzer" + (the binteger 68) + dm-task-resolution + ) + (flag + "firecanyon-end" + (the binteger 69) + dm-task-resolution + ) + (flag + "citadel-sage-green" + (the binteger 70) + dm-task-resolution + ) + (flag + "citadel-sage-blue" + (the binteger 71) + dm-task-resolution + ) + (flag + "citadel-sage-red" + (the binteger 72) + dm-task-resolution + ) + (flag + "citadel-sage-yellow" + (the binteger 73) + dm-task-resolution + ) + (flag + "village3-extra1" + (the binteger 74) + dm-task-resolution + ) + (flag + "village1-buzzer" + (the binteger 75) + dm-task-resolution + ) + (flag + "village2-buzzer" + (the binteger 76) + dm-task-resolution + ) + (flag + "village3-buzzer" + (the binteger 77) + dm-task-resolution + ) + (flag + "cave-gnawers" + (the binteger 78) + dm-task-resolution + ) + (flag + "cave-dark-crystals" + (the binteger 79) + dm-task-resolution + ) + (flag + "cave-dark-climb" + (the binteger 80) + dm-task-resolution + ) + (flag + "cave-robot-climb" + (the binteger 81) + dm-task-resolution + ) + (flag + "cave-swing-poles" + (the binteger 82) + dm-task-resolution + ) + (flag + "cave-spider-tunnel" + (the binteger 83) + dm-task-resolution + ) + (flag + "cave-platforms" + (the binteger 84) + dm-task-resolution + ) + (flag + "cave-buzzer" + (the binteger 85) + dm-task-resolution + ) + (flag + "ogre-boss" + (the binteger 86) + dm-task-resolution + ) + (flag + "ogre-end" + (the binteger 87) + dm-task-resolution + ) + (flag + "ogre-buzzer" + (the binteger 88) + dm-task-resolution + ) + (flag + "lavatube-end" + (the binteger 89) + dm-task-resolution + ) + (flag + "lavatube-buzzer" + (the binteger 90) + dm-task-resolution + ) + (flag + "citadel-buzzer" + (the binteger 91) + dm-task-resolution + ) + (flag + "training-gimmie" + (the binteger 92) + dm-task-resolution + ) + (flag + "training-door" + (the binteger 93) + dm-task-resolution + ) + (flag + "training-climb" + (the binteger 94) + dm-task-resolution + ) + (flag + "training-buzzer" + (the binteger 95) + dm-task-resolution + ) + (flag + "village3-miner-money1" + (the binteger 96) + dm-task-resolution + ) + (flag + "village3-miner-money2" + (the binteger 97) + dm-task-resolution + ) + (flag + "village3-miner-money3" + (the binteger 98) + dm-task-resolution + ) + (flag + "village3-miner-money4" + (the binteger 99) + dm-task-resolution + ) + (flag + "village3-oracle-money1" + (the binteger 100) + dm-task-resolution + ) + (flag + "village3-oracle-money2" + (the binteger 101) + dm-task-resolution + ) + (flag + "firecanyon-assistant" + (the binteger 102) + dm-task-resolution + ) + (flag + "village2-levitator" + (the binteger 103) + dm-task-resolution + ) + (flag + "swamp-arm" + (the binteger 104) + dm-task-resolution + ) + (flag + "village3-button" + (the binteger 105) + dm-task-resolution + ) + (flag + "red-eggtop" + (the binteger 106) + dm-task-resolution + ) + (flag + "lavatube-balls" + (the binteger 107) + dm-task-resolution + ) + (flag + "lavatube-start" + (the binteger 108) + dm-task-resolution + ) + (flag + "intro" + (the binteger 109) + dm-task-resolution + ) + (flag + "ogre-secret" + (the binteger 110) + dm-task-resolution + ) + (flag + "village4-button" + (the binteger 111) + dm-task-resolution + ) + (flag + "finalboss-movies" + (the binteger 112) + dm-task-resolution + ) + (flag + "plunger-lurker-hit" + (the binteger 113) + dm-task-resolution + ) + (flag + "leaving-misty" + (the binteger 114) + dm-task-resolution + ) + (flag + "assistant-village3" + (the binteger 115) + dm-task-resolution + ) + #f #f #f #f #f #f #f #f + ) + ) + ) + ) + ) + +;; definition for function dm-task-get-money +(defun dm-task-get-money ((arg0 int) (arg1 int)) + (with-pp + (if (= arg1 4) + (send-event *target* 'get-pickup 5 (-> *GAME-bank* money-task-inc)) + ) + (let ((a1-2 (new 'stack-no-clear 'event-message-block))) + (set! (-> a1-2 from) pp) + (set! (-> a1-2 num-params) 2) + (set! (-> a1-2 message) 'query) + (set! (-> a1-2 param 0) (the-as uint 'pickup)) + (set! (-> a1-2 param 1) (the-as uint 5)) + (>= + (the-as float (send-event-function *target* a1-2)) + (-> *GAME-bank* money-task-inc) + ) + ) + ) + ) + +;; definition for function dm-give-all-cells +(defun dm-give-all-cells ((arg0 int) (arg1 int)) + (when (= arg1 4) + (dotimes (gp-0 100) + (send-event *target* 'get-pickup 6 (the float (+ gp-0 2))) + (close-specific-task! + (the-as game-task (+ gp-0 2)) + (task-status need-resolution) + ) + ) + ) + (dotimes (gp-1 100) + (if + (not + (task-closed? (the-as game-task (+ gp-1 2)) (task-status need-resolution)) + ) + (return #f) + ) + ) + #t + ) + +;; definition for function dm-give-cell +;; INFO: Return type mismatch int vs none. +(defun dm-give-cell ((arg0 int)) + (send-event *target* 'get-pickup 6 (the float arg0)) + (close-specific-task! (the-as game-task arg0) (task-status need-resolution)) + (none) + ) + +;; definition for function dm-levitator-ready +(defun dm-levitator-ready ((arg0 int) (arg1 int)) + (when (= arg1 4) + (close-specific-task! + (game-task village2-levitator) + (task-status need-introduction) + ) + (close-specific-task! + (game-task village2-levitator) + (task-status need-reminder-a) + ) + (dm-give-cell 2) + (dm-give-cell 3) + (dm-give-cell 4) + (dm-give-cell 5) + (dm-give-cell 6) + (dm-give-cell 7) + (dm-give-cell 8) + (dm-give-cell 9) + (dm-give-cell 10) + (dm-give-cell 11) + (dm-give-cell 12) + (dm-give-cell 13) + (dm-give-cell 14) + (dm-give-cell 15) + (dm-give-cell 16) + (dm-give-cell 17) + (dm-give-cell 18) + (dm-give-cell 19) + (dm-give-cell 20) + (dm-give-cell 21) + (dm-give-cell 22) + (dm-give-cell 23) + (dm-give-cell 24) + (dm-give-cell 25) + (dm-give-cell 26) + (dm-give-cell 27) + (dm-give-cell 28) + (dm-give-cell 29) + (dm-give-cell 30) + (dm-give-cell 31) + (dm-give-cell 32) + (dm-give-cell 34) + (dm-give-cell 35) + (dm-give-cell 36) + (dm-give-cell 37) + (dm-give-cell 38) + (dm-give-cell 39) + (dm-give-cell 40) + (dm-give-cell 41) + (dm-give-cell 42) + (dm-give-cell 43) + (dm-give-cell 44) + (dm-give-cell 45) + (dm-give-cell 46) + (dm-give-cell 47) + (dm-give-cell 48) + ) + (= + (get-task-status (game-task village2-levitator)) + (task-status need-reward-speech) + ) + ) + +;; definition for function dm-lavabike-ready +(defun dm-lavabike-ready ((arg0 int) (arg1 int)) + (when (= arg1 4) + (dm-give-cell 2) + (dm-give-cell 3) + (dm-give-cell 4) + (dm-give-cell 5) + (dm-give-cell 6) + (dm-give-cell 7) + (dm-give-cell 8) + (dm-give-cell 9) + (dm-give-cell 10) + (dm-give-cell 11) + (dm-give-cell 12) + (dm-give-cell 13) + (dm-give-cell 14) + (dm-give-cell 15) + (dm-give-cell 16) + (dm-give-cell 17) + (dm-give-cell 18) + (dm-give-cell 19) + (dm-give-cell 20) + (dm-give-cell 21) + (dm-give-cell 22) + (dm-give-cell 23) + (dm-give-cell 24) + (dm-give-cell 25) + (dm-give-cell 26) + (dm-give-cell 27) + (dm-give-cell 28) + (dm-give-cell 29) + (dm-give-cell 30) + (dm-give-cell 31) + (dm-give-cell 32) + (dm-give-cell 33) + (dm-give-cell 34) + (dm-give-cell 35) + (dm-give-cell 36) + (dm-give-cell 37) + (dm-give-cell 38) + (dm-give-cell 39) + (dm-give-cell 40) + (dm-give-cell 41) + (dm-give-cell 42) + (dm-give-cell 43) + (dm-give-cell 44) + (dm-give-cell 45) + (dm-give-cell 46) + (dm-give-cell 47) + (dm-give-cell 48) + (dm-give-cell 49) + (dm-give-cell 50) + (dm-give-cell 51) + (dm-give-cell 52) + (dm-give-cell 53) + (dm-give-cell 54) + (dm-give-cell 55) + (dm-give-cell 56) + (dm-give-cell 57) + (dm-give-cell 58) + (dm-give-cell 59) + (dm-give-cell 60) + (dm-give-cell 61) + (dm-give-cell 62) + (dm-give-cell 63) + (dm-give-cell 64) + (dm-give-cell 65) + (dm-give-cell 66) + (dm-give-cell 67) + (dm-give-cell 68) + (dm-give-cell 69) + (dm-give-cell 70) + (dm-give-cell 71) + (dm-give-cell 72) + (dm-give-cell 73) + (dm-give-cell 74) + (dm-give-cell 75) + (dm-give-cell 76) + ) + (= + (get-task-status (game-task lavatube-start)) + (task-status need-reward-speech) + ) + ) + +;; definition for function debug-menu-make-task-menu +(defun debug-menu-make-task-menu ((arg0 debug-menu-context)) + (let* ((s5-0 (new 'debug 'debug-menu arg0 "Task menu")) + (s4-0 (new 'debug 'debug-menu-item-submenu "Task" s5-0)) + ) + (debug-menu-append-item + s5-0 + (new + 'debug + 'debug-menu-item-flag + "enough money" + (the-as int #f) + (the-as (function int debug-menu-msg object) dm-task-get-money) + ) + ) + (debug-menu-append-item + s5-0 + (new + 'debug + 'debug-menu-item-flag + "levitator ready" + (the-as int #f) + (the-as (function int debug-menu-msg object) dm-levitator-ready) + ) + ) + (debug-menu-append-item + s5-0 + (new + 'debug + 'debug-menu-item-flag + "lavabike ready" + (the-as int #f) + (the-as (function int debug-menu-msg object) dm-lavabike-ready) + ) + ) + (debug-menu-append-item + s5-0 + (new + 'debug + 'debug-menu-item-flag + "all cells" + (the-as int #f) + (the-as (function int debug-menu-msg object) dm-give-all-cells) + ) + ) + (debug-menu-make-task-unknown-menu (the-as debug-menu-context s5-0) arg0) + (debug-menu-make-task-need-hint-menu (the-as debug-menu-context s5-0) arg0) + (debug-menu-make-task-need-introduction-menu + (the-as debug-menu-context s5-0) + arg0 + ) + (debug-menu-make-task-need-reminder-a-menu + (the-as debug-menu-context s5-0) + arg0 + ) + (debug-menu-make-task-need-reminder-menu + (the-as debug-menu-context s5-0) + arg0 + ) + (debug-menu-make-task-need-reward-speech-menu + (the-as debug-menu-context s5-0) + arg0 + ) + (debug-menu-make-task-need-resolution-menu + (the-as debug-menu-context s5-0) + arg0 + ) + s4-0 + ) + ) + +;; definition for function dm-anim-tester-flag-func +;; INFO: Return type mismatch symbol vs object. +(defun dm-anim-tester-flag-func ((arg0 int) (arg1 int)) + (when *anim-tester* + (case arg0 + (('at-apply-align) + (if (= arg1 4) + (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 32)) + ) + (return (the-as object (logtest? (-> *anim-tester* 0 flags) 32))) + ) + (('at-show-joint-info) + (if (= arg1 4) + (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 16)) + ) + (return (the-as object (logtest? (-> *anim-tester* 0 flags) 16))) + ) + ) + ) + #f + ) + +;; definition for function dm-anim-tester-func +;; INFO: Return type mismatch object vs none. +(defun dm-anim-tester-func ((arg0 int)) + (if (not *anim-tester*) + (anim-tester-start) + ) + (when *anim-tester* + (cond + ((= arg0 'at-pick-object) + (send-event (ppointer->process *anim-tester*) 'pick-object) + (set! (-> *debug-menu-context* is-hidden) #t) + ) + ((= arg0 'at-pick-joint-anim) + (send-event (ppointer->process *anim-tester*) 'pick-joint-anim) + (set! (-> *debug-menu-context* is-hidden) #t) + ) + ((= arg0 'at-pick-sequence) + (send-event (ppointer->process *anim-tester*) 'pick-sequence) + (set! (-> *debug-menu-context* is-hidden) #t) + ) + ((= arg0 'at-save-sequences) + (send-event (ppointer->process *anim-tester*) 'save-sequences) + ) + ((= arg0 'at-cam-stick) + (set! *camera-orbit-target* *anim-tester*) + (send-event *camera* 'change-state cam-orbit 0) + ) + ((= arg0 'at-cam-free-floating) + (send-event *camera* 'change-state cam-free-floating 0) + ) + ) + ) + (none) + ) + +;; definition for function build-continue-menu +(defun build-continue-menu ((arg0 debug-menu-context)) + (let ((s5-0 *level-load-list*)) + (while (not (null? s5-0)) + (let + ((s4-0 + (-> + (the-as level-load-info (-> (the-as symbol (car s5-0)) value)) + continues + ) + ) + ) + (while (not (null? s4-0)) + (let* ((v1-2 (the-as level-load-info (car s4-0))) + (a1-1 + (new + 'debug + 'debug-menu-item-flag + (the-as string (-> v1-2 name)) + (the-as int (-> v1-2 name)) + (the-as (function int debug-menu-msg object) dm-current-continue) + ) + ) + ) + (debug-menu-append-item (the-as debug-menu arg0) a1-1) + ) + (set! s4-0 (cdr s4-0)) + ) + ) + (set! s5-0 (cdr s5-0)) + ) + ) + arg0 + ) + +;; definition for function debug-menu-context-make-default-menus +(defun debug-menu-context-make-default-menus ((arg0 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 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Artist" (flag + "Poly Stats" + *stats-poly* + dm-boolean-toggle-pick-func + ) + (flag + "Memory Stats" + *stats-memory* + dm-boolean-toggle-pick-func + ) + (flag + "Memory Stats Short" + *stats-memory-short* + dm-boolean-toggle-pick-func + ) + (flag + "Ground Stats" + *display-ground-stats* + dm-boolean-toggle-pick-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 + "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 + (the binteger 10) + (the binteger 1) + #t + (the binteger 1) + (the binteger 200) + (the binteger 1) + ) + (float-var + "Subdiv Far" + far + dm-subdiv-float + (the binteger 10) + (the binteger 1) + #t + (the binteger 1) + (the binteger 200) + (the binteger 1) + ) + (function "Target Start" #f (lambda () + (the-as + int + (start + 'debug + (get-or-create-continue! *game-info*) + ) + ) + ) + ) + (function "Target Stop" #f (lambda () + (stop 'debug) + ) + ) + (menu + "Anim Tester" + (int-var + "Speed" + anim-speed + dm-subdiv-int + (the binteger 10) + (the binteger 10) + #t + (the binteger -300) + (the binteger 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 "Camera Face" at-cam-stick dm-anim-tester-func) + (function "Camera Free" at-cam-free-floating dm-anim-tester-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 + "Sprite Info" + *display-sprite-info* + 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) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Game" (function "New Game" #f (lambda () + (initialize! + *game-info* + 'game + (the-as game-save #f) + (the-as string #f) + ) + (none) + ) + ) + (function "New Life" #f (lambda () + (initialize! + *game-info* + 'die + (the-as game-save #f) + (the-as string #f) + ) + (none) + ) + ) + (function "Reset Game" #f (lambda () + (set! (-> *game-info* mode) 'debug) + (initialize! + *game-info* + 'game + (the-as game-save #f) + (the-as string #f) + ) + (none) + ) + ) + (function "Reset Actors" #f (lambda () + (reset-actors 'debug) + (none) + ) + ) + (function "Save Game" #f (lambda () + (auto-save-command 'save 0 0 *default-pool*) + (none) + ) + ) + (function "Load Game" #f (lambda () + (auto-save-command + 'restore + 0 + 0 + *default-pool* + ) + (none) + ) + ) + (flag "Target" #f (lambda ((arg0 int) (arg1 int)) + (when (= arg1 4) + (if *target* + (stop 'debug) + (start + 'debug + (get-or-create-continue! *game-info*) + ) + ) + ) + *target* + ) + ) + (flag + "Game Mode" + play + dm-game-mode-pick-func + ) + (flag + "Debug Mode" + debug + dm-game-mode-pick-func + ) + (menu + "Continue" + ) + (menu + "Settings" + (float-var "sfx-volume" #f (lambda ((arg0 int) (arg1 int) (arg2 float)) + (cond + ((= arg1 4) + (let ((f0-0 arg2)) + (set! + (-> + *setting-control* + default + sfx-volume + ) + f0-0 + ) + f0-0 + ) + ) + (else + (-> *setting-control* default sfx-volume) + ) + ) + ) + (the binteger 2) (the binteger 1) #t 0 (the binteger 100) 0 + ) + (float-var + "music-volume" + #f + (lambda ((arg0 int) (arg1 int) (arg2 float)) + (cond + ((= arg1 4) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default music-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default music-volume) + ) + ) + ) + (the binteger 2) + (the binteger 1) + #t + 0 + (the binteger 100) + 0 + ) + (float-var + "dialog-volume" + #f + (lambda ((arg0 int) (arg1 int) (arg2 float)) + (cond + ((= arg1 4) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default dialog-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default dialog-volume) + ) + ) + ) + (the binteger 2) + (the binteger 1) + #t + 0 + (the binteger 100) + 0 + ) + (menu + "Language" + (flag "english" 0 dm-setting-language) + (flag "japanese" (the binteger 5) dm-setting-language) + (flag "french" (the binteger 1) dm-setting-language) + (flag "german" (the binteger 2) dm-setting-language) + (flag "spanish" (the binteger 3) dm-setting-language) + (flag "italian" (the binteger 4) dm-setting-language) + (flag "uk-english" (the binteger 6) dm-setting-language) + ) + (flag "play-hints " #f (lambda ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! + (-> *setting-control* default play-hints) + (not + (-> *setting-control* default play-hints) + ) + ) + ) + (the-as + basic + (-> *setting-control* default play-hints) + ) + ) + ) + (flag "vibration" #f (lambda ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! + (-> *setting-control* default vibration) + (not (-> *setting-control* default vibration)) + ) + ) + (the-as + basic + (-> *setting-control* default vibration) + ) + ) + ) + (flag "border-mode" #f (lambda ((arg0 int) (arg1 int)) + (if (= arg1 4) + (set! + (-> *setting-control* default border-mode) + (not + (-> *setting-control* default border-mode) + ) + ) + ) + (the-as + basic + (-> *setting-control* default border-mode) + ) + ) + ) + ) + ) + ) + ) + ) + (let ((a0-8 (debug-menu-find-from-template arg0 '("Game" "Continue"))) + (t9-7 build-continue-menu) + ) + *game-info* + (t9-7 (the-as debug-menu-context a0-8)) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (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 + "Dma test" + *stats-dma-test* + dm-boolean-toggle-pick-func + ) + (flag + "Blerc" + *stats-blerc* + dm-boolean-toggle-pick-func + ) + (flag "Perf" *display-perf-stats* dm-boolean-toggle-pick-func) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Render" (flag + "sky" + (the binteger 1) + dm-vu1-user-toggle-pick-func + ) + (flag + "ocean" + (the binteger 2) + dm-vu1-user-toggle-pick-func + ) + (flag + "ocean-wave" + (the binteger 4) + dm-vu1-user-toggle-pick-func + ) + (flag + "TFRAG TIE TEXTURES" + #x1 + dm-texture-user-toggle-pick-func + ) + (flag + "tfrag" + (the binteger 8) + dm-vu1-user-toggle-pick-func + ) + (flag + "tie-near" + (the binteger 16) + dm-vu1-user-toggle-pick-func + ) + (flag + "tie" + (the binteger 32) + dm-vu1-user-toggle-pick-func + ) + (flag + "generic" + (the binteger 64) + dm-vu1-user-toggle-pick-func + ) + (flag + "generic-tie" + *generic-tie* + dm-boolean-toggle-pick-func + ) + (flag + "PRIS TEXTURES" + #x2 + dm-texture-user-toggle-pick-func + ) + (flag + "merc" + (the binteger 128) + dm-vu1-user-toggle-pick-func + ) + (flag + "SHRUB TEXTURES" + #x4 + dm-texture-user-toggle-pick-func + ) + (flag + "shrub-near" + (the binteger 512) + dm-vu1-user-toggle-pick-func + ) + (flag + "shrubbery" + (the binteger 256) + dm-vu1-user-toggle-pick-func + ) + (flag + "billboard" + (the binteger 1024) + dm-vu1-user-toggle-pick-func + ) + (flag + "trans-shrubbery" + (the binteger 2048) + dm-vu1-user-toggle-pick-func + ) + (flag + "ALPHA TEXTURES" + (the binteger 1) + dm-texture-user-toggle-pick-func + ) + (flag + "trans-tfrag" + (the binteger 4096) + dm-vu1-user-toggle-pick-func + ) + (flag + "sprite" + (the binteger 8192) + dm-vu1-user-toggle-pick-func + ) + (flag + "shadow" + (the binteger 16384) + dm-vu1-user-toggle-pick-func + ) + (flag + "shadow-debug" + *shadow-debug* + dm-boolean-toggle-pick-func + ) + (flag + "WATER TEXTURES" + (the binteger 2) + dm-texture-user-toggle-pick-func + ) + (flag + "depth-cue" + (the binteger 32768) + dm-vu1-user-toggle-pick-func + ) + (flag + "all on" + (the binteger 262143) + dm-vu1-user-set-pick-func + ) + (flag + "all off" + (the binteger 196608) + dm-vu1-user-set-pick-func + ) + (flag + "all textures on" + #x1f + dm-texture-user-set-pick-func + ) + (flag "all textures off" 0 dm-texture-user-set-pick-func) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Collision" (flag + "Collide Stats" + *stats-collide* + dm-boolean-toggle-pick-func + ) + (flag + "Collision Marks" + *display-collision-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Collision Cache" + *display-collide-cache* + dm-boolean-toggle-pick-func + ) + (flag + "Render Collision" + *display-render-collision* + 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 + ) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (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 + "Collision Marks" + *display-collision-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Collision Cache" + *display-collide-cache* + 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 + "Target Marks" + *display-target-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Target Stats" + *stats-target* + dm-boolean-toggle-pick-func + ) + (flag + "Entity Lights" + *display-lights* + 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 + "Nav Marks" + *display-nav-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Path Marks" + *display-path-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Vol Marks" + *display-vol-marks* + dm-boolean-toggle-pick-func + ) + (menu + "Ambient Marks" + (flag + "Ambient Hint Marks" + *display-ambient-hint-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Sound Marks" + *display-ambient-sound-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Poi Marks" + *display-ambient-poi-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Light Marks" + *display-ambient-light-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Dark Marks" + *display-ambient-dark-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Weather Off Marks" + *display-ambient-weather-off-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Ocean Off Marks" + *display-ambient-ocean-off-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Ocean Near Off Marks" + *display-ambient-ocean-near-off-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Music" + *display-ambient-music-marks* + dm-boolean-toggle-pick-func + ) + ) + (menu + "Actor Marks" + (flag "off" #f dm-actor-marks-pick-func) + (flag "on" #t dm-actor-marks-pick-func) + (flag "full" full dm-actor-marks-pick-func) + (flag "process" process dm-actor-marks-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) + ) + (flag + "Art Control" + *display-art-control* + dm-boolean-toggle-pick-func + ) + (flag + "Instance Info" + *display-instance-info* + dm-boolean-toggle-pick-func + ) + (menu + "strip lines" + (flag "strippable" (the binteger 1) dm-strip-lines-toggle-pick-func) + (flag "convertible" (the binteger 2) dm-strip-lines-toggle-pick-func) + (flag "edgeable" (the binteger 4) dm-strip-lines-toggle-pick-func) + (flag "ordinary" (the binteger 8) dm-strip-lines-toggle-pick-func) + (flag + "color mismatch" + (the binteger 16) + dm-strip-lines-toggle-pick-func + ) + (flag + "shader mismatch" + (the binteger 32) + dm-strip-lines-toggle-pick-func + ) + (flag "uv mismatch" (the binteger 64) dm-strip-lines-toggle-pick-func) + (flag "too big" (the binteger 128) dm-strip-lines-toggle-pick-func) + (flag "good" (the binteger 3) dm-strip-lines-set-pick-func) + (flag "bad" (the binteger 240) dm-strip-lines-set-pick-func) + (flag "all edges" (the binteger 255) dm-strip-lines-set-pick-func) + (flag "strips" (the binteger 256) dm-strip-lines-set-pick-func) + (flag "frags" (the binteger 512) dm-strip-lines-set-pick-func) + (flag "none" 0 dm-strip-lines-set-pick-func) + ) + (menu + "collision mesh" + (flag "wall" (the binteger 1024) dm-strip-lines-toggle-pick-func) + (flag "ground" (the binteger 2048) dm-strip-lines-toggle-pick-func) + (flag "all" (the binteger 3072) dm-strip-lines-set-pick-func) + (flag "none" 0 dm-strip-lines-set-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 + "Load boundaries" + *display-load-boundaries* + dm-boolean-toggle-pick-func + ) + (flag "Memcard Info" *display-memcard-info* dm-boolean-toggle-pick-func) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (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) + (none) + ) + ) + (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 + "Ambients" + *execute-ambients* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Hint Marks" + *display-ambient-hint-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Sound Marks" + *display-ambient-sound-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Poi Marks" + *display-ambient-poi-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Light Marks" + *display-ambient-light-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Dark Marks" + *display-ambient-dark-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Weather Off Marks" + *display-ambient-weather-off-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Ocean Off Marks" + *display-ambient-ocean-off-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Ocean Near Off Marks" + *display-ambient-ocean-near-off-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Ambient Music" + *display-ambient-music-marks* + dm-boolean-toggle-pick-func + ) + (menu + "Actor Marks" + (flag "off" #f dm-actor-marks-pick-func) + (flag "on" #t dm-actor-marks-pick-func) + (flag "full" full dm-actor-marks-pick-func) + (flag "process" process dm-actor-marks-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) + ) + (flag "Actor Vis" *vis-actors* dm-boolean-toggle-pick-func) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Target" (flag + "Target Stats" + *stats-target* + dm-boolean-toggle-pick-func + ) + (function "Play" #f (lambda () + (play #t #t) + ) + ) + (function "Start" #f (lambda () + (the-as + int + (start + 'debug + (get-or-create-continue! *game-info*) + ) + ) + ) + ) + (function "Stop" #f (lambda () + (stop 'debug) + ) + ) + (flag "Invulnerable" #f (lambda ((arg0 int) (arg1 int)) + (when (= arg1 4) + (if *target* + (set! + (-> *target* state-flags) + (logxor (-> *target* state-flags) 16) + ) + ) + ) + (and + *target* + (logtest? (-> *target* state-flags) 16) + ) + ) + ) + (function "Reset Trans" #f (lambda () + (when *target* + (position-in-front-of-camera! + (target-pos 0) + (the-as float 40960.0) + (the-as float 4096.0) + ) + (set! + (-> *target* control transv quad) + (the-as uint128 0) + ) + (quaternion-identity! + (-> *target* control quat) + ) + (quaternion-identity! + (-> *target* control unknown-quaternion00) + ) + (quaternion-identity! + (-> *target* control dir-targ) + ) + ) + ) + ) + (function "Zero Trans" #f (lambda () + (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 unknown-quaternion00) + ) + (quaternion-identity! + (-> *target* control dir-targ) + ) + ) + ) + ) + (menu "Mode" (function "normal" #f (lambda () + (send-event *target* 'end-mode) + ) + ) + (function "racing" #f (lambda () + (send-event *target* 'change-mode 'racing #f) + ) + ) + (function "snowball" #f (lambda () + (send-event + *target* + 'change-mode + 'snowball + #f + ) + ) + ) + ) + (flag + "Slow Frame Rate" + *slow-frame-rate* + dm-boolean-toggle-pick-func + ) + (function "Print Pos" #f (lambda () + (let ((v1-0 (target-pos 0))) + (format + #t + "~6,,2m ~6,,2m ~6,,2m~%" + (-> v1-0 x) + (-> v1-0 y) + (-> v1-0 z) + ) + ) + 0 + (none) + ) + ) + (function "Save Continue" #f (lambda () + (the-as continue-point (if *target* + (trsq->continue-point + (-> + *target* + control + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + (debug-menu-append-item s5-0 (debug-menu-make-camera-menu arg0)) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Subdiv" (flag + "Textured" + 0 + dm-subdiv-draw-func + ) + (flag + "Outline" + (the binteger 1) + dm-subdiv-draw-func + ) + (flag + "Gouraud" + (the binteger 2) + dm-subdiv-draw-func + ) + (flag "Hack" (the binteger 3) dm-subdiv-draw-func) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Ocean Subdiv" (flag + "Textured" + 0 + dm-ocean-subdiv-draw-func + ) + (flag + "Outline" + (the binteger 1) + dm-ocean-subdiv-draw-func + ) + (flag "Gouraud" (the binteger 2) dm-ocean-subdiv-draw-func) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Time of day" (flag + "7am sunrise" + 0 + dm-time-of-day-func + ) + (flag + "9am morning" + (the binteger 1) + dm-time-of-day-func + ) + (flag + "12pm noon" + (the binteger 2) + dm-time-of-day-func + ) + (flag + "3pm afternoon" + (the binteger 3) + dm-time-of-day-func + ) + (flag + "6pm sunset" + (the binteger 4) + dm-time-of-day-func + ) + (flag + "7pm twilight" + (the binteger 5) + dm-time-of-day-func + ) + (flag + "11pm evening" + (the binteger 6) + dm-time-of-day-func + ) + (flag + "4am green sun" + (the binteger 7) + dm-time-of-day-func + ) + (flag + "on" + (the binteger 8) + dm-time-of-day-func + ) + (flag + "Effects" + *time-of-day-effects* + dm-boolean-toggle-pick-func + ) + (flag "Fast" *time-of-day-fast* dm-time-of-day-func2) + ) + ) + ) + ) + (debug-menu-append-item + s5-0 + (the-as + debug-menu-item + (debug-menu-make-from-template + arg0 + '( + menu "Sound" (flag + "Effect Debug" + *debug-effect-control* + dm-boolean-toggle-pick-func + ) + (flag + "Amb Snd Marks" + *display-ambient-sound-marks* + dm-boolean-toggle-pick-func + ) + (flag + "Amb Snd Class" + *ambient-sound-class* + dm-boolean-toggle-pick-func + ) + (flag + "Amb Spheres" + *execute-ambients* + dm-boolean-toggle-pick-func + ) + (flag + "Sound channels" + *display-iop-info* + dm-boolean-toggle-pick-func + ) + (function "List Sounds" #f (lambda () + (list-sounds) + ) + ) + ) + ) + ) + ) + (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-task-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 "Target" #f (lambda ((arg0 int) (arg1 int)) + (when (= arg1 4) + (if *target* + (stop 'debug) + (start 'debug (get-or-create-continue! *game-info*)) + ) + ) + *target* + ) + ) + (flag "Game" #f (lambda ((arg0 int) (arg1 int)) + (when (= arg1 4) + (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 ((arg0 int) (arg1 int)) + (if (time-of-day-setup #f) + (time-of-day-setup #t) + ) + (set! *display-entity-errors* #f) + (set! *display-profile* #f) + (set! *display-actor-marks* #f) + #f + ) + ) + (flag + "Stats" + *stats-target* + dm-boolean-toggle-pick-func + ) + (function "Reset" #f (lambda () + (reset-actors 'debug) + (none) + ) + ) + ) + ) + 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) + (if (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l3)) + (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 activate) + (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) + ) + ) + ) + #f + ) + +;; definition for function *menu-hook* +(defun *menu-hook* () + (debug-menus-handler *debug-menu-context*) + (debug-menus-handler *popup-menu-context*) + ) + +) + + + diff --git a/test/decompiler/reference/engine/draw/drawable-group_REF.gc b/test/decompiler/reference/engine/draw/drawable-group_REF.gc new file mode 100644 index 0000000000..ee52c2fd1a --- /dev/null +++ b/test/decompiler/reference/engine/draw/drawable-group_REF.gc @@ -0,0 +1,147 @@ +;;-*-Lisp-*- +(in-package goal) + +;; definition for method 0 of type drawable-group +(defmethod + new + drawable-group + ((allocation symbol) (type-to-make type) (arg0 int)) + (let + ((v0-0 + (object-new + allocation + type-to-make + (the-as int (+ (-> type-to-make size) (* (+ arg0 -1) 4))) + ) + ) + ) + (set! (-> v0-0 length) arg0) + v0-0 + ) + ) + +;; definition for method 3 of type drawable-group +(defmethod inspect drawable-group ((obj drawable-group)) + (format #t "[~8x] ~A~%" obj (-> obj type)) + (format #t "~Tid: ~D~%" (-> obj id)) + (format #t "~Tlength: ~D~%" (-> obj length)) + (format #t "~Tdata[~D]: @ #x~X~%" (-> obj length) (-> obj data)) + (dotimes (s5-0 (-> obj length)) + (format #t "~T [~D] ~A~%" s5-0 (-> obj data s5-0)) + ) + obj + ) + +;; definition for method 2 of type drawable-group +(defmethod print drawable-group ((obj drawable-group)) + (format #t "#<~A @ #x~X [~D]" (-> obj type) obj (-> obj length)) + (dotimes (s5-0 (-> obj length)) + (format #t " ~A" (-> obj data s5-0)) + ) + (format #t ">") + obj + ) + +;; definition for method 4 of type drawable-group +(defmethod length drawable-group ((obj drawable-group)) + (-> obj length) + ) + +;; definition for method 5 of type drawable-group +;; INFO: Return type mismatch uint vs int. +(defmethod asize-of drawable-group ((obj drawable-group)) + (the-as int (+ (-> drawable-group size) (* (+ (-> obj length) -1) 4))) + ) + +;; definition for method 8 of type drawable-group +(defmethod + mem-usage + drawable-group + ((obj drawable-group) (arg0 memory-usage-block) (arg1 int)) + (set! (-> arg0 length) (max 1 (-> arg0 length))) + (set! (-> arg0 data 0 name) "drawable-group") + (+! (-> arg0 data 0 count) 1) + (let ((v1-6 (asize-of obj))) + (+! (-> arg0 data 0 used) v1-6) + (+! (-> arg0 data 0 total) (logand -16 (+ v1-6 15))) + ) + (dotimes (s3-0 (-> obj length)) + (mem-usage (-> obj data s3-0) arg0 arg1) + ) + obj + ) + +;; definition for method 9 of type drawable-group +(defmethod login drawable-group ((obj drawable-group)) + (dotimes (s5-0 (-> obj length)) + (login (-> obj data s5-0)) + ) + obj + ) + +;; definition for method 10 of type drawable-group +;; INFO: Return type mismatch int vs none. +(defmethod + draw + drawable-group + ((obj drawable-group) (arg0 drawable) (arg1 display-frame)) + (when (vis-cull (-> obj id)) + (when (sphere-cull (-> obj bsphere)) + (dotimes (s3-0 (-> obj length)) + (draw (-> obj data s3-0) (-> (the-as drawable-group arg0) data s3-0) arg1) + ) + ) + ) + 0 + (none) + ) + +;; definition for method 14 of type drawable-group +;; INFO: Return type mismatch int vs none. +(defmethod dummy-14 drawable-group ((obj drawable-group)) + (when (vis-cull (-> obj id)) + (when (sphere-cull (-> obj bsphere)) + (dotimes (s5-0 (-> obj length)) + (dummy-14 (-> obj data s5-0)) + ) + ) + ) + 0 + (none) + ) + +;; definition for method 15 of type drawable-group +;; INFO: Return type mismatch int vs none. +(defmethod + debug-draw + drawable-group + ((obj drawable-group) (arg0 drawable) (arg1 object)) + (when (vis-cull (-> obj id)) + (when (sphere-cull (-> obj bsphere)) + (dotimes (s3-0 (-> obj length)) + (debug-draw + (-> obj data s3-0) + (-> (the-as drawable-group arg0) data s3-0) + arg1 + ) + ) + ) + ) + 0 + (none) + ) + +;; definition for method 16 of type drawable-group +(defmethod + dummy-16 + drawable-group + ((obj drawable-group) (arg0 object) (arg1 object)) + (dotimes (s4-0 (-> obj length)) + (set! arg1 (dummy-16 (-> obj data s4-0) arg0 arg1)) + ) + arg1 + ) + + + + diff --git a/test/offline/config.jsonc b/test/offline/config.jsonc index eb8c3923e7..48051b1a3f 100644 --- a/test/offline/config.jsonc +++ b/test/offline/config.jsonc @@ -125,6 +125,10 @@ // anim-tester "(method 3 anim-tester)", "anim-tester-save-object-seqs", // anim-tester -- new basic on the stack + + // default-menu + "all-texture-tweak-adjust", // dynamic-field access placeholder case TODO + "debug-menu-make-instance-menu", // also disabled // sage-finalboss "(method 7 sage-finalboss)" // inline-array stuff