diff --git a/decompiler/config/all-types.gc b/decompiler/config/all-types.gc index af1e131d78..2ded49e6b6 100644 --- a/decompiler/config/all-types.gc +++ b/decompiler/config/all-types.gc @@ -6046,7 +6046,7 @@ (define-extern mt8-block-table (array int32)) (define-extern mt4-block-table (array int32)) (define-extern *shader-list* pair) ;; unknown type -(define-extern *edit-shader* int) ;; unknown type +(define-extern *edit-shader* texture-id) ;; ---------------------- @@ -14539,9 +14539,14 @@ ;; Containing DGOs - ['GAME', 'ENGINE'] ;; Version - 3 +(defenum external-cam-option + :bitfield #t + (allow-z 0) + ) + ;; - Symbols -(define-extern *external-cam-options* int) +(define-extern *external-cam-options* external-cam-option) (define-extern *external-cam-mode* symbol) (define-extern *camera-look-through-other* int) (define-extern *camera-other-fov* bfloat) @@ -20177,25 +20182,25 @@ ) (deftype debug-menu-item-function (debug-menu-item) - ((activate-func (function int object) :offset-assert 24) + ((activate-func (function object object) :offset-assert 24) (hilite-timer int8 :offset-assert 28) ) :method-count-assert 9 :size-assert #x1d :flag-assert #x90000001d (:methods - (new (symbol type string int (function int object)) _type_ 0)) + (new (symbol type string object (function object object)) _type_ 0)) ) (deftype debug-menu-item-flag (debug-menu-item) - ((activate-func (function int debug-menu-msg object) :offset-assert 24) ;; func is kinda a guess + ((activate-func (function object debug-menu-msg object) :offset-assert 24) (is-on object :offset-assert 28) ) :method-count-assert 9 :size-assert #x20 :flag-assert #x900000020 (:methods - (new (symbol type string int (function int debug-menu-msg object)) _type_ 0)) + (new (symbol type string object (function object debug-menu-msg object)) _type_ 0)) ) @@ -20272,7 +20277,7 @@ (define-extern debug-menu-item-flag-render (function debug-menu-item-flag int int int symbol debug-menu-item-flag)) (define-extern debug-menu-item-var-render (function debug-menu-item-var int int int symbol debug-menu-item-var)) (define-extern debug-menu-make-from-template (function debug-menu-context pair debug-menu-node)) -(define-extern debug-menu-append-item (function debug-menu debug-menu-item debug-menu-item)) +(define-extern debug-menu-append-item (function debug-menu debug-menu-node debug-menu-node)) (define-extern debug-menu-context-set-root-menu (function debug-menu-context debug-menu debug-menu-context)) (define-extern debug-menu-func-decode (function object function)) (define-extern debug-menu-item-var-make-int (function debug-menu-item-var (function int debug-menu-msg int int int) int symbol int int symbol debug-menu-item-var)) @@ -20304,10 +20309,10 @@ (define-extern error-sphere (function drawable-error string none)) (define-extern draw-instance-info (function string none)) ;; only passed *stdcon* (define-extern find-instance-by-name (function string prototype-bucket)) -(define-extern prototype-bucket-type (function instance type)) +(define-extern prototype-bucket-type (function prototype-bucket type)) (define-extern guard-band-cull (function vector symbol)) ;; vf deps - 20-23 (define-extern find-instance-by-index function) -(define-extern prototype-bucket-recalc-fields (function instance instance)) +(define-extern prototype-bucket-recalc-fields (function prototype-bucket prototype-bucket)) (define-extern dma-add-process-drawable-hud (function process-drawable draw-control symbol dma-buffer none)) (define-extern foreground-engine-execute (function engine display-frame int int none)) (define-extern main-debug-hook (function none)) @@ -21831,8 +21836,19 @@ :flag-assert #x900000044 ) +(defenum anim-tester-flags + :bitfield #t + :type int32 + (fanimt0) + (fanimt1) + (fanimt2) + (fanimt3) + (fanimt4) + (fanimt5) + ) + (deftype anim-tester (process-drawable) - ((flags int32 :offset-assert 176) + ((flags anim-tester-flags :offset-assert 176) (obj-list glst-list :inline :offset-assert 180) (current-obj string :offset-assert 196) (speed int32 :offset-assert 200) @@ -21852,6 +21868,9 @@ :size-assert #x198 :heap-base #x130 :flag-assert #x1401300198 + (:states + anim-tester-process + ) ) (deftype anim-test-obj (glst-named-node) @@ -22030,67 +22049,67 @@ ;; - Functions -(define-extern build-continue-menu (function debug-menu-context debug-menu-context)) ;; TODO - this is so simple...just iterating through a list of symbols...still confused though... +(define-extern build-continue-menu (function debug-menu game-info debug-menu-context)) (define-extern debug-menu-make-camera-menu (function debug-menu-context debug-menu-item-submenu)) (define-extern debug-menu-make-shader-menu (function debug-menu-context debug-menu-item-submenu)) (define-extern debug-menu-make-instance-menu (function debug-menu-context debug-menu-item-submenu)) (define-extern debug-menu-make-task-menu (function debug-menu-context debug-menu-item-submenu)) -(define-extern dm-current-continue (function function int object)) ;; TODO - game-info::17 -(define-extern dm-task-get-money (function int int symbol)) -(define-extern dm-levitator-ready (function int int symbol)) -(define-extern dm-lavabike-ready (function int int symbol)) -(define-extern dm-give-all-cells (function int int symbol)) -(define-extern debug-menu-make-task-unknown-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern debug-menu-make-task-need-hint-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern debug-menu-make-task-need-introduction-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern debug-menu-make-task-need-reminder-a-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern debug-menu-make-task-need-reminder-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern debug-menu-make-task-need-reward-speech-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern debug-menu-make-task-need-resolution-menu (function debug-menu-context debug-menu-context debug-menu-item)) -(define-extern dm-give-cell (function int none)) -(define-extern build-instance-list (function none)) ;; TODO - drawable types aren't complete -(define-extern dm-edit-instance-toggle-pick-func (function int int symbol)) -(define-extern dm-boolean-toggle-pick-func (function (pointer symbol) int object)) ;; TODO +(define-extern dm-current-continue (function string debug-menu-msg symbol)) +(define-extern dm-task-get-money (function int debug-menu-msg symbol)) +(define-extern dm-levitator-ready (function int debug-menu-msg symbol)) +(define-extern dm-lavabike-ready (function int debug-menu-msg symbol)) +(define-extern dm-give-all-cells (function int debug-menu-msg symbol)) +(define-extern debug-menu-make-task-unknown-menu (function debug-menu debug-menu-context none)) +(define-extern debug-menu-make-task-need-hint-menu (function debug-menu debug-menu-context none)) +(define-extern debug-menu-make-task-need-introduction-menu (function debug-menu debug-menu-context none)) +(define-extern debug-menu-make-task-need-reminder-a-menu (function debug-menu debug-menu-context none)) +(define-extern debug-menu-make-task-need-reminder-menu (function debug-menu debug-menu-context none)) +(define-extern debug-menu-make-task-need-reward-speech-menu (function debug-menu debug-menu-context none)) +(define-extern debug-menu-make-task-need-resolution-menu (function debug-menu debug-menu-context none)) +(define-extern dm-give-cell (function game-task none)) +(define-extern build-instance-list (function object none)) ;; TODO - drawable types aren't complete +(define-extern dm-edit-instance-toggle-pick-func (function int debug-menu-msg symbol)) +(define-extern dm-boolean-toggle-pick-func (function (pointer symbol) debug-menu-msg symbol)) (define-extern build-shader-list (function object)) -(define-extern all-texture-tweak-adjust (function texture-page-dir float object)) ;; TODO - texture related types -(define-extern debug-menu-make-camera-mode-menu (function int int object)) ;; TODO - depends on camera stuff yet merged -(define-extern dm-cam-externalize (function symbol int symbol)) -(define-extern dm-cam-render-float (function int int float float float)) -(define-extern dm-cam-settings-func (function int int symbol)) -(define-extern dm-cam-settings-func-int (function int int debug-menu debug-menu debug-menu)) +(define-extern all-texture-tweak-adjust (function texture-page-dir float none)) ;; TODO - texture related types +(define-extern debug-menu-make-camera-mode-menu (function debug-menu debug-menu none)) +(define-extern dm-cam-externalize (function symbol debug-menu-msg symbol)) +(define-extern dm-cam-render-float (function int debug-menu-msg float float float)) +(define-extern dm-cam-settings-func (function int debug-menu-msg symbol)) +(define-extern dm-cam-settings-func-int (function int debug-menu-msg int int int)) (define-extern debug-create-cam-restore (function none)) ;; TODO - level-group type isn't complete -(define-extern dm-cam-mode-func (function (state camera-slave) int object)) -(define-extern dm-instance-pick-func (function string int basic)) -(define-extern dm-enable-instance-func (function string int symbol)) -(define-extern dm-shader-pick-func (function texture-id int object)) ;; TODO - more texture stuff... -(define-extern debug-menu-node> 3)); + return pretty_print::to_symbol(fmt::format("{}", ((s32)word.data) >> 3)); // binteger assumed } else if (word.kind() == LinkedWord::PLAIN_DATA) { return pretty_print::to_symbol(fmt::format("#x{:x}", word.data)); } else { diff --git a/game/common/str_rpc_types.h b/game/common/str_rpc_types.h index f64a82e044..803a48d9e3 100644 --- a/game/common/str_rpc_types.h +++ b/game/common/str_rpc_types.h @@ -16,6 +16,10 @@ struct RPC_Str_Cmd { char name[64]; // file name }; +struct RPC_Play_Cmd { + u8 pad[1024]; // TODO everything +}; + constexpr int STR_RPC_RESULT_ERROR = 1; constexpr int STR_RPC_RESULT_DONE = 0; @@ -34,4 +38,4 @@ struct StrFileHeaderSector : StrFileHeader { }; static_assert(sizeof(StrFileHeader) == 0x200, "Sector header size"); -static_assert(sizeof(StrFileHeaderSector) == SECTOR_SIZE, "Sector header size"); \ No newline at end of file +static_assert(sizeof(StrFileHeaderSector) == SECTOR_SIZE, "Sector header size"); diff --git a/game/kernel/kboot.cpp b/game/kernel/kboot.cpp index 6e91d546ed..ef65bef02e 100644 --- a/game/kernel/kboot.cpp +++ b/game/kernel/kboot.cpp @@ -176,7 +176,7 @@ void KernelCheckAndDispatch() { } auto time_ms = kernel_dispatch_timer.getMs(); - if (time_ms > 30) { + if (time_ms > 50) { printf("Kernel dispatch time: %.3f ms\n", time_ms); } diff --git a/game/overlord/stream.cpp b/game/overlord/stream.cpp index 827aa78d22..be40655c1a 100644 --- a/game/overlord/stream.cpp +++ b/game/overlord/stream.cpp @@ -15,8 +15,8 @@ using namespace iop; -static RPC_Str_Cmd sRPCBuf; -static RPC_Str_Cmd sRPCBuf2; // todo type +static RPC_Str_Cmd sSTRBuf; +static RPC_Play_Cmd sPLAYBuf; // todo type void* RPC_STR(unsigned int fno, void* _cmd, int y); void* RPC_PLAY(unsigned int fno, void* _cmd, int y); @@ -38,8 +38,8 @@ constexpr int STR_INDEX_CACHE_SIZE = 4; CacheEntry sCache[STR_INDEX_CACHE_SIZE]; void stream_init_globals() { - memset(&sRPCBuf, 0, sizeof(RPC_Str_Cmd)); - memset(&sRPCBuf2, 0, sizeof(RPC_Str_Cmd)); + memset(&sSTRBuf, 0, sizeof(RPC_Str_Cmd)); + memset(&sPLAYBuf, 0, sizeof(RPC_Play_Cmd)); } /*! @@ -52,7 +52,7 @@ u32 STRThread() { CpuDisableIntr(); sceSifInitRpc(0); sceSifSetRpcQueue(&dq, GetThreadId()); - sceSifRegisterRpc(&serve, STR_RPC_ID, RPC_STR, &sRPCBuf, nullptr, nullptr, &dq); + sceSifRegisterRpc(&serve, STR_RPC_ID, RPC_STR, &sSTRBuf, nullptr, nullptr, &dq); CpuEnableIntr(); sceSifRpcLoop(&dq); return 0; @@ -65,7 +65,7 @@ u32 PLAYThread() { CpuDisableIntr(); sceSifInitRpc(0); sceSifSetRpcQueue(&dq, GetThreadId()); - sceSifRegisterRpc(&serve, PLAY_RPC_ID, RPC_PLAY, &sRPCBuf2, nullptr, nullptr, &dq); + sceSifRegisterRpc(&serve, PLAY_RPC_ID, RPC_PLAY, &sPLAYBuf, nullptr, nullptr, &dq); CpuEnableIntr(); sceSifRpcLoop(&dq); return 0; diff --git a/game/sce/iop.cpp b/game/sce/iop.cpp index fa9d46724f..3c6db56b0e 100644 --- a/game/sce/iop.cpp +++ b/game/sce/iop.cpp @@ -217,4 +217,4 @@ s32 WakeupThread(s32 thid) { iop->kernel.WakeupThread(thid); return 0; } -} // namespace iop \ No newline at end of file +} // namespace iop diff --git a/goal_src/engine/camera/cam-update-h.gc b/goal_src/engine/camera/cam-update-h.gc index 8e61bc1c67..c256ff4f9d 100644 --- a/goal_src/engine/camera/cam-update-h.gc +++ b/goal_src/engine/camera/cam-update-h.gc @@ -5,8 +5,12 @@ ;; name in dgo: cam-update-h ;; dgos: GAME, ENGINE +(defenum external-cam-option + :bitfield #t + (allow-z 0) + ) -(define *external-cam-options* 0) +(define *external-cam-options* (external-cam-option)) (define *external-cam-mode* #f) (define-perm *camera-look-through-other* int 0) (define-perm *camera-other-fov* bfloat (new 'static 'bfloat :data 11650.845)) diff --git a/goal_src/engine/debug/anim-tester.gc b/goal_src/engine/debug/anim-tester.gc index fc2e22bc87..9fca89c41e 100644 --- a/goal_src/engine/debug/anim-tester.gc +++ b/goal_src/engine/debug/anim-tester.gc @@ -13,10 +13,20 @@ (define-extern anim-test-edit-sequence-list-handler (function int list-control symbol)) (declare-type anim-tester process-drawable) -(define-extern anim-tester-process (state anim-tester)) ;; unknown type (define-extern anim-tester-save-all-objects (function anim-tester symbol)) +(defenum anim-tester-flags + :bitfield #t + :type int32 + (fanimt0) + (fanimt1) + (fanimt2) + (fanimt3) + (fanimt4) + (fanimt5) + ) + ;; DECOMP BEGINS ;; this file is debug only @@ -79,323 +89,268 @@ ) -(define - *DISP_LIST-bank* - (new 'static 'DISP_LIST-bank - :TV_SPACING 8 - :BORDER_WIDTH 4 - :BORDER_HEIGHT 4 - :MAX_LINES 12 - :CHAR_WIDTH 10 - :INC_DELAY 20 - :BORDER_LINES 3 - ) - ) +(define *DISP_LIST-bank* (new 'static 'DISP_LIST-bank + :TV_SPACING 8 + :BORDER_WIDTH 4 + :BORDER_HEIGHT 4 + :MAX_LINES 12 + :CHAR_WIDTH 10 + :INC_DELAY 20 + :BORDER_LINES 3 + ) + ) (defun display-list-control ((arg0 list-control)) (when (< (-> arg0 current-index) 0) - (set! (-> arg0 current-index) 0) - 0 - ) + (set! (-> arg0 current-index) 0) + 0 + ) (if (>= (-> arg0 current-index) (glst-num-elements (-> arg0 list))) - (set! (-> arg0 current-index) -1) - ) + (set! (-> arg0 current-index) -1) + ) (when (< (-> arg0 highlight-index) 0) - (set! (-> arg0 highlight-index) 0) - 0 - ) + (set! (-> arg0 highlight-index) 0) + 0 + ) (if (>= (-> arg0 highlight-index) (glst-num-elements (-> arg0 list))) - (set! (-> arg0 highlight-index) (+ (glst-num-elements (-> arg0 list)) -1)) - ) + (set! (-> arg0 highlight-index) (+ (glst-num-elements (-> arg0 list)) -1)) + ) (set! (-> arg0 the-index) (-> arg0 highlight-index)) - (set! - (-> arg0 the-node) - (glst-get-node-by-index (-> arg0 list) (-> arg0 highlight-index)) - ) + (set! (-> arg0 the-node) (glst-get-node-by-index (-> arg0 list) (-> arg0 highlight-index))) (when (not ((-> arg0 listfunc) 1 arg0)) - (set! (-> arg0 the-index) 0) - (let ((v1-12 (-> arg0 list))) - "return the start of the list" - (set! (-> arg0 the-node) (-> v1-12 head)) - ) - (while (let ((v1-22 (-> arg0 the-node))) - "is this node the end of the list. #t = end" - (not (not (-> v1-22 next))) - ) - (when ((-> arg0 listfunc) 1 arg0) - (set! (-> arg0 highlight-index) (-> arg0 the-index)) - (goto cfg-18) - ) - (+! (-> arg0 the-index) 1) - (let ((v1-20 (-> arg0 the-node))) - "return the next node in the list" - (set! (-> arg0 the-node) (-> v1-20 next)) - ) + (set! (-> arg0 the-index) 0) + (let ((v1-12 (-> arg0 list))) + "return the start of the list" + (set! (-> arg0 the-node) (-> v1-12 head)) + ) + (while (let ((v1-22 (-> arg0 the-node))) + "is this node the end of the list. #t = end" + (not (not (-> v1-22 next))) + ) + (when ((-> arg0 listfunc) 1 arg0) + (set! (-> arg0 highlight-index) (-> arg0 the-index)) + (goto cfg-18) + ) + (+! (-> arg0 the-index) 1) + (let ((v1-20 (-> arg0 the-node))) + "return the next node in the list" + (set! (-> arg0 the-node) (-> v1-20 next)) + ) + ) + (set! (-> arg0 highlight-index) 0) + 0 ) - (set! (-> arg0 highlight-index) 0) - 0 - ) (label cfg-18) (set! (-> arg0 the-index) (-> arg0 highlight-index)) - (set! - (-> arg0 the-node) - (glst-get-node-by-index (-> arg0 list) (-> arg0 the-index)) - ) + (set! (-> arg0 the-node) (glst-get-node-by-index (-> arg0 list) (-> arg0 the-index))) ((-> arg0 listfunc) 4 arg0) (let ((s5-2 #f) (s4-0 #f) ) - (set! (-> arg0 numlines) 0) - (set! (-> arg0 charswide) 0) - (set! (-> arg0 the-index) 0) - (set! (-> arg0 the-disp-line) 0) - (let ((v1-29 (-> arg0 list))) - "return the start of the list" - (set! (-> arg0 the-node) (-> v1-29 head)) - ) - (while (let ((v1-52 (-> arg0 the-node))) - "is this node the end of the list. #t = end" - (not (not (-> v1-52 next))) - ) - (when ((-> arg0 listfunc) 1 arg0) - (if (and (not s5-2) (>= (-> arg0 the-index) (-> arg0 top-index))) - (set! s5-2 #t) - ) - (when (and (not s4-0) (>= (-> arg0 the-index) (-> arg0 highlight-index))) - (set! s4-0 #t) - (set! (-> arg0 highlight-disp-line) (-> arg0 the-disp-line)) - ) - ((-> arg0 listfunc) 2 arg0) - (if (< (-> arg0 charswide) (-> arg0 return-int)) - (set! (-> arg0 charswide) (-> arg0 return-int)) + (set! (-> arg0 numlines) 0) + (set! (-> arg0 charswide) 0) + (set! (-> arg0 the-index) 0) + (set! (-> arg0 the-disp-line) 0) + (let ((v1-29 (-> arg0 list))) + "return the start of the list" + (set! (-> arg0 the-node) (-> v1-29 head)) ) - (if s5-2 - (+! (-> arg0 the-disp-line) 1) + (while (let ((v1-52 (-> arg0 the-node))) + "is this node the end of the list. #t = end" + (not (not (-> v1-52 next))) + ) + (when ((-> arg0 listfunc) 1 arg0) + (if (and (not s5-2) (>= (-> arg0 the-index) (-> arg0 top-index))) + (set! s5-2 #t) + ) + (when (and (not s4-0) (>= (-> arg0 the-index) (-> arg0 highlight-index))) + (set! s4-0 #t) + (set! (-> arg0 highlight-disp-line) (-> arg0 the-disp-line)) + ) + ((-> arg0 listfunc) 2 arg0) + (if (< (-> arg0 charswide) (-> arg0 return-int)) + (set! (-> arg0 charswide) (-> arg0 return-int)) + ) + (if s5-2 + (+! (-> arg0 the-disp-line) 1) + ) + (+! (-> arg0 numlines) 1) + ) + (+! (-> arg0 the-index) 1) + (let ((v1-50 (-> arg0 the-node))) + "return the next node in the list" + (set! (-> arg0 the-node) (-> v1-50 next)) + ) ) - (+! (-> arg0 numlines) 1) - ) - (+! (-> arg0 the-index) 1) - (let ((v1-50 (-> arg0 the-node))) - "return the next node in the list" - (set! (-> arg0 the-node) (-> v1-50 next)) - ) - ) - ) - (set! - (-> arg0 lines-to-disp) - (if (< (-> *DISP_LIST-bank* MAX_LINES) (-> arg0 numlines)) - (-> *DISP_LIST-bank* MAX_LINES) - (-> arg0 numlines) ) - ) + (set! (-> arg0 lines-to-disp) (if (< (-> *DISP_LIST-bank* MAX_LINES) (-> arg0 numlines)) + (-> *DISP_LIST-bank* MAX_LINES) + (-> arg0 numlines) + ) + ) (if (> (-> arg0 lines-to-disp) 0) - (-> arg0 lines-to-disp) - 1 - ) + (-> arg0 lines-to-disp) + 1 + ) (let* ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) (s5-3 (-> s4-1 base)) ) - (draw-sprite2d-xy - s4-1 - (-> arg0 left) - (-> arg0 top) - (+ - (* (-> arg0 charswide) (-> *DISP_LIST-bank* CHAR_WIDTH)) - (* (-> *DISP_LIST-bank* BORDER_WIDTH) 2) - ) - (+ - (* (+ (-> arg0 lines-to-disp) 1) (-> *DISP_LIST-bank* TV_SPACING)) - (* (-> *DISP_LIST-bank* BORDER_WIDTH) 2) - ) - (new 'static 'rgba :a #x40) - ) - (let ((a3-6 (-> s4-1 base))) - (let ((v1-72 (the-as object (-> s4-1 base)))) - (set! - (-> (the-as dma-packet v1-72) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + (draw-sprite2d-xy + s4-1 + (-> arg0 left) + (-> arg0 top) + (+ (* (-> arg0 charswide) (-> *DISP_LIST-bank* CHAR_WIDTH)) (* (-> *DISP_LIST-bank* BORDER_WIDTH) 2)) + (+ (* (+ (-> arg0 lines-to-disp) 1) (-> *DISP_LIST-bank* TV_SPACING)) + (* (-> *DISP_LIST-bank* BORDER_WIDTH) 2) + ) + (new 'static 'rgba :a #x40) + ) + (let ((a3-6 (-> s4-1 base))) + (let ((v1-72 (the-as object (-> s4-1 base)))) + (set! (-> (the-as dma-packet v1-72) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-72) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-72) vif1) (new 'static 'vif-tag)) + (set! (-> s4-1 base) (&+ (the-as pointer v1-72) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s5-3 + (the-as (pointer dma-tag) a3-6) + ) ) - (set! (-> (the-as dma-packet v1-72) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-72) vif1) (new 'static 'vif-tag)) - (set! (-> s4-1 base) (&+ (the-as pointer v1-72) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s5-3 - (the-as (pointer dma-tag) a3-6) - ) ) - ) (set! (-> arg0 xpos) (+ (-> arg0 left) (-> *DISP_LIST-bank* BORDER_WIDTH))) (set! (-> arg0 ypos) (+ (-> arg0 top) (-> *DISP_LIST-bank* BORDER_HEIGHT))) ((-> arg0 listfunc) 3 arg0) (cond - ((> (-> arg0 lines-to-disp) 0) - (cond - ((< (-> arg0 highlight-disp-line) (-> *DISP_LIST-bank* BORDER_LINES)) - (let - ((s5-4 - (- (-> *DISP_LIST-bank* BORDER_LINES) (-> arg0 highlight-disp-line)) - ) - ) - (set! - (-> arg0 the-node) - (glst-get-node-by-index (-> arg0 list) (-> arg0 top-index)) - ) - (set! (-> arg0 the-index) (-> arg0 top-index)) - (let ((v1-88 (-> arg0 the-node))) - "is this node the start of the list. #t = start" - (when (not (not (-> v1-88 prev))) - (while #t - (let ((v1-92 (-> arg0 the-node))) - "return the previous node in the list" - (let ((v1-93 (-> v1-92 prev))) - (let ((a0-41 v1-93)) - "is this node the start of the list. #t = start" - (if (not (-> a0-41 prev)) - (goto cfg-61) + ((> (-> arg0 lines-to-disp) 0) + (cond + ((< (-> arg0 highlight-disp-line) (-> *DISP_LIST-bank* BORDER_LINES)) + (let ((s5-4 (- (-> *DISP_LIST-bank* BORDER_LINES) (-> arg0 highlight-disp-line)))) + (set! (-> arg0 the-node) (glst-get-node-by-index (-> arg0 list) (-> arg0 top-index))) + (set! (-> arg0 the-index) (-> arg0 top-index)) + (let ((v1-88 (-> arg0 the-node))) + "is this node the start of the list. #t = start" + (when (not (not (-> v1-88 prev))) + (while #t + (let ((v1-92 (-> arg0 the-node))) + "return the previous node in the list" + (let ((v1-93 (-> v1-92 prev))) + (let ((a0-41 v1-93)) + "is this node the start of the list. #t = start" + (if (not (-> a0-41 prev)) + (goto cfg-61) + ) + ) + (set! (-> arg0 the-node) v1-93) + ) + ) + (+! (-> arg0 the-index) -1) + (when ((-> arg0 listfunc) 1 arg0) + (set! (-> arg0 top-index) (-> arg0 the-index)) + (+! s5-4 -1) + (if (<= s5-4 0) + (goto cfg-61) + ) + ) + ) ) - ) - (set! (-> arg0 the-node) v1-93) - ) - ) - (+! (-> arg0 the-index) -1) - (when ((-> arg0 listfunc) 1 arg0) - (set! (-> arg0 top-index) (-> arg0 the-index)) - (+! s5-4 -1) - (if (<= s5-4 0) - (goto cfg-61) ) - ) ) - ) - ) - ) - (label cfg-61) - ) - ((>= - (-> arg0 highlight-disp-line) - (- (-> *DISP_LIST-bank* MAX_LINES) (-> *DISP_LIST-bank* BORDER_LINES)) - ) - (let - ((s5-5 - (- - (-> arg0 highlight-disp-line) - (- (-> *DISP_LIST-bank* MAX_LINES) (-> *DISP_LIST-bank* BORDER_LINES)) - ) - ) - ) - (set! - (-> arg0 the-node) - (glst-get-node-by-index (-> arg0 list) (-> arg0 top-index)) + (label cfg-61) ) - (set! (-> arg0 the-index) (-> arg0 top-index)) - (let ((v1-107 (-> arg0 the-node))) - "is this node the end of the list. #t = end" - (when (not (not (-> v1-107 next))) - (while #t - (let ((v1-111 (-> arg0 the-node))) - "return the next node in the list" - (let ((v1-112 (-> v1-111 next))) - (let ((a0-55 v1-112)) - "is this node the end of the list. #t = end" - (if (not (-> a0-55 next)) - (goto cfg-77) + ((>= (-> arg0 highlight-disp-line) (- (-> *DISP_LIST-bank* MAX_LINES) (-> *DISP_LIST-bank* BORDER_LINES))) + (let ((s5-5 + (- (-> arg0 highlight-disp-line) (- (-> *DISP_LIST-bank* MAX_LINES) (-> *DISP_LIST-bank* BORDER_LINES))) + ) + ) + (set! (-> arg0 the-node) (glst-get-node-by-index (-> arg0 list) (-> arg0 top-index))) + (set! (-> arg0 the-index) (-> arg0 top-index)) + (let ((v1-107 (-> arg0 the-node))) + "is this node the end of the list. #t = end" + (when (not (not (-> v1-107 next))) + (while #t + (let ((v1-111 (-> arg0 the-node))) + "return the next node in the list" + (let ((v1-112 (-> v1-111 next))) + (let ((a0-55 v1-112)) + "is this node the end of the list. #t = end" + (if (not (-> a0-55 next)) + (goto cfg-77) + ) + ) + (set! (-> arg0 the-node) v1-112) + ) + ) + (+! (-> arg0 the-index) 1) + (when ((-> arg0 listfunc) 1 arg0) + (set! (-> arg0 top-index) (-> arg0 the-index)) + (+! s5-5 -1) + (if (<= s5-5 0) + (goto cfg-77) + ) + ) + ) ) - ) - (set! (-> arg0 the-node) v1-112) - ) - ) - (+! (-> arg0 the-index) 1) - (when ((-> arg0 listfunc) 1 arg0) - (set! (-> arg0 top-index) (-> arg0 the-index)) - (+! s5-5 -1) - (if (<= s5-5 0) - (goto cfg-77) ) - ) ) - ) ) ) - ) - ) - (label cfg-77) - (set! (-> arg0 the-disp-line) 0) - (set! (-> arg0 the-index) (-> arg0 top-index)) - (set! - (-> arg0 the-node) - (glst-get-node-by-index (-> arg0 list) (-> arg0 top-index)) - ) - (while (let ((v1-135 (-> arg0 the-node))) - "is this node the end of the list. #t = end" - (not - (or - (not (-> v1-135 next)) - (>= (-> arg0 the-disp-line) (-> *DISP_LIST-bank* MAX_LINES)) + (label cfg-77) + (set! (-> arg0 the-disp-line) 0) + (set! (-> arg0 the-index) (-> arg0 top-index)) + (set! (-> arg0 the-node) (glst-get-node-by-index (-> arg0 list) (-> arg0 top-index))) + (while (let ((v1-135 (-> arg0 the-node))) + "is this node the end of the list. #t = end" + (not (or (not (-> v1-135 next)) (>= (-> arg0 the-disp-line) (-> *DISP_LIST-bank* MAX_LINES)))) ) - ) - ) - (when ((-> arg0 listfunc) 1 arg0) - (set! - (-> arg0 xpos) - (+ (-> arg0 left) (-> *DISP_LIST-bank* BORDER_WIDTH)) - ) - (set! - (-> arg0 ypos) - (+ - (-> arg0 top) - (-> *DISP_LIST-bank* BORDER_HEIGHT) - (* (+ (-> arg0 the-disp-line) 1) (-> *DISP_LIST-bank* TV_SPACING)) - ) + (when ((-> arg0 listfunc) 1 arg0) + (set! (-> arg0 xpos) (+ (-> arg0 left) (-> *DISP_LIST-bank* BORDER_WIDTH))) + (set! (-> arg0 ypos) (+ (-> arg0 top) + (-> *DISP_LIST-bank* BORDER_HEIGHT) + (* (+ (-> arg0 the-disp-line) 1) (-> *DISP_LIST-bank* TV_SPACING)) + ) + ) + ((-> arg0 listfunc) 0 arg0) + (+! (-> arg0 the-disp-line) 1) + ) + (+! (-> arg0 the-index) 1) + (let ((v1-133 (-> arg0 the-node))) + "return the next node in the list" + (set! (-> arg0 the-node) (-> v1-133 next)) + ) ) - ((-> arg0 listfunc) 0 arg0) - (+! (-> arg0 the-disp-line) 1) - ) - (+! (-> arg0 the-index) 1) - (let ((v1-133 (-> arg0 the-node))) - "return the next node in the list" - (set! (-> arg0 the-node) (-> v1-133 next)) - ) ) - ) - (else - (let* ((s4-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s5-6 (-> s4-2 base)) - ) - (draw-string-xy - "**NONE**" - s4-2 - (+ (-> arg0 left) (-> *DISP_LIST-bank* BORDER_WIDTH)) - (+ - (-> arg0 top) - (-> *DISP_LIST-bank* BORDER_HEIGHT) - (-> *DISP_LIST-bank* TV_SPACING) - ) - (font-color dim-white) - (font-flags shadow kerning) - ) - (let ((a3-12 (-> s4-2 base))) - (let ((v1-147 (the-as object (-> s4-2 base)))) - (set! - (-> (the-as dma-packet v1-147) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + (else + (let* ((s4-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s5-6 (-> s4-2 base)) + ) + (draw-string-xy + "**NONE**" + s4-2 + (+ (-> arg0 left) (-> *DISP_LIST-bank* BORDER_WIDTH)) + (+ (-> arg0 top) (-> *DISP_LIST-bank* BORDER_HEIGHT) (-> *DISP_LIST-bank* TV_SPACING)) + (font-color dim-white) + (font-flags shadow kerning) + ) + (let ((a3-12 (-> s4-2 base))) + (let ((v1-147 (the-as object (-> s4-2 base)))) + (set! (-> (the-as dma-packet v1-147) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-147) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-147) vif1) (new 'static 'vif-tag)) + (set! (-> s4-2 base) (&+ (the-as pointer v1-147) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s5-6 + (the-as (pointer dma-tag) a3-12) + ) + ) ) - (set! (-> (the-as dma-packet v1-147) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-147) vif1) (new 'static 'vif-tag)) - (set! (-> s4-2 base) (&+ (the-as pointer v1-147) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s5-6 - (the-as (pointer dma-tag) a3-12) - ) ) - ) ) - ) (none) ) @@ -423,64 +378,65 @@ ) -(define - *ANIM_TESTER-bank* - (new 'static 'anim-tester-bank - :ANIM_SPEED 1.0 - :BLEND 1.0 - :OBJECT_LIST_X 10 - :OBJECT_LIST_Y 50 - :OBJECT_LIST_MIN_WIDTH 18 - :ANIM_LIST_X 10 - :ANIM_LIST_Y 50 - :ANIM_LIST_MIN_WIDTH 17 - :PICK_LIST_X 10 - :PICK_LIST_Y 50 - :PICK_LIST_MIN_WIDTH 21 - :EDIT_LIST_X 10 - :EDIT_LIST_Y 50 - :EDIT_STATS_X 30 - :EDIT_LIST_MIN_WIDTH 64 - :EDIT_PICK_X 30 - ) - ) +(define *ANIM_TESTER-bank* (new 'static 'anim-tester-bank + :ANIM_SPEED 1.0 + :BLEND 1.0 + :OBJECT_LIST_X 10 + :OBJECT_LIST_Y 50 + :OBJECT_LIST_MIN_WIDTH 18 + :ANIM_LIST_X 10 + :ANIM_LIST_Y 50 + :ANIM_LIST_MIN_WIDTH 17 + :PICK_LIST_X 10 + :PICK_LIST_Y 50 + :PICK_LIST_MIN_WIDTH 21 + :EDIT_LIST_X 10 + :EDIT_LIST_Y 50 + :EDIT_STATS_X 30 + :EDIT_LIST_MIN_WIDTH 64 + :EDIT_PICK_X 30 + ) + ) (deftype anim-tester (process-drawable) - ((flags int32 :offset-assert 176) - (obj-list glst-list :inline :offset-assert 180) - (current-obj string :offset-assert 196) - (speed int32 :offset-assert 200) - (list-con list-control :inline :offset-assert 204) - (pick-con list-control :inline :offset-assert 284) - (item-field int64 :offset-assert 368) - (inc-delay int32 :offset-assert 376) - (inc-timer int32 :offset-assert 380) - (edit-mode int32 :offset-assert 384) - (old-mode int32 :offset-assert 388) - (anim-speed float :offset-assert 392) - (anim-gspeed float :offset-assert 396) - (anim-first float :offset-assert 400) - (anim-last float :offset-assert 404) + ((flags anim-tester-flags :offset-assert 176) + (obj-list glst-list :inline :offset-assert 180) + (current-obj string :offset-assert 196) + (speed int32 :offset-assert 200) + (list-con list-control :inline :offset-assert 204) + (pick-con list-control :inline :offset-assert 284) + (item-field int64 :offset-assert 368) + (inc-delay int32 :offset-assert 376) + (inc-timer int32 :offset-assert 380) + (edit-mode int32 :offset-assert 384) + (old-mode int32 :offset-assert 388) + (anim-speed float :offset-assert 392) + (anim-gspeed float :offset-assert 396) + (anim-first float :offset-assert 400) + (anim-last float :offset-assert 404) ) :heap-base #x130 :method-count-assert 20 :size-assert #x198 :flag-assert #x1401300198 + (:states + anim-tester-process + ) ) (defun anim-tester-num-print ((arg0 basic) (arg1 float)) (cond - ((= arg1 (-> (new 'static 'array float 1 -2.0) 0)) - (format arg0 "max") - ) - ((= arg1 (-> (new 'static 'array float 1 -1.0) 0)) - (format arg0 "min") - ) - (else - (format arg0 "~f" arg1) + ((= arg1 (-> (new 'static 'array float 1 -2.0) 0)) + (format arg0 "max") + ) + ((= arg1 (-> (new 'static 'array float 1 -1.0) 0)) + (format arg0 "min") + ) + (else + (format arg0 "~f" arg1) + ) ) - ) (none) ) @@ -517,35 +473,27 @@ (set! (-> arg0 list-con list) (-> arg0 seq-list)) (set! (-> arg0 list-con list-owner) (the-as uint arg0)) (let ((v1-6 arg1)) - (set! (-> arg0 parent) (the-as uint (if v1-6 - (-> v1-6 the-node) - ) - ) + (set! (-> arg0 parent) (the-as uint (if v1-6 + (-> v1-6 the-node) + ) + ) + ) ) - ) (none) ) -(defmethod - new - anim-test-obj - ((allocation symbol) - (type-to-make type) - (arg0 int) - (arg1 string) - (arg2 basic) - ) +(defmethod new anim-test-obj ((allocation symbol) (type-to-make type) (arg0 int) (arg1 string) (arg2 basic)) (let ((t9-0 (method-of-type structure new)) (v1-1 type-to-make) ) - (-> type-to-make size) - (let ((s4-0 (the-as anim-test-obj (t9-0 allocation v1-1)))) - (set! (-> s4-0 obj-art-group) (the-as art-group arg2)) - (set! (-> s4-0 privname) arg1) - (glst-init-list! (-> s4-0 seq-list)) - s4-0 + (-> type-to-make size) + (let ((s4-0 (the-as anim-test-obj (t9-0 allocation v1-1)))) + (set! (-> s4-0 obj-art-group) (the-as art-group arg2)) + (set! (-> s4-0 privname) arg1) + (glst-init-list! (-> s4-0 seq-list)) + s4-0 + ) ) - ) ) (deftype anim-test-sequence (glst-named-node) @@ -574,20 +522,17 @@ (none) ) -(defmethod - new - anim-test-sequence - ((allocation symbol) (type-to-make type) (arg0 int) (arg1 string)) +(defmethod new anim-test-sequence ((allocation symbol) (type-to-make type) (arg0 int) (arg1 string)) (let ((t9-0 (method-of-type structure new)) (v1-1 type-to-make) ) - (-> type-to-make size) - (let ((s5-0 (the-as anim-test-sequence (t9-0 allocation v1-1)))) - (set! (-> s5-0 privname) arg1) - (glst-init-list! (-> s5-0 item-list)) - s5-0 + (-> type-to-make size) + (let ((s5-0 (the-as anim-test-sequence (t9-0 allocation v1-1)))) + (set! (-> s5-0 privname) arg1) + (glst-init-list! (-> s5-0 item-list)) + s5-0 + ) ) - ) ) (deftype anim-test-seq-item (glst-named-node) @@ -609,37 +554,26 @@ ) -(defmethod - new - anim-test-seq-item - ((allocation symbol) (type-to-make type) (arg0 int) (arg1 string)) +(defmethod new anim-test-seq-item ((allocation symbol) (type-to-make type) (arg0 int) (arg1 string)) (let ((t9-0 (method-of-type structure new)) (v1-1 type-to-make) ) - (-> type-to-make size) - (let ((v0-0 (t9-0 allocation v1-1))) - (set! (-> (the-as anim-test-seq-item v0-0) privname) arg1) - (set! (-> (the-as anim-test-seq-item v0-0) speed) 100) - (set! (-> (the-as anim-test-seq-item v0-0) blend) 0) - (set! - (-> (the-as anim-test-seq-item v0-0) first-frame) - (-> (new 'static 'array float 1 -1.0) 0) - ) - (set! - (-> (the-as anim-test-seq-item v0-0) last-frame) - (-> (new 'static 'array float 1 -2.0) 0) - ) - (the-as anim-test-seq-item v0-0) + (-> type-to-make size) + (let ((v0-0 (t9-0 allocation v1-1))) + (set! (-> (the-as anim-test-seq-item v0-0) privname) arg1) + (set! (-> (the-as anim-test-seq-item v0-0) speed) 100) + (set! (-> (the-as anim-test-seq-item v0-0) blend) 0) + (set! (-> (the-as anim-test-seq-item v0-0) first-frame) (-> (new 'static 'array float 1 -1.0) 0)) + (set! (-> (the-as anim-test-seq-item v0-0) last-frame) (-> (new 'static 'array float 1 -2.0) 0)) + (the-as anim-test-seq-item v0-0) + ) ) - ) ) -(defun - anim-test-seq-item-copy! - ((arg0 anim-test-seq-item) (arg1 anim-test-seq-item)) +(defun anim-test-seq-item-copy! ((arg0 anim-test-seq-item) (arg1 anim-test-seq-item)) (let ((v1-0 arg0)) - (set! (-> v1-0 privname) (-> arg1 privname)) - ) + (set! (-> v1-0 privname) (-> arg1 privname)) + ) (set! (-> arg0 speed) (-> arg1 speed)) (set! (-> arg0 blend) (-> arg1 blend)) (set! (-> arg0 first-frame) (-> arg1 first-frame)) @@ -648,157 +582,135 @@ (set! (-> arg0 artist-base) (-> arg1 artist-base)) (set! (-> arg0 flags) (-> arg1 flags)) (let ((v0-0 (-> arg1 parent))) - (set! (-> arg0 parent) v0-0) - v0-0 - ) + (set! (-> arg0 parent) v0-0) + v0-0 + ) ) (defun anim-test-obj-item-valid? ((arg0 anim-test-obj) (arg1 anim-test-seq-item)) (let ((v1-0 (-> arg0 seq-list))) - "return the start of the list" - (let ((s5-0 (the-as anim-test-sequence (-> v1-0 head)))) - (while (let ((v1-13 s5-0)) - "is this node the end of the list. #t = end" - (not (not (-> v1-13 next))) - ) - (when - (and - (logtest? (-> s5-0 flags) 2) - (name= (-> arg1 privname) (-> s5-0 privname)) - ) - (let ((v1-7 (-> s5-0 item-list))) - "return the start of the list" - (let* ((v1-8 (the-as anim-test-seq-item (-> v1-7 head))) - (a0-4 v1-8) + "return the start of the list" + (let ((s5-0 (the-as anim-test-sequence (-> v1-0 head)))) + (while (let ((v1-13 s5-0)) + "is this node the end of the list. #t = end" + (not (not (-> v1-13 next))) + ) + (when (and (logtest? (-> s5-0 flags) 2) (name= (-> arg1 privname) (-> s5-0 privname))) + (let ((v1-7 (-> s5-0 item-list))) + "return the start of the list" + (let* ((v1-8 (the-as anim-test-seq-item (-> v1-7 head))) + (a0-4 v1-8) + ) + "is this node the end of the list. #t = end" + (when (not (not (-> a0-4 next))) + (set! (-> arg1 num-frames) (-> v1-8 num-frames)) + (set! (-> arg1 artist-base) (-> v1-8 artist-base)) + ) ) - "is this node the end of the list. #t = end" - (when (not (not (-> a0-4 next))) - (set! (-> arg1 num-frames) (-> v1-8 num-frames)) - (set! (-> arg1 artist-base) (-> v1-8 artist-base)) - ) + ) + (return #t) + ) + "return the next node in the list" + (set! s5-0 (the-as anim-test-sequence (-> s5-0 next))) ) - ) - (return #t) ) - "return the next node in the list" - (set! s5-0 (the-as anim-test-sequence (-> s5-0 next))) - ) ) - ) #f ) (defun anim-test-obj-remove-invalid ((arg0 anim-test-obj)) (local-vars (v1-19 symbol)) (let ((v1-0 (-> arg0 seq-list))) - "return the start of the list" - (let ((s5-0 (-> v1-0 head))) - (while (let ((v1-25 (the-as anim-test-sequence s5-0))) - "is this node the end of the list. #t = end" - (not (not (-> v1-25 next))) - ) - (let ((v1-1 (the-as anim-test-sequence s5-0))) - "return the next node in the list" - (let ((s4-0 (-> v1-1 next))) - (when (zero? (logand (-> (the-as anim-test-sequence s5-0) flags) 2)) - (let ((v1-5 (-> (the-as anim-test-sequence s5-0) item-list))) - "return the start of the list" - (let ((s3-0 (the-as anim-test-seq-item (-> v1-5 head)))) - (while (let ((v1-13 s3-0)) - "is this node the end of the list. #t = end" - (not (not (-> v1-13 next))) - ) - (let ((v1-6 s3-0)) - "return the next node in the list" - (let ((s2-0 (the-as anim-test-seq-item (-> v1-6 next)))) - (if - (and - (zero? (logand (-> s3-0 flags) 1)) - (not (anim-test-obj-item-valid? arg0 s3-0)) + "return the start of the list" + (let ((s5-0 (-> v1-0 head))) + (while (let ((v1-25 (the-as anim-test-sequence s5-0))) + "is this node the end of the list. #t = end" + (not (not (-> v1-25 next))) ) - (glst-remove (-> (the-as anim-test-sequence s5-0) item-list) s3-0) - ) - (set! s3-0 s2-0) - ) - ) - ) - ) - ) - ) - (let ((v1-18 (-> (the-as anim-test-sequence s5-0) item-list))) - "is the list empty, #t = empty" - (if - (or - (= (-> v1-18 tailpred) v1-18) - (and - (= - (glst-num-elements (-> (the-as anim-test-sequence s5-0) item-list)) - 1 - ) - (begin - (let ((v1-21 #t) - (a0-13 (-> (the-as anim-test-sequence s5-0) item-list)) - ) - "return the start of the list" - (let - ((a0-16 - (the-as - int - (logand - (-> (the-as anim-test-seq-item (-> a0-13 head)) flags) - 1 + (let ((v1-1 (the-as anim-test-sequence s5-0))) + "return the next node in the list" + (let ((s4-0 (-> v1-1 next))) + (when (zero? (logand (-> (the-as anim-test-sequence s5-0) flags) 2)) + (let ((v1-5 (-> (the-as anim-test-sequence s5-0) item-list))) + "return the start of the list" + (let ((s3-0 (the-as anim-test-seq-item (-> v1-5 head)))) + (while (let ((v1-13 s3-0)) + "is this node the end of the list. #t = end" + (not (not (-> v1-13 next))) + ) + (let ((v1-6 s3-0)) + "return the next node in the list" + (let ((s2-0 (the-as anim-test-seq-item (-> v1-6 next)))) + (if (and (zero? (logand (-> s3-0 flags) 1)) (not (anim-test-obj-item-valid? arg0 s3-0))) + (glst-remove (-> (the-as anim-test-sequence s5-0) item-list) s3-0) + ) + (set! s3-0 s2-0) + ) + ) + ) ) - ) ) - ) - (cmove-#f-zero v1-19 a0-16 v1-21) ) - ) - v1-19 + (let ((v1-18 (-> (the-as anim-test-sequence s5-0) item-list))) + "is the list empty, #t = empty" + (if (or + (= (-> v1-18 tailpred) v1-18) + (and + (= (glst-num-elements (-> (the-as anim-test-sequence s5-0) item-list)) 1) + (begin + (let ((v1-21 #t) + (a0-13 (-> (the-as anim-test-sequence s5-0) item-list)) + ) + "return the start of the list" + (let ((a0-16 (the-as int (logand (-> (the-as anim-test-seq-item (-> a0-13 head)) flags) 1)))) + (cmove-#f-zero v1-19 a0-16 v1-21) + ) + ) + v1-19 + ) + ) + ) + (glst-remove (-> arg0 seq-list) (the-as anim-test-sequence s5-0)) + ) + ) + (set! s5-0 (the-as anim-test-sequence s4-0)) ) - ) ) - (glst-remove (-> arg0 seq-list) (the-as anim-test-sequence s5-0)) - ) ) - (set! s5-0 (the-as anim-test-sequence s4-0)) - ) ) - ) ) - ) (let ((v1-30 (-> arg0 seq-list))) - "return the start of the list" - (let ((v1-31 (the-as anim-test-sequence (-> v1-30 head)))) - (while (let ((a0-23 v1-31)) - "is this node the end of the list. #t = end" - (not (not (-> a0-23 next))) + "return the start of the list" + (let ((v1-31 (the-as anim-test-sequence (-> v1-30 head)))) + (while (let ((a0-23 v1-31)) + "is this node the end of the list. #t = end" + (not (not (-> a0-23 next))) + ) + (let ((a0-20 v1-31)) + "return the next node in the list" + (let ((a0-21 (-> a0-20 next))) + (set! (-> v1-31 flags) (logand -3 (-> v1-31 flags))) + (set! v1-31 (the-as anim-test-sequence a0-21)) ) - (let ((a0-20 v1-31)) - "return the next node in the list" - (let ((a0-21 (-> a0-20 next))) - (set! (-> v1-31 flags) (logand -3 (-> v1-31 flags))) - (set! v1-31 (the-as anim-test-sequence a0-21)) - ) + ) + ) ) - ) ) - ) #f ) (defbehavior anim-tester-real-post anim-tester () - (when (logtest? (-> self flags) 1) - (if (logtest? (-> self flags) 32) - (vector-v+! (-> self root trans) (-> self root trans) (-> self root transv)) - ) - (ja-post) - (when (logtest? (-> self flags) 16) - (draw-joint-spheres self) - (dummy-10 (-> self skel) (the-as symbol *stdcon*)) + (when (logtest? (-> self flags) (anim-tester-flags fanimt0)) + (if (logtest? (-> self flags) (anim-tester-flags fanimt5)) + (vector-v+! (-> self root trans) (-> self root trans) (-> self root transv)) + ) + (ja-post) + (when (logtest? (-> self flags) (anim-tester-flags fanimt4)) + (draw-joint-spheres self) + (dummy-10 (-> self skel) (the-as symbol *stdcon*)) + ) ) - ) (none) ) @@ -810,364 +722,304 @@ (defbehavior anim-tester-update-anim-info anim-tester ((arg0 anim-test-seq-item)) (set! (-> self anim-first) (-> arg0 first-frame)) (set! (-> self anim-last) (-> arg0 last-frame)) - (set! - (-> self anim-gspeed) - (* (-> (new 'static 'array float 1 0.01) 0) (the float (-> self speed))) - ) - (set! - (-> self anim-speed) - (* - (-> (new 'static 'array float 1 0.01) 0) - (-> self anim-gspeed) - (the float (-> arg0 speed)) - ) - ) + (set! (-> self anim-gspeed) (* (-> (new 'static 'array float 1 0.01) 0) (the float (-> self speed)))) + (set! (-> self anim-speed) + (* (-> (new 'static 'array float 1 0.01) 0) (-> self anim-gspeed) (the float (-> arg0 speed))) + ) (when (< (-> self anim-speed) 0.0) - (set! (-> self anim-first) (-> arg0 last-frame)) - (set! (-> self anim-last) (-> arg0 first-frame)) - ) + (set! (-> self anim-first) (-> arg0 last-frame)) + (set! (-> self anim-last) (-> arg0 first-frame)) + ) (set! (-> self anim-gspeed) (fabs (-> self anim-gspeed))) (let ((f0-13 (fabs (-> self anim-speed)))) - (set! (-> self anim-speed) f0-13) - f0-13 - ) + (set! (-> self anim-speed) f0-13) + f0-13 + ) ) (defbehavior anim-tester-reset anim-tester () (let ((v1-0 (-> self obj-list))) - "is the list empty, #t = empty" - (cond - ((= (-> v1-0 tailpred) v1-0) - (set! (-> self list-con current-index) 0) - (set! (-> self current-obj) "") - ) - (else - (let - ((v1-1 - (the-as - anim-test-obj - (glst-find-node-by-name (-> self obj-list) (-> self current-obj)) - ) - ) + "is the list empty, #t = empty" + (cond + ((= (-> v1-0 tailpred) v1-0) + (set! (-> self list-con current-index) 0) + (set! (-> self current-obj) "") ) - (when (not v1-1) - (if - (>= - (-> self list-con current-index) - (glst-num-elements (-> self obj-list)) - ) - (set! - (-> self list-con current-index) - (+ (glst-num-elements (-> self obj-list)) -1) - ) - ) - (set! - v1-1 - (the-as - anim-test-obj - (glst-get-node-by-index - (-> self obj-list) - (-> self list-con current-index) + (else + (let ((v1-1 (the-as anim-test-obj (glst-find-node-by-name (-> self obj-list) (-> self current-obj))))) + (when (not v1-1) + (if (>= (-> self list-con current-index) (glst-num-elements (-> self obj-list))) + (set! (-> self list-con current-index) (+ (glst-num-elements (-> self obj-list)) -1)) + ) + (set! v1-1 + (the-as anim-test-obj (glst-get-node-by-index (-> self obj-list) (-> self list-con current-index))) + ) + (set! (-> self current-obj) (-> v1-1 privname)) + ) + (cond + ((or (not (-> v1-1 joint-geo)) (not (-> v1-1 mesh-geo))) + (format #t "what's this? ~A~%" (-> v1-1 privname)) + (format #t "it's missing a joint-geo, or a mesh-geo or a mesh-anim~%") + ) + (else + (let ((a0-15 (-> v1-1 joint-geo))) + (let ((a1-4 (-> v1-1 mesh-geo))) + (set! (-> self draw art-group) (-> v1-1 obj-art-group)) + (set! (-> self draw cur-lod) -1) + (set! (-> self draw jgeo) a0-15) + (set! (-> self draw sink-group) (-> *level* level-default foreground-sink-group 1)) + (set! (-> self draw lod-set lod 0 geo) a1-4) + ) + (set! (-> self draw lod-set lod 0 dist) (-> (new 'static 'array float 1 4095996000.0) 0)) + (set! (-> self draw bounds w) (-> (new 'static 'array float 1 40960.0) 0)) + (set! (-> self draw data-format) (the-as uint 1)) + (let ((v1-16 (-> (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0) quad))) + (set! (-> self draw color-mult quad) v1-16) + ) + (let ((v1-18 (-> (new 'static 'vector) quad))) + (set! (-> self draw color-emissive quad) v1-18) + ) + (set! (-> self draw secondary-interp) 0.0) + (set! (-> self draw shadow) #f) + (set! (-> self draw shadow-ctrl) #f) + (set! (-> self draw ripple) #f) + (set! (-> self draw level-index) (the-as uint 2)) + (set! (-> self node-list) (make-nodes-from-jg a0-15 *default-skel-template* 'debug)) + ) + (set! (-> self skel effect) (new 'process 'effect-control self)) + (fill-skeleton-cache self) + (lod-set! (-> self draw) 0) + (ja-channel-set! 0) + (ja-post) + ) + ) ) - ) ) - (set! (-> self current-obj) (-> v1-1 privname)) - ) - (cond - ((or (not (-> v1-1 joint-geo)) (not (-> v1-1 mesh-geo))) - (format #t "what's this? ~A~%" (-> v1-1 privname)) - (format #t "it's missing a joint-geo, or a mesh-geo or a mesh-anim~%") - ) - (else - (let ((a0-15 (-> v1-1 joint-geo))) - (let ((a1-4 (-> v1-1 mesh-geo))) - (set! (-> self draw art-group) (-> v1-1 obj-art-group)) - (set! (-> self draw cur-lod) -1) - (set! (-> self draw jgeo) a0-15) - (set! - (-> self draw sink-group) - (-> *level* level-default foreground-sink-group 1) - ) - (set! (-> self draw lod-set lod 0 geo) a1-4) - ) - (set! - (-> self draw lod-set lod 0 dist) - (-> (new 'static 'array float 1 4095996000.0) 0) - ) - (set! - (-> self draw bounds w) - (-> (new 'static 'array float 1 40960.0) 0) - ) - (set! (-> self draw data-format) (the-as uint 1)) - (let - ((v1-16 (-> (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0) quad))) - (set! (-> self draw color-mult quad) v1-16) - ) - (let ((v1-18 (-> (new 'static 'vector) quad))) - (set! (-> self draw color-emissive quad) v1-18) - ) - (set! (-> self draw secondary-interp) 0.0) - (set! (-> self draw shadow) #f) - (set! (-> self draw shadow-ctrl) #f) - (set! (-> self draw ripple) #f) - (set! (-> self draw level-index) (the-as uint 2)) - (set! - (-> self node-list) - (make-nodes-from-jg a0-15 *default-skel-template* 'debug) - ) - ) - (set! (-> self skel effect) (new 'process 'effect-control self)) - (fill-skeleton-cache self) - (lod-set! (-> self draw) 0) - (ja-channel-set! 0) - (ja-post) - ) - ) ) - ) ) - ) (none) ) -(defun - anim-tester-disp-frame-num - ((arg0 string) (arg1 float) (arg2 float) (arg3 font-context)) +(defun anim-tester-disp-frame-num ((arg0 string) (arg1 float) (arg2 float) (arg3 font-context)) (local-vars (sv-16 (function _varargs_ object))) (let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) (gp-0 (-> s3-0 base)) ) - (cond - ((= arg1 (-> (new 'static 'array float 1 -1.0) 0)) - (let ((s2-1 draw-string-adv)) - (format (clear *temp-string*) "~Smin" arg0) - (s2-1 *temp-string* s3-0 arg3) - ) - ) - ((= arg1 (-> (new 'static 'array float 1 -2.0) 0)) - (let ((s2-2 draw-string-adv)) - (format (clear *temp-string*) "~Smax" arg0) - (s2-2 *temp-string* s3-0 arg3) - ) - ) - (else - (let ((s0-0 draw-string-adv)) - (set! sv-16 format) - (let ((a0-11 (clear *temp-string*)) - (a1-5 "~S~3,,0f") - (a2-5 arg0) - (a3-1 (+ arg1 arg2)) - ) - (sv-16 a0-11 a1-5 a2-5 a3-1) + (cond + ((= arg1 (-> (new 'static 'array float 1 -1.0) 0)) + (let ((s2-1 draw-string-adv)) + (format (clear *temp-string*) "~Smin" arg0) + (s2-1 *temp-string* s3-0 arg3) + ) + ) + ((= arg1 (-> (new 'static 'array float 1 -2.0) 0)) + (let ((s2-2 draw-string-adv)) + (format (clear *temp-string*) "~Smax" arg0) + (s2-2 *temp-string* s3-0 arg3) + ) ) - (s0-0 *temp-string* s3-0 arg3) + (else + (let ((s0-0 draw-string-adv)) + (set! sv-16 format) + (let ((a0-11 (clear *temp-string*)) + (a1-5 "~S~3,,0f") + (a2-5 arg0) + (a3-1 (+ arg1 arg2)) + ) + (sv-16 a0-11 a1-5 a2-5 a3-1) + ) + (s0-0 *temp-string* s3-0 arg3) + ) + ) ) - ) - ) - (let ((a3-2 (-> s3-0 base))) - (let ((v1-6 (the-as object (-> s3-0 base)))) - (set! - (-> (the-as dma-packet v1-6) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + (let ((a3-2 (-> s3-0 base))) + (let ((v1-6 (the-as object (-> s3-0 base)))) + (set! (-> (the-as dma-packet v1-6) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-6) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-6) vif1) (new 'static 'vif-tag)) + (set! (-> s3-0 base) (&+ (the-as pointer v1-6) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-0 + (the-as (pointer dma-tag) a3-2) + ) ) - (set! (-> (the-as dma-packet v1-6) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-6) vif1) (new 'static 'vif-tag)) - (set! (-> s3-0 base) (&+ (the-as pointer v1-6) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-0 - (the-as (pointer dma-tag) a3-2) - ) ) - ) ) -(defbehavior - anim-tester-standard-event-handler anim-tester - ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block)) - (case arg2 - (('reset) +(defbehavior anim-tester-standard-event-handler anim-tester ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block)) + (case arg2 + (('reset) (process-disconnect self) - (set! (-> self flags) (logand -2 (-> self flags))) + (logclear! (-> self flags) (anim-tester-flags fanimt0)) (when (!= (-> *anim-tester* 0 edit-mode) 1) - (set! (-> *debug-menu-context* is-hidden) #f) - (set! (-> *anim-tester* 0 edit-mode) 0) - (set! *camera-read-buttons* #t) - ) + (set! (-> *debug-menu-context* is-hidden) #f) + (set! (-> *anim-tester* 0 edit-mode) 0) + (set! *camera-read-buttons* #t) + ) (anim-tester-reset) (go anim-tester-process) ) - (('change-anim) - (go anim-tester-process) - ) - (('pick-object) - (set! (-> self edit-mode) 1) - (set! *camera-read-buttons* #f) - #f - ) - (('pick-joint-anim) - (set! (-> self edit-mode) 2) - (set! *camera-read-buttons* #f) - #f - ) - (('pick-sequence) - (set! (-> self edit-mode) 3) - (set! *camera-read-buttons* #f) - #f - ) - (('edit-sequence) - (set! (-> self edit-mode) 4) - (set! *camera-read-buttons* #f) - #f - ) - (('save-sequences) - (anim-tester-save-all-objects self) + (('change-anim) + (go anim-tester-process) + ) + (('pick-object) + (set! (-> self edit-mode) 1) + (set! *camera-read-buttons* #f) + #f + ) + (('pick-joint-anim) + (set! (-> self edit-mode) 2) + (set! *camera-read-buttons* #f) + #f + ) + (('pick-sequence) + (set! (-> self edit-mode) 3) + (set! *camera-read-buttons* #f) + #f + ) + (('edit-sequence) + (set! (-> self edit-mode) 4) + (set! *camera-read-buttons* #f) + #f + ) + (('save-sequences) + (anim-tester-save-all-objects self) + ) ) - ) ) (defun anim-test-obj-list-handler ((arg0 int) (arg1 list-control)) (let ((s5-0 (-> arg1 the-node)) (v1-0 arg0) ) - (cond - ((zero? v1-0) - (let* - ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s4-0 (-> s3-0 base)) - ) - (let ((s2-0 draw-string-xy)) - (format - (clear *temp-string*) - "~S~S~S" - (if (= (-> arg1 the-index) (-> arg1 highlight-index)) - ">" - " " - ) - (if (logtest? (-> (the-as anim-test-obj s5-0) flags) 1) - "*" - " " - ) - (-> (the-as anim-test-obj s5-0) privname) - ) - (s2-0 - *temp-string* - s3-0 - (-> arg1 xpos) - (-> arg1 ypos) - (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) - 15 - 12 - ) - ) - (font-flags shadow kerning) - ) - ) - (let ((a3-2 (-> s3-0 base))) - (let ((v1-8 (the-as object (-> s3-0 base)))) - (set! - (-> (the-as dma-packet v1-8) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + (cond + ((zero? v1-0) + (let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s4-0 (-> s3-0 base)) + ) + (let ((s2-0 draw-string-xy)) + (format + (clear *temp-string*) + "~S~S~S" + (if (= (-> arg1 the-index) (-> arg1 highlight-index)) + ">" + " " + ) + (if (logtest? (-> (the-as anim-test-obj s5-0) flags) 1) + "*" + " " + ) + (-> (the-as anim-test-obj s5-0) privname) + ) + (s2-0 + *temp-string* + s3-0 + (-> arg1 xpos) + (-> arg1 ypos) + (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) + 15 + 12 + ) + ) + (font-flags shadow kerning) + ) + ) + (let ((a3-2 (-> s3-0 base))) + (let ((v1-8 (the-as object (-> s3-0 base)))) + (set! (-> (the-as dma-packet v1-8) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-8) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-8) vif1) (new 'static 'vif-tag)) + (set! (-> s3-0 base) (&+ (the-as pointer v1-8) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s4-0 + (the-as (pointer dma-tag) a3-2) + ) + ) ) - (set! (-> (the-as dma-packet v1-8) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-8) vif1) (new 'static 'vif-tag)) - (set! (-> s3-0 base) (&+ (the-as pointer v1-8) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s4-0 - (the-as (pointer dma-tag) a3-2) - ) - ) - ) - ) - ((= v1-0 1) - (return #t) - ) - ((= v1-0 4) - (cond - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up)) - (if (> (-> arg1 highlight-index) 0) - (+! (-> arg1 highlight-index) -1) - ) ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down)) - (if (< (-> arg1 highlight-index) (glst-num-elements (-> arg1 list))) - (+! (-> arg1 highlight-index) 1) - ) + ((= v1-0 1) + (return #t) ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x)) - (let ((v1-38 (the-as object (-> arg1 list-owner)))) - (set! (-> arg1 current-index) (-> arg1 the-index)) - (set! - (-> (the-as anim-tester v1-38) current-obj) - (-> (the-as anim-test-obj s5-0) privname) + ((= v1-0 4) + (cond + ((cpad-pressed? 0 up) + (if (> (-> arg1 highlight-index) 0) + (+! (-> arg1 highlight-index) -1) + ) + ) + ((cpad-pressed? 0 down) + (if (< (-> arg1 highlight-index) (glst-num-elements (-> arg1 list))) + (+! (-> arg1 highlight-index) 1) + ) + ) + ((cpad-pressed? 0 x) + (let ((v1-38 (the-as object (-> arg1 list-owner)))) + (set! (-> arg1 current-index) (-> arg1 the-index)) + (set! (-> (the-as anim-tester v1-38) current-obj) (-> (the-as anim-test-obj s5-0) privname)) + ) + (send-event (ppointer->process *anim-tester*) 'reset #f) + ) + ((cpad-pressed? 0 square) + (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) + (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) + (set! (-> *debug-menu-context* is-hidden) #f) + (set! (-> *anim-tester* 0 edit-mode) 0) + (set! *camera-read-buttons* #t) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) + ) ) - ) - (send-event (ppointer->process *anim-tester*) 'reset #f) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (set! (-> *debug-menu-context* is-hidden) #f) - (set! (-> *anim-tester* 0 edit-mode) 0) - (set! *camera-read-buttons* #t) - (logior! (-> *anim-tester* 0 flags) 4) - ) - ) - ) - ((= v1-0 2) - (let ((v1-64 (+ (length (-> (the-as anim-test-obj s5-0) privname)) 2))) - (set! v1-64 (cond - ((< (-> *ANIM_TESTER-bank* OBJECT_LIST_MIN_WIDTH) v1-64) - (empty) - v1-64 - ) - (else - (-> *ANIM_TESTER-bank* OBJECT_LIST_MIN_WIDTH) - ) - ) - ) - (set! (-> arg1 return-int) v1-64) - ) - ) - ((= v1-0 3) - (let* - ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s5-2 (-> s4-1 base)) ) - (draw-string-xy - "----pick-object---" - s4-1 - (-> arg1 xpos) - (-> arg1 ypos) - (font-color dim-white) - (font-flags shadow kerning) + ((= v1-0 2) + (let ((v1-64 (+ (length (-> (the-as anim-test-obj s5-0) privname)) 2))) + (set! v1-64 (cond + ((< (-> *ANIM_TESTER-bank* OBJECT_LIST_MIN_WIDTH) v1-64) + (empty) + v1-64 + ) + (else + (-> *ANIM_TESTER-bank* OBJECT_LIST_MIN_WIDTH) + ) + ) + ) + (set! (-> arg1 return-int) v1-64) + ) ) - (let ((a3-4 (-> s4-1 base))) - (let ((v1-70 (the-as object (-> s4-1 base)))) - (set! - (-> (the-as dma-packet v1-70) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + ((= v1-0 3) + (let* ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s5-2 (-> s4-1 base)) + ) + (draw-string-xy + "----pick-object---" + s4-1 + (-> arg1 xpos) + (-> arg1 ypos) + (font-color dim-white) + (font-flags shadow kerning) + ) + (let ((a3-4 (-> s4-1 base))) + (let ((v1-70 (the-as object (-> s4-1 base)))) + (set! (-> (the-as dma-packet v1-70) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-70) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-70) vif1) (new 'static 'vif-tag)) + (set! (-> s4-1 base) (&+ (the-as pointer v1-70) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s5-2 + (the-as (pointer dma-tag) a3-4) + ) + ) ) - (set! (-> (the-as dma-packet v1-70) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-70) vif1) (new 'static 'vif-tag)) - (set! (-> s4-1 base) (&+ (the-as pointer v1-70) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s5-2 - (the-as (pointer dma-tag) a3-4) - ) ) ) - ) ) - ) #f ) @@ -1175,202 +1027,171 @@ (let* ((s5-0 (the-as anim-test-obj (-> arg1 the-node))) (v1-0 (the-as object (-> s5-0 list-con user-info-u))) ) - (cond - ((zero? arg0) - (let* - ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s4-0 (-> s3-0 base)) - ) - (let ((s2-0 draw-string-xy)) - (format - (clear *temp-string*) - "~S~S" - (if (= (-> arg1 the-index) (-> arg1 highlight-index)) - "> " - " " - ) - (-> s5-0 privname) - ) - (s2-0 - *temp-string* - s3-0 - (-> arg1 xpos) - (-> arg1 ypos) - (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) - 15 - 12 - ) - ) - (font-flags shadow kerning) - ) - ) - (let ((a3-2 (-> s3-0 base))) - (let ((v1-6 (the-as object (-> s3-0 base)))) - (set! - (-> (the-as dma-packet v1-6) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-6) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-6) vif1) (new 'static 'vif-tag)) - (set! (-> s3-0 base) (&+ (the-as pointer v1-6) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s4-0 - (the-as (pointer dma-tag) a3-2) - ) - ) - ) - ) - ((= arg0 1) - (return (zero? (logand (-> s5-0 flags) 1))) - ) - ((= arg0 4) - (cond - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up)) - (let ((v1-15 (-> arg1 list))) - "is the list empty, #t = empty" - (when (not (= (-> v1-15 tailpred) v1-15)) - (let - ((v1-17 - (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)) - ) - ) - (while #t - "return the previous node in the list" - (set! v1-17 (-> (the-as anim-test-obj v1-17) prev)) - (let ((a0-23 (the-as anim-test-obj v1-17))) - "is this node the start of the list. #t = start" - (if (not (-> a0-23 prev)) - (goto cfg-25) + (cond + ((zero? arg0) + (let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s4-0 (-> s3-0 base)) + ) + (let ((s2-0 draw-string-xy)) + (format + (clear *temp-string*) + "~S~S" + (if (= (-> arg1 the-index) (-> arg1 highlight-index)) + "> " + " " + ) + (-> s5-0 privname) ) - ) - (when (zero? (logand (-> (the-as anim-test-obj v1-17) flags) 1)) - (set! - (-> arg1 highlight-index) - (glst-get-node-index (-> arg1 list) (the-as anim-test-obj v1-17)) + (s2-0 + *temp-string* + s3-0 + (-> arg1 xpos) + (-> arg1 ypos) + (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) + 15 + 12 + ) + ) + (font-flags shadow kerning) ) - (goto cfg-25) - ) - ) - ) - ) - ) - (label cfg-25) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down)) - (let ((v1-21 (-> arg1 list))) - "is the list empty, #t = empty" - (when (not (= (-> v1-21 tailpred) v1-21)) - (let - ((v1-23 - (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)) - ) ) - (while #t - "return the next node in the list" - (set! v1-23 (-> (the-as anim-test-obj v1-23) next)) - (let ((a0-40 (the-as anim-test-obj v1-23))) - "is this node the end of the list. #t = end" - (if (not (-> a0-40 next)) - (goto cfg-39) + (let ((a3-2 (-> s3-0 base))) + (let ((v1-6 (the-as object (-> s3-0 base)))) + (set! (-> (the-as dma-packet v1-6) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-6) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-6) vif1) (new 'static 'vif-tag)) + (set! (-> s3-0 base) (&+ (the-as pointer v1-6) 16)) ) - ) - (when (zero? (logand (-> (the-as anim-test-obj v1-23) flags) 1)) - (set! - (-> arg1 highlight-index) - (glst-get-node-index (-> arg1 list) (the-as anim-test-obj v1-23)) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s4-0 + (the-as (pointer dma-tag) a3-2) ) - (goto cfg-39) - ) ) - ) ) - ) - (label cfg-39) ) - ((= (-> arg1 user-info) 1) + ((= arg0 1) + (return (zero? (logand (-> s5-0 flags) 1))) ) - (else + ((= arg0 4) (cond - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x)) - (set! (-> arg1 current-index) (-> arg1 the-index)) - (set! - (-> (the-as anim-test-obj v1-0) anim-index) - (-> arg1 current-index) - ) - (set! - (-> (the-as anim-test-obj v1-0) anim-hindex) - (-> arg1 highlight-index) + ((cpad-pressed? 0 up) + (let ((v1-15 (-> arg1 list))) + "is the list empty, #t = empty" + (when (not (= (-> v1-15 tailpred) v1-15)) + (let ((v1-17 (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)))) + (while #t + "return the previous node in the list" + (set! v1-17 (-> (the-as anim-test-obj v1-17) prev)) + (let ((a0-23 (the-as anim-test-obj v1-17))) + "is this node the start of the list. #t = start" + (if (not (-> a0-23 prev)) + (goto cfg-25) + ) + ) + (when (zero? (logand (-> (the-as anim-test-obj v1-17) flags) 1)) + (set! (-> arg1 highlight-index) (glst-get-node-index (-> arg1 list) (the-as anim-test-obj v1-17))) + (goto cfg-25) + ) + ) + ) + ) + ) + (label cfg-25) + ) + ((cpad-pressed? 0 down) + (let ((v1-21 (-> arg1 list))) + "is the list empty, #t = empty" + (when (not (= (-> v1-21 tailpred) v1-21)) + (let ((v1-23 (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)))) + (while #t + "return the next node in the list" + (set! v1-23 (-> (the-as anim-test-obj v1-23) next)) + (let ((a0-40 (the-as anim-test-obj v1-23))) + "is this node the end of the list. #t = end" + (if (not (-> a0-40 next)) + (goto cfg-39) + ) + ) + (when (zero? (logand (-> (the-as anim-test-obj v1-23) flags) 1)) + (set! (-> arg1 highlight-index) (glst-get-node-index (-> arg1 list) (the-as anim-test-obj v1-23))) + (goto cfg-39) + ) + ) + ) + ) + ) + (label cfg-39) ) - (set! - (-> (the-as anim-test-obj v1-0) flags) - (logand -3 (-> (the-as anim-test-obj v1-0) flags)) + ((= (-> arg1 user-info) 1) ) - (send-event (ppointer->process *anim-tester*) 'change-anim #f) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (set! (-> *debug-menu-context* is-hidden) #f) - (set! (-> *anim-tester* 0 edit-mode) 0) - (set! *camera-read-buttons* #t) - (logior! (-> *anim-tester* 0 flags) 4) + (else + (cond + ((cpad-pressed? 0 x) + (set! (-> arg1 current-index) (-> arg1 the-index)) + (set! (-> (the-as anim-test-obj v1-0) anim-index) (-> arg1 current-index)) + (set! (-> (the-as anim-test-obj v1-0) anim-hindex) (-> arg1 highlight-index)) + (set! (-> (the-as anim-test-obj v1-0) flags) (logand -3 (-> (the-as anim-test-obj v1-0) flags))) + (send-event (ppointer->process *anim-tester*) 'change-anim #f) + ) + ((cpad-pressed? 0 square) + (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) + (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) + (set! (-> *debug-menu-context* is-hidden) #f) + (set! (-> *anim-tester* 0 edit-mode) 0) + (set! *camera-read-buttons* #t) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) + ) + ) + ) ) - ) - ) - ) - ) - ((= arg0 2) - (let ((v1-55 (+ (length (-> s5-0 privname)) 2))) - (set! v1-55 (cond - ((< (-> *ANIM_TESTER-bank* ANIM_LIST_MIN_WIDTH) v1-55) - (empty) - v1-55 - ) - (else - (-> *ANIM_TESTER-bank* ANIM_LIST_MIN_WIDTH) - ) - ) ) - (set! (-> arg1 return-int) v1-55) - ) - ) - ((= arg0 3) - (let* - ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s5-1 (-> s4-1 base)) - ) - (draw-string-xy - "----pick-joint-anim----" - s4-1 - (-> arg1 xpos) - (-> arg1 ypos) - (font-color dim-white) - (font-flags shadow kerning) + ((= arg0 2) + (let ((v1-55 (+ (length (-> s5-0 privname)) 2))) + (set! v1-55 (cond + ((< (-> *ANIM_TESTER-bank* ANIM_LIST_MIN_WIDTH) v1-55) + (empty) + v1-55 + ) + (else + (-> *ANIM_TESTER-bank* ANIM_LIST_MIN_WIDTH) + ) + ) + ) + (set! (-> arg1 return-int) v1-55) + ) ) - (let ((a3-4 (-> s4-1 base))) - (let ((v1-62 (the-as object (-> s4-1 base)))) - (set! - (-> (the-as dma-packet v1-62) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + ((= arg0 3) + (let* ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s5-1 (-> s4-1 base)) + ) + (draw-string-xy + "----pick-joint-anim----" + s4-1 + (-> arg1 xpos) + (-> arg1 ypos) + (font-color dim-white) + (font-flags shadow kerning) + ) + (let ((a3-4 (-> s4-1 base))) + (let ((v1-62 (the-as object (-> s4-1 base)))) + (set! (-> (the-as dma-packet v1-62) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-62) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-62) vif1) (new 'static 'vif-tag)) + (set! (-> s4-1 base) (&+ (the-as pointer v1-62) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s5-1 + (the-as (pointer dma-tag) a3-4) + ) + ) ) - (set! (-> (the-as dma-packet v1-62) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-62) vif1) (new 'static 'vif-tag)) - (set! (-> s4-1 base) (&+ (the-as pointer v1-62) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s5-1 - (the-as (pointer dma-tag) a3-4) - ) ) ) - ) ) - ) #f ) @@ -1378,293 +1199,253 @@ (let* ((s5-0 (the-as anim-test-sequence (-> arg1 the-node))) (v1-0 (-> s5-0 parent)) ) - (cond - ((zero? arg0) - (let* - ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s4-0 (-> s3-0 base)) - ) - (let ((s2-0 draw-string-xy)) - (format - (clear *temp-string*) - "~S~S~S" - (if (= (-> arg1 the-index) (-> arg1 highlight-index)) - ">" - " " - ) - (if (logtest? (-> s5-0 flags) 4) - "*" - " " - ) - (-> s5-0 privname) - ) - (s2-0 - *temp-string* - s3-0 - (-> arg1 xpos) - (-> arg1 ypos) - (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) - 15 - 12 - ) + (cond + ((zero? arg0) + (let* ((s3-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s4-0 (-> s3-0 base)) + ) + (let ((s2-0 draw-string-xy)) + (format + (clear *temp-string*) + "~S~S~S" + (if (= (-> arg1 the-index) (-> arg1 highlight-index)) + ">" + " " + ) + (if (logtest? (-> s5-0 flags) 4) + "*" + " " + ) + (-> s5-0 privname) + ) + (s2-0 + *temp-string* + s3-0 + (-> arg1 xpos) + (-> arg1 ypos) + (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) + 15 + 12 + ) + ) + (font-flags shadow kerning) + ) + ) + (let ((a3-2 (-> s3-0 base))) + (let ((v1-8 (the-as object (-> s3-0 base)))) + (set! (-> (the-as dma-packet v1-8) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-8) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-8) vif1) (new 'static 'vif-tag)) + (set! (-> s3-0 base) (&+ (the-as pointer v1-8) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s4-0 + (the-as (pointer dma-tag) a3-2) + ) + ) ) - (font-flags shadow kerning) - ) ) - (let ((a3-2 (-> s3-0 base))) - (let ((v1-8 (the-as object (-> s3-0 base)))) - (set! - (-> (the-as dma-packet v1-8) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-8) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-8) vif1) (new 'static 'vif-tag)) - (set! (-> s3-0 base) (&+ (the-as pointer v1-8) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s4-0 - (the-as (pointer dma-tag) a3-2) - ) + ((= arg0 1) + (return (logtest? (-> s5-0 flags) 1)) ) - ) - ) - ((= arg0 1) - (return (logtest? (-> s5-0 flags) 1)) - ) - ((= arg0 4) - (cond - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up)) - (let ((v1-17 (-> arg1 list))) - "is the list empty, #t = empty" - (when (not (= (-> v1-17 tailpred) v1-17)) - (let - ((v1-19 - (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)) - ) - ) - (while #t - "return the previous node in the list" - (set! v1-19 (-> (the-as anim-test-sequence v1-19) prev)) - (let ((a0-24 (the-as anim-test-sequence v1-19))) - "is this node the start of the list. #t = start" - (if (not (-> a0-24 prev)) - (goto cfg-28) - ) + ((= arg0 4) + (cond + ((cpad-pressed? 0 up) + (let ((v1-17 (-> arg1 list))) + "is the list empty, #t = empty" + (when (not (= (-> v1-17 tailpred) v1-17)) + (let ((v1-19 (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)))) + (while #t + "return the previous node in the list" + (set! v1-19 (-> (the-as anim-test-sequence v1-19) prev)) + (let ((a0-24 (the-as anim-test-sequence v1-19))) + "is this node the start of the list. #t = start" + (if (not (-> a0-24 prev)) + (goto cfg-28) + ) + ) + (when (logtest? (-> (the-as anim-test-sequence v1-19) flags) 1) + (set! (-> arg1 highlight-index) (glst-get-node-index (-> arg1 list) (the-as anim-test-sequence v1-19))) + (goto cfg-28) + ) + ) + ) + ) ) - (when (logtest? (-> (the-as anim-test-sequence v1-19) flags) 1) - (set! - (-> arg1 highlight-index) - (glst-get-node-index - (-> arg1 list) - (the-as anim-test-sequence v1-19) + (label cfg-28) + ) + ((cpad-pressed? 0 down) + (let ((v1-23 (-> arg1 list))) + "is the list empty, #t = empty" + (when (not (= (-> v1-23 tailpred) v1-23)) + (let ((v1-25 (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)))) + (while #t + "return the next node in the list" + (set! v1-25 (-> (the-as anim-test-sequence v1-25) next)) + (let ((a0-42 (the-as anim-test-sequence v1-25))) + "is this node the end of the list. #t = end" + (if (not (-> a0-42 next)) + (goto cfg-42) + ) + ) + (when (logtest? (-> (the-as anim-test-sequence v1-25) flags) 1) + (set! (-> arg1 highlight-index) (glst-get-node-index (-> arg1 list) (the-as anim-test-sequence v1-25))) + (goto cfg-42) + ) + ) + ) ) - ) - (goto cfg-28) ) - ) + (label cfg-42) + ) + ((cpad-pressed? 0 x) + (set! (-> arg1 current-index) (-> arg1 the-index)) + (set! (-> v1-0 seq-index) (-> arg1 current-index)) + (set! (-> v1-0 seq-hindex) (-> arg1 highlight-index)) + (logior! (-> v1-0 flags) 2) + (set! (-> *anim-tester* 0 edit-mode) 4) + (send-event (ppointer->process *anim-tester*) 'change-anim #f) + ) + ((cpad-pressed? 0 square) + (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) + (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) + (set! (-> *debug-menu-context* is-hidden) #f) + (set! (-> *anim-tester* 0 edit-mode) 0) + (set! *camera-read-buttons* #t) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) ) ) - ) - (label cfg-28) ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down)) - (let ((v1-23 (-> arg1 list))) - "is the list empty, #t = empty" - (when (not (= (-> v1-23 tailpred) v1-23)) - (let - ((v1-25 - (glst-get-node-by-index (-> arg1 list) (-> arg1 highlight-index)) - ) + ((= arg0 2) + (let ((v1-57 (+ (length (-> s5-0 privname)) 2))) + (set! v1-57 (cond + ((< (-> *ANIM_TESTER-bank* PICK_LIST_MIN_WIDTH) v1-57) + (empty) + v1-57 + ) + (else + (-> *ANIM_TESTER-bank* PICK_LIST_MIN_WIDTH) + ) + ) + ) + (set! (-> arg1 return-int) v1-57) + ) + ) + ((= arg0 3) + (let* ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s5-1 (-> s4-1 base)) + ) + (draw-string-xy + "----pick-sequence---" + s4-1 + (-> arg1 xpos) + (-> arg1 ypos) + (font-color dim-white) + (font-flags shadow kerning) ) - (while #t - "return the next node in the list" - (set! v1-25 (-> (the-as anim-test-sequence v1-25) next)) - (let ((a0-42 (the-as anim-test-sequence v1-25))) - "is this node the end of the list. #t = end" - (if (not (-> a0-42 next)) - (goto cfg-42) + (let ((a3-4 (-> s4-1 base))) + (let ((v1-64 (the-as object (-> s4-1 base)))) + (set! (-> (the-as dma-packet v1-64) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-64) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-64) vif1) (new 'static 'vif-tag)) + (set! (-> s4-1 base) (&+ (the-as pointer v1-64) 16)) ) - ) - (when (logtest? (-> (the-as anim-test-sequence v1-25) flags) 1) - (set! - (-> arg1 highlight-index) - (glst-get-node-index - (-> arg1 list) - (the-as anim-test-sequence v1-25) - ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s5-1 + (the-as (pointer dma-tag) a3-4) ) - (goto cfg-42) - ) ) - ) - ) - ) - (label cfg-42) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x)) - (set! (-> arg1 current-index) (-> arg1 the-index)) - (set! (-> v1-0 seq-index) (-> arg1 current-index)) - (set! (-> v1-0 seq-hindex) (-> arg1 highlight-index)) - (logior! (-> v1-0 flags) 2) - (set! (-> *anim-tester* 0 edit-mode) 4) - (send-event (ppointer->process *anim-tester*) 'change-anim #f) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (set! (-> *debug-menu-context* is-hidden) #f) - (set! (-> *anim-tester* 0 edit-mode) 0) - (set! *camera-read-buttons* #t) - (logior! (-> *anim-tester* 0 flags) 4) - ) - ) - ) - ((= arg0 2) - (let ((v1-57 (+ (length (-> s5-0 privname)) 2))) - (set! v1-57 (cond - ((< (-> *ANIM_TESTER-bank* PICK_LIST_MIN_WIDTH) v1-57) - (empty) - v1-57 - ) - (else - (-> *ANIM_TESTER-bank* PICK_LIST_MIN_WIDTH) - ) - ) - ) - (set! (-> arg1 return-int) v1-57) - ) - ) - ((= arg0 3) - (let* - ((s4-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s5-1 (-> s4-1 base)) - ) - (draw-string-xy - "----pick-sequence---" - s4-1 - (-> arg1 xpos) - (-> arg1 ypos) - (font-color dim-white) - (font-flags shadow kerning) - ) - (let ((a3-4 (-> s4-1 base))) - (let ((v1-64 (the-as object (-> s4-1 base)))) - (set! - (-> (the-as dma-packet v1-64) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) ) - (set! (-> (the-as dma-packet v1-64) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-64) vif1) (new 'static 'vif-tag)) - (set! (-> s4-1 base) (&+ (the-as pointer v1-64) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s5-1 - (the-as (pointer dma-tag) a3-4) - ) ) ) - ) ) - ) #f ) -(define - anim-test-field-highlight-lw - (new 'static 'inline-array list-field 12 - (new 'static 'list-field :left 2 :width 20) - (new 'static 'list-field :left 30 :width 4) - (new 'static 'list-field :left 35 :width 4) - (new 'static 'list-field :left 40 :width 3) - (new 'static 'list-field :left 44 :width 3) - (new 'static 'list-field :left 48 :width 1) - (new 'static 'list-field :left 49 :width 1) - (new 'static 'list-field :left 50 :width 1) - (new 'static 'list-field :left 51 :width 1) - (new 'static 'list-field :left 53 :width 1) - (new 'static 'list-field :left 54 :width 1) - (new 'static 'list-field :left 55 :width 1) - ) - ) +(define anim-test-field-highlight-lw (new 'static 'inline-array list-field 12 + (new 'static 'list-field :left 2 :width 20) + (new 'static 'list-field :left 30 :width 4) + (new 'static 'list-field :left 35 :width 4) + (new 'static 'list-field :left 40 :width 3) + (new 'static 'list-field :left 44 :width 3) + (new 'static 'list-field :left 48 :width 1) + (new 'static 'list-field :left 49 :width 1) + (new 'static 'list-field :left 50 :width 1) + (new 'static 'list-field :left 51 :width 1) + (new 'static 'list-field :left 53 :width 1) + (new 'static 'list-field :left 54 :width 1) + (new 'static 'list-field :left 55 :width 1) + ) + ) (defun anim-tester-adjust-frame ((arg0 float) (arg1 float)) (cond - ((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons down)) - (cond - ((= arg0 (-> (new 'static 'array float 1 -2.0) 0)) - (set! arg0 (+ (-> (new 'static 'array float 1 -1.0) 0) arg1)) - ) - ((!= arg0 (-> (new 'static 'array float 1 -1.0) 0)) - (set! arg0 (+ (-> (new 'static 'array float 1 -1.0) 0) arg0)) - (if (< arg0 0.0) - (set! arg0 (-> (new 'static 'array float 1 -1.0) 0)) + ((cpad-hold? 0 down) + (cond + ((= arg0 (-> (new 'static 'array float 1 -2.0) 0)) + (set! arg0 (+ (-> (new 'static 'array float 1 -1.0) 0) arg1)) + ) + ((!= arg0 (-> (new 'static 'array float 1 -1.0) 0)) + (set! arg0 (+ (-> (new 'static 'array float 1 -1.0) 0) arg0)) + (if (< arg0 0.0) + (set! arg0 (-> (new 'static 'array float 1 -1.0) 0)) + ) + ) ) - ) ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons up)) - (cond - ((= arg0 (-> (new 'static 'array float 1 -1.0) 0)) - (set! arg0 (-> (new 'static 'array float 1 0.0) 0)) - ) - ((!= arg0 (-> (new 'static 'array float 1 -2.0) 0)) - (set! arg0 (+ (-> (new 'static 'array float 1 1.0) 0) arg0)) - (if (>= arg0 arg1) - (set! arg0 (-> (new 'static 'array float 1 -2.0) 0)) + ((cpad-hold? 0 up) + (cond + ((= arg0 (-> (new 'static 'array float 1 -1.0) 0)) + (set! arg0 (-> (new 'static 'array float 1 0.0) 0)) + ) + ((!= arg0 (-> (new 'static 'array float 1 -2.0) 0)) + (set! arg0 (+ (-> (new 'static 'array float 1 1.0) 0) arg0)) + (if (>= arg0 arg1) + (set! arg0 (-> (new 'static 'array float 1 -2.0) 0)) + ) + ) ) - ) ) ) - ) arg0 ) -(defun - anim-tester-pick-item-setup - ((arg0 anim-test-seq-item) (arg1 anim-test-sequence)) +(defun anim-tester-pick-item-setup ((arg0 anim-test-seq-item) (arg1 anim-test-sequence)) (let ((gp-0 (-> arg1 parent))) - (set! (-> *anim-tester* 0 pick-con listfunc) anim-test-anim-list-handler) - (set! - (-> *anim-tester* 0 pick-con left) - (+ - (-> *ANIM_TESTER-bank* EDIT_LIST_X) - (* (-> *ANIM_TESTER-bank* EDIT_PICK_X) (-> *DISP_LIST-bank* CHAR_WIDTH)) - ) - ) - (set! (-> *anim-tester* 0 pick-con top) (-> *ANIM_TESTER-bank* EDIT_LIST_Y)) - (set! (-> *anim-tester* 0 pick-con list) (-> gp-0 seq-list)) - (set! (-> *anim-tester* 0 pick-con list-owner) (the-as uint gp-0)) - (set! (-> *anim-tester* 0 pick-con user-info) 1) - (let ((v1-10 (-> gp-0 seq-list))) - "return the start of the list" - (let ((v1-11 (-> v1-10 head))) - (while (let ((a1-16 v1-11)) - "is this node the end of the list. #t = end" - (not (not (-> a1-16 next))) + (set! (-> *anim-tester* 0 pick-con listfunc) anim-test-anim-list-handler) + (set! (-> *anim-tester* 0 pick-con left) + (+ (-> *ANIM_TESTER-bank* EDIT_LIST_X) + (* (-> *ANIM_TESTER-bank* EDIT_PICK_X) (-> *DISP_LIST-bank* CHAR_WIDTH)) ) - "return the next node in the list" - (set! v1-11 (-> v1-11 next)) - ) - ) - ) - (let ((a1-20 (glst-find-node-by-name (-> gp-0 seq-list) (-> arg0 privname)))) - (when a1-20 - (set! - (-> *anim-tester* 0 pick-con highlight-index) - (glst-get-node-index (-> gp-0 seq-list) a1-20) + ) + (set! (-> *anim-tester* 0 pick-con top) (-> *ANIM_TESTER-bank* EDIT_LIST_Y)) + (set! (-> *anim-tester* 0 pick-con list) (-> gp-0 seq-list)) + (set! (-> *anim-tester* 0 pick-con list-owner) (the-as uint gp-0)) + (set! (-> *anim-tester* 0 pick-con user-info) 1) + (let ((v1-10 (-> gp-0 seq-list))) + "return the start of the list" + (let ((v1-11 (-> v1-10 head))) + (while (let ((a1-16 v1-11)) + "is this node the end of the list. #t = end" + (not (not (-> a1-16 next))) + ) + "return the next node in the list" + (set! v1-11 (-> v1-11 next)) + ) + ) ) - (set! - (-> *anim-tester* 0 pick-con current-index) - (-> *anim-tester* 0 pick-con highlight-index) + (let ((a1-20 (glst-find-node-by-name (-> gp-0 seq-list) (-> arg0 privname)))) + (when a1-20 + (set! (-> *anim-tester* 0 pick-con highlight-index) (glst-get-node-index (-> gp-0 seq-list) a1-20)) + (set! (-> *anim-tester* 0 pick-con current-index) (-> *anim-tester* 0 pick-con highlight-index)) + ) ) - ) ) - ) - (logior! (-> *anim-tester* 0 flags) 8) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) (none) ) @@ -1674,1295 +1455,985 @@ (none) ) -(defun - anim-test-edit-seq-insert-item - ((arg0 anim-test-seq-item) (arg1 anim-test-sequence)) +(defun anim-test-edit-seq-insert-item ((arg0 anim-test-seq-item) (arg1 anim-test-sequence)) (let ((s4-0 (new 'debug 'anim-test-seq-item 1 ""))) - (anim-test-seq-item-copy! s4-0 arg0) - (when (logtest? (-> s4-0 flags) 1) - (set! (-> s4-0 flags) (logand -2 (-> s4-0 flags))) - (logior! (-> s4-0 flags) 4) - (let ((v1-8 s4-0)) - (set! (-> v1-8 privname) "--blank--") - ) + (anim-test-seq-item-copy! s4-0 arg0) + (when (logtest? (-> s4-0 flags) 1) + (set! (-> s4-0 flags) (logand -2 (-> s4-0 flags))) + (logior! (-> s4-0 flags) 4) + (let ((v1-8 s4-0)) + (set! (-> v1-8 privname) "--blank--") + ) + ) + (glst-insert-before (-> arg1 item-list) arg0 s4-0) ) - (glst-insert-before (-> arg1 item-list) arg0 s4-0) - ) (anim-test-seq-mark-as-edited arg1) (send-event (ppointer->process *anim-tester*) 'change-anim) (none) ) -;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? -;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? -;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? +;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 893] +;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 938] +;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 1045] (defun anim-test-edit-sequence-list-handler ((arg0 int) (arg1 list-control)) (local-vars - (sv-192 (function string dma-buffer int int font-color font-flags none)) - (sv-208 (function _varargs_ object)) - ) + (sv-192 (function string dma-buffer int int font-color font-flags none)) + (sv-208 (function _varargs_ object)) + ) (let ((gp-0 (-> arg1 the-node)) (s4-0 (the-as object (-> arg1 list-owner))) - (s2-0 - (and - (logtest? (-> *anim-tester* 0 flags) 8) - (zero? (-> *anim-tester* 0 item-field)) - ) - ) + (s2-0 (and + (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + (zero? (-> *anim-tester* 0 item-field)) + ) + ) ) - (cond - ((zero? arg0) - (let - ((s3-0 - (new - 'stack - 'font-context - *font-default-matrix* - (-> arg1 xpos) - (-> arg1 ypos) - (-> (new 'static 'array float 1 0.0) 0) - (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) - 15 - 12 + (cond + ((zero? arg0) + (let ((s3-0 (new + 'stack + 'font-context + *font-default-matrix* + (-> arg1 xpos) + (-> arg1 ypos) + (-> (new 'static 'array float 1 0.0) 0) + (the-as font-color (if (= (-> arg1 the-index) (-> arg1 current-index)) + 15 + 12 + ) ) - ) - (font-flags shadow kerning) - ) - ) - ) - (when (not s2-0) - (when (= (-> arg1 the-index) (-> arg1 highlight-index)) - (let* - ((a1-2 - (-> - anim-test-field-highlight-lw - (-> *anim-tester* 0 item-field) - left - ) - ) - (v1-24 - (-> - anim-test-field-highlight-lw - (-> *anim-tester* 0 item-field) - width - ) - ) - (s0-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s1-0 (-> s0-0 base)) - ) - (draw-sprite2d-xy - s0-0 - (+ (* a1-2 (-> *DISP_LIST-bank* CHAR_WIDTH)) 2 (-> arg1 xpos)) - (+ (-> arg1 ypos) -1) - (+ (* v1-24 (-> *DISP_LIST-bank* CHAR_WIDTH)) 4) - (+ (-> *DISP_LIST-bank* TV_SPACING) 1) - (new 'static 'rgba :r #xc0 :g #xc0 :a #xff) - ) - (let ((a3-4 (-> s0-0 base))) - (let ((v1-29 (the-as object (-> s0-0 base)))) - (set! - (-> (the-as dma-packet v1-29) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-29) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-29) vif1) (new 'static 'vif-tag)) - (set! (-> s0-0 base) (&+ (the-as pointer v1-29) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s1-0 - (the-as (pointer dma-tag) a3-4) - ) - ) - ) - ) - ) - (let* - ((s0-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s1-1 (-> s0-1 base)) - ) - (set! sv-192 draw-string-xy) - (set! sv-208 format) - (let ((a0-18 (clear *temp-string*)) - (a1-7 "~S~S~-27S") - (a2-11 (if (= (-> arg1 the-index) (-> arg1 highlight-index)) - ">" - " " + (font-flags shadow kerning) ) - ) - (a3-6 - (if - (= - (-> arg1 the-index) - (-> (the-as anim-test-sequence s4-0) playing-item) - ) - "*" - " " - ) - ) - (t0-2 (-> (the-as anim-test-seq-item gp-0) privname)) + ) ) - (sv-208 a0-18 a1-7 a2-11 a3-6 t0-2) - ) - (let ((a0-19 *temp-string*) - (a1-8 s0-1) - (a2-12 (-> arg1 xpos)) - (a3-7 (-> arg1 ypos)) - (t0-4 (if (= (-> arg1 the-index) (-> arg1 current-index)) - 15 - 12 + (when (not s2-0) + (when (= (-> arg1 the-index) (-> arg1 highlight-index)) + (let* ((a1-2 (-> anim-test-field-highlight-lw (-> *anim-tester* 0 item-field) left)) + (v1-24 (-> anim-test-field-highlight-lw (-> *anim-tester* 0 item-field) width)) + (s0-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s1-0 (-> s0-0 base)) ) - ) - (t1-2 3) - ) - (sv-192 - a0-19 - a1-8 - a2-12 - a3-7 - (the-as font-color t0-4) - (the-as font-flags t1-2) - ) - ) - (let ((a3-8 (-> s0-1 base))) - (let ((v1-44 (the-as object (-> s0-1 base)))) - (set! - (-> (the-as dma-packet v1-44) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-44) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-44) vif1) (new 'static 'vif-tag)) - (set! (-> s0-1 base) (&+ (the-as pointer v1-44) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - s1-1 - (the-as (pointer dma-tag) a3-8) - ) - ) - ) - (when (not s2-0) - (let* - ((s2-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (s4-1 (the-as anim-test-sequence (-> s2-2 base))) - ) - (when (zero? (logand (-> (the-as anim-test-seq-item gp-0) flags) 1)) - (let ((v1-57 s3-0) - (a1-13 - (+ - (-> arg1 xpos) - (* - (-> *ANIM_TESTER-bank* EDIT_STATS_X) - (-> *DISP_LIST-bank* CHAR_WIDTH) - ) + (draw-sprite2d-xy + s0-0 + (+ (* a1-2 (-> *DISP_LIST-bank* CHAR_WIDTH)) 2 (-> arg1 xpos)) + (+ (-> arg1 ypos) -1) + (+ (* v1-24 (-> *DISP_LIST-bank* CHAR_WIDTH)) 4) + (+ (-> *DISP_LIST-bank* TV_SPACING) 1) + (new 'static 'rgba :r #xc0 :g #xc0 :a #xff) + ) + (let ((a3-4 (-> s0-0 base))) + (let ((v1-29 (the-as object (-> s0-0 base)))) + (set! (-> (the-as dma-packet v1-29) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-29) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-29) vif1) (new 'static 'vif-tag)) + (set! (-> s0-0 base) (&+ (the-as pointer v1-29) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s1-0 + (the-as (pointer dma-tag) a3-4) + ) ) - ) - (a0-29 (-> arg1 ypos)) ) - (set! (-> v1-57 origin x) (the float a1-13)) - (set! (-> v1-57 origin y) (the float a0-29)) - ) - (cond - ((and - (< (-> (the-as anim-test-seq-item gp-0) speed) 0) - (< -100 (-> (the-as anim-test-seq-item gp-0) speed)) - ) - (let ((s1-2 draw-string-adv)) - (let ((s0-2 format) - (a0-33 (clear *temp-string*)) - (a1-14 "-0.~1d") - (v1-61 (abs (-> (the-as anim-test-seq-item gp-0) speed))) - ) - (s0-2 a0-33 a1-14 (/ (mod v1-61 100) 10)) ) - (s1-2 *temp-string* s2-2 s3-0) - ) - ) - (else - (let ((s1-3 draw-string-adv)) - (let ((s0-3 format) - (a0-36 (clear *temp-string*)) - (a1-16 "~2d.~1d") - (a2-21 (/ (-> (the-as anim-test-seq-item gp-0) speed) 100)) - (v1-64 (abs (-> (the-as anim-test-seq-item gp-0) speed))) - ) - (s0-3 a0-36 a1-16 a2-21 (/ (mod v1-64 100) 10)) - ) - (s1-3 *temp-string* s2-2 s3-0) - ) - ) - ) - (let ((s1-4 draw-string-adv)) - (format - (clear *temp-string*) - " ~4d" - (-> (the-as anim-test-seq-item gp-0) blend) - ) - (s1-4 *temp-string* s2-2 s3-0) - ) - (anim-tester-disp-frame-num - " " - (-> (the-as anim-test-seq-item gp-0) first-frame) - (-> (the-as anim-test-seq-item gp-0) artist-base) - s3-0 - ) - (anim-tester-disp-frame-num - " " - (-> (the-as anim-test-seq-item gp-0) last-frame) - (-> (the-as anim-test-seq-item gp-0) artist-base) - s3-0 - ) - (let ((s1-5 draw-string-adv)) - (format - (clear *temp-string*) - " ~S~S~S~S" - (if (logtest? (-> (the-as anim-test-seq-item gp-0) flags) 2) - "B" - "-" - ) - "-" - "-" - "-" - ) - (s1-5 *temp-string* s2-2 s3-0) - ) - ) - (let* ((a1-24 (-> anim-test-field-highlight-lw 9 left)) - (v1-69 s3-0) - (a1-26 - (+ (-> arg1 xpos) (* a1-24 (-> *DISP_LIST-bank* CHAR_WIDTH))) - ) - (a0-47 (-> arg1 ypos)) - ) - (set! (-> v1-69 origin x) (the float a1-26)) - (set! (-> v1-69 origin y) (the float a0-47)) - ) - (draw-string-adv "MID" s2-2 s3-0) - (let ((a3-15 (-> s2-2 base))) - (let ((v1-70 (the-as object (-> s2-2 base)))) - (set! - (-> (the-as dma-packet v1-70) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) ) - (set! (-> (the-as dma-packet v1-70) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-70) vif1) (new 'static 'vif-tag)) - (set! (-> s2-2 base) (&+ (the-as pointer v1-70) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - (the-as pointer s4-1) - (the-as (pointer dma-tag) a3-15) - ) - ) - ) - ) - ) - ) - ((= arg0 1) - (return #t) - ) - ((= arg0 4) - (cond - ((logtest? (-> *anim-tester* 0 flags) 8) - (let ((v1-88 (-> *anim-tester* 0 item-field))) - (cond - ((zero? v1-88) - (cond - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x)) - (set! - (-> *anim-tester* 0 flags) - (logand -9 (-> *anim-tester* 0 flags)) - ) - (let - ((v0-24 - (the-as - anim-test-obj - (glst-get-node-by-index - (-> *anim-tester* 0 pick-con list) - (-> *anim-tester* 0 pick-con highlight-index) - ) + (let* ((s0-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s1-1 (-> s0-1 base)) ) - ) - ) - (when (and v0-24 (let ((v1-101 (&-> v0-24 obj-art-group))) - "is the list empty, #t = empty" - (not (= (-> v1-101 2) v1-101)) - ) - ) - (let ((v1-103 (&-> v0-24 obj-art-group))) - "return the start of the list" - (let ((a1-30 (-> v1-103 0))) - (anim-test-seq-item-copy! - (the-as anim-test-seq-item gp-0) - (the-as anim-test-seq-item a1-30) + (set! sv-192 draw-string-xy) + (set! sv-208 format) + (let ((a0-18 (clear *temp-string*)) + (a1-7 "~S~S~-27S") + (a2-11 (if (= (-> arg1 the-index) (-> arg1 highlight-index)) + ">" + " " + ) + ) + (a3-6 (if (= (-> arg1 the-index) (-> (the-as anim-test-sequence s4-0) playing-item)) + "*" + " " + ) + ) + (t0-2 (-> (the-as anim-test-seq-item gp-0) privname)) ) - ) - ) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - ) - ) - ) - ((logtest? - (-> *cpad-list* cpads 0 button0-rel 0) - (pad-buttons square) - ) - (set! - (-> *anim-tester* 0 flags) - (logand -9 (-> *anim-tester* 0 flags)) - ) - ) - ) - ) - ((= v1-88 9) - (cond - ((zero? - (logand (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x)) + (sv-208 a0-18 a1-7 a2-11 a3-6 t0-2) ) - (set! - (-> *anim-tester* 0 flags) - (logand -9 (-> *anim-tester* 0 flags)) + (let ((a0-19 *temp-string*) + (a1-8 s0-1) + (a2-12 (-> arg1 xpos)) + (a3-7 (-> arg1 ypos)) + (t0-4 (if (= (-> arg1 the-index) (-> arg1 current-index)) + 15 + 12 + ) + ) + (t1-2 3) + ) + (sv-192 a0-19 a1-8 a2-12 a3-7 (the-as font-color t0-4) (the-as font-flags t1-2)) ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up)) - (let ((v1-124 (the-as anim-test-seq-item gp-0))) - "return the previous node in the list" - (let* ((s3-1 (-> v1-124 prev)) - (v1-125 s3-1) - ) - "is this node the start of the list. #t = start" - (when (not (not (-> v1-125 prev))) - (glst-remove - (-> (the-as anim-test-sequence s4-0) item-list) - (the-as anim-test-seq-item gp-0) - ) - (glst-insert-before - (-> (the-as anim-test-sequence s4-0) item-list) - s3-1 - (the-as anim-test-seq-item gp-0) - ) - (+! (-> arg1 current-index) -1) - (+! (-> arg1 highlight-index) -1) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (send-event (ppointer->process *anim-tester*) 'change-anim) + (let ((a3-8 (-> s0-1 base))) + (let ((v1-44 (the-as object (-> s0-1 base)))) + (set! (-> (the-as dma-packet v1-44) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-44) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-44) vif1) (new 'static 'vif-tag)) + (set! (-> s0-1 base) (&+ (the-as pointer v1-44) 16)) ) - ) - ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down)) - (let ((v1-142 (the-as anim-test-seq-item gp-0))) - "return the next node in the list" - (let* ((s3-2 (the-as anim-test-seq-item (-> v1-142 next))) - (v1-143 s3-2) - ) - "is this node the end of the list. #t = end" - (when - (and - (not (not (-> v1-143 next))) - (zero? (logand (-> s3-2 flags) 1)) - ) - (glst-remove - (-> (the-as anim-test-sequence s4-0) item-list) - (the-as anim-test-seq-item gp-0) - ) - (glst-insert-after - (-> (the-as anim-test-sequence s4-0) item-list) - s3-2 - (the-as anim-test-seq-item gp-0) - ) - (+! (-> arg1 current-index) 1) - (+! (-> arg1 highlight-index) 1) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (send-event (ppointer->process *anim-tester*) 'change-anim) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + s1-1 + (the-as (pointer dma-tag) a3-8) ) - ) ) - ) ) - ) - ((or (= v1-88 1) (= v1-88 2) (= v1-88 3) (= v1-88 4)) - (cond - ((zero? - (logand (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x)) - ) - (set! - (-> *anim-tester* 0 flags) - (logand -9 (-> *anim-tester* 0 flags)) - ) - ) - ((begin - (set! (-> arg1 current-index) (-> arg1 the-index)) - (<= (-> *anim-tester* 0 inc-timer) 0) - ) - (if (> (-> *anim-tester* 0 inc-delay) 0) - (+! (-> *anim-tester* 0 inc-delay) -1) - ) - (set! (-> *anim-tester* 0 inc-timer) (-> *anim-tester* 0 inc-delay)) - (case (-> *anim-tester* 0 item-field) - ((1) - (cond - ((logtest? - (-> *cpad-list* cpads 0 button0-abs 0) - (pad-buttons down) - ) - (+! (-> (the-as anim-test-seq-item gp-0) speed) -10) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (if (< (-> (the-as anim-test-seq-item gp-0) speed) -300) - (set! (-> (the-as anim-test-seq-item gp-0) speed) -300) + (when (not s2-0) + (let* ((s2-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (s4-1 (the-as anim-test-sequence (-> s2-2 base))) ) + (when (zero? (logand (-> (the-as anim-test-seq-item gp-0) flags) 1)) + (let ((v1-57 s3-0) + (a1-13 (+ (-> arg1 xpos) (* (-> *ANIM_TESTER-bank* EDIT_STATS_X) (-> *DISP_LIST-bank* CHAR_WIDTH)))) + (a0-29 (-> arg1 ypos)) + ) + (set! (-> v1-57 origin x) (the float a1-13)) + (set! (-> v1-57 origin y) (the float a0-29)) ) - ((logtest? - (-> *cpad-list* cpads 0 button0-abs 0) - (pad-buttons up) - ) - (+! (-> (the-as anim-test-seq-item gp-0) speed) 10) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (if (< 1000 (-> (the-as anim-test-seq-item gp-0) speed)) - (set! (-> (the-as anim-test-seq-item gp-0) speed) 1000) + (cond + ((and (< (-> (the-as anim-test-seq-item gp-0) speed) 0) (< -100 (-> (the-as anim-test-seq-item gp-0) speed))) + (let ((s1-2 draw-string-adv)) + (let ((s0-2 format) + (a0-33 (clear *temp-string*)) + (a1-14 "-0.~1d") + (v1-61 (abs (-> (the-as anim-test-seq-item gp-0) speed))) + ) + (s0-2 a0-33 a1-14 (/ (mod v1-61 100) 10)) + ) + (s1-2 *temp-string* s2-2 s3-0) + ) ) + (else + (let ((s1-3 draw-string-adv)) + (let ((s0-3 format) + (a0-36 (clear *temp-string*)) + (a1-16 "~2d.~1d") + (a2-21 (/ (-> (the-as anim-test-seq-item gp-0) speed) 100)) + (v1-64 (abs (-> (the-as anim-test-seq-item gp-0) speed))) + ) + (s0-3 a0-36 a1-16 a2-21 (/ (mod v1-64 100) 10)) + ) + (s1-3 *temp-string* s2-2 s3-0) + ) + ) ) - ) - ) - ((2) - (cond - ((logtest? - (-> *cpad-list* cpads 0 button0-abs 0) - (pad-buttons down) + (let ((s1-4 draw-string-adv)) + (format (clear *temp-string*) " ~4d" (-> (the-as anim-test-seq-item gp-0) blend)) + (s1-4 *temp-string* s2-2 s3-0) ) - (+! (-> (the-as anim-test-seq-item gp-0) blend) -1) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (when (< (-> (the-as anim-test-seq-item gp-0) blend) 0) - (set! (-> (the-as anim-test-seq-item gp-0) blend) 0) - 0 + (anim-tester-disp-frame-num + " " + (-> (the-as anim-test-seq-item gp-0) first-frame) + (-> (the-as anim-test-seq-item gp-0) artist-base) + s3-0 ) - ) - ((logtest? - (-> *cpad-list* cpads 0 button0-abs 0) - (pad-buttons up) + (anim-tester-disp-frame-num + " " + (-> (the-as anim-test-seq-item gp-0) last-frame) + (-> (the-as anim-test-seq-item gp-0) artist-base) + s3-0 ) - (+! (-> (the-as anim-test-seq-item gp-0) blend) 1) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (if (< 9999 (-> (the-as anim-test-seq-item gp-0) blend)) - (set! (-> (the-as anim-test-seq-item gp-0) blend) 9999) + (let ((s1-5 draw-string-adv)) + (format + (clear *temp-string*) + " ~S~S~S~S" + (if (logtest? (-> (the-as anim-test-seq-item gp-0) flags) 2) + "B" + "-" + ) + "-" + "-" + "-" + ) + (s1-5 *temp-string* s2-2 s3-0) ) - ) ) - ) - ((3) - (let ((f30-0 (-> (the-as anim-test-seq-item gp-0) first-frame))) - (set! - (-> (the-as anim-test-seq-item gp-0) first-frame) - (anim-tester-adjust-frame - (-> (the-as anim-test-seq-item gp-0) first-frame) - (-> (the-as anim-test-seq-item gp-0) num-frames) - ) - ) - (if (!= f30-0 (-> (the-as anim-test-seq-item gp-0) first-frame)) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - ) + (let* ((a1-24 (-> anim-test-field-highlight-lw 9 left)) + (v1-69 s3-0) + (a1-26 (+ (-> arg1 xpos) (* a1-24 (-> *DISP_LIST-bank* CHAR_WIDTH)))) + (a0-47 (-> arg1 ypos)) + ) + (set! (-> v1-69 origin x) (the float a1-26)) + (set! (-> v1-69 origin y) (the float a0-47)) ) - ) - ((4) - (let ((f30-1 (-> (the-as anim-test-seq-item gp-0) last-frame))) - (set! - (-> (the-as anim-test-seq-item gp-0) last-frame) - (anim-tester-adjust-frame - (-> (the-as anim-test-seq-item gp-0) last-frame) - (-> (the-as anim-test-seq-item gp-0) num-frames) + (draw-string-adv "MID" s2-2 s3-0) + (let ((a3-15 (-> s2-2 base))) + (let ((v1-70 (the-as object (-> s2-2 base)))) + (set! (-> (the-as dma-packet v1-70) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-70) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-70) vif1) (new 'static 'vif-tag)) + (set! (-> s2-2 base) (&+ (the-as pointer v1-70) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + (the-as pointer s4-1) + (the-as (pointer dma-tag) a3-15) ) - ) - (if (!= f30-1 (-> (the-as anim-test-seq-item gp-0) last-frame)) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - ) ) - ) ) - ) - (else - (+! (-> *anim-tester* 0 inc-timer) -1) - ) - ) - (when - (or - (logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down)) - (logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up)) - ) - (set! (-> *anim-tester* 0 inc-delay) (-> *DISP_LIST-bank* INC_DELAY)) - (set! (-> *anim-tester* 0 inc-timer) 0) - 0 ) - ) ) - ) ) - (else + ((= arg0 1) + (return #t) + ) + ((= arg0 4) (cond - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up)) - (if (> (-> arg1 highlight-index) 0) - (+! (-> arg1 highlight-index) -1) - ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons down)) - (if - (< - (the-as int (the-as anim-test-seq-item (-> arg1 highlight-index))) - (glst-num-elements (-> arg1 list)) - ) - (+! (-> arg1 highlight-index) 1) - ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons left)) - (+! (-> *anim-tester* 0 item-field) -1) - (if (< (-> *anim-tester* 0 item-field) 0) - (set! (-> *anim-tester* 0 item-field) 11) - ) - (if (= (-> *anim-tester* 0 item-field) 8) - (set! (-> *anim-tester* 0 item-field) 5) - ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons right)) - (+! (-> *anim-tester* 0 item-field) 1) - (when (>= (-> *anim-tester* 0 item-field) 12) - (set! (-> *anim-tester* 0 item-field) 0) - 0 - ) - (if (= (-> *anim-tester* 0 item-field) 6) - (set! (-> *anim-tester* 0 item-field) 9) - ) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) - (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) - (set! (-> *anim-tester* 0 edit-mode) 3) - (logior! (-> *anim-tester* 0 flags) 4) - ) - ((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x)) - (cond - ((logtest? (-> (the-as anim-test-seq-item gp-0) flags) 1) - (let ((v1-318 (-> *anim-tester* 0 item-field))) - (if (= v1-318 10) - (anim-test-edit-seq-insert-item - (the-as anim-test-seq-item gp-0) - (the-as anim-test-sequence s4-0) - ) - ) - ) - ) - (else - (let ((v1-322 (-> *anim-tester* 0 item-field))) + ((logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + (let ((v1-88 (-> *anim-tester* 0 item-field))) (cond - ((zero? v1-322) - (anim-tester-pick-item-setup - (the-as anim-test-seq-item gp-0) - (the-as anim-test-sequence s4-0) - ) - ) - ((= v1-322 10) - (anim-test-edit-seq-insert-item - (the-as anim-test-seq-item gp-0) - (the-as anim-test-sequence s4-0) + ((zero? v1-88) + (cond + ((cpad-pressed? 0 x) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + (let ((v0-24 + (the-as + anim-test-obj + (glst-get-node-by-index (-> *anim-tester* 0 pick-con list) (-> *anim-tester* 0 pick-con highlight-index)) + ) + ) + ) + (when (and v0-24 (let ((v1-101 (&-> v0-24 obj-art-group))) + "is the list empty, #t = empty" + (not (= (-> v1-101 2) v1-101)) + ) + ) + (let ((v1-103 (&-> v0-24 obj-art-group))) + "return the start of the list" + (let ((a1-30 (-> v1-103 0))) + (anim-test-seq-item-copy! (the-as anim-test-seq-item gp-0) (the-as anim-test-seq-item a1-30)) + ) + ) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + ) + ) + ) + ((cpad-pressed? 0 square) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + ) + ) ) - ) - ((= v1-322 11) - (when - (zero? (logand (-> (the-as anim-test-seq-item gp-0) flags) 1)) - (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) - (glst-remove - (-> (the-as anim-test-sequence s4-0) item-list) - (the-as anim-test-seq-item gp-0) - ) + ((= v1-88 9) + (cond + ((zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + ) + ((cpad-pressed? 0 up) + (let ((v1-124 (the-as anim-test-seq-item gp-0))) + "return the previous node in the list" + (let* ((s3-1 (-> v1-124 prev)) + (v1-125 s3-1) + ) + "is this node the start of the list. #t = start" + (when (not (not (-> v1-125 prev))) + (glst-remove (-> (the-as anim-test-sequence s4-0) item-list) (the-as anim-test-seq-item gp-0)) + (glst-insert-before (-> (the-as anim-test-sequence s4-0) item-list) s3-1 (the-as anim-test-seq-item gp-0)) + (+! (-> arg1 current-index) -1) + (+! (-> arg1 highlight-index) -1) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (send-event (ppointer->process *anim-tester*) 'change-anim) + ) + ) + ) + ) + ((cpad-pressed? 0 down) + (let ((v1-142 (the-as anim-test-seq-item gp-0))) + "return the next node in the list" + (let* ((s3-2 (the-as anim-test-seq-item (-> v1-142 next))) + (v1-143 s3-2) + ) + "is this node the end of the list. #t = end" + (when (and (not (not (-> v1-143 next))) (zero? (logand (-> s3-2 flags) 1))) + (glst-remove (-> (the-as anim-test-sequence s4-0) item-list) (the-as anim-test-seq-item gp-0)) + (glst-insert-after (-> (the-as anim-test-sequence s4-0) item-list) s3-2 (the-as anim-test-seq-item gp-0)) + (+! (-> arg1 current-index) 1) + (+! (-> arg1 highlight-index) 1) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (send-event (ppointer->process *anim-tester*) 'change-anim) + ) + ) + ) + ) + ) ) - (send-event (ppointer->process *anim-tester*) 'change-anim) - ) - (else - (when - (zero? (logand (-> (the-as anim-test-seq-item gp-0) flags) 4)) - (case (-> *anim-tester* 0 item-field) - ((5) - (anim-test-seq-mark-as-edited - (the-as anim-test-sequence s4-0) - ) - (let - ((v1-331 - (logxor (-> (the-as anim-test-seq-item gp-0) flags) 2) + ((or (= v1-88 1) (= v1-88 2) (= v1-88 3) (= v1-88 4)) + (cond + ((zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + ) + ((begin (set! (-> arg1 current-index) (-> arg1 the-index)) (<= (-> *anim-tester* 0 inc-timer) 0)) + (if (> (-> *anim-tester* 0 inc-delay) 0) + (+! (-> *anim-tester* 0 inc-delay) -1) + ) + (set! (-> *anim-tester* 0 inc-timer) (-> *anim-tester* 0 inc-delay)) + (case (-> *anim-tester* 0 item-field) + ((1) + (cond + ((cpad-hold? 0 down) + (+! (-> (the-as anim-test-seq-item gp-0) speed) -10) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (if (< (-> (the-as anim-test-seq-item gp-0) speed) -300) + (set! (-> (the-as anim-test-seq-item gp-0) speed) -300) + ) + ) + ((cpad-hold? 0 up) + (+! (-> (the-as anim-test-seq-item gp-0) speed) 10) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (if (< 1000 (-> (the-as anim-test-seq-item gp-0) speed)) + (set! (-> (the-as anim-test-seq-item gp-0) speed) 1000) + ) + ) + ) + ) + ((2) + (cond + ((cpad-hold? 0 down) + (+! (-> (the-as anim-test-seq-item gp-0) blend) -1) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (when (< (-> (the-as anim-test-seq-item gp-0) blend) 0) + (set! (-> (the-as anim-test-seq-item gp-0) blend) 0) + 0 + ) + ) + ((cpad-hold? 0 up) + (+! (-> (the-as anim-test-seq-item gp-0) blend) 1) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (if (< 9999 (-> (the-as anim-test-seq-item gp-0) blend)) + (set! (-> (the-as anim-test-seq-item gp-0) blend) 9999) + ) + ) + ) + ) + ((3) + (let ((f30-0 (-> (the-as anim-test-seq-item gp-0) first-frame))) + (set! (-> (the-as anim-test-seq-item gp-0) first-frame) (anim-tester-adjust-frame + (-> (the-as anim-test-seq-item gp-0) first-frame) + (-> (the-as anim-test-seq-item gp-0) num-frames) + ) + ) + (if (!= f30-0 (-> (the-as anim-test-seq-item gp-0) first-frame)) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + ) + ) + ) + ((4) + (let ((f30-1 (-> (the-as anim-test-seq-item gp-0) last-frame))) + (set! (-> (the-as anim-test-seq-item gp-0) last-frame) (anim-tester-adjust-frame + (-> (the-as anim-test-seq-item gp-0) last-frame) + (-> (the-as anim-test-seq-item gp-0) num-frames) + ) + ) + (if (!= f30-1 (-> (the-as anim-test-seq-item gp-0) last-frame)) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + ) + ) ) ) - (set! (-> (the-as anim-test-seq-item gp-0) flags) v1-331) - v1-331 - ) ) - ((6) - (the-as int #f) + (else + (+! (-> *anim-tester* 0 inc-timer) -1) + ) ) - ((7) - (the-as int #f) + (when (or (cpad-pressed? 0 down) (cpad-pressed? 0 up)) + (set! (-> *anim-tester* 0 inc-delay) (-> *DISP_LIST-bank* INC_DELAY)) + (set! (-> *anim-tester* 0 inc-timer) 0) + 0 ) - ((8) - (the-as int #f) + ) + ) + ) + ) + (else + (cond + ((cpad-pressed? 0 up) + (if (> (-> arg1 highlight-index) 0) + (+! (-> arg1 highlight-index) -1) + ) + ) + ((cpad-pressed? 0 down) + (if (< (the-as int (the-as anim-test-seq-item (-> arg1 highlight-index))) (glst-num-elements (-> arg1 list))) + (+! (-> arg1 highlight-index) 1) + ) + ) + ((cpad-pressed? 0 left) + (+! (-> *anim-tester* 0 item-field) -1) + (if (< (-> *anim-tester* 0 item-field) 0) + (set! (-> *anim-tester* 0 item-field) 11) + ) + (if (= (-> *anim-tester* 0 item-field) 8) + (set! (-> *anim-tester* 0 item-field) 5) + ) + ) + ((cpad-pressed? 0 right) + (+! (-> *anim-tester* 0 item-field) 1) + (when (>= (-> *anim-tester* 0 item-field) 12) + (set! (-> *anim-tester* 0 item-field) 0) + 0 + ) + (if (= (-> *anim-tester* 0 item-field) 6) + (set! (-> *anim-tester* 0 item-field) 9) + ) + ) + ((cpad-pressed? 0 square) + (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) + (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) + (set! (-> *anim-tester* 0 edit-mode) 3) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) + ) + ((cpad-pressed? 0 x) + (cond + ((logtest? (-> (the-as anim-test-seq-item gp-0) flags) 1) + (let ((v1-318 (-> *anim-tester* 0 item-field))) + (if (= v1-318 10) + (anim-test-edit-seq-insert-item (the-as anim-test-seq-item gp-0) (the-as anim-test-sequence s4-0)) + ) + ) ) (else - (logior! (-> *anim-tester* 0 flags) 8) - (set! - (-> *anim-tester* 0 inc-delay) - (-> *DISP_LIST-bank* INC_DELAY) + (let ((v1-322 (-> *anim-tester* 0 item-field))) + (cond + ((zero? v1-322) + (anim-tester-pick-item-setup (the-as anim-test-seq-item gp-0) (the-as anim-test-sequence s4-0)) + ) + ((= v1-322 10) + (anim-test-edit-seq-insert-item (the-as anim-test-seq-item gp-0) (the-as anim-test-sequence s4-0)) + ) + ((= v1-322 11) + (when (zero? (logand (-> (the-as anim-test-seq-item gp-0) flags) 1)) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (glst-remove (-> (the-as anim-test-sequence s4-0) item-list) (the-as anim-test-seq-item gp-0)) + ) + (send-event (ppointer->process *anim-tester*) 'change-anim) + ) + (else + (when (zero? (logand (-> (the-as anim-test-seq-item gp-0) flags) 4)) + (case (-> *anim-tester* 0 item-field) + ((5) + (anim-test-seq-mark-as-edited (the-as anim-test-sequence s4-0)) + (let ((v1-331 (logxor (-> (the-as anim-test-seq-item gp-0) flags) 2))) + (set! (-> (the-as anim-test-seq-item gp-0) flags) v1-331) + v1-331 + ) + ) + ((6) + (the-as int #f) + ) + ((7) + (the-as int #f) + ) + ((8) + (the-as int #f) + ) + (else + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + (set! (-> *anim-tester* 0 inc-delay) (-> *DISP_LIST-bank* INC_DELAY)) + (set! (-> *anim-tester* 0 inc-timer) 0) + 0 + ) + ) + ) + ) + ) + ) ) - (set! (-> *anim-tester* 0 inc-timer) 0) - 0 - ) ) - ) ) ) - ) ) - ) ) - ) - ) - ) - ) - ((= arg0 2) - (set! (-> arg1 return-int) (-> *ANIM_TESTER-bank* EDIT_LIST_MIN_WIDTH)) - ) - ((= arg0 3) - (let* - ((s3-3 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (gp-2 (-> s3-3 base)) - ) - (let ((s1-6 draw-string-xy)) - (format - (clear *temp-string*) - "--Seq--(~-17S)--" - (-> (the-as anim-test-sequence s4-0) privname) - ) - (s1-6 - *temp-string* - s3-3 - (-> arg1 xpos) - (-> arg1 ypos) - (font-color dim-white) - (font-flags shadow kerning) - ) - ) - (let ((a3-17 (-> s3-3 base))) - (let ((v1-355 (the-as object (-> s3-3 base)))) - (set! - (-> (the-as dma-packet v1-355) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-355) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-355) vif1) (new 'static 'vif-tag)) - (set! (-> s3-3 base) (&+ (the-as pointer v1-355) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-2 - (the-as (pointer dma-tag) a3-17) - ) ) - ) - (cond - (s2-0 - (display-list-control (-> *anim-tester* 0 pick-con)) + ((= arg0 2) + (set! (-> arg1 return-int) (-> *ANIM_TESTER-bank* EDIT_LIST_MIN_WIDTH)) ) - (else - (let* - ((s4-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (gp-3 (-> s4-2 base)) - ) - (draw-string-xy - "-spd-blnd-1st-lst-flgs-mov-" - s4-2 - (+ - (-> arg1 xpos) - (* - (-> *ANIM_TESTER-bank* EDIT_STATS_X) - (-> *DISP_LIST-bank* CHAR_WIDTH) + ((= arg0 3) + (let* ((s3-3 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (gp-2 (-> s3-3 base)) + ) + (let ((s1-6 draw-string-xy)) + (format (clear *temp-string*) "--Seq--(~-17S)--" (-> (the-as anim-test-sequence s4-0) privname)) + (s1-6 *temp-string* s3-3 (-> arg1 xpos) (-> arg1 ypos) (font-color dim-white) (font-flags shadow kerning)) + ) + (let ((a3-17 (-> s3-3 base))) + (let ((v1-355 (the-as object (-> s3-3 base)))) + (set! (-> (the-as dma-packet v1-355) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-355) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-355) vif1) (new 'static 'vif-tag)) + (set! (-> s3-3 base) (&+ (the-as pointer v1-355) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-2 + (the-as (pointer dma-tag) a3-17) + ) ) - ) - (-> arg1 ypos) - (font-color dim-white) - (font-flags shadow kerning) ) - (let ((a3-21 (-> s4-2 base))) - (let ((v1-367 (the-as object (-> s4-2 base)))) - (set! - (-> (the-as dma-packet v1-367) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + (cond + (s2-0 + (display-list-control (-> *anim-tester* 0 pick-con)) + ) + (else + (let* ((s4-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (gp-3 (-> s4-2 base)) + ) + (draw-string-xy + "-spd-blnd-1st-lst-flgs-mov-" + s4-2 + (+ (-> arg1 xpos) (* (-> *ANIM_TESTER-bank* EDIT_STATS_X) (-> *DISP_LIST-bank* CHAR_WIDTH))) + (-> arg1 ypos) + (font-color dim-white) + (font-flags shadow kerning) + ) + (let ((a3-21 (-> s4-2 base))) + (let ((v1-367 (the-as object (-> s4-2 base)))) + (set! (-> (the-as dma-packet v1-367) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-367) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-367) vif1) (new 'static 'vif-tag)) + (set! (-> s4-2 base) (&+ (the-as pointer v1-367) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-3 + (the-as (pointer dma-tag) a3-21) + ) + ) + ) ) - (set! (-> (the-as dma-packet v1-367) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-367) vif1) (new 'static 'vif-tag)) - (set! (-> s4-2 base) (&+ (the-as pointer v1-367) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-3 - (the-as (pointer dma-tag) a3-21) - ) ) - ) ) ) - ) ) - ) #f ) (defbehavior anim-tester-interface anim-tester () (let ((v1-0 (-> self edit-mode))) - (cond - ((zero? v1-0) - (when (logtest? (-> *anim-tester* 0 flags) 4) - (set! (-> *anim-tester* 0 flags) (logand -5 (-> *anim-tester* 0 flags))) - (set-master-mode 'menu) - ) - ) - ((= v1-0 1) - (display-list-control (-> self list-con)) - ) - ((= v1-0 2) - (let - ((gp-0 - (the-as - anim-test-obj - (glst-find-node-by-name (-> self obj-list) (-> self current-obj)) - ) - ) - ) - (cond - (gp-0 - (set! (-> gp-0 list-con listfunc) anim-test-anim-list-handler) - (set! (-> gp-0 list-con current-index) (-> gp-0 anim-index)) - (set! (-> gp-0 list-con highlight-index) (-> gp-0 anim-hindex)) - (display-list-control (-> gp-0 list-con)) - (set! (-> gp-0 anim-index) (-> gp-0 list-con current-index)) - (set! (-> gp-0 anim-hindex) (-> gp-0 list-con highlight-index)) - ) - (else - (let* - ((s5-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (gp-1 (-> s5-0 base)) - ) - (draw-string-xy - "ERROR: current object not found" - s5-0 - (-> *ANIM_TESTER-bank* ANIM_LIST_X) - (-> *ANIM_TESTER-bank* ANIM_LIST_Y) - (font-color orange-red-2) - (font-flags shadow kerning) - ) - (let ((a3-1 (-> s5-0 base))) - (let ((v1-20 (the-as object (-> s5-0 base)))) - (set! - (-> (the-as dma-packet v1-20) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-20) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-20) vif1) (new 'static 'vif-tag)) - (set! (-> s5-0 base) (&+ (the-as pointer v1-20) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-1 - (the-as (pointer dma-tag) a3-1) - ) - ) + (cond + ((zero? v1-0) + (when (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) + (set-master-mode 'menu) ) - ) ) - ) - ) - ((= v1-0 3) - (let - ((gp-2 - (the-as - anim-test-obj - (glst-find-node-by-name (-> self obj-list) (-> self current-obj)) - ) - ) + ((= v1-0 1) + (display-list-control (-> self list-con)) ) - (cond - (gp-2 - (set! (-> gp-2 list-con listfunc) anim-test-sequence-list-handler) - (set! (-> gp-2 list-con current-index) (-> gp-2 seq-index)) - (set! (-> gp-2 list-con highlight-index) (-> gp-2 seq-hindex)) - (display-list-control (-> gp-2 list-con)) - (set! (-> gp-2 seq-index) (-> gp-2 list-con current-index)) - (set! (-> gp-2 seq-hindex) (-> gp-2 list-con highlight-index)) - ) - (else - (let* - ((s5-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (gp-3 (-> s5-1 base)) - ) - (draw-string-xy - "ERROR: current object not found" - s5-1 - (-> *ANIM_TESTER-bank* ANIM_LIST_X) - (-> *ANIM_TESTER-bank* ANIM_LIST_Y) - (font-color orange-red-2) - (font-flags shadow kerning) - ) - (let ((a3-3 (-> s5-1 base))) - (let ((v1-36 (the-as object (-> s5-1 base)))) - (set! - (-> (the-as dma-packet v1-36) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-36) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-36) vif1) (new 'static 'vif-tag)) - (set! (-> s5-1 base) (&+ (the-as pointer v1-36) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-3 - (the-as (pointer dma-tag) a3-3) + ((= v1-0 2) + (let ((gp-0 (the-as anim-test-obj (glst-find-node-by-name (-> self obj-list) (-> self current-obj))))) + (cond + (gp-0 + (set! (-> gp-0 list-con listfunc) anim-test-anim-list-handler) + (set! (-> gp-0 list-con current-index) (-> gp-0 anim-index)) + (set! (-> gp-0 list-con highlight-index) (-> gp-0 anim-hindex)) + (display-list-control (-> gp-0 list-con)) + (set! (-> gp-0 anim-index) (-> gp-0 list-con current-index)) + (set! (-> gp-0 anim-hindex) (-> gp-0 list-con highlight-index)) + ) + (else + (let* ((s5-0 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (gp-1 (-> s5-0 base)) + ) + (draw-string-xy + "ERROR: current object not found" + s5-0 + (-> *ANIM_TESTER-bank* ANIM_LIST_X) + (-> *ANIM_TESTER-bank* ANIM_LIST_Y) + (font-color orange-red-2) + (font-flags shadow kerning) + ) + (let ((a3-1 (-> s5-0 base))) + (let ((v1-20 (the-as object (-> s5-0 base)))) + (set! (-> (the-as dma-packet v1-20) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-20) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-20) vif1) (new 'static 'vif-tag)) + (set! (-> s5-0 base) (&+ (the-as pointer v1-20) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-1 + (the-as (pointer dma-tag) a3-1) + ) + ) + ) + ) ) - ) - ) - ) - ) - ) - ) - ((= v1-0 4) - (let - ((v1-43 - (the-as - anim-test-obj - (glst-find-node-by-name (-> self obj-list) (-> self current-obj)) ) - ) ) - (cond - (v1-43 - (let - ((v1-44 - (the-as - anim-test-sequence - (glst-get-node-by-index - (-> v1-43 seq-list) - (-> v1-43 list-con current-index) - ) - ) - ) - ) + ((= v1-0 3) + (let ((gp-2 (the-as anim-test-obj (glst-find-node-by-name (-> self obj-list) (-> self current-obj))))) (cond - (v1-44 - (display-list-control (-> v1-44 list-con)) - ) - (else - (let* - ((s5-2 - (-> *display* frames (-> *display* on-screen) frame debug-buf) - ) - (gp-4 (-> s5-2 base)) - ) - (draw-string-xy - "ERROR: current sequence not found" - s5-2 - (-> *ANIM_TESTER-bank* EDIT_LIST_X) - (-> *ANIM_TESTER-bank* EDIT_LIST_Y) - (font-color orange-red-2) - (font-flags shadow kerning) + (gp-2 + (set! (-> gp-2 list-con listfunc) anim-test-sequence-list-handler) + (set! (-> gp-2 list-con current-index) (-> gp-2 seq-index)) + (set! (-> gp-2 list-con highlight-index) (-> gp-2 seq-hindex)) + (display-list-control (-> gp-2 list-con)) + (set! (-> gp-2 seq-index) (-> gp-2 list-con current-index)) + (set! (-> gp-2 seq-hindex) (-> gp-2 list-con highlight-index)) ) - (let ((a3-5 (-> s5-2 base))) - (let ((v1-51 (the-as object (-> s5-2 base)))) - (set! - (-> (the-as dma-packet v1-51) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) + (else + (let* ((s5-1 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (gp-3 (-> s5-1 base)) + ) + (draw-string-xy + "ERROR: current object not found" + s5-1 + (-> *ANIM_TESTER-bank* ANIM_LIST_X) + (-> *ANIM_TESTER-bank* ANIM_LIST_Y) + (font-color orange-red-2) + (font-flags shadow kerning) + ) + (let ((a3-3 (-> s5-1 base))) + (let ((v1-36 (the-as object (-> s5-1 base)))) + (set! (-> (the-as dma-packet v1-36) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-36) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-36) vif1) (new 'static 'vif-tag)) + (set! (-> s5-1 base) (&+ (the-as pointer v1-36) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-3 + (the-as (pointer dma-tag) a3-3) + ) + ) ) - (set! (-> (the-as dma-packet v1-51) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-51) vif1) (new 'static 'vif-tag)) - (set! (-> s5-2 base) (&+ (the-as pointer v1-51) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-4 - (the-as (pointer dma-tag) a3-5) - ) ) - ) ) - ) ) - ) - (else - (let* - ((s5-3 (-> *display* frames (-> *display* on-screen) frame debug-buf)) - (gp-5 (-> s5-3 base)) - ) - (draw-string-xy - "ERROR: current object not found" - s5-3 - (-> *ANIM_TESTER-bank* EDIT_LIST_X) - (-> *ANIM_TESTER-bank* EDIT_LIST_Y) - (font-color orange-red-2) - (font-flags shadow kerning) - ) - (let ((a3-7 (-> s5-3 base))) - (let ((v1-62 (the-as object (-> s5-3 base)))) - (set! - (-> (the-as dma-packet v1-62) dma) - (new 'static 'dma-tag :id (dma-tag-id next)) - ) - (set! (-> (the-as dma-packet v1-62) vif0) (new 'static 'vif-tag)) - (set! (-> (the-as dma-packet v1-62) vif1) (new 'static 'vif-tag)) - (set! (-> s5-3 base) (&+ (the-as pointer v1-62) 16)) - ) - (dma-bucket-insert-tag - (-> *display* frames (-> *display* on-screen) frame bucket-group) - (bucket-id debug-draw0) - gp-5 - (the-as (pointer dma-tag) a3-7) + ) + ((= v1-0 4) + (let ((v1-43 (the-as anim-test-obj (glst-find-node-by-name (-> self obj-list) (-> self current-obj))))) + (cond + (v1-43 + (let ((v1-44 + (the-as anim-test-sequence (glst-get-node-by-index (-> v1-43 seq-list) (-> v1-43 list-con current-index))) + ) + ) + (cond + (v1-44 + (display-list-control (-> v1-44 list-con)) + ) + (else + (let* ((s5-2 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (gp-4 (-> s5-2 base)) + ) + (draw-string-xy + "ERROR: current sequence not found" + s5-2 + (-> *ANIM_TESTER-bank* EDIT_LIST_X) + (-> *ANIM_TESTER-bank* EDIT_LIST_Y) + (font-color orange-red-2) + (font-flags shadow kerning) + ) + (let ((a3-5 (-> s5-2 base))) + (let ((v1-51 (the-as object (-> s5-2 base)))) + (set! (-> (the-as dma-packet v1-51) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-51) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-51) vif1) (new 'static 'vif-tag)) + (set! (-> s5-2 base) (&+ (the-as pointer v1-51) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-4 + (the-as (pointer dma-tag) a3-5) + ) + ) + ) + ) + ) + ) + ) + (else + (let* ((s5-3 (-> *display* frames (-> *display* on-screen) frame debug-buf)) + (gp-5 (-> s5-3 base)) + ) + (draw-string-xy + "ERROR: current object not found" + s5-3 + (-> *ANIM_TESTER-bank* EDIT_LIST_X) + (-> *ANIM_TESTER-bank* EDIT_LIST_Y) + (font-color orange-red-2) + (font-flags shadow kerning) + ) + (let ((a3-7 (-> s5-3 base))) + (let ((v1-62 (the-as object (-> s5-3 base)))) + (set! (-> (the-as dma-packet v1-62) dma) (new 'static 'dma-tag :id (dma-tag-id next))) + (set! (-> (the-as dma-packet v1-62) vif0) (new 'static 'vif-tag)) + (set! (-> (the-as dma-packet v1-62) vif1) (new 'static 'vif-tag)) + (set! (-> s5-3 base) (&+ (the-as pointer v1-62) 16)) + ) + (dma-bucket-insert-tag + (-> *display* frames (-> *display* on-screen) frame bucket-group) + (bucket-id debug-draw0) + gp-5 + (the-as (pointer dma-tag) a3-7) + ) + ) + ) + ) ) - ) ) - ) ) ) - ) ) - ) (set! (-> self old-mode) (-> self edit-mode)) (none) ) (defun anim-tester-get-playing-item ((arg0 anim-test-sequence)) - (let - ((v0-0 - ((the-as - (function glst-list int anim-test-seq-item) - glst-get-node-by-index - ) - (-> arg0 item-list) - (-> arg0 playing-item) - ) - ) - ) - (let ((s5-0 v0-0) - (s4-0 (-> arg0 playing-item)) - ) - (when (logtest? (-> v0-0 flags) 5) - (while #t - (+! s4-0 1) - (if (>= s4-0 (glst-num-elements (-> arg0 item-list))) - (set! s4-0 0) - ) - (set! - v0-0 - ((the-as - (function glst-list int anim-test-seq-item) - glst-get-node-by-index - ) - (-> arg0 item-list) - s4-0 + (let ((v0-0 ((the-as (function glst-list int anim-test-seq-item) glst-get-node-by-index) + (-> arg0 item-list) + (-> arg0 playing-item) + ) + ) + ) + (let ((s5-0 v0-0) + (s4-0 (-> arg0 playing-item)) + ) + (when (logtest? (-> v0-0 flags) 5) + (while #t + (+! s4-0 1) + (if (>= s4-0 (glst-num-elements (-> arg0 item-list))) + (set! s4-0 0) + ) + (set! v0-0 + ((the-as (function glst-list int anim-test-seq-item) glst-get-node-by-index) (-> arg0 item-list) s4-0) + ) + (when (or (= v0-0 s5-0) (zero? (logand (-> v0-0 flags) 5))) + (set! (-> arg0 playing-item) s4-0) + (return v0-0) + ) + ) ) - ) - (when (or (= v0-0 s5-0) (zero? (logand (-> v0-0 flags) 5))) - (set! (-> arg0 playing-item) s4-0) - (return v0-0) - ) ) - ) + v0-0 ) - v0-0 - ) ) (defstate anim-tester-process (anim-tester) :event anim-tester-standard-event-handler :enter - (behavior () - (logior! (-> self flags) 2) - (none) - ) + (behavior () (logior! (-> self flags) (anim-tester-flags fanimt1)) (none)) :trans (behavior () - (if (and (zero? (logand (-> self flags) 2)) (= *master-mode* 'menu)) - (anim-tester-interface) - ) - (set! (-> self flags) (logand -3 (-> self flags))) - (when (!= *master-mode* 'menu) - (dummy-10 (-> self skel) (the-as symbol *stdcon*)) - (add-debug-x - #t - (bucket-id debug-draw1) - (-> self root trans) - (new 'static 'rgba :r #xff :g #xff :b #xff :a #x80) - ) + (if (and (zero? (logand (-> self flags) (anim-tester-flags fanimt1))) (= *master-mode* 'menu)) + (anim-tester-interface) + ) + (logclear! (-> self flags) (anim-tester-flags fanimt1)) + (when (!= *master-mode* 'menu) + (dummy-10 (-> self skel) (the-as symbol *stdcon*)) + (add-debug-x + #t + (bucket-id debug-draw1) + (-> self root trans) + (new 'static 'rgba :r #xff :g #xff :b #xff :a #x80) + ) + ) + (none) ) - (none) - ) :code (behavior () - (local-vars - (s4-0 glst-node) - (s5-1 anim-test-seq-item) - (gp-2 anim-test-sequence) - ) - (while #t - (set! (-> self flags) (logand -2 (-> self flags))) - (let ((v1-2 (-> self obj-list))) - "is the list empty, #t = empty" - (cond - ((= (-> v1-2 tailpred) v1-2) - (format *stdcon* "anim-tester:no objects loaded~%") - (set! (-> self list-con current-index) 0) - (set! (-> self current-obj) "") - (suspend) - 0 - ) - ((begin - (set! - s4-0 - (glst-find-node-by-name (-> self obj-list) (-> self current-obj)) - ) - (when (not s4-0) - (if - (>= - (-> self list-con current-index) - (glst-num-elements (-> self obj-list)) - ) - (set! - (-> self list-con current-index) - (+ (glst-num-elements (-> self obj-list)) -1) - ) - ) - (set! - s4-0 - (glst-get-node-by-index - (-> self obj-list) - (-> self list-con current-index) - ) - ) - (set! (-> self current-obj) (-> (the-as anim-test-obj s4-0) privname)) - ) - (let - ((v1-10 (the-as structure (-> (the-as anim-test-obj s4-0) seq-list)))) - "is the list empty, #t = empty" - (= (-> (the-as anim-test-obj v1-10) privname) (the-as glst-list v1-10)) - ) - ) - (format *stdcon* "anim-tester:no anims loaded~%") - (format *stdcon* "displaying without anim not yet implement~%") - (set! (-> self flags) (logand -2 (-> self flags))) - (suspend) - 0 - ) - ((begin - (if - (>= - (-> (the-as anim-test-obj s4-0) list-con current-index) - (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list)) - ) - (set! - (-> (the-as anim-test-obj s4-0) list-con current-index) - (+ (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list)) -1) - ) - ) - (set! - gp-2 - (the-as - anim-test-sequence - (glst-get-node-by-index - (-> (the-as anim-test-obj s4-0) seq-list) - (if (logtest? (-> (the-as anim-test-obj s4-0) flags) 2) - (-> (the-as anim-test-obj s4-0) seq-index) - (-> (the-as anim-test-obj s4-0) anim-index) - ) - ) - ) - ) - (let ((v1-18 (-> gp-2 item-list))) - "is the list empty, #t = empty" - (= (-> v1-18 tailpred) v1-18) - ) - ) - (format - *stdcon* - "anim-tester:no items in sequence ~A~%" - (-> gp-2 privname) - ) - (format *stdcon* "displaying without anim not yet implement~%") - (suspend) - 0 - ) - ((begin - (when - (>= (-> gp-2 playing-item) (glst-num-elements (-> gp-2 item-list))) - (set! (-> gp-2 playing-item) 0) - 0 - ) - (set! s5-1 (anim-tester-get-playing-item gp-2)) - s5-1 - ) - (let - ((s4-1 - (the-as - art-joint-anim - (dummy-10 - (-> (the-as anim-test-obj s4-0) obj-art-group) - (-> s5-1 privname) - art-joint-anim - ) - ) - ) - ) - (anim-tester-update-anim-info s5-1) + (local-vars (s4-0 glst-node) (s5-1 anim-test-seq-item) (gp-2 anim-test-sequence)) + (while #t + (logclear! (-> self flags) (anim-tester-flags fanimt0)) + (let ((v1-2 (-> self obj-list))) + "is the list empty, #t = empty" (cond - (s4-1 - (logior! (-> self flags) 1) - (if (nonzero? (-> s5-1 blend)) - (ja-channel-push! - 1 - (the int (* (the float (-> s5-1 blend)) (-> self anim-gspeed))) - ) - (ja-channel-set! 1) - ) - (cond - ((= (-> self anim-first) (-> (new 'static 'array float 1 -1.0) 0)) - (let ((s3-0 (-> self skel root-channel 0))) - (joint-control-channel-group-eval! s3-0 s4-1 num-func-identity) - (set! (-> s3-0 frame-num) 0.0) - ) - ) - ((= (-> self anim-first) (-> (new 'static 'array float 1 -2.0) 0)) - (let ((s3-1 (-> self skel root-channel 0))) - (joint-control-channel-group-eval! s3-1 s4-1 num-func-identity) - (set! - (-> s3-1 frame-num) - (the float (+ (-> s4-1 data 0 length) -1)) - ) - ) - ) - (else - (let ((s3-2 (-> self skel root-channel 0))) - (joint-control-channel-group-eval! s3-2 s4-1 num-func-identity) - (set! (-> s3-2 frame-num) (-> self anim-first)) - ) - ) + ((= (-> v1-2 tailpred) v1-2) + (format *stdcon* "anim-tester:no objects loaded~%") + (set! (-> self list-con current-index) 0) + (set! (-> self current-obj) "") + (suspend) + 0 ) - (when (nonzero? (-> s5-1 blend)) - (while - (and - (!= (-> self skel root-channel 0) (-> self skel channel)) - (logtest? (-> s5-1 flags) 2) - ) - (when (logtest? (-> self flags) 32) - (TODO-RENAME-9 (-> self align)) - (TODO-RENAME-10 - (-> self align) - 31 - (-> (new 'static 'array float 1 1.0) 0) - (-> (new 'static 'array float 1 1.0) 0) - (-> (new 'static 'array float 1 1.0) 0) - ) + ((begin + (set! s4-0 (glst-find-node-by-name (-> self obj-list) (-> self current-obj))) + (when (not s4-0) + (if (>= (-> self list-con current-index) (glst-num-elements (-> self obj-list))) + (set! (-> self list-con current-index) (+ (glst-num-elements (-> self obj-list)) -1)) + ) + (set! s4-0 (glst-get-node-by-index (-> self obj-list) (-> self list-con current-index))) + (set! (-> self current-obj) (-> (the-as anim-test-obj s4-0) privname)) + ) + (let ((v1-10 (the-as structure (-> (the-as anim-test-obj s4-0) seq-list)))) + "is the list empty, #t = empty" + (= (-> (the-as anim-test-obj v1-10) privname) (the-as glst-list v1-10)) + ) ) - (suspend) - ) + (format *stdcon* "anim-tester:no anims loaded~%") + (format *stdcon* "displaying without anim not yet implement~%") + (logclear! (-> self flags) (anim-tester-flags fanimt0)) + (suspend) + 0 ) - (until (ja-done? 0) - (when (logtest? (-> self flags) 32) - (TODO-RENAME-9 (-> self align)) - (TODO-RENAME-10 - (-> self align) - 31 - (-> (new 'static 'array float 1 1.0) 0) - (-> (new 'static 'array float 1 1.0) 0) - (-> (new 'static 'array float 1 1.0) 0) + ((begin + (if (>= (-> (the-as anim-test-obj s4-0) list-con current-index) + (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list)) + ) + (set! (-> (the-as anim-test-obj s4-0) list-con current-index) + (+ (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list)) -1) + ) + ) + (set! gp-2 (the-as anim-test-sequence (glst-get-node-by-index + (-> (the-as anim-test-obj s4-0) seq-list) + (if (logtest? (-> (the-as anim-test-obj s4-0) flags) 2) + (-> (the-as anim-test-obj s4-0) seq-index) + (-> (the-as anim-test-obj s4-0) anim-index) + ) + ) + ) + ) + (let ((v1-18 (-> gp-2 item-list))) + "is the list empty, #t = empty" + (= (-> v1-18 tailpred) v1-18) + ) ) - ) + (format *stdcon* "anim-tester:no items in sequence ~A~%" (-> gp-2 privname)) + (format *stdcon* "displaying without anim not yet implement~%") (suspend) - (anim-tester-update-anim-info s5-1) - (let - ((v1-73 - (= (-> self anim-last) (-> (new 'static 'array float 1 -2.0) 0)) - ) + 0 + ) + ((begin + (when (>= (-> gp-2 playing-item) (glst-num-elements (-> gp-2 item-list))) + (set! (-> gp-2 playing-item) 0) + 0 + ) + (set! s5-1 (anim-tester-get-playing-item gp-2)) + s5-1 ) - (cond - ((or v1-73 (>= (-> self anim-last) (-> self anim-first))) - (cond - ((= (-> self anim-last) (-> (new 'static 'array float 1 -2.0) 0)) - (let ((a0-42 (-> self skel root-channel 0))) - (set! - (-> a0-42 param 0) - (the float (+ (-> a0-42 frame-group data 0 length) -1)) - ) - (set! (-> a0-42 param 1) (-> self anim-speed)) - (joint-control-channel-group-eval! - a0-42 - (the-as art-joint-anim #f) - num-func-seek! - ) + (let ((s4-1 (the-as + art-joint-anim + (dummy-10 (-> (the-as anim-test-obj s4-0) obj-art-group) (-> s5-1 privname) art-joint-anim) + ) + ) + ) + (anim-tester-update-anim-info s5-1) + (cond + (s4-1 + (logior! (-> self flags) (anim-tester-flags fanimt0)) + (if (nonzero? (-> s5-1 blend)) + (ja-channel-push! 1 (the int (* (the float (-> s5-1 blend)) (-> self anim-gspeed)))) + (ja-channel-set! 1) + ) + (cond + ((= (-> self anim-first) (-> (new 'static 'array float 1 -1.0) 0)) + (let ((s3-0 (-> self skel root-channel 0))) + (joint-control-channel-group-eval! s3-0 s4-1 num-func-identity) + (set! (-> s3-0 frame-num) 0.0) + ) + ) + ((= (-> self anim-first) (-> (new 'static 'array float 1 -2.0) 0)) + (let ((s3-1 (-> self skel root-channel 0))) + (joint-control-channel-group-eval! s3-1 s4-1 num-func-identity) + (set! (-> s3-1 frame-num) (the float (+ (-> s4-1 data 0 length) -1))) + ) + ) + (else + (let ((s3-2 (-> self skel root-channel 0))) + (joint-control-channel-group-eval! s3-2 s4-1 num-func-identity) + (set! (-> s3-2 frame-num) (-> self anim-first)) + ) + ) + ) + (when (nonzero? (-> s5-1 blend)) + (while (and (!= (-> self skel root-channel 0) (-> self skel channel)) (logtest? (-> s5-1 flags) 2)) + (when (logtest? (-> self flags) (anim-tester-flags fanimt5)) + (TODO-RENAME-9 (-> self align)) + (TODO-RENAME-10 + (-> self align) + 31 + (-> (new 'static 'array float 1 1.0) 0) + (-> (new 'static 'array float 1 1.0) 0) + (-> (new 'static 'array float 1 1.0) 0) + ) + ) + (suspend) + ) + ) + (until (ja-done? 0) + (when (logtest? (-> self flags) (anim-tester-flags fanimt5)) + (TODO-RENAME-9 (-> self align)) + (TODO-RENAME-10 + (-> self align) + 31 + (-> (new 'static 'array float 1 1.0) 0) + (-> (new 'static 'array float 1 1.0) 0) + (-> (new 'static 'array float 1 1.0) 0) + ) + ) + (suspend) + (anim-tester-update-anim-info s5-1) + (let ((v1-73 (= (-> self anim-last) (-> (new 'static 'array float 1 -2.0) 0)))) + (cond + ((or v1-73 (>= (-> self anim-last) (-> self anim-first))) + (cond + ((= (-> self anim-last) (-> (new 'static 'array float 1 -2.0) 0)) + (let ((a0-42 (-> self skel root-channel 0))) + (set! (-> a0-42 param 0) (the float (+ (-> a0-42 frame-group data 0 length) -1))) + (set! (-> a0-42 param 1) (-> self anim-speed)) + (joint-control-channel-group-eval! a0-42 (the-as art-joint-anim #f) num-func-seek!) + ) + ) + (else + (let ((a0-43 (-> self skel root-channel 0))) + (set! (-> a0-43 param 0) (-> self anim-last)) + (set! (-> a0-43 param 1) (-> self anim-speed)) + (joint-control-channel-group-eval! a0-43 (the-as art-joint-anim #f) num-func-seek!) + ) + ) + ) + ) + ((= (-> self anim-last) (-> (new 'static 'array float 1 -1.0) 0)) + (let ((a0-44 (-> self skel root-channel 0))) + (set! (-> a0-44 param 0) 0.0) + (set! (-> a0-44 param 1) (-> self anim-speed)) + (joint-control-channel-group-eval! a0-44 (the-as art-joint-anim #f) num-func-seek!) + ) + ) + (else + (let ((a0-45 (-> self skel root-channel 0))) + (set! (-> a0-45 param 0) (-> self anim-last)) + (set! (-> a0-45 param 1) (-> self anim-speed)) + (joint-control-channel-group-eval! a0-45 (the-as art-joint-anim #f) num-func-seek!) + ) + ) + ) + ) + ) + (+! (-> gp-2 playing-item) 1) ) - ) (else - (let ((a0-43 (-> self skel root-channel 0))) - (set! (-> a0-43 param 0) (-> self anim-last)) - (set! (-> a0-43 param 1) (-> self anim-speed)) - (joint-control-channel-group-eval! - a0-43 - (the-as art-joint-anim #f) - num-func-seek! - ) + (format *stdcon* "anim ~A not found~%" (-> s5-1 privname)) + (suspend) + 0 ) - ) - ) - ) - ((= (-> self anim-last) (-> (new 'static 'array float 1 -1.0) 0)) - (let ((a0-44 (-> self skel root-channel 0))) - (set! (-> a0-44 param 0) 0.0) - (set! (-> a0-44 param 1) (-> self anim-speed)) - (joint-control-channel-group-eval! - a0-44 - (the-as art-joint-anim #f) - num-func-seek! - ) - ) - ) - (else - (let ((a0-45 (-> self skel root-channel 0))) - (set! (-> a0-45 param 0) (-> self anim-last)) - (set! (-> a0-45 param 1) (-> self anim-speed)) - (joint-control-channel-group-eval! - a0-45 - (the-as art-joint-anim #f) - num-func-seek! - ) ) - ) ) - ) ) - (+! (-> gp-2 playing-item) 1) - ) - (else - (format *stdcon* "anim ~A not found~%" (-> s5-1 privname)) - (suspend) - 0 + (else + (format *stdcon* "no anims~%") + (suspend) + 0 + ) ) - ) ) - ) - (else - (format *stdcon* "no anims~%") - (suspend) - 0 - ) ) - ) + (none) ) - (none) - ) :post anim-tester-post ) @@ -2973,10 +2444,7 @@ (set! (-> self speed) 100) (set! (-> self current-obj) "") (set! (-> self root) (new 'process 'trsqv)) - (set! - (-> self draw) - (new 'process 'draw-control self (the-as art-joint-geo #f)) - ) + (set! (-> self draw) (new 'process 'draw-control self (the-as art-joint-geo #f))) (set! (-> self draw dma-add-func) dma-add-process-drawable) (set! (-> self skel) (new 'process 'joint-control 24)) (set! (-> self align) (new 'process 'align-control self)) @@ -2988,10 +2456,10 @@ (quaternion-identity! (-> self root quat)) (vector-identity! (-> self root scale)) (position-in-front-of-camera! - (-> self root trans) - (-> (new 'static 'array float 1 40960.0) 0) - (-> (new 'static 'array float 1 4096.0) 0) - ) + (-> self root trans) + (-> (new 'static 'array float 1 40960.0) 0) + (-> (new 'static 'array float 1 4096.0) 0) + ) (set! (-> self event-hook) anim-tester-standard-event-handler) (anim-tester-reset) (go anim-tester-process) @@ -3000,24 +2468,24 @@ (defun anim-tester-string-get-frame!! ((arg0 list-field) (arg1 string)) (cond - ((string-get-arg!! *temp-string* arg1) - (cond - ((or (string= *temp-string* "max") (string= *temp-string* "MAX")) - (set! (-> arg0 left) -2) - ) - ((or (string= *temp-string* "min") (string= *temp-string* "MIN")) - (set! (-> arg0 left) -1) - ) - (else - (set! (-> arg0 left) (string->int *temp-string*)) - ) + ((string-get-arg!! *temp-string* arg1) + (cond + ((or (string= *temp-string* "max") (string= *temp-string* "MAX")) + (set! (-> arg0 left) -2) + ) + ((or (string= *temp-string* "min") (string= *temp-string* "MIN")) + (set! (-> arg0 left) -1) + ) + (else + (set! (-> arg0 left) (string->int *temp-string*)) + ) + ) + #t ) - #t - ) - (else - #f + (else + #f + ) ) - ) ) (defun anim-tester-load-object-seqs () @@ -3033,99 +2501,84 @@ (format (clear *temp-string*) "data/~s.obinf" (-> arg0 privname)) (gp-0 s4-0 s3-0 s2-0 *temp-string*) ) - (format (clear *temp-string*) "data/~s.obinf" (-> arg0 privname)) - (let ((gp-2 (new 'stack 'file-stream *temp-string* 'write))) - (format gp-2 "major-version 0~%") - (format gp-2 "minor-version 0~%") - (format gp-2 "Object \"~S\" ~d~%" (-> arg0 privname) 0) - (let ((v1-5 (-> arg0 seq-list))) - "return the start of the list" - (let ((s5-1 (-> v1-5 head))) - (while (let ((v1-30 (the-as anim-test-sequence s5-1))) - "is this node the end of the list. #t = end" - (not (not (-> v1-30 next))) - ) - (set! - (-> (the-as anim-test-sequence s5-1) flags) - (logand -5 (-> (the-as anim-test-sequence s5-1) flags)) - ) - (format - gp-2 - " ~S \"~S\" ~d~%" - (if (logtest? (-> (the-as anim-test-sequence s5-1) flags) 1) - "Sequence" - "Anim" - ) - (-> (the-as anim-test-sequence s5-1) privname) - 0 - ) - (let ((v1-11 (-> (the-as anim-test-sequence s5-1) item-list))) - "return the start of the list" - (let ((s4-2 (the-as anim-test-seq-item (-> v1-11 head)))) - (while (let ((v1-21 s4-2)) - "is this node the end of the list. #t = end" - (not (not (-> v1-21 next))) - ) - (when (zero? (logand (-> s4-2 flags) 5)) - (format - gp-2 - " Item \"~S\" ~d ~d " - (-> s4-2 privname) - (-> s4-2 speed) - (-> s4-2 blend) + ;; hack + (let ((gp-2 (new 'stack 'file-stream (string-format "data/~s.obinf" (-> arg0 privname)) 'write))) + (format gp-2 "major-version 0~%") + (format gp-2 "minor-version 0~%") + (format gp-2 "Object \"~S\" ~d~%" (-> arg0 privname) 0) + (let ((v1-5 (-> arg0 seq-list))) + "return the start of the list" + (let ((s5-1 (-> v1-5 head))) + (while (let ((v1-30 (the-as anim-test-sequence s5-1))) + "is this node the end of the list. #t = end" + (not (not (-> v1-30 next))) + ) + (set! (-> (the-as anim-test-sequence s5-1) flags) (logand -5 (-> (the-as anim-test-sequence s5-1) flags))) + (format + gp-2 + " ~S \"~S\" ~d~%" + (if (logtest? (-> (the-as anim-test-sequence s5-1) flags) 1) + "Sequence" + "Anim" + ) + (-> (the-as anim-test-sequence s5-1) privname) + 0 + ) + (let ((v1-11 (-> (the-as anim-test-sequence s5-1) item-list))) + "return the start of the list" + (let ((s4-2 (the-as anim-test-seq-item (-> v1-11 head)))) + (while (let ((v1-21 s4-2)) + "is this node the end of the list. #t = end" + (not (not (-> v1-21 next))) + ) + (when (zero? (logand (-> s4-2 flags) 5)) + (format gp-2 " Item \"~S\" ~d ~d " (-> s4-2 privname) (-> s4-2 speed) (-> s4-2 blend)) + (anim-tester-num-print gp-2 (-> s4-2 first-frame)) + (format gp-2 " ") + (anim-tester-num-print gp-2 (-> s4-2 last-frame)) + (format gp-2 " ~S~%" (if (logtest? (-> s4-2 flags) 2) + "B" + "-" + ) + ) ) - (anim-tester-num-print gp-2 (-> s4-2 first-frame)) - (format gp-2 " ") - (anim-tester-num-print gp-2 (-> s4-2 last-frame)) - (format gp-2 " ~S~%" (if (logtest? (-> s4-2 flags) 2) - "B" - "-" - ) - ) + "return the next node in the list" + (set! s4-2 (the-as anim-test-seq-item (-> s4-2 next))) ) - "return the next node in the list" - (set! s4-2 (the-as anim-test-seq-item (-> s4-2 next))) ) ) + (format gp-2 " ~S~%" (if (logtest? (-> (the-as anim-test-sequence s5-1) flags) 1) + "EndSequence" + "EndAnim" + ) + ) + "return the next node in the list" + (set! s5-1 (-> (the-as anim-test-sequence s5-1) next)) ) - (format - gp-2 - " ~S~%" - (if (logtest? (-> (the-as anim-test-sequence s5-1) flags) 1) - "EndSequence" - "EndAnim" - ) - ) - "return the next node in the list" - (set! s5-1 (-> (the-as anim-test-sequence s5-1) next)) ) ) + (format gp-2 "EndObject~%") + (file-stream-close gp-2) ) - (format gp-2 "EndObject~%") - (file-stream-close gp-2) - ) ) (defun anim-tester-save-all-objects ((arg0 anim-tester)) (let ((v1-0 (-> arg0 obj-list))) - "return the start of the list" - (let ((gp-0 (-> v1-0 head))) - (while (let ((v1-9 (the-as anim-test-obj gp-0))) - "is this node the end of the list. #t = end" - (not (not (-> v1-9 next))) - ) - (when (logtest? (-> (the-as anim-test-obj gp-0) flags) 1) - (set! - (-> (the-as anim-test-obj gp-0) flags) - (logand -2 (-> (the-as anim-test-obj gp-0) flags)) - ) - (anim-tester-save-object-seqs (the-as anim-test-obj gp-0)) + "return the start of the list" + (let ((gp-0 (-> v1-0 head))) + (while (let ((v1-9 (the-as anim-test-obj gp-0))) + "is this node the end of the list. #t = end" + (not (not (-> v1-9 next))) + ) + (when (logtest? (-> (the-as anim-test-obj gp-0) flags) 1) + (set! (-> (the-as anim-test-obj gp-0) flags) (logand -2 (-> (the-as anim-test-obj gp-0) flags))) + (anim-tester-save-object-seqs (the-as anim-test-obj gp-0)) + ) + "return the next node in the list" + (set! gp-0 (-> (the-as anim-test-obj gp-0) next)) + ) ) - "return the next node in the list" - (set! gp-0 (-> (the-as anim-test-obj gp-0) next)) - ) ) - ) #f ) @@ -3134,373 +2587,268 @@ (let ((s2-0 (the-as anim-test-obj #f)) (s5-0 (the-as anim-test-obj #f)) ) - (let ((s1-0 (the-as art-element #f)) - (s0-0 (the-as structure #f)) - ) - (dotimes (s3-0 (-> arg2 length)) - (cond - ((and (= (-> arg2 data s3-0 type) merc-ctrl) (not s2-0)) - (set! sv-96 (-> arg2 data s3-0)) - (set! s0-0 (and s2-0 s0-0)) - (if s0-0 - (anim-test-obj-remove-invalid s2-0) - ) - (let ((t9-1 anim-tester-load-object-seqs)) - (-> sv-96 name) - (t9-1) - ) - (set! - s2-0 - (the-as - anim-test-obj - (glst-find-node-by-name (-> arg0 obj-list) (-> sv-96 name)) - ) - ) - (set! s0-0 (if s2-0 - #t - #f - ) - ) - (cond - ((the-as symbol s0-0) - ) - (else - (set! s2-0 (new 'global 'anim-test-obj 1 (-> sv-96 name) arg2)) - (glst-add-tail (-> arg0 obj-list) s2-0) - ) - ) - (anim-test-obj-init s2-0 (the-as list-control arg0)) - (set! (-> s2-0 obj-art-group) arg2) - (set! (-> s2-0 mesh-geo) (the-as merc-ctrl sv-96)) - (set! (-> s2-0 joint-geo) (the-as art-joint-geo s1-0)) - (if (not s5-0) - (set! s5-0 s2-0) - ) - ) - ((= (-> arg2 data s3-0 type) art-joint-geo) - (if (and s2-0 (not (-> s2-0 joint-geo))) - (set! (-> s2-0 joint-geo) (the-as art-joint-geo (-> arg2 data s3-0))) - ) - (if (not s1-0) - (set! s1-0 (-> arg2 data s3-0)) - ) - ) - ((= (-> arg2 data s3-0 type) art-joint-anim) - (when s2-0 - (set! sv-112 (-> arg2 data s3-0)) - (set! - sv-128 - (the-as - anim-test-obj - (glst-find-node-by-name (-> s2-0 seq-list) (-> sv-112 name)) - ) - ) - (when (not sv-128) - (set! - sv-128 - (the-as - anim-test-obj - (new 'debug 'anim-test-sequence 1 (-> sv-112 name)) - ) + (let ((s1-0 (the-as art-element #f)) + (s0-0 (the-as structure #f)) ) - (glst-add-tail (-> s2-0 seq-list) sv-128) - (anim-test-sequence-init (the-as anim-test-sequence sv-128) s2-0) - (let ((a1-11 (new 'debug 'anim-test-seq-item 1 (-> sv-112 name)))) - (glst-add-tail (the-as glst-list (&-> sv-128 obj-art-group)) a1-11) - ) - ) - (set! (-> sv-128 list-con user-info) (the-as int s2-0)) - (set! - (-> sv-128 flags) - (logior (-> (the-as anim-test-sequence sv-128) flags) 2) - ) - (let ((v1-48 (-> (the-as anim-test-sequence sv-128) item-list))) - "is the list empty, #t = empty" - (when (not (= (-> v1-48 tailpred) v1-48)) - (let ((v1-51 (-> (the-as anim-test-sequence sv-128) item-list))) - "return the start of the list" - (let ((v1-52 (-> v1-51 head))) - (set! - (-> (the-as anim-test-seq-item v1-52) num-frames) - (the float (-> (the-as art-joint-anim sv-112) data 0 length)) + (dotimes (s3-0 (-> arg2 length)) + (cond + ((and (= (-> arg2 data s3-0 type) merc-ctrl) (not s2-0)) + (set! sv-96 (-> arg2 data s3-0)) + (set! s0-0 (and s2-0 s0-0)) + (if s0-0 + (anim-test-obj-remove-invalid s2-0) + ) + (let ((t9-1 anim-tester-load-object-seqs)) + (-> sv-96 name) + (t9-1) ) - (set! - (-> (the-as anim-test-seq-item v1-52) artist-base) - (-> (the-as art-joint-anim sv-112) artist-base) + (set! s2-0 (the-as anim-test-obj (glst-find-node-by-name (-> arg0 obj-list) (-> sv-96 name)))) + (set! s0-0 (if s2-0 + #t + #f + ) + ) + (cond + ((the-as symbol s0-0) + ) + (else + (set! s2-0 (new 'global 'anim-test-obj 1 (-> sv-96 name) arg2)) + (glst-add-tail (-> arg0 obj-list) s2-0) + ) ) - (set! - (-> (the-as anim-test-seq-item v1-52) parent) - (the-as anim-test-sequence sv-128) + (anim-test-obj-init s2-0 (the-as list-control arg0)) + (set! (-> s2-0 obj-art-group) arg2) + (set! (-> s2-0 mesh-geo) (the-as merc-ctrl sv-96)) + (set! (-> s2-0 joint-geo) (the-as art-joint-geo s1-0)) + (if (not s5-0) + (set! s5-0 s2-0) + ) + ) + ((= (-> arg2 data s3-0 type) art-joint-geo) + (if (and s2-0 (not (-> s2-0 joint-geo))) + (set! (-> s2-0 joint-geo) (the-as art-joint-geo (-> arg2 data s3-0))) + ) + (if (not s1-0) + (set! s1-0 (-> arg2 data s3-0)) + ) + ) + ((= (-> arg2 data s3-0 type) art-joint-anim) + (when s2-0 + (set! sv-112 (-> arg2 data s3-0)) + (set! sv-128 (the-as anim-test-obj (glst-find-node-by-name (-> s2-0 seq-list) (-> sv-112 name)))) + (when (not sv-128) + (set! sv-128 (the-as anim-test-obj (new 'debug 'anim-test-sequence 1 (-> sv-112 name)))) + (glst-add-tail (-> s2-0 seq-list) sv-128) + (anim-test-sequence-init (the-as anim-test-sequence sv-128) s2-0) + (let ((a1-11 (new 'debug 'anim-test-seq-item 1 (-> sv-112 name)))) + (glst-add-tail (the-as glst-list (&-> sv-128 obj-art-group)) a1-11) + ) + ) + (set! (-> sv-128 list-con user-info) (the-as int s2-0)) + (set! (-> sv-128 flags) (logior (-> (the-as anim-test-sequence sv-128) flags) 2)) + (let ((v1-48 (-> (the-as anim-test-sequence sv-128) item-list))) + "is the list empty, #t = empty" + (when (not (= (-> v1-48 tailpred) v1-48)) + (let ((v1-51 (-> (the-as anim-test-sequence sv-128) item-list))) + "return the start of the list" + (let ((v1-52 (-> v1-51 head))) + (set! (-> (the-as anim-test-seq-item v1-52) num-frames) + (the float (-> (the-as art-joint-anim sv-112) data 0 length)) + ) + (set! (-> (the-as anim-test-seq-item v1-52) artist-base) (-> (the-as art-joint-anim sv-112) artist-base)) + (set! (-> (the-as anim-test-seq-item v1-52) parent) (the-as anim-test-sequence sv-128)) + ) + ) + sv-128 + ) + ) ) - ) ) - sv-128 + (else + ) ) - ) ) - ) - (else - ) ) - ) - ) - (if s2-0 - (anim-test-obj-remove-invalid s2-0) - ) - (when s5-0 - (set! (-> arg0 current-obj) (-> s5-0 privname)) - (set! - (-> arg0 list-con current-index) - (glst-get-node-index (-> arg0 obj-list) s5-0) - ) + (if s2-0 + (anim-test-obj-remove-invalid s2-0) + ) + (when s5-0 + (set! (-> arg0 current-obj) (-> s5-0 privname)) + (set! (-> arg0 list-con current-index) (glst-get-node-index (-> arg0 obj-list) s5-0)) + ) ) - ) (send-event arg0 'reset #f) ) (defun anim-tester-stop () (when *anim-tester* - (kill-by-name 'anim-tester *active-pool*) - (set! *anim-tester* (the-as (pointer anim-tester) #f)) - #f - ) + (kill-by-name 'anim-tester *active-pool*) + (set! *anim-tester* (the-as (pointer anim-tester) #f)) + #f + ) ) (defun anim-tester-start () (anim-tester-stop) (let ((gp-0 (get-process *16k-dead-pool* anim-tester #x4000))) - (set! *anim-tester* (the-as (pointer anim-tester) (when gp-0 - (let - ((t9-2 - (method-of-type - anim-tester - activate - ) - ) - ) - (t9-2 - (the-as - anim-tester - gp-0 - ) - *default-pool* - 'anim-tester - (the-as - pointer - #x70004000 - ) - ) - ) - ((the-as - (function process function none) - run-function-in-process - ) - gp-0 - initialize-anim-tester - ) - (-> gp-0 ppointer) - ) - ) + (set! *anim-tester* + (the-as (pointer anim-tester) + (when gp-0 + (let ((t9-2 (method-of-type anim-tester activate))) + (t9-2 (the-as anim-tester gp-0) *default-pool* 'anim-tester (the-as pointer #x70004000)) + ) + ((the-as (function process function none) run-function-in-process) gp-0 initialize-anim-tester) + (-> gp-0 ppointer) + ) + ) + ) ) - ) (set! *camera-orbit-target* *anim-tester*) (send-event *camera* 'change-state cam-orbit 0) #f ) (defun anim-tester-add-object ((arg0 string)) - (let - ((s5-0 - (load-to-heap-by-name - (-> *level* level-default art-group) - arg0 - #t - global - 0 - ) - ) - ) - (cond - (s5-0 - (if (not *anim-tester*) - (anim-tester-start) - ) - (if *anim-tester* - (anim-tester-add-newobj - (the-as anim-tester (ppointer->process *anim-tester*)) - arg0 - s5-0 - ) + (let ((s5-0 (load-to-heap-by-name (-> *level* level-default art-group) arg0 #t global 0))) + (cond + (s5-0 + (if (not *anim-tester*) + (anim-tester-start) + ) + (if *anim-tester* + (anim-tester-add-newobj (the-as anim-tester (ppointer->process *anim-tester*)) arg0 s5-0) + ) + ) + (else + (format 0 "ERROR:no object (~A)n" arg0) + ) ) - ) - (else - (format 0 "ERROR:no object (~A)n" arg0) - ) ) - ) (none) ) (defun anim-tester-set-name ((arg0 string)) (cond - ((zero? (length arg0)) - (format #t "ERROR: no name~%") - ) - ((and *anim-tester* (let ((v1-6 (-> *anim-tester* 0 obj-list))) - "is the list empty, #t = empty" - (not (= (-> v1-6 tailpred) v1-6)) - ) + ((zero? (length arg0)) + (format #t "ERROR: no name~%") ) - (let - ((s3-0 - (the-as - anim-test-obj - (glst-find-node-by-name - (-> *anim-tester* 0 obj-list) - (-> *anim-tester* 0 current-obj) - ) - ) - ) - ) - (cond - (s3-0 - (let - ((s5-0 - (the-as - anim-test-sequence - (glst-get-node-by-index - (-> s3-0 seq-list) - (-> s3-0 list-con current-index) - ) - ) + ((and *anim-tester* (let ((v1-6 (-> *anim-tester* 0 obj-list))) + "is the list empty, #t = empty" + (not (= (-> v1-6 tailpred) v1-6)) + ) ) - ) - (cond - (s5-0 - (cond - ((logtest? (-> s5-0 flags) 1) - (let ((s4-0 (the-as object (-> s5-0 privname)))) - (let ((v1-14 s5-0)) - (set! (-> v1-14 privname) "") - ) + (let ((s3-0 + (the-as anim-test-obj (glst-find-node-by-name (-> *anim-tester* 0 obj-list) (-> *anim-tester* 0 current-obj))) + ) + ) + (cond + (s3-0 + (let ((s5-0 + (the-as anim-test-sequence (glst-get-node-by-index (-> s3-0 seq-list) (-> s3-0 list-con current-index))) + ) + ) (cond - ((glst-find-node-by-name (-> s3-0 seq-list) arg0) - (format - #t - "ERROR: another sequence is already using that name (~S)~%" - arg0 - ) - (set! (-> s5-0 privname) (the-as string s4-0)) - ) - (else - (set! s4-0 arg0) - (set! (-> s5-0 privname) (the-as string s4-0)) + (s5-0 + (cond + ((logtest? (-> s5-0 flags) 1) + (let ((s4-0 (the-as object (-> s5-0 privname)))) + (let ((v1-14 s5-0)) + (set! (-> v1-14 privname) "") + ) + (cond + ((glst-find-node-by-name (-> s3-0 seq-list) arg0) + (format #t "ERROR: another sequence is already using that name (~S)~%" arg0) + (set! (-> s5-0 privname) (the-as string s4-0)) + ) + (else + (set! s4-0 arg0) + (set! (-> s5-0 privname) (the-as string s4-0)) + ) + ) + s4-0 + ) + ) + (else + (format #t "ERROR: no sequence selected~%") + ) + ) + ) + (else + (format #t "ERROR: no sequence selected~%") + ) ) - ) - s4-0 ) - ) - (else - (format #t "ERROR: no sequence selected~%") - ) ) - ) (else - (format #t "ERROR: no sequence selected~%") - ) + (format #t "ERROR:no object selected~%") + ) ) - ) - ) - (else - (format #t "ERROR:no object selected~%") ) - ) ) + (else + (format #t "ERROR:no object loaded~%") + ) ) - (else - (format #t "ERROR:no object loaded~%") - ) - ) ) (defun anim-tester-add-sequence ((arg0 string)) (cond - ((zero? (length arg0)) - (format #t "ERROR: no name~%") - ) - ((and *anim-tester* (let ((v1-6 (-> *anim-tester* 0 obj-list))) - "is the list empty, #t = empty" - (not (= (-> v1-6 tailpred) v1-6)) - ) + ((zero? (length arg0)) + (format #t "ERROR: no name~%") ) - (let - ((s5-0 - (the-as - anim-test-obj - (glst-find-node-by-name - (-> *anim-tester* 0 obj-list) - (-> *anim-tester* 0 current-obj) - ) - ) - ) - ) - (cond - (s5-0 - (let ((s4-0 (glst-find-node-by-name (-> s5-0 seq-list) arg0))) - (cond - (s4-0 - (format - #t - "ERROR: there is already a sequence with the name ~S~%" - arg0 + ((and *anim-tester* (let ((v1-6 (-> *anim-tester* 0 obj-list))) + "is the list empty, #t = empty" + (not (= (-> v1-6 tailpred) v1-6)) + ) + ) + (let ((s5-0 + (the-as anim-test-obj (glst-find-node-by-name (-> *anim-tester* 0 obj-list) (-> *anim-tester* 0 current-obj))) + ) ) - (set! - (-> s5-0 list-con current-index) - (glst-get-node-index (-> s5-0 seq-list) s4-0) + (cond + (s5-0 + (let ((s4-0 (glst-find-node-by-name (-> s5-0 seq-list) arg0))) + (cond + (s4-0 + (format #t "ERROR: there is already a sequence with the name ~S~%" arg0) + (set! (-> s5-0 list-con current-index) (glst-get-node-index (-> s5-0 seq-list) s4-0)) + (send-event (ppointer->process *anim-tester*) 'edit-sequence) + ) + (else + (let ((gp-1 (new 'global 'anim-test-sequence 1 arg0))) + (glst-add-tail (-> s5-0 seq-list) gp-1) + (set! (-> gp-1 list-con listfunc) anim-test-edit-sequence-list-handler) + (set! (-> gp-1 list-con left) (-> *ANIM_TESTER-bank* EDIT_LIST_X)) + (set! (-> gp-1 list-con top) (-> *ANIM_TESTER-bank* EDIT_LIST_Y)) + (set! (-> gp-1 list-con list) (-> gp-1 item-list)) + (set! (-> gp-1 list-con list-owner) (the-as uint gp-1)) + (set! (-> gp-1 parent) s5-0) + (anim-test-seq-mark-as-edited gp-1) + (logior! (-> gp-1 flags) 1) + (set! (-> s5-0 list-con current-index) (glst-get-node-index (-> s5-0 seq-list) gp-1)) + (set! (-> s5-0 seq-index) (-> s5-0 list-con current-index)) + (set! (-> s5-0 seq-hindex) (-> s5-0 list-con current-index)) + (let ((s5-1 (new 'debug 'anim-test-seq-item 1 "**END**"))) + (logior! (-> s5-1 flags) 1) + (glst-add-tail (-> gp-1 item-list) s5-1) + (set! (-> s5-1 parent) gp-1) + ) + ) + (send-event (ppointer->process *anim-tester*) 'edit-sequence) + ) + ) + ) ) - (send-event (ppointer->process *anim-tester*) 'edit-sequence) - ) (else - (let ((gp-1 (new 'global 'anim-test-sequence 1 arg0))) - (glst-add-tail (-> s5-0 seq-list) gp-1) - (set! - (-> gp-1 list-con listfunc) - anim-test-edit-sequence-list-handler - ) - (set! (-> gp-1 list-con left) (-> *ANIM_TESTER-bank* EDIT_LIST_X)) - (set! (-> gp-1 list-con top) (-> *ANIM_TESTER-bank* EDIT_LIST_Y)) - (set! (-> gp-1 list-con list) (-> gp-1 item-list)) - (set! (-> gp-1 list-con list-owner) (the-as uint gp-1)) - (set! (-> gp-1 parent) s5-0) - (anim-test-seq-mark-as-edited gp-1) - (logior! (-> gp-1 flags) 1) - (set! - (-> s5-0 list-con current-index) - (glst-get-node-index (-> s5-0 seq-list) gp-1) - ) - (set! (-> s5-0 seq-index) (-> s5-0 list-con current-index)) - (set! (-> s5-0 seq-hindex) (-> s5-0 list-con current-index)) - (let ((s5-1 (new 'debug 'anim-test-seq-item 1 "**END**"))) - (logior! (-> s5-1 flags) 1) - (glst-add-tail (-> gp-1 item-list) s5-1) - (set! (-> s5-1 parent) gp-1) - ) + (format #t "ERROR:no object selected~%") ) - (send-event (ppointer->process *anim-tester*) 'edit-sequence) - ) ) - ) - ) - (else - (format #t "ERROR:no object selected~%") ) - ) ) + (else + (format #t "ERROR:no object loaded~%") + ) ) - (else - (format #t "ERROR:no object loaded~%") - ) - ) (none) ) diff --git a/goal_src/engine/debug/default-menu.gc b/goal_src/engine/debug/default-menu.gc index c7ac6cb9e6..a7752867cf 100644 --- a/goal_src/engine/debug/default-menu.gc +++ b/goal_src/engine/debug/default-menu.gc @@ -6,612 +6,582 @@ ;; dgos: GAME, ENGINE ;; Forward declarations for stuff we haven't written yet: -(define-extern find-instance-by-name (function string prototype-bucket)) (define-extern *edit-instance* string) -(define-extern prototype-bucket-recalc-fields (function instance instance)) ;; Necessary forward declarations (define-extern cam-robotboss (state camera-slave)) -(define-extern dm-cam-mode-func (function (state camera-slave) int object)) - ;; DECOMP BEGINS ;; this file is debug only (when *debug-segment* (define *debug-menu-context* (new 'debug 'debug-menu-context)) -(define *dm-cam-mode-interpolation* (the-as debug-menu 0)) +(define *dm-cam-mode-interpolation* 0) -(defun dm-cam-mode-func ((arg0 (state camera-slave)) (arg1 int)) - (if (and (= arg1 4) arg0) - (send-event *camera* 'change-state arg0 *dm-cam-mode-interpolation*) - ) +(defun-debug dm-cam-mode-func ((arg0 (state camera-slave)) (arg1 debug-menu-msg)) + (if (and (= arg1 (debug-menu-msg press)) arg0) + (send-event *camera* 'change-state arg0 *dm-cam-mode-interpolation*) + ) (if *camera* - (send-event *camera* 'query-state arg0)) - (not arg0) + (send-event *camera* 'query-state arg0) + (not arg0) + ) ) -(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* +(defun-debug dm-cam-settings-func ((arg0 int) (arg1 debug-menu-msg)) + (when (and (= arg1 (debug-menu-msg press)) *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) + ((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) + ) ) - ((= arg0 10) - (logtest? (-> *camera* master-options) 4) + ) + (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 + (else #f ) - ) - ) - (else - #f ) - ) ) -(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* +(defun-debug dm-cam-settings-func-int ((arg0 int) (arg1 debug-menu-msg) (arg2 int) (arg3 int)) + (when (and (= arg1 (debug-menu-msg press)) *camera*) (if (= (/ arg0 8) 5) - *dm-cam-mode-interpolation* - arg3 - ) - ) - (else - arg3 + (set! *dm-cam-mode-interpolation* arg2) + ) ) - ) - ) - -(defun dm-cam-externalize ((arg0 symbol) (arg1 int)) - (when (= arg1 4) - (cond - ((= arg0 'reset) - (if (!= *external-cam-mode* 'locked) - (external-cam-reset!) + (cond + (*camera* + (if (= (/ arg0 8) 5) + *dm-cam-mode-interpolation* + arg3 + ) ) - ) - ((= 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!) + arg3 ) - (set! *external-cam-mode* arg0) - ) ) - ) - (if (= arg0 'allow-z) - (logtest? *external-cam-options* 1) - (= *external-cam-mode* arg0) - ) ) -(defun dm-cam-render-float ((arg0 int) (arg1 int) (arg2 float) (arg3 float)) - (with-pp - (when (= arg1 4) +(defun-debug dm-cam-externalize ((arg0 symbol) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (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 'reset) + (if (!= *external-cam-mode* 'locked) + (external-cam-reset!) + ) ) - ) - ((= (/ arg0 8) 1) - (if *camera* - (send-event *camera* 'set-fov (* 182.04445 arg2)) + ((= arg0 'allow-z) + (set! *external-cam-options* (logxor *external-cam-options* (external-cam-option allow-z))) ) - ) - ) - ) - (cond - ((zero? (/ arg0 8)) - (cond - (*math-camera* - (* 0.005493164 (-> *math-camera* fov)) + ((= *external-cam-mode* arg0) + (set! *external-cam-mode* #f) ) (else - (empty) - arg3 - ) + (if (not *external-cam-mode*) + (external-cam-reset!) + ) + (set! *external-cam-mode* arg0) + ) ) - ) - ((= (/ arg0 8) 1) - (cond - (*camera* - (let ((f30-0 0.005493164) - (a1-3 (new 'stack-no-clear 'event-message-block)) + ) + (if (= arg0 'allow-z) + (logtest? *external-cam-options* (external-cam-option allow-z)) + (= *external-cam-mode* arg0) + ) + ) + +(defun-debug dm-cam-render-float ((arg0 int) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) + (with-pp + (when (= arg1 (debug-menu-msg press)) + (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)) ) - (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))) + ) ) + ) + (cond + ((zero? (/ arg0 8)) + (cond + (*math-camera* + (* 0.005493164 (-> *math-camera* fov)) + ) + (else + (empty) + arg3 + ) + ) ) - (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 + ) ) - ) - (else - (empty) - arg3 - ) ) - ) ) -(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)) +(defun-debug dm-subdiv-float ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) + (when (= arg1 (debug-menu-msg press)) + (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)) + ) ) ) - (('far) + ) + (case arg0 + (('close) (if (and *math-camera* *subdivide-settings*) - (set! (-> *subdivide-settings* far 3) (* 4096.0 arg2)) - ) + (* 0.00024414062 (-> *subdivide-settings* close 3)) + arg3 + ) ) - ) - ) - (case arg0 - (('close) + (('far) (if (and *math-camera* *subdivide-settings*) - (* 0.00024414062 (-> *subdivide-settings* close 3)) + (* 0.00024414062 (-> *subdivide-settings* far 3)) + arg3 + ) + ) + (else arg3 ) - ) - (('far) - (if (and *math-camera* *subdivide-settings*) - (* 0.00024414062 (-> *subdivide-settings* far 3)) - arg3 - ) ) - (else - arg3 - ) - ) ) -(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)) +(defun-debug dm-subdiv-int ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 int)) + (when (= arg1 (debug-menu-msg press)) + (case arg0 + (('anim-speed) + (if *anim-tester* + (set! (-> *anim-tester* 0 speed) arg2) + ) ) ) ) - ) - (case arg0 - (('anim-speed) + (case arg0 + (('anim-speed) (if *anim-tester* - (-> *anim-tester* 0 speed) + (-> *anim-tester* 0 speed) + arg3 + ) + ) + (else arg3 ) - ) - (else - arg3 ) - ) ) -(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)) +(defun-debug dm-setting-language ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default language) (the-as language-enum (/ arg0 8))) + ) + (= (-> *setting-control* default language) (/ arg0 8)) ) -(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) - ) - ) +(defun-debug dm-current-continue ((arg0 string) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (start 'play (get-continue-by-name *game-info* arg0)) + ) + (string= (-> (get-or-create-continue! *game-info*) name) arg0) ) -(defun dm-subdiv-draw-func ((arg0 int) (arg1 int)) - (if (= arg1 4) - (set! *subdivide-draw-mode* (/ arg0 8)) - ) +(defun-debug dm-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *subdivide-draw-mode* (/ arg0 8)) + ) (= (/ arg0 8) *subdivide-draw-mode*) ) -(defun dm-ocean-subdiv-draw-func ((arg0 int) (arg1 int)) - (if (= arg1 4) - (set! *ocean-subdivide-draw-mode* (/ arg0 8)) - ) +(defun-debug dm-ocean-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *ocean-subdivide-draw-mode* (/ arg0 8)) + ) (= (/ arg0 8) *ocean-subdivide-draw-mode*) ) -(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) +(defun-debug dm-time-of-day-func ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (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*) ) -(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) - ) +(defun-debug dm-time-of-day-func2 ((arg0 (pointer symbol)) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (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) ) -(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)) +(defun-debug dm-boolean-toggle-pick-func ((arg0 (pointer symbol)) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> arg0 0) (not (-> arg0 0))) + ) + (-> arg0 0) ) -(defun dm-time-of-day-pick-func ((arg0 symbol) (arg1 int)) - (time-of-day-setup (= arg1 4)) +(defun-debug dm-time-of-day-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (time-of-day-setup (= arg1 (debug-menu-msg press))) (none) ) -(defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 int)) - (if (= arg1 4) - (set! *display-actor-marks* arg0) - ) +(defun-debug dm-actor-marks-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *display-actor-marks* arg0) + ) (= *display-actor-marks* arg0) ) -(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)) +(defun-debug dm-compact-actor-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *compact-actors* arg0) + ) + (= *compact-actors* arg0) ) -(defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 int)) - (if (= arg1 4) - (set! *display-actor-vis* arg0) - ) +(defun-debug dm-actor-vis-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *display-actor-vis* arg0) + ) (= *display-actor-vis* arg0) ) -(defun dm-game-mode-pick-func ((arg0 symbol) (arg1 int)) - (if (= arg1 4) - (set! (-> *game-info* mode) arg0) - ) +(defun-debug dm-game-mode-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *game-info* mode) arg0) + ) (= (-> *game-info* mode) arg0) ) -(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)) - ) +(defun-debug dm-vu1-user-toggle-pick-func ((arg0 vu1-renderer-mask) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *vu1-enable-user-menu* (logxor *vu1-enable-user-menu* (the-as uint arg0))) + ) (logtest? *vu1-enable-user-menu* arg0) ) -(defun dm-vu1-user-set-pick-func ((arg0 int) (arg1 int)) - (if (= arg1 4) - (set! *vu1-enable-user-menu* (the-as vu1-renderer-mask arg0)) - ) +(defun-debug dm-vu1-user-set-pick-func ((arg0 vu1-renderer-mask) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *vu1-enable-user-menu* arg0) + ) (= *vu1-enable-user-menu* arg0) ) -(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)) - ) +(defun-debug dm-texture-user-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *texture-enable-user-menu* (logxor *texture-enable-user-menu* arg0)) + ) (logtest? *texture-enable-user-menu* arg0) ) -(defun dm-texture-user-set-pick-func ((arg0 int) (arg1 int)) - (if (= arg1 4) - (set! *texture-enable-user-menu* arg0) - ) +(defun-debug dm-texture-user-set-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *texture-enable-user-menu* arg0) + ) (= *texture-enable-user-menu* arg0) ) -(defun dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 int)) - (if (= arg1 4) - (set! *display-strip-lines* (logxor *display-strip-lines* (/ arg0 8))) - ) +(defun-debug dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *display-strip-lines* (logxor *display-strip-lines* (/ arg0 8))) + ) (logtest? *display-strip-lines* (/ arg0 8)) ) -(defun dm-strip-lines-set-pick-func ((arg0 int) (arg1 int)) - (if (= arg1 4) - (set! *display-strip-lines* (/ arg0 8)) - ) +(defun-debug dm-strip-lines-set-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *display-strip-lines* (/ arg0 8)) + ) (= *display-strip-lines* (/ arg0 8)) ) -(defun dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 int)) +(defun-debug dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg)) (let ((v1-0 (find-instance-by-name *edit-instance*))) - (when v1-0 - (if (= arg1 4) - (set! (-> v1-0 flags) (logxor (-> v1-0 flags) (the-as uint arg0))) - ) - (logtest? (-> v1-0 flags) arg0) + (when v1-0 + (if (= arg1 (debug-menu-msg press)) + (set! (-> v1-0 flags) (logxor (-> v1-0 flags) (the-as uint arg0))) + ) + (logtest? (-> v1-0 flags) arg0) + ) ) - ) ) -(defun all-texture-tweak-adjust ((arg0 texture-page-dir) (arg1 float)) - ;; TODO - fix! - (format #t "texture tweak NYI~%") +(defun-debug all-texture-tweak-adjust ((arg0 texture-page-dir) (arg1 float)) ; (dotimes (s4-0 (-> arg0 length)) - ; (let ((s3-0 (-> arg0 entries s4-0 page))) - ; (dotimes (s2-0 (min (-> s3-0 length) (-> arg0 entries s4-0 length))) - ; (when (-> arg0 entries s4-0 link) - ; (let ((v1-12 (+ (the-as uint (-> arg0 entries s4-0 link)) (* s2-0 4))) - ; (s1-0 (-> arg0 entries s4-0 page data s2-0)) - ; ) - ; (+! (-> s1-0 uv-dist) arg1) - ; (+ v1-12 0) - ; (let - ; ((s0-0 - ; (the-as - ; object - ; (* - ; (-> (dynamic-array-field-access v1-12 next PLACEHOLDER) shader) - ; 16 - ; ) - ; ) - ; ) - ; ) - ; (while (nonzero? (the-as uint s0-0)) - ; (adgif-shader-update! (the-as adgif-shader s0-0) s1-0) - ; (&-> (the-as adgif-shader s0-0) next) - ; (set! s0-0 (* (-> (the-as adgif-shader s0-0) next shader) 16)) - ; ) - ; ) - ; ) - ; ) - ; ) - ; ) - ; ) - ; (the-as object 0) + ; (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)) + ; ) + ; ) + ; ) + ; ) + ; ) + ; ) + ; ) + 0 + (none) ) -(defun debug-menu-node arg0 name) (-> arg1 name)) ) -(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*))) +(defun-debug dm-shader-pick-func ((arg0 texture-id) (arg1 debug-menu-msg)) + (if (and + (= arg1 (debug-menu-msg press)) + *texture-page-dir* + (-> *texture-page-dir* entries (-> arg0 page) page) + (-> *texture-page-dir* entries (-> arg0 page) link) + (nonzero? (-> *texture-page-dir* entries (-> arg0 page) link next (-> arg0 index))) + ) + (set! *edit-shader* arg0) + ) + (and (nonzero? *edit-shader*) (= arg0 *edit-shader*)) ) (define *shader-pick-menu* (the-as debug-menu #f)) -(defun build-shader-list () +(defun-debug 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) + (dotimes (gp-0 (-> *texture-page-dir* length)) + (let ((s5-0 (-> *texture-page-dir* entries gp-0 page)) + (s4-0 (-> *texture-page-dir* entries gp-0 link)) + ) + (when (and s5-0 s4-0) + (dotimes (s3-0 (-> s5-0 length)) + (when (and (-> s5-0 data s3-0) (nonzero? (-> s4-0 next s3-0))) + (let ((a1-1 (new + 'debug + 'debug-menu-item-flag + (-> s5-0 data s3-0 name) + (logior (shr (shl s3-0 52) 44) (shr (shl gp-0 52) 32)) + dm-shader-pick-func + ) + ) + ) + (debug-menu-append-item *shader-pick-menu* a1-1) + ) + ) ) - ) ) - (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 - ) + (set! (-> *shader-pick-menu* items) (the-as pair v0-3)) + v0-3 + ) ) -(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) +(defun-debug dm-instance-pick-func ((arg0 string) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (if (find-instance-by-name arg0) + (set! *edit-instance* arg0) + (set! *edit-instance* #f) + ) ) - ) (and *edit-instance* (string= arg0 *edit-instance*)) ) -(defun dm-enable-instance-func ((arg0 string) (arg1 int)) +(defun-debug dm-enable-instance-func ((arg0 string) (arg1 debug-menu-msg)) (let ((v1-0 (find-instance-by-name arg0))) - (cond - (v1-0 - (if (= arg1 4) - (set! (-> v1-0 flags) (logxor (-> v1-0 flags) 1)) + (cond + (v1-0 + (if (= arg1 (debug-menu-msg press)) + (set! (-> v1-0 flags) (logxor (-> v1-0 flags) 1)) + ) + (zero? (logand (-> v1-0 flags) 1)) + ) + (else + #f + ) ) - (zero? (logand (-> v1-0 flags) 1)) - ) - (else - #f - ) ) - ) ) (define *instance-shrub-menu* (the-as debug-menu #f)) @@ -620,8287 +590,3358 @@ (define *enable-instance-tie-menu* (the-as debug-menu #f)) -(defun build-instance-list () +(defun-debug build-instance-list ((arg0 object)) (debug-menu-remove-all-items *instance-shrub-menu*) (debug-menu-remove-all-items *instance-tie-menu*) (debug-menu-remove-all-items *enable-instance-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 - ) + (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)) + (-> s3-0 data s2-0 name) + 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)) + (-> s3-1 array-data s2-1 name) + 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)) + (-> s3-1 array-data s2-1 name) + dm-enable-instance-func + ) + ) + ) + (set! (-> a1-9 is-on) #t) + (debug-menu-append-item *enable-instance-tie-menu* a1-9) + ) + ) + ) ) ) - ) - (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 - ) - ) + ) + ) + ) + ) + (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))) ) - (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-tie-menu* items) + (the-as + pair + (sort + (-> *instance-tie-menu* items) + (lambda ((arg0 debug-menu) (arg1 debug-menu)) (string<=? (-> arg0 name) (-> arg1 name))) ) - ) ) - ) ) - ) - ) - ) - ) - ) - (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)) - ) - ) - ) - ) + (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) ) -(defun debug-create-cam-restore () +(defun-debug 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) - ) + (*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) ) - (t9-32 - a0-32 - a1-32 - (-> v1-34 data (+ (-> v1-34 profile-frame-count) -2) time-stamp) - ) - ) - (compute-memory-usage (-> *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 " (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)) + ) + (compute-memory-usage (-> *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 " )~%") ) - (format - #t - " (format *camera-old-stat-string-total* \"~S\")~%" - *stat-string-total* + (else + (format #t "camera save failed~%") ) - ) - (format #t " (set! *display-camera-old-stats* #t)~%") - (format #t " )~%") - (format #t " )~%") ) - (else - (format #t "camera save failed~%") - ) - ) (none) ) -(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))) +(defun-debug debug-menu-make-camera-mode-menu ((arg0 debug-menu) (arg1 debug-menu)) + (new 'debug 'debug-menu-item-submenu "Camera" arg0) + (let ((a1-3 (new 'debug 'debug-menu-item-submenu "Mode" arg1))) + (debug-menu-append-item arg0 a1-3) ) - (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) - ) - ) + (let ((a1-5 (new 'debug 'debug-menu-item-flag "Off" #f dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-5) ) - (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) - ) - ) + (let ((a1-7 (new 'debug 'debug-menu-item-flag "Free-floating" cam-free-floating dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-7) ) - (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) - ) - ) + (let ((a1-9 (new 'debug 'debug-menu-item-flag "Fixed" cam-fixed dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-9) ) - (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) - ) - ) + (let ((a1-11 (new 'debug 'debug-menu-item-flag "Pov" cam-pov dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-11) ) - (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) - ) - ) + (let ((a1-13 (new 'debug 'debug-menu-item-flag "Pov180" cam-pov180 dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-13) ) - (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) - ) - ) + (let ((a1-15 (new 'debug 'debug-menu-item-flag "Billy" cam-billy dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-15) ) - (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) - ) - ) + (let ((a1-17 (new 'debug 'debug-menu-item-flag "Pov-track" cam-pov-track dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-17) ) - (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) - ) - ) + (let ((a1-19 (new 'debug 'debug-menu-item-flag "Decel" cam-decel dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-19) ) - (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) - ) - ) + (let ((a1-21 (new 'debug 'debug-menu-item-flag "Endless fall" cam-endlessfall dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-21) ) - (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) - ) - ) + (let ((a1-23 (new 'debug 'debug-menu-item-flag "Eye" cam-eye dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-23) ) - (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) - ) - ) + (let ((a1-25 (new 'debug 'debug-menu-item-flag "Stick" cam-stick dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-25) ) - (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) - ) - ) + (let ((a1-27 (new 'debug 'debug-menu-item-flag "String" cam-string dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-27) ) - (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) - ) - ) + (let ((a1-29 (new 'debug 'debug-menu-item-flag "Standoff" cam-standoff dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-29) ) - (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) - ) - ) + (let ((a1-31 (new 'debug 'debug-menu-item-flag "Circular" cam-circular dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-31) ) - (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) - ) - ) + (let ((a1-33 (new 'debug 'debug-menu-item-flag "Look At" cam-lookat dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-33) ) - (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) - ) - ) + (let ((a1-35 (new 'debug 'debug-menu-item-flag "Center of world" cam-point-watch dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-35) ) - (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) - ) - ) + (let ((a1-37 (new 'debug 'debug-menu-item-flag "Spline" cam-spline dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-37) ) - (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) - ) - ) + (let ((a1-39 (new 'debug 'debug-menu-item-flag "Bike" cam-bike dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-39) ) - (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) - ) - ) + (let ((a1-41 (new 'debug 'debug-menu-item-flag "Robotboss" cam-robotboss dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-41) ) - (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) - ) - ) + (let ((a1-43 + (new 'debug 'debug-menu-item-function "Reset Free" 6 (the-as (function object object) dm-cam-settings-func)) + ) + ) + (debug-menu-append-item arg1 a1-43) ) - (the-as object (debug-menu-append-item (the-as debug-menu arg1) a1-43)) - ) + (none) ) -(defun debug-menu-make-camera-menu ((arg0 debug-menu-context)) +(defun-debug 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) - ) - ) + (let ((a1-3 (new 'debug 'debug-menu arg0 "Camera mode menu"))) + (debug-menu-make-camera-mode-menu gp-0 a1-3) ) - (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) + (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) ) - ) - ) - (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) + (let ((a1-8 (new 'debug 'debug-menu-item-flag "CPad 0" 'pad-0 dm-cam-externalize))) + (debug-menu-append-item s3-0 a1-8) ) - ) - ) - (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) + (let ((a1-10 (new 'debug 'debug-menu-item-flag "CPad 1" 'pad-1 dm-cam-externalize))) + (debug-menu-append-item s3-0 a1-10) ) - ) - ) - (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 - ) + (let ((a1-12 (new 'debug 'debug-menu-item-flag "Lock" 'locked dm-cam-externalize))) + (debug-menu-append-item s3-0 a1-12) ) - ) - ) - (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 - ) + (let ((a1-14 (new 'debug 'debug-menu-item-flag "Reset" 'reset dm-cam-externalize))) + (debug-menu-append-item s3-0 a1-14) ) - ) - ) - (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) + (let ((a1-16 (new 'debug 'debug-menu-item-flag "Allow z rot" 'allow-z dm-cam-externalize))) + (debug-menu-append-item s3-0 a1-16) ) - ) - ) - (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) + (let ((s2-0 (new 'debug 'debug-menu-item-var "Fov" 0 80))) + (debug-menu-item-var-make-float + s2-0 + 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) ) - ) ) - (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) + (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) ) - ) - ) - (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) + (let ((a1-24 (new 'debug 'debug-menu-item-flag "Record" '*record-cam-collide-history* dm-boolean-toggle-pick-func)) + ) + (debug-menu-append-item s3-1 a1-24) ) - ) - ) - (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) + (let ((a1-26 + (new 'debug 'debug-menu-item-flag "Display" '*display-cam-collide-history* dm-boolean-toggle-pick-func) + ) + ) + (debug-menu-append-item s3-1 a1-26) ) - ) ) - (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) + (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) ) - ) - ) - (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) + (let ((a1-31 (new 'debug 'debug-menu-item-flag "Butt cam" 0 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-31) ) - ) - ) - (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) + (let ((a1-33 (new 'debug 'debug-menu-item-flag "Block shift buttons" 13 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-33) ) - ) - ) - (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 - ) + (let ((a1-35 (new 'debug 'debug-menu-item-flag "Same side" 1 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-35) ) - ) - ) - (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) + (let ((a1-37 (new 'debug 'debug-menu-item-flag "Move spherical" 2 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-37) ) - ) - ) - (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) + (let ((a1-39 (new 'debug 'debug-menu-item-flag "Drag" 3 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-39) ) - ) - ) - (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) + (let ((a1-41 (new 'debug 'debug-menu-item-flag "Allow Z rot" 4 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-41) ) - ) - ) - (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) + (let ((a1-43 (new 'debug 'debug-menu-item-flag "Pitch for jump" 7 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-43) ) - ) - ) - (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) + (let ((a1-45 (new 'debug 'debug-menu-item-flag "Find hidden target" 8 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-45) ) - ) - ) - (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) + (let ((a1-47 + (new 'debug 'debug-menu-item-flag "Move along camera Z" '*cam-free-move-along-z* dm-boolean-toggle-pick-func) + ) + ) + (debug-menu-append-item s4-1 a1-47) ) - ) - ) - (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 - ) + (let ((a1-49 (new 'debug 'debug-menu-item-flag "Ignore regions" 9 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-49) ) - ) - ) - (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 - ) + (let ((a1-51 (new 'debug 'debug-menu-item-flag "Switch only on ground" 10 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-51) ) - ) - ) - (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 - ) + (let ((a1-53 (new 'debug 'debug-menu-item-flag "Collide" 11 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-53) ) - ) - ) - (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 - ) + (let ((a1-55 (new 'debug 'debug-menu-item-flag "Line of Sight" 12 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-55) ) - ) - ) - (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 - ) + (let ((a1-57 (new 'debug 'debug-menu-item-flag "No Rotate" 14 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-57) ) - ) - ) - (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 - ) + (let ((a1-59 (new 'debug 'debug-menu-item-flag "Sticky Angle" 15 dm-cam-settings-func))) + (debug-menu-append-item s4-1 a1-59) ) - ) - ) - (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 - ) + (let ((s3-2 (new 'debug 'debug-menu-item-var "Interp Frms" 40 80))) + (debug-menu-item-var-make-int s3-2 dm-cam-settings-func-int 1 #f 0 0 #f) + (debug-menu-append-item s4-1 s3-2) ) - ) - ) - (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 - ) + (let ((s3-3 (new 'debug 'debug-menu-item-var "Fov" 8 80))) + (debug-menu-item-var-make-float + s3-3 + 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) ) - ) - ) - (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 - ) + (let ((a1-67 (new + 'debug + 'debug-menu-item-flag + "no mip/lod correction" + '*camera-no-mip-correction* + dm-boolean-toggle-pick-func + ) + ) + ) + (debug-menu-append-item s4-1 a1-67) ) - ) - ) - (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 - ) + (let ((a1-69 + (new 'debug 'debug-menu-item-flag "last attacker" '*display-camera-last-attacker* dm-boolean-toggle-pick-func) + ) + ) + (debug-menu-append-item s4-1 a1-69) ) - ) - ) - (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 - ) + (let ((a1-71 (new 'debug 'debug-menu-item-flag "old stats" '*display-camera-old-stats* dm-boolean-toggle-pick-func)) + ) + (debug-menu-append-item s4-1 a1-71) ) - ) - ) - (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) - ) + (let ((a1-73 (new 'debug 'debug-menu-item-flag "xyz axes" '*display-xyz-axes* dm-boolean-toggle-pick-func))) + (debug-menu-append-item s4-1 a1-73) ) - ) - ) - ) - (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) - ) + (let ((a1-75 + (new 'debug 'debug-menu-item-flag "Master Marks" '*display-cam-master-marks* dm-boolean-toggle-pick-func) + ) + ) + (debug-menu-append-item s4-1 a1-75) + ) + (let ((a1-77 (new 'debug 'debug-menu-item-flag "Other Marks" '*display-cam-other* dm-boolean-toggle-pick-func))) + (debug-menu-append-item s4-1 a1-77) + ) + (let ((a1-79 (new 'debug 'debug-menu-item-flag "los debug" '*display-cam-los-debug* dm-boolean-toggle-pick-func))) + (debug-menu-append-item s4-1 a1-79) + ) + (let ((a1-81 (new 'debug 'debug-menu-item-flag "los info" '*display-cam-los-info* dm-boolean-toggle-pick-func))) + (debug-menu-append-item s4-1 a1-81) + ) + (let ((a1-83 (new 'debug 'debug-menu-item-flag "los Marks" '*display-cam-los-marks* dm-boolean-toggle-pick-func))) + (debug-menu-append-item s4-1 a1-83) + ) + (let ((a1-85 (new 'debug 'debug-menu-item-flag "coll Marks" '*display-cam-coll-marks* dm-boolean-toggle-pick-func)) + ) + (debug-menu-append-item s4-1 a1-85) + ) + (let ((a1-87 (new 'debug 'debug-menu-item-flag "Camera Marks" '*display-camera-marks* dm-boolean-toggle-pick-func)) + ) + (debug-menu-append-item s4-1 a1-87) + ) + ) + (let ((a1-89 (new + 'debug + 'debug-menu-item-flag + "Edit" + '*cam-layout* + (the-as (function object debug-menu-msg object) (lambda ((arg0 symbol) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (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" + #f + (the-as (function object object) debug-create-cam-restore) + ) + ) + ) + (debug-menu-append-item gp-0 a1-91) ) - ) - (debug-menu-append-item gp-0 a1-91) + s5-0 ) - s5-0 - ) ) -(defun debug-menu-make-shader-menu ((arg0 debug-menu-context)) +(defun-debug 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) - ) + (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) + ) ) - ) - (debug-menu-append-item gp-0 a1-6) - ) - (let - ((s4-1 - (new 'debug 'debug-menu-item-var "tweak" (the-as int '*edit-shader*) 80) + (let ((a1-6 (new 'debug 'debug-menu-item-function "Refresh" #f (the-as (function object object) build-shader-list))) + ) + (debug-menu-append-item gp-0 a1-6) ) - ) - (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) - ) + (let ((s4-1 (new 'debug 'debug-menu-item-var "tweak" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-float + s4-1 + (the-as + (function int debug-menu-msg float float float) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) + (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 (debug-menu-msg press)) + (set! (-> gp-0 uv-dist) arg2) + (let ((s5-1 (the-as object (* (-> v1-3 next (-> s4-0 index) shader) 16)))) + (while (nonzero? (the-as uint s5-1)) + (adgif-shader-update! (the-as adgif-shader s5-1) gp-0) + (set! s5-1 (* (-> (the-as adgif-shader s5-1) next shader) 16)) + ) + ) + ) + (-> gp-0 uv-dist) + ) + (else + (empty) + arg3 + ) + ) + ) ) - ) - (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) + (else + (empty) + arg3 ) - ) ) - ) - (-> 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) - ) - ) + ) + (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) ) - ) - (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) - ) - ) - ) - ) + (let ((a1-11 (new + 'debug + 'debug-menu-item-function + "all tweak+" + #f + (the-as + (function object object) + (lambda () (the-as object (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-" + #f + (the-as + (function object object) + (lambda () (the-as object (all-texture-tweak-adjust *texture-page-dir* (the-as float -0.1)))) + ) + ) + ) + ) + (debug-menu-append-item gp-0 a1-13) ) - ) - (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)) + (let ((s4-2 (new 'debug 'debug-menu-item-var "l" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-2 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex1 l) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-3 (new 'debug 'debug-menu-item-var "k" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-3 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex1 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-4 (new 'debug 'debug-menu-item-var "mmin" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-4 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex1 mmin) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-5 (new 'debug 'debug-menu-item-var "mmag" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-5 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex1 mmag) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-5) ) - ) - (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)) + (let ((s4-6 (new 'debug 'debug-menu-item-var "lcm" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-6 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex1 lcm) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-6) ) - ) - (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)) + (let ((s4-7 (new 'debug 'debug-menu-item-var "tfx" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-7 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex0 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-7) ) - ) - (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)) + (let ((s4-8 (new 'debug 'debug-menu-item-var "tbp" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-8 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex0 tbp0) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-8) ) - ) - (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)) + (let ((s4-9 (new 'debug 'debug-menu-item-var "tbw" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-9 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex0 tbw) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-10 (new 'debug 'debug-menu-item-var "tw" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-10 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex0 tw) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-10) ) - ) - (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)) + (let ((s4-11 (new 'debug 'debug-menu-item-var "th" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-11 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex0 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-11) ) - ) - (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)) + (let ((s4-12 (new 'debug 'debug-menu-item-var "mxl" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-12 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) tex1 mxl) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-12) ) - ) - (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)) + (let ((s4-13 (new 'debug 'debug-menu-item-var "wms" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-13 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) clamp wms) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 ) - ) - ) - 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-append-item gp-0 s4-13) ) - ) - (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)) + (let ((s4-14 (new 'debug 'debug-menu-item-var "wmt" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-14 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) clamp wmt) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-15 (new 'debug 'debug-menu-item-var "minu" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-15 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) clamp minu) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-16 (new 'debug 'debug-menu-item-var "maxu" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-16 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) clamp maxu) 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-17 (new 'debug 'debug-menu-item-var "minv" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-17 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) clamp 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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) ) - 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)) + (let ((s4-18 (new 'debug 'debug-menu-item-var "maxv" (the-as int '*edit-shader*) 80))) + (debug-menu-item-var-make-int + s4-18 + (the-as + (function int debug-menu-msg int int int) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 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 (debug-menu-msg press)) + (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) + (while (nonzero? (the-as uint a1-8)) + (set! (-> (the-as adgif-shader a1-8) clamp 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 + ) + ) + ) ) - (cond - (a0-3 - (when (= arg1 4) - (let - ((a1-8 - (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)) + (else + arg3 ) - ) - (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 + ) + ) + 1 + #t + 0 + 511 + #t + ) + (debug-menu-append-item gp-0 s4-18) + ) + s5-0 + ) + ) + +(defun-debug 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" #f (the-as (function object 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 debug-menu-msg) (arg2 float) (arg3 float)) + (let ((gp-0 (find-instance-by-name (-> arg0 name)))) + (the-as object (cond + (gp-0 + (when (= arg1 (debug-menu-msg press)) + (set! (-> gp-0 dists x) (* 4096.0 arg2)) + (prototype-bucket-recalc-fields gp-0) + ) + (* 0.00024414062 (-> gp-0 dists x)) + ) + (else + (empty) + arg3 + ) + ) + ) ) - ) ) - (else - 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 debug-menu-msg) (arg2 float) (arg3 float)) + (let ((gp-0 (find-instance-by-name (-> arg0 name)))) + (the-as object (cond + (gp-0 + (when (= arg1 (debug-menu-msg press)) + (set! (-> gp-0 dists w) (* 4096.0 arg2)) + (prototype-bucket-recalc-fields gp-0) + ) + (* 0.00024414062 (-> gp-0 dists w)) + ) + (else + (empty) + arg3 + ) + ) + ) + ) ) - ) ) - ) - (else - 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) ) - 1 - #t - 0 - 511 - #t - ) - (debug-menu-append-item gp-0 s4-18) + (let ((a1-17 (new 'debug 'debug-menu-item-flag "invisible" 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 ) - s5-0 - ) ) -(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 +(defun-debug dm-task-unknown ((arg0 int) (arg1 debug-menu-msg)) + (let ((gp-0 (/ arg0 8))) + (if (not (task-exists? (the-as game-task gp-0) (task-status unknown))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (close-specific-task! (the-as game-task gp-0) (task-status unknown)) + ) + (task-closed? (the-as game-task gp-0) (task-status unknown)) ) - ; 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 - ; ) ) -(defun dm-task-unknown ((arg0 int) (arg1 int)) +(defun-debug dm-task-hint ((arg0 int) (arg1 debug-menu-msg)) (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)) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-hint))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (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)) ) - (task-closed? (the-as game-task gp-0) (task-status unknown)) - ) ) -(defun dm-task-hint ((arg0 int) (arg1 int)) +(defun-debug dm-task-introduction ((arg0 int) (arg1 debug-menu-msg)) (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)) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-introduction))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (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)) ) - (task-closed? (the-as game-task gp-0) (task-status need-hint)) - ) ) -(defun dm-task-introduction ((arg0 int) (arg1 int)) +(defun-debug dm-task-reminder-a ((arg0 int) (arg1 debug-menu-msg)) (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) - ) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder-a))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (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)) ) - (task-closed? (the-as game-task gp-0) (task-status need-introduction)) - ) ) -(defun dm-task-reminder-a ((arg0 int) (arg1 int)) +(defun-debug dm-task-reminder ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) - (if - (not (task-exists? (the-as game-task gp-0) (task-status need-reminder-a))) - (return 'invalid) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (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)) ) - (if (= arg1 4) - (close-specific-task! (the-as game-task gp-0) (task-status need-reminder-a)) + ) + +(defun-debug dm-task-reward-speech ((arg0 int) (arg1 debug-menu-msg)) + (let ((gp-0 (/ arg0 8))) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-reward-speech))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (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)) ) - (task-closed? (the-as game-task gp-0) (task-status need-reminder-a)) - ) ) -(defun dm-task-reminder ((arg0 int) (arg1 int)) +(defun-debug dm-task-resolution ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) - (if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder))) - (return 'invalid) + (if (not (task-exists? (the-as game-task gp-0) (task-status need-resolution))) + (return 'invalid) + ) + (when (= arg1 (debug-menu-msg press)) + (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)) ) - (if (= arg1 4) - (close-specific-task! (the-as game-task gp-0) (task-status need-reminder)) + ) + +(defun-debug debug-menu-make-task-unknown-menu ((arg0 debug-menu) (arg1 debug-menu-context)) + (debug-menu-append-item + arg0 + (debug-menu-make-from-template arg1 '(menu + "unknown" + #f + #f + (flag "jungle-eggtop" 2 dm-task-unknown) + (flag "jungle-lurkerm" 3 dm-task-unknown) + (flag "jungle-tower" 4 dm-task-unknown) + (flag "jungle-fishgame" 5 dm-task-unknown) + (flag "jungle-plant" 6 dm-task-unknown) + (flag "jungle-buzzer" 7 dm-task-unknown) + (flag "jungle-canyon-end" 8 dm-task-unknown) + (flag "jungle-temple-door" 9 dm-task-unknown) + (flag "village1-yakow" 10 dm-task-unknown) + (flag "village1-mayor-money" 11 dm-task-unknown) + (flag "village1-uncle-money" 12 dm-task-unknown) + (flag "village1-oracle-money1" 13 dm-task-unknown) + (flag "village1-oracle-money2" 14 dm-task-unknown) + (flag "beach-ecorocks" 15 dm-task-unknown) + (flag "beach-pelican" 16 dm-task-unknown) + (flag "beach-flutflut" 17 dm-task-unknown) + (flag "beach-seagull" 18 dm-task-unknown) + (flag "beach-cannon" 19 dm-task-unknown) + (flag "beach-buzzer" 20 dm-task-unknown) + (flag "beach-gimmie" 21 dm-task-unknown) + (flag "beach-sentinel" 22 dm-task-unknown) + (flag "misty-muse" 23 dm-task-unknown) + (flag "misty-boat" 24 dm-task-unknown) + (flag "misty-warehouse" 25 dm-task-unknown) + (flag "misty-cannon" 26 dm-task-unknown) + (flag "misty-bike" 27 dm-task-unknown) + (flag "misty-buzzer" 28 dm-task-unknown) + (flag "misty-bike-jump" 29 dm-task-unknown) + (flag "misty-eco-challenge" 30 dm-task-unknown) + (flag "village2-gambler-money" 31 dm-task-unknown) + (flag "village2-geologist-money" 32 dm-task-unknown) + (flag "village2-warrior-money" 33 dm-task-unknown) + (flag "village2-oracle-money1" 34 dm-task-unknown) + (flag "village2-oracle-money2" 35 dm-task-unknown) + (flag "swamp-billy" 36 dm-task-unknown) + (flag "swamp-flutflut" 37 dm-task-unknown) + (flag "swamp-battle" 38 dm-task-unknown) + (flag "swamp-tether-1" 39 dm-task-unknown) + (flag "swamp-tether-2" 40 dm-task-unknown) + (flag "swamp-tether-3" 41 dm-task-unknown) + (flag "swamp-tether-4" 42 dm-task-unknown) + (flag "swamp-buzzer" 43 dm-task-unknown) + (flag "sunken-platforms" 44 dm-task-unknown) + (flag "sunken-pipe" 45 dm-task-unknown) + (flag "sunken-slide" 46 dm-task-unknown) + (flag "sunken-room" 47 dm-task-unknown) + (flag "sunken-sharks" 48 dm-task-unknown) + (flag "sunken-buzzer" 49 dm-task-unknown) + (flag "sunken-top-of-helix" 50 dm-task-unknown) + (flag "sunken-spinning-room" 51 dm-task-unknown) + (flag "rolling-race" 52 dm-task-unknown) + (flag "rolling-robbers" 53 dm-task-unknown) + (flag "rolling-moles" 54 dm-task-unknown) + (flag "rolling-plants" 55 dm-task-unknown) + (flag "rolling-lake" 56 dm-task-unknown) + (flag "rolling-buzzer" 57 dm-task-unknown) + (flag "rolling-ring-chase-1" 58 dm-task-unknown) + (flag "rolling-ring-chase-2" 59 dm-task-unknown) + (flag "snow-eggtop" 60 dm-task-unknown) + (flag "snow-ram" 61 dm-task-unknown) + (flag "snow-fort" 62 dm-task-unknown) + (flag "snow-ball" 63 dm-task-unknown) + (flag "snow-bunnies" 64 dm-task-unknown) + (flag "snow-buzzer" 65 dm-task-unknown) + (flag "snow-bumpers" 66 dm-task-unknown) + (flag "snow-cage" 67 dm-task-unknown) + (flag "firecanyon-buzzer" 68 dm-task-unknown) + (flag "firecanyon-end" 69 dm-task-unknown) + (flag "citadel-sage-green" 70 dm-task-unknown) + (flag "citadel-sage-blue" 71 dm-task-unknown) + (flag "citadel-sage-red" 72 dm-task-unknown) + (flag "citadel-sage-yellow" 73 dm-task-unknown) + (flag "village3-extra1" 74 dm-task-unknown) + (flag "village1-buzzer" 75 dm-task-unknown) + (flag "village2-buzzer" 76 dm-task-unknown) + (flag "village3-buzzer" 77 dm-task-unknown) + (flag "cave-gnawers" 78 dm-task-unknown) + (flag "cave-dark-crystals" 79 dm-task-unknown) + (flag "cave-dark-climb" 80 dm-task-unknown) + (flag "cave-robot-climb" 81 dm-task-unknown) + (flag "cave-swing-poles" 82 dm-task-unknown) + (flag "cave-spider-tunnel" 83 dm-task-unknown) + (flag "cave-platforms" 84 dm-task-unknown) + (flag "cave-buzzer" 85 dm-task-unknown) + (flag "ogre-boss" 86 dm-task-unknown) + (flag "ogre-end" 87 dm-task-unknown) + (flag "ogre-buzzer" 88 dm-task-unknown) + (flag "lavatube-end" 89 dm-task-unknown) + (flag "lavatube-buzzer" 90 dm-task-unknown) + (flag "citadel-buzzer" 91 dm-task-unknown) + (flag "training-gimmie" 92 dm-task-unknown) + (flag "training-door" 93 dm-task-unknown) + (flag "training-climb" 94 dm-task-unknown) + (flag "training-buzzer" 95 dm-task-unknown) + (flag "village3-miner-money1" 96 dm-task-unknown) + (flag "village3-miner-money2" 97 dm-task-unknown) + (flag "village3-miner-money3" 98 dm-task-unknown) + (flag "village3-miner-money4" 99 dm-task-unknown) + (flag "village3-oracle-money1" 100 dm-task-unknown) + (flag "village3-oracle-money2" 101 dm-task-unknown) + (flag "firecanyon-assistant" 102 dm-task-unknown) + (flag "village2-levitator" 103 dm-task-unknown) + (flag "swamp-arm" 104 dm-task-unknown) + (flag "village3-button" 105 dm-task-unknown) + (flag "red-eggtop" 106 dm-task-unknown) + (flag "lavatube-balls" 107 dm-task-unknown) + (flag "lavatube-start" 108 dm-task-unknown) + (flag "intro" 109 dm-task-unknown) + (flag "ogre-secret" 110 dm-task-unknown) + (flag "village4-button" 111 dm-task-unknown) + (flag "finalboss-movies" 112 dm-task-unknown) + (flag "plunger-lurker-hit" 113 dm-task-unknown) + (flag "leaving-misty" 114 dm-task-unknown) + (flag "assistant-village3" 115 dm-task-unknown) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) - (task-closed? (the-as game-task gp-0) (task-status need-reminder)) - ) + (none) ) -(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) +(defun-debug debug-menu-make-task-need-hint-menu ((arg0 debug-menu) (arg1 debug-menu-context)) + (debug-menu-append-item + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-hint" + #f + #f + (flag "jungle-eggtop" 2 dm-task-hint) + (flag "jungle-lurkerm" 3 dm-task-hint) + (flag "jungle-tower" 4 dm-task-hint) + (flag "jungle-fishgame" 5 dm-task-hint) + (flag "jungle-plant" 6 dm-task-hint) + (flag "jungle-buzzer" 7 dm-task-hint) + (flag "jungle-canyon-end" 8 dm-task-hint) + (flag "jungle-temple-door" 9 dm-task-hint) + (flag "village1-yakow" 10 dm-task-hint) + (flag "village1-mayor-money" 11 dm-task-hint) + (flag "village1-uncle-money" 12 dm-task-hint) + (flag "village1-oracle-money1" 13 dm-task-hint) + (flag "village1-oracle-money2" 14 dm-task-hint) + (flag "beach-ecorocks" 15 dm-task-hint) + (flag "beach-pelican" 16 dm-task-hint) + (flag "beach-flutflut" 17 dm-task-hint) + (flag "beach-seagull" 18 dm-task-hint) + (flag "beach-cannon" 19 dm-task-hint) + (flag "beach-buzzer" 20 dm-task-hint) + (flag "beach-gimmie" 21 dm-task-hint) + (flag "beach-sentinel" 22 dm-task-hint) + (flag "misty-muse" 23 dm-task-hint) + (flag "misty-boat" 24 dm-task-hint) + (flag "misty-warehouse" 25 dm-task-hint) + (flag "misty-cannon" 26 dm-task-hint) + (flag "misty-bike" 27 dm-task-hint) + (flag "misty-buzzer" 28 dm-task-hint) + (flag "misty-bike-jump" 29 dm-task-hint) + (flag "misty-eco-challenge" 30 dm-task-hint) + (flag "village2-gambler-money" 31 dm-task-hint) + (flag "village2-geologist-money" 32 dm-task-hint) + (flag "village2-warrior-money" 33 dm-task-hint) + (flag "village2-oracle-money1" 34 dm-task-hint) + (flag "village2-oracle-money2" 35 dm-task-hint) + (flag "swamp-billy" 36 dm-task-hint) + (flag "swamp-flutflut" 37 dm-task-hint) + (flag "swamp-battle" 38 dm-task-hint) + (flag "swamp-tether-1" 39 dm-task-hint) + (flag "swamp-tether-2" 40 dm-task-hint) + (flag "swamp-tether-3" 41 dm-task-hint) + (flag "swamp-tether-4" 42 dm-task-hint) + (flag "swamp-buzzer" 43 dm-task-hint) + (flag "sunken-platforms" 44 dm-task-hint) + (flag "sunken-pipe" 45 dm-task-hint) + (flag "sunken-slide" 46 dm-task-hint) + (flag "sunken-room" 47 dm-task-hint) + (flag "sunken-sharks" 48 dm-task-hint) + (flag "sunken-buzzer" 49 dm-task-hint) + (flag "sunken-top-of-helix" 50 dm-task-hint) + (flag "sunken-spinning-room" 51 dm-task-hint) + (flag "rolling-race" 52 dm-task-hint) + (flag "rolling-robbers" 53 dm-task-hint) + (flag "rolling-moles" 54 dm-task-hint) + (flag "rolling-plants" 55 dm-task-hint) + (flag "rolling-lake" 56 dm-task-hint) + (flag "rolling-buzzer" 57 dm-task-hint) + (flag "rolling-ring-chase-1" 58 dm-task-hint) + (flag "rolling-ring-chase-2" 59 dm-task-hint) + (flag "snow-eggtop" 60 dm-task-hint) + (flag "snow-ram" 61 dm-task-hint) + (flag "snow-fort" 62 dm-task-hint) + (flag "snow-ball" 63 dm-task-hint) + (flag "snow-bunnies" 64 dm-task-hint) + (flag "snow-buzzer" 65 dm-task-hint) + (flag "snow-bumpers" 66 dm-task-hint) + (flag "snow-cage" 67 dm-task-hint) + (flag "firecanyon-buzzer" 68 dm-task-hint) + (flag "firecanyon-end" 69 dm-task-hint) + (flag "citadel-sage-green" 70 dm-task-hint) + (flag "citadel-sage-blue" 71 dm-task-hint) + (flag "citadel-sage-red" 72 dm-task-hint) + (flag "citadel-sage-yellow" 73 dm-task-hint) + (flag "village3-extra1" 74 dm-task-hint) + (flag "village1-buzzer" 75 dm-task-hint) + (flag "village2-buzzer" 76 dm-task-hint) + (flag "village3-buzzer" 77 dm-task-hint) + (flag "cave-gnawers" 78 dm-task-hint) + (flag "cave-dark-crystals" 79 dm-task-hint) + (flag "cave-dark-climb" 80 dm-task-hint) + (flag "cave-robot-climb" 81 dm-task-hint) + (flag "cave-swing-poles" 82 dm-task-hint) + (flag "cave-spider-tunnel" 83 dm-task-hint) + (flag "cave-platforms" 84 dm-task-hint) + (flag "cave-buzzer" 85 dm-task-hint) + (flag "ogre-boss" 86 dm-task-hint) + (flag "ogre-end" 87 dm-task-hint) + (flag "ogre-buzzer" 88 dm-task-hint) + (flag "lavatube-end" 89 dm-task-hint) + (flag "lavatube-buzzer" 90 dm-task-hint) + (flag "citadel-buzzer" 91 dm-task-hint) + (flag "training-gimmie" 92 dm-task-hint) + (flag "training-door" 93 dm-task-hint) + (flag "training-climb" 94 dm-task-hint) + (flag "training-buzzer" 95 dm-task-hint) + (flag "village3-miner-money1" 96 dm-task-hint) + (flag "village3-miner-money2" 97 dm-task-hint) + (flag "village3-miner-money3" 98 dm-task-hint) + (flag "village3-miner-money4" 99 dm-task-hint) + (flag "village3-oracle-money1" 100 dm-task-hint) + (flag "village3-oracle-money2" 101 dm-task-hint) + (flag "firecanyon-assistant" 102 dm-task-hint) + (flag "village2-levitator" 103 dm-task-hint) + (flag "swamp-arm" 104 dm-task-hint) + (flag "village3-button" 105 dm-task-hint) + (flag "red-eggtop" 106 dm-task-hint) + (flag "lavatube-balls" 107 dm-task-hint) + (flag "lavatube-start" 108 dm-task-hint) + (flag "intro" 109 dm-task-hint) + (flag "ogre-secret" 110 dm-task-hint) + (flag "village4-button" 111 dm-task-hint) + (flag "finalboss-movies" 112 dm-task-hint) + (flag "plunger-lurker-hit" 113 dm-task-hint) + (flag "leaving-misty" 114 dm-task-hint) + (flag "assistant-village3" 115 dm-task-hint) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) - (if (= arg1 4) - (close-specific-task! - (the-as game-task gp-0) - (task-status need-reward-speech) - ) + (none) + ) + +(defun-debug debug-menu-make-task-need-introduction-menu ((arg0 debug-menu) (arg1 debug-menu-context)) + (debug-menu-append-item + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-introduction" + #f + #f + (flag "jungle-eggtop" 2 dm-task-introduction) + (flag "jungle-lurkerm" 3 dm-task-introduction) + (flag "jungle-tower" 4 dm-task-introduction) + (flag "jungle-fishgame" 5 dm-task-introduction) + (flag "jungle-plant" 6 dm-task-introduction) + (flag "jungle-buzzer" 7 dm-task-introduction) + (flag "jungle-canyon-end" 8 dm-task-introduction) + (flag "jungle-temple-door" 9 dm-task-introduction) + (flag "village1-yakow" 10 dm-task-introduction) + (flag "village1-mayor-money" 11 dm-task-introduction) + (flag "village1-uncle-money" 12 dm-task-introduction) + (flag "village1-oracle-money1" 13 dm-task-introduction) + (flag "village1-oracle-money2" 14 dm-task-introduction) + (flag "beach-ecorocks" 15 dm-task-introduction) + (flag "beach-pelican" 16 dm-task-introduction) + (flag "beach-flutflut" 17 dm-task-introduction) + (flag "beach-seagull" 18 dm-task-introduction) + (flag "beach-cannon" 19 dm-task-introduction) + (flag "beach-buzzer" 20 dm-task-introduction) + (flag "beach-gimmie" 21 dm-task-introduction) + (flag "beach-sentinel" 22 dm-task-introduction) + (flag "misty-muse" 23 dm-task-introduction) + (flag "misty-boat" 24 dm-task-introduction) + (flag "misty-warehouse" 25 dm-task-introduction) + (flag "misty-cannon" 26 dm-task-introduction) + (flag "misty-bike" 27 dm-task-introduction) + (flag "misty-buzzer" 28 dm-task-introduction) + (flag "misty-bike-jump" 29 dm-task-introduction) + (flag "misty-eco-challenge" 30 dm-task-introduction) + (flag "village2-gambler-money" 31 dm-task-introduction) + (flag "village2-geologist-money" 32 dm-task-introduction) + (flag "village2-warrior-money" 33 dm-task-introduction) + (flag "village2-oracle-money1" 34 dm-task-introduction) + (flag "village2-oracle-money2" 35 dm-task-introduction) + (flag "swamp-billy" 36 dm-task-introduction) + (flag "swamp-flutflut" 37 dm-task-introduction) + (flag "swamp-battle" 38 dm-task-introduction) + (flag "swamp-tether-1" 39 dm-task-introduction) + (flag "swamp-tether-2" 40 dm-task-introduction) + (flag "swamp-tether-3" 41 dm-task-introduction) + (flag "swamp-tether-4" 42 dm-task-introduction) + (flag "swamp-buzzer" 43 dm-task-introduction) + (flag "sunken-platforms" 44 dm-task-introduction) + (flag "sunken-pipe" 45 dm-task-introduction) + (flag "sunken-slide" 46 dm-task-introduction) + (flag "sunken-room" 47 dm-task-introduction) + (flag "sunken-sharks" 48 dm-task-introduction) + (flag "sunken-buzzer" 49 dm-task-introduction) + (flag "sunken-top-of-helix" 50 dm-task-introduction) + (flag "sunken-spinning-room" 51 dm-task-introduction) + (flag "rolling-race" 52 dm-task-introduction) + (flag "rolling-robbers" 53 dm-task-introduction) + (flag "rolling-moles" 54 dm-task-introduction) + (flag "rolling-plants" 55 dm-task-introduction) + (flag "rolling-lake" 56 dm-task-introduction) + (flag "rolling-buzzer" 57 dm-task-introduction) + (flag "rolling-ring-chase-1" 58 dm-task-introduction) + (flag "rolling-ring-chase-2" 59 dm-task-introduction) + (flag "snow-eggtop" 60 dm-task-introduction) + (flag "snow-ram" 61 dm-task-introduction) + (flag "snow-fort" 62 dm-task-introduction) + (flag "snow-ball" 63 dm-task-introduction) + (flag "snow-bunnies" 64 dm-task-introduction) + (flag "snow-buzzer" 65 dm-task-introduction) + (flag "snow-bumpers" 66 dm-task-introduction) + (flag "snow-cage" 67 dm-task-introduction) + (flag "firecanyon-buzzer" 68 dm-task-introduction) + (flag "firecanyon-end" 69 dm-task-introduction) + (flag "citadel-sage-green" 70 dm-task-introduction) + (flag "citadel-sage-blue" 71 dm-task-introduction) + (flag "citadel-sage-red" 72 dm-task-introduction) + (flag "citadel-sage-yellow" 73 dm-task-introduction) + (flag "village3-extra1" 74 dm-task-introduction) + (flag "village1-buzzer" 75 dm-task-introduction) + (flag "village2-buzzer" 76 dm-task-introduction) + (flag "village3-buzzer" 77 dm-task-introduction) + (flag "cave-gnawers" 78 dm-task-introduction) + (flag "cave-dark-crystals" 79 dm-task-introduction) + (flag "cave-dark-climb" 80 dm-task-introduction) + (flag "cave-robot-climb" 81 dm-task-introduction) + (flag "cave-swing-poles" 82 dm-task-introduction) + (flag "cave-spider-tunnel" 83 dm-task-introduction) + (flag "cave-platforms" 84 dm-task-introduction) + (flag "cave-buzzer" 85 dm-task-introduction) + (flag "ogre-boss" 86 dm-task-introduction) + (flag "ogre-end" 87 dm-task-introduction) + (flag "ogre-buzzer" 88 dm-task-introduction) + (flag "lavatube-end" 89 dm-task-introduction) + (flag "lavatube-buzzer" 90 dm-task-introduction) + (flag "citadel-buzzer" 91 dm-task-introduction) + (flag "training-gimmie" 92 dm-task-introduction) + (flag "training-door" 93 dm-task-introduction) + (flag "training-climb" 94 dm-task-introduction) + (flag "training-buzzer" 95 dm-task-introduction) + (flag "village3-miner-money1" 96 dm-task-introduction) + (flag "village3-miner-money2" 97 dm-task-introduction) + (flag "village3-miner-money3" 98 dm-task-introduction) + (flag "village3-miner-money4" 99 dm-task-introduction) + (flag "village3-oracle-money1" 100 dm-task-introduction) + (flag "village3-oracle-money2" 101 dm-task-introduction) + (flag "firecanyon-assistant" 102 dm-task-introduction) + (flag "village2-levitator" 103 dm-task-introduction) + (flag "swamp-arm" 104 dm-task-introduction) + (flag "village3-button" 105 dm-task-introduction) + (flag "red-eggtop" 106 dm-task-introduction) + (flag "lavatube-balls" 107 dm-task-introduction) + (flag "lavatube-start" 108 dm-task-introduction) + (flag "intro" 109 dm-task-introduction) + (flag "ogre-secret" 110 dm-task-introduction) + (flag "village4-button" 111 dm-task-introduction) + (flag "finalboss-movies" 112 dm-task-introduction) + (flag "plunger-lurker-hit" 113 dm-task-introduction) + (flag "leaving-misty" 114 dm-task-introduction) + (flag "assistant-village3" 115 dm-task-introduction) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) - (task-closed? (the-as game-task gp-0) (task-status need-reward-speech)) - ) + (none) ) -(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) +(defun-debug debug-menu-make-task-need-reminder-a-menu ((arg0 debug-menu) (arg1 debug-menu-context)) + (debug-menu-append-item + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-reminder-a" + #f + #f + (flag "jungle-eggtop" 2 dm-task-reminder-a) + (flag "jungle-lurkerm" 3 dm-task-reminder-a) + (flag "jungle-tower" 4 dm-task-reminder-a) + (flag "jungle-fishgame" 5 dm-task-reminder-a) + (flag "jungle-plant" 6 dm-task-reminder-a) + (flag "jungle-buzzer" 7 dm-task-reminder-a) + (flag "jungle-canyon-end" 8 dm-task-reminder-a) + (flag "jungle-temple-door" 9 dm-task-reminder-a) + (flag "village1-yakow" 10 dm-task-reminder-a) + (flag "village1-mayor-money" 11 dm-task-reminder-a) + (flag "village1-uncle-money" 12 dm-task-reminder-a) + (flag "village1-oracle-money1" 13 dm-task-reminder-a) + (flag "village1-oracle-money2" 14 dm-task-reminder-a) + (flag "beach-ecorocks" 15 dm-task-reminder-a) + (flag "beach-pelican" 16 dm-task-reminder-a) + (flag "beach-flutflut" 17 dm-task-reminder-a) + (flag "beach-seagull" 18 dm-task-reminder-a) + (flag "beach-cannon" 19 dm-task-reminder-a) + (flag "beach-buzzer" 20 dm-task-reminder-a) + (flag "beach-gimmie" 21 dm-task-reminder-a) + (flag "beach-sentinel" 22 dm-task-reminder-a) + (flag "misty-muse" 23 dm-task-reminder-a) + (flag "misty-boat" 24 dm-task-reminder-a) + (flag "misty-warehouse" 25 dm-task-reminder-a) + (flag "misty-cannon" 26 dm-task-reminder-a) + (flag "misty-bike" 27 dm-task-reminder-a) + (flag "misty-buzzer" 28 dm-task-reminder-a) + (flag "misty-bike-jump" 29 dm-task-reminder-a) + (flag "misty-eco-challenge" 30 dm-task-reminder-a) + (flag "village2-gambler-money" 31 dm-task-reminder-a) + (flag "village2-geologist-money" 32 dm-task-reminder-a) + (flag "village2-warrior-money" 33 dm-task-reminder-a) + (flag "village2-oracle-money1" 34 dm-task-reminder-a) + (flag "village2-oracle-money2" 35 dm-task-reminder-a) + (flag "swamp-billy" 36 dm-task-reminder-a) + (flag "swamp-flutflut" 37 dm-task-reminder-a) + (flag "swamp-battle" 38 dm-task-reminder-a) + (flag "swamp-tether-1" 39 dm-task-reminder-a) + (flag "swamp-tether-2" 40 dm-task-reminder-a) + (flag "swamp-tether-3" 41 dm-task-reminder-a) + (flag "swamp-tether-4" 42 dm-task-reminder-a) + (flag "swamp-buzzer" 43 dm-task-reminder-a) + (flag "sunken-platforms" 44 dm-task-reminder-a) + (flag "sunken-pipe" 45 dm-task-reminder-a) + (flag "sunken-slide" 46 dm-task-reminder-a) + (flag "sunken-room" 47 dm-task-reminder-a) + (flag "sunken-sharks" 48 dm-task-reminder-a) + (flag "sunken-buzzer" 49 dm-task-reminder-a) + (flag "sunken-top-of-helix" 50 dm-task-reminder-a) + (flag "sunken-spinning-room" 51 dm-task-reminder-a) + (flag "rolling-race" 52 dm-task-reminder-a) + (flag "rolling-robbers" 53 dm-task-reminder-a) + (flag "rolling-moles" 54 dm-task-reminder-a) + (flag "rolling-plants" 55 dm-task-reminder-a) + (flag "rolling-lake" 56 dm-task-reminder-a) + (flag "rolling-buzzer" 57 dm-task-reminder-a) + (flag "rolling-ring-chase-1" 58 dm-task-reminder-a) + (flag "rolling-ring-chase-2" 59 dm-task-reminder-a) + (flag "snow-eggtop" 60 dm-task-reminder-a) + (flag "snow-ram" 61 dm-task-reminder-a) + (flag "snow-fort" 62 dm-task-reminder-a) + (flag "snow-ball" 63 dm-task-reminder-a) + (flag "snow-bunnies" 64 dm-task-reminder-a) + (flag "snow-buzzer" 65 dm-task-reminder-a) + (flag "snow-bumpers" 66 dm-task-reminder-a) + (flag "snow-cage" 67 dm-task-reminder-a) + (flag "firecanyon-buzzer" 68 dm-task-reminder-a) + (flag "firecanyon-end" 69 dm-task-reminder-a) + (flag "citadel-sage-green" 70 dm-task-reminder-a) + (flag "citadel-sage-blue" 71 dm-task-reminder-a) + (flag "citadel-sage-red" 72 dm-task-reminder-a) + (flag "citadel-sage-yellow" 73 dm-task-reminder-a) + (flag "village3-extra1" 74 dm-task-reminder-a) + (flag "village1-buzzer" 75 dm-task-reminder-a) + (flag "village2-buzzer" 76 dm-task-reminder-a) + (flag "village3-buzzer" 77 dm-task-reminder-a) + (flag "cave-gnawers" 78 dm-task-reminder-a) + (flag "cave-dark-crystals" 79 dm-task-reminder-a) + (flag "cave-dark-climb" 80 dm-task-reminder-a) + (flag "cave-robot-climb" 81 dm-task-reminder-a) + (flag "cave-swing-poles" 82 dm-task-reminder-a) + (flag "cave-spider-tunnel" 83 dm-task-reminder-a) + (flag "cave-platforms" 84 dm-task-reminder-a) + (flag "cave-buzzer" 85 dm-task-reminder-a) + (flag "ogre-boss" 86 dm-task-reminder-a) + (flag "ogre-end" 87 dm-task-reminder-a) + (flag "ogre-buzzer" 88 dm-task-reminder-a) + (flag "lavatube-end" 89 dm-task-reminder-a) + (flag "lavatube-buzzer" 90 dm-task-reminder-a) + (flag "citadel-buzzer" 91 dm-task-reminder-a) + (flag "training-gimmie" 92 dm-task-reminder-a) + (flag "training-door" 93 dm-task-reminder-a) + (flag "training-climb" 94 dm-task-reminder-a) + (flag "training-buzzer" 95 dm-task-reminder-a) + (flag "village3-miner-money1" 96 dm-task-reminder-a) + (flag "village3-miner-money2" 97 dm-task-reminder-a) + (flag "village3-miner-money3" 98 dm-task-reminder-a) + (flag "village3-miner-money4" 99 dm-task-reminder-a) + (flag "village3-oracle-money1" 100 dm-task-reminder-a) + (flag "village3-oracle-money2" 101 dm-task-reminder-a) + (flag "firecanyon-assistant" 102 dm-task-reminder-a) + (flag "village2-levitator" 103 dm-task-reminder-a) + (flag "swamp-arm" 104 dm-task-reminder-a) + (flag "village3-button" 105 dm-task-reminder-a) + (flag "red-eggtop" 106 dm-task-reminder-a) + (flag "lavatube-balls" 107 dm-task-reminder-a) + (flag "lavatube-start" 108 dm-task-reminder-a) + (flag "intro" 109 dm-task-reminder-a) + (flag "ogre-secret" 110 dm-task-reminder-a) + (flag "village4-button" 111 dm-task-reminder-a) + (flag "finalboss-movies" 112 dm-task-reminder-a) + (flag "plunger-lurker-hit" 113 dm-task-reminder-a) + (flag "leaving-misty" 114 dm-task-reminder-a) + (flag "assistant-village3" 115 dm-task-reminder-a) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) - (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)) + (none) + ) + +(defun-debug debug-menu-make-task-need-reminder-menu ((arg0 debug-menu) (arg1 debug-menu-context)) + (debug-menu-append-item + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-reminder" + #f + #f + (flag "jungle-eggtop" 2 dm-task-reminder) + (flag "jungle-lurkerm" 3 dm-task-reminder) + (flag "jungle-tower" 4 dm-task-reminder) + (flag "jungle-fishgame" 5 dm-task-reminder) + (flag "jungle-plant" 6 dm-task-reminder) + (flag "jungle-buzzer" 7 dm-task-reminder) + (flag "jungle-canyon-end" 8 dm-task-reminder) + (flag "jungle-temple-door" 9 dm-task-reminder) + (flag "village1-yakow" 10 dm-task-reminder) + (flag "village1-mayor-money" 11 dm-task-reminder) + (flag "village1-uncle-money" 12 dm-task-reminder) + (flag "village1-oracle-money1" 13 dm-task-reminder) + (flag "village1-oracle-money2" 14 dm-task-reminder) + (flag "beach-ecorocks" 15 dm-task-reminder) + (flag "beach-pelican" 16 dm-task-reminder) + (flag "beach-flutflut" 17 dm-task-reminder) + (flag "beach-seagull" 18 dm-task-reminder) + (flag "beach-cannon" 19 dm-task-reminder) + (flag "beach-buzzer" 20 dm-task-reminder) + (flag "beach-gimmie" 21 dm-task-reminder) + (flag "beach-sentinel" 22 dm-task-reminder) + (flag "misty-muse" 23 dm-task-reminder) + (flag "misty-boat" 24 dm-task-reminder) + (flag "misty-warehouse" 25 dm-task-reminder) + (flag "misty-cannon" 26 dm-task-reminder) + (flag "misty-bike" 27 dm-task-reminder) + (flag "misty-buzzer" 28 dm-task-reminder) + (flag "misty-bike-jump" 29 dm-task-reminder) + (flag "misty-eco-challenge" 30 dm-task-reminder) + (flag "village2-gambler-money" 31 dm-task-reminder) + (flag "village2-geologist-money" 32 dm-task-reminder) + (flag "village2-warrior-money" 33 dm-task-reminder) + (flag "village2-oracle-money1" 34 dm-task-reminder) + (flag "village2-oracle-money2" 35 dm-task-reminder) + (flag "swamp-billy" 36 dm-task-reminder) + (flag "swamp-flutflut" 37 dm-task-reminder) + (flag "swamp-battle" 38 dm-task-reminder) + (flag "swamp-tether-1" 39 dm-task-reminder) + (flag "swamp-tether-2" 40 dm-task-reminder) + (flag "swamp-tether-3" 41 dm-task-reminder) + (flag "swamp-tether-4" 42 dm-task-reminder) + (flag "swamp-buzzer" 43 dm-task-reminder) + (flag "sunken-platforms" 44 dm-task-reminder) + (flag "sunken-pipe" 45 dm-task-reminder) + (flag "sunken-slide" 46 dm-task-reminder) + (flag "sunken-room" 47 dm-task-reminder) + (flag "sunken-sharks" 48 dm-task-reminder) + (flag "sunken-buzzer" 49 dm-task-reminder) + (flag "sunken-top-of-helix" 50 dm-task-reminder) + (flag "sunken-spinning-room" 51 dm-task-reminder) + (flag "rolling-race" 52 dm-task-reminder) + (flag "rolling-robbers" 53 dm-task-reminder) + (flag "rolling-moles" 54 dm-task-reminder) + (flag "rolling-plants" 55 dm-task-reminder) + (flag "rolling-lake" 56 dm-task-reminder) + (flag "rolling-buzzer" 57 dm-task-reminder) + (flag "rolling-ring-chase-1" 58 dm-task-reminder) + (flag "rolling-ring-chase-2" 59 dm-task-reminder) + (flag "snow-eggtop" 60 dm-task-reminder) + (flag "snow-ram" 61 dm-task-reminder) + (flag "snow-fort" 62 dm-task-reminder) + (flag "snow-ball" 63 dm-task-reminder) + (flag "snow-bunnies" 64 dm-task-reminder) + (flag "snow-buzzer" 65 dm-task-reminder) + (flag "snow-bumpers" 66 dm-task-reminder) + (flag "snow-cage" 67 dm-task-reminder) + (flag "firecanyon-buzzer" 68 dm-task-reminder) + (flag "firecanyon-end" 69 dm-task-reminder) + (flag "citadel-sage-green" 70 dm-task-reminder) + (flag "citadel-sage-blue" 71 dm-task-reminder) + (flag "citadel-sage-red" 72 dm-task-reminder) + (flag "citadel-sage-yellow" 73 dm-task-reminder) + (flag "village3-extra1" 74 dm-task-reminder) + (flag "village1-buzzer" 75 dm-task-reminder) + (flag "village2-buzzer" 76 dm-task-reminder) + (flag "village3-buzzer" 77 dm-task-reminder) + (flag "cave-gnawers" 78 dm-task-reminder) + (flag "cave-dark-crystals" 79 dm-task-reminder) + (flag "cave-dark-climb" 80 dm-task-reminder) + (flag "cave-robot-climb" 81 dm-task-reminder) + (flag "cave-swing-poles" 82 dm-task-reminder) + (flag "cave-spider-tunnel" 83 dm-task-reminder) + (flag "cave-platforms" 84 dm-task-reminder) + (flag "cave-buzzer" 85 dm-task-reminder) + (flag "ogre-boss" 86 dm-task-reminder) + (flag "ogre-end" 87 dm-task-reminder) + (flag "ogre-buzzer" 88 dm-task-reminder) + (flag "lavatube-end" 89 dm-task-reminder) + (flag "lavatube-buzzer" 90 dm-task-reminder) + (flag "citadel-buzzer" 91 dm-task-reminder) + (flag "training-gimmie" 92 dm-task-reminder) + (flag "training-door" 93 dm-task-reminder) + (flag "training-climb" 94 dm-task-reminder) + (flag "training-buzzer" 95 dm-task-reminder) + (flag "village3-miner-money1" 96 dm-task-reminder) + (flag "village3-miner-money2" 97 dm-task-reminder) + (flag "village3-miner-money3" 98 dm-task-reminder) + (flag "village3-miner-money4" 99 dm-task-reminder) + (flag "village3-oracle-money1" 100 dm-task-reminder) + (flag "village3-oracle-money2" 101 dm-task-reminder) + (flag "firecanyon-assistant" 102 dm-task-reminder) + (flag "village2-levitator" 103 dm-task-reminder) + (flag "swamp-arm" 104 dm-task-reminder) + (flag "village3-button" 105 dm-task-reminder) + (flag "red-eggtop" 106 dm-task-reminder) + (flag "lavatube-balls" 107 dm-task-reminder) + (flag "lavatube-start" 108 dm-task-reminder) + (flag "intro" 109 dm-task-reminder) + (flag "ogre-secret" 110 dm-task-reminder) + (flag "village4-button" 111 dm-task-reminder) + (flag "finalboss-movies" 112 dm-task-reminder) + (flag "plunger-lurker-hit" 113 dm-task-reminder) + (flag "leaving-misty" 114 dm-task-reminder) + (flag "assistant-village3" 115 dm-task-reminder) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) - (task-closed? (the-as game-task gp-0) (task-status need-resolution)) - ) + (none) ) -(defun - debug-menu-make-task-unknown-menu - ((arg0 debug-menu-context) (arg1 debug-menu-context)) +(defun-debug debug-menu-make-task-need-reward-speech-menu ((arg0 debug-menu) (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 + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-reward-speech" + #f + #f + (flag "jungle-eggtop" 2 dm-task-reward-speech) + (flag "jungle-lurkerm" 3 dm-task-reward-speech) + (flag "jungle-tower" 4 dm-task-reward-speech) + (flag "jungle-fishgame" 5 dm-task-reward-speech) + (flag "jungle-plant" 6 dm-task-reward-speech) + (flag "jungle-buzzer" 7 dm-task-reward-speech) + (flag "jungle-canyon-end" 8 dm-task-reward-speech) + (flag "jungle-temple-door" 9 dm-task-reward-speech) + (flag "village1-yakow" 10 dm-task-reward-speech) + (flag "village1-mayor-money" 11 dm-task-reward-speech) + (flag "village1-uncle-money" 12 dm-task-reward-speech) + (flag "village1-oracle-money1" 13 dm-task-reward-speech) + (flag "village1-oracle-money2" 14 dm-task-reward-speech) + (flag "beach-ecorocks" 15 dm-task-reward-speech) + (flag "beach-pelican" 16 dm-task-reward-speech) + (flag "beach-flutflut" 17 dm-task-reward-speech) + (flag "beach-seagull" 18 dm-task-reward-speech) + (flag "beach-cannon" 19 dm-task-reward-speech) + (flag "beach-buzzer" 20 dm-task-reward-speech) + (flag "beach-gimmie" 21 dm-task-reward-speech) + (flag "beach-sentinel" 22 dm-task-reward-speech) + (flag "misty-muse" 23 dm-task-reward-speech) + (flag "misty-boat" 24 dm-task-reward-speech) + (flag "misty-warehouse" 25 dm-task-reward-speech) + (flag "misty-cannon" 26 dm-task-reward-speech) + (flag "misty-bike" 27 dm-task-reward-speech) + (flag "misty-buzzer" 28 dm-task-reward-speech) + (flag "misty-bike-jump" 29 dm-task-reward-speech) + (flag "misty-eco-challenge" 30 dm-task-reward-speech) + (flag "village2-gambler-money" 31 dm-task-reward-speech) + (flag "village2-geologist-money" 32 dm-task-reward-speech) + (flag "village2-warrior-money" 33 dm-task-reward-speech) + (flag "village2-oracle-money1" 34 dm-task-reward-speech) + (flag "village2-oracle-money2" 35 dm-task-reward-speech) + (flag "swamp-billy" 36 dm-task-reward-speech) + (flag "swamp-flutflut" 37 dm-task-reward-speech) + (flag "swamp-battle" 38 dm-task-reward-speech) + (flag "swamp-tether-1" 39 dm-task-reward-speech) + (flag "swamp-tether-2" 40 dm-task-reward-speech) + (flag "swamp-tether-3" 41 dm-task-reward-speech) + (flag "swamp-tether-4" 42 dm-task-reward-speech) + (flag "swamp-buzzer" 43 dm-task-reward-speech) + (flag "sunken-platforms" 44 dm-task-reward-speech) + (flag "sunken-pipe" 45 dm-task-reward-speech) + (flag "sunken-slide" 46 dm-task-reward-speech) + (flag "sunken-room" 47 dm-task-reward-speech) + (flag "sunken-sharks" 48 dm-task-reward-speech) + (flag "sunken-buzzer" 49 dm-task-reward-speech) + (flag "sunken-top-of-helix" 50 dm-task-reward-speech) + (flag "sunken-spinning-room" 51 dm-task-reward-speech) + (flag "rolling-race" 52 dm-task-reward-speech) + (flag "rolling-robbers" 53 dm-task-reward-speech) + (flag "rolling-moles" 54 dm-task-reward-speech) + (flag "rolling-plants" 55 dm-task-reward-speech) + (flag "rolling-lake" 56 dm-task-reward-speech) + (flag "rolling-buzzer" 57 dm-task-reward-speech) + (flag "rolling-ring-chase-1" 58 dm-task-reward-speech) + (flag "rolling-ring-chase-2" 59 dm-task-reward-speech) + (flag "snow-eggtop" 60 dm-task-reward-speech) + (flag "snow-ram" 61 dm-task-reward-speech) + (flag "snow-fort" 62 dm-task-reward-speech) + (flag "snow-ball" 63 dm-task-reward-speech) + (flag "snow-bunnies" 64 dm-task-reward-speech) + (flag "snow-buzzer" 65 dm-task-reward-speech) + (flag "snow-bumpers" 66 dm-task-reward-speech) + (flag "snow-cage" 67 dm-task-reward-speech) + (flag "firecanyon-buzzer" 68 dm-task-reward-speech) + (flag "firecanyon-end" 69 dm-task-reward-speech) + (flag "citadel-sage-green" 70 dm-task-reward-speech) + (flag "citadel-sage-blue" 71 dm-task-reward-speech) + (flag "citadel-sage-red" 72 dm-task-reward-speech) + (flag "citadel-sage-yellow" 73 dm-task-reward-speech) + (flag "village3-extra1" 74 dm-task-reward-speech) + (flag "village1-buzzer" 75 dm-task-reward-speech) + (flag "village2-buzzer" 76 dm-task-reward-speech) + (flag "village3-buzzer" 77 dm-task-reward-speech) + (flag "cave-gnawers" 78 dm-task-reward-speech) + (flag "cave-dark-crystals" 79 dm-task-reward-speech) + (flag "cave-dark-climb" 80 dm-task-reward-speech) + (flag "cave-robot-climb" 81 dm-task-reward-speech) + (flag "cave-swing-poles" 82 dm-task-reward-speech) + (flag "cave-spider-tunnel" 83 dm-task-reward-speech) + (flag "cave-platforms" 84 dm-task-reward-speech) + (flag "cave-buzzer" 85 dm-task-reward-speech) + (flag "ogre-boss" 86 dm-task-reward-speech) + (flag "ogre-end" 87 dm-task-reward-speech) + (flag "ogre-buzzer" 88 dm-task-reward-speech) + (flag "lavatube-end" 89 dm-task-reward-speech) + (flag "lavatube-buzzer" 90 dm-task-reward-speech) + (flag "citadel-buzzer" 91 dm-task-reward-speech) + (flag "training-gimmie" 92 dm-task-reward-speech) + (flag "training-door" 93 dm-task-reward-speech) + (flag "training-climb" 94 dm-task-reward-speech) + (flag "training-buzzer" 95 dm-task-reward-speech) + (flag "village3-miner-money1" 96 dm-task-reward-speech) + (flag "village3-miner-money2" 97 dm-task-reward-speech) + (flag "village3-miner-money3" 98 dm-task-reward-speech) + (flag "village3-miner-money4" 99 dm-task-reward-speech) + (flag "village3-oracle-money1" 100 dm-task-reward-speech) + (flag "village3-oracle-money2" 101 dm-task-reward-speech) + (flag "firecanyon-assistant" 102 dm-task-reward-speech) + (flag "village2-levitator" 103 dm-task-reward-speech) + (flag "swamp-arm" 104 dm-task-reward-speech) + (flag "village3-button" 105 dm-task-reward-speech) + (flag "red-eggtop" 106 dm-task-reward-speech) + (flag "lavatube-balls" 107 dm-task-reward-speech) + (flag "lavatube-start" 108 dm-task-reward-speech) + (flag "intro" 109 dm-task-reward-speech) + (flag "ogre-secret" 110 dm-task-reward-speech) + (flag "village4-button" 111 dm-task-reward-speech) + (flag "finalboss-movies" 112 dm-task-reward-speech) + (flag "plunger-lurker-hit" 113 dm-task-reward-speech) + (flag "leaving-misty" 114 dm-task-reward-speech) + (flag "assistant-village3" 115 dm-task-reward-speech) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) + ) + (none) + ) + +(defun-debug debug-menu-make-task-need-resolution-menu ((arg0 debug-menu) (arg1 debug-menu-context)) + (debug-menu-append-item + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-resolution" + #f + #f + (flag "jungle-eggtop" 2 dm-task-resolution) + (flag "jungle-lurkerm" 3 dm-task-resolution) + (flag "jungle-tower" 4 dm-task-resolution) + (flag "jungle-fishgame" 5 dm-task-resolution) + (flag "jungle-plant" 6 dm-task-resolution) + (flag "jungle-buzzer" 7 dm-task-resolution) + (flag "jungle-canyon-end" 8 dm-task-resolution) + (flag "jungle-temple-door" 9 dm-task-resolution) + (flag "village1-yakow" 10 dm-task-resolution) + (flag "village1-mayor-money" 11 dm-task-resolution) + (flag "village1-uncle-money" 12 dm-task-resolution) + (flag "village1-oracle-money1" 13 dm-task-resolution) + (flag "village1-oracle-money2" 14 dm-task-resolution) + (flag "beach-ecorocks" 15 dm-task-resolution) + (flag "beach-pelican" 16 dm-task-resolution) + (flag "beach-flutflut" 17 dm-task-resolution) + (flag "beach-seagull" 18 dm-task-resolution) + (flag "beach-cannon" 19 dm-task-resolution) + (flag "beach-buzzer" 20 dm-task-resolution) + (flag "beach-gimmie" 21 dm-task-resolution) + (flag "beach-sentinel" 22 dm-task-resolution) + (flag "misty-muse" 23 dm-task-resolution) + (flag "misty-boat" 24 dm-task-resolution) + (flag "misty-warehouse" 25 dm-task-resolution) + (flag "misty-cannon" 26 dm-task-resolution) + (flag "misty-bike" 27 dm-task-resolution) + (flag "misty-buzzer" 28 dm-task-resolution) + (flag "misty-bike-jump" 29 dm-task-resolution) + (flag "misty-eco-challenge" 30 dm-task-resolution) + (flag "village2-gambler-money" 31 dm-task-resolution) + (flag "village2-geologist-money" 32 dm-task-resolution) + (flag "village2-warrior-money" 33 dm-task-resolution) + (flag "village2-oracle-money1" 34 dm-task-resolution) + (flag "village2-oracle-money2" 35 dm-task-resolution) + (flag "swamp-billy" 36 dm-task-resolution) + (flag "swamp-flutflut" 37 dm-task-resolution) + (flag "swamp-battle" 38 dm-task-resolution) + (flag "swamp-tether-1" 39 dm-task-resolution) + (flag "swamp-tether-2" 40 dm-task-resolution) + (flag "swamp-tether-3" 41 dm-task-resolution) + (flag "swamp-tether-4" 42 dm-task-resolution) + (flag "swamp-buzzer" 43 dm-task-resolution) + (flag "sunken-platforms" 44 dm-task-resolution) + (flag "sunken-pipe" 45 dm-task-resolution) + (flag "sunken-slide" 46 dm-task-resolution) + (flag "sunken-room" 47 dm-task-resolution) + (flag "sunken-sharks" 48 dm-task-resolution) + (flag "sunken-buzzer" 49 dm-task-resolution) + (flag "sunken-top-of-helix" 50 dm-task-resolution) + (flag "sunken-spinning-room" 51 dm-task-resolution) + (flag "rolling-race" 52 dm-task-resolution) + (flag "rolling-robbers" 53 dm-task-resolution) + (flag "rolling-moles" 54 dm-task-resolution) + (flag "rolling-plants" 55 dm-task-resolution) + (flag "rolling-lake" 56 dm-task-resolution) + (flag "rolling-buzzer" 57 dm-task-resolution) + (flag "rolling-ring-chase-1" 58 dm-task-resolution) + (flag "rolling-ring-chase-2" 59 dm-task-resolution) + (flag "snow-eggtop" 60 dm-task-resolution) + (flag "snow-ram" 61 dm-task-resolution) + (flag "snow-fort" 62 dm-task-resolution) + (flag "snow-ball" 63 dm-task-resolution) + (flag "snow-bunnies" 64 dm-task-resolution) + (flag "snow-buzzer" 65 dm-task-resolution) + (flag "snow-bumpers" 66 dm-task-resolution) + (flag "snow-cage" 67 dm-task-resolution) + (flag "firecanyon-buzzer" 68 dm-task-resolution) + (flag "firecanyon-end" 69 dm-task-resolution) + (flag "citadel-sage-green" 70 dm-task-resolution) + (flag "citadel-sage-blue" 71 dm-task-resolution) + (flag "citadel-sage-red" 72 dm-task-resolution) + (flag "citadel-sage-yellow" 73 dm-task-resolution) + (flag "village3-extra1" 74 dm-task-resolution) + (flag "village1-buzzer" 75 dm-task-resolution) + (flag "village2-buzzer" 76 dm-task-resolution) + (flag "village3-buzzer" 77 dm-task-resolution) + (flag "cave-gnawers" 78 dm-task-resolution) + (flag "cave-dark-crystals" 79 dm-task-resolution) + (flag "cave-dark-climb" 80 dm-task-resolution) + (flag "cave-robot-climb" 81 dm-task-resolution) + (flag "cave-swing-poles" 82 dm-task-resolution) + (flag "cave-spider-tunnel" 83 dm-task-resolution) + (flag "cave-platforms" 84 dm-task-resolution) + (flag "cave-buzzer" 85 dm-task-resolution) + (flag "ogre-boss" 86 dm-task-resolution) + (flag "ogre-end" 87 dm-task-resolution) + (flag "ogre-buzzer" 88 dm-task-resolution) + (flag "lavatube-end" 89 dm-task-resolution) + (flag "lavatube-buzzer" 90 dm-task-resolution) + (flag "citadel-buzzer" 91 dm-task-resolution) + (flag "training-gimmie" 92 dm-task-resolution) + (flag "training-door" 93 dm-task-resolution) + (flag "training-climb" 94 dm-task-resolution) + (flag "training-buzzer" 95 dm-task-resolution) + (flag "village3-miner-money1" 96 dm-task-resolution) + (flag "village3-miner-money2" 97 dm-task-resolution) + (flag "village3-miner-money3" 98 dm-task-resolution) + (flag "village3-miner-money4" 99 dm-task-resolution) + (flag "village3-oracle-money1" 100 dm-task-resolution) + (flag "village3-oracle-money2" 101 dm-task-resolution) + (flag "firecanyon-assistant" 102 dm-task-resolution) + (flag "village2-levitator" 103 dm-task-resolution) + (flag "swamp-arm" 104 dm-task-resolution) + (flag "village3-button" 105 dm-task-resolution) + (flag "red-eggtop" 106 dm-task-resolution) + (flag "lavatube-balls" 107 dm-task-resolution) + (flag "lavatube-start" 108 dm-task-resolution) + (flag "intro" 109 dm-task-resolution) + (flag "ogre-secret" 110 dm-task-resolution) + (flag "village4-button" 111 dm-task-resolution) + (flag "finalboss-movies" 112 dm-task-resolution) + (flag "plunger-lurker-hit" 113 dm-task-resolution) + (flag "leaving-misty" 114 dm-task-resolution) + (flag "assistant-village3" 115 dm-task-resolution) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) + ) + (none) + ) + +(defun-debug dm-task-get-money ((arg0 int) (arg1 debug-menu-msg)) + (with-pp + (if (= arg1 (debug-menu-msg press)) + (send-event *target* 'get-pickup 5 (-> *GAME-bank* money-task-inc)) ) - (flag - "jungle-plant" - (the binteger 6) - dm-task-unknown + (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)) + ) + ) + ) + +(defun-debug dm-give-all-cells ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (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) ) - (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 - ) - ) - ) - ) - ) - -(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 - ) - ) - ) - ) - ) - -(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 - ) - ) - ) - ) - ) - -(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 - ) - ) - ) - ) - ) - -(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 - ) - ) - ) - ) - ) - -(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 - ) - ) - ) - ) - ) - -(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 - ) - ) - ) - ) - ) - -(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) - ) - ) - ) - ) - -(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 ) -(defun dm-give-cell ((arg0 int)) +(defun-debug dm-give-cell ((arg0 game-task)) (send-event *target* 'get-pickup 6 (the float arg0)) - (close-specific-task! (the-as game-task arg0) (task-status need-resolution)) + (close-specific-task! arg0 (task-status need-resolution)) (none) ) -(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) - ) - ) - -(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) - ) +(defun-debug dm-levitator-ready ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (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 (game-task jungle-eggtop)) + (dm-give-cell (game-task jungle-lurkerm)) + (dm-give-cell (game-task jungle-tower)) + (dm-give-cell (game-task jungle-fishgame)) + (dm-give-cell (game-task jungle-plant)) + (dm-give-cell (game-task jungle-buzzer)) + (dm-give-cell (game-task jungle-canyon-end)) + (dm-give-cell (game-task jungle-temple-door)) + (dm-give-cell (game-task village1-yakow)) + (dm-give-cell (game-task village1-mayor-money)) + (dm-give-cell (game-task village1-uncle-money)) + (dm-give-cell (game-task village1-oracle-money1)) + (dm-give-cell (game-task village1-oracle-money2)) + (dm-give-cell (game-task beach-ecorocks)) + (dm-give-cell (game-task beach-pelican)) + (dm-give-cell (game-task beach-flutflut)) + (dm-give-cell (game-task beach-seagull)) + (dm-give-cell (game-task beach-cannon)) + (dm-give-cell (game-task beach-buzzer)) + (dm-give-cell (game-task beach-gimmie)) + (dm-give-cell (game-task beach-sentinel)) + (dm-give-cell (game-task misty-muse)) + (dm-give-cell (game-task misty-boat)) + (dm-give-cell (game-task misty-warehouse)) + (dm-give-cell (game-task misty-cannon)) + (dm-give-cell (game-task misty-bike)) + (dm-give-cell (game-task misty-buzzer)) + (dm-give-cell (game-task misty-bike-jump)) + (dm-give-cell (game-task misty-eco-challenge)) + (dm-give-cell (game-task village2-gambler-money)) + (dm-give-cell (game-task village2-geologist-money)) + (dm-give-cell (game-task village2-oracle-money1)) + (dm-give-cell (game-task village2-oracle-money2)) + (dm-give-cell (game-task swamp-billy)) + (dm-give-cell (game-task swamp-flutflut)) + (dm-give-cell (game-task swamp-battle)) + (dm-give-cell (game-task swamp-tether-1)) + (dm-give-cell (game-task swamp-tether-2)) + (dm-give-cell (game-task swamp-tether-3)) + (dm-give-cell (game-task swamp-tether-4)) + (dm-give-cell (game-task swamp-buzzer)) + (dm-give-cell (game-task sunken-platforms)) + (dm-give-cell (game-task sunken-pipe)) + (dm-give-cell (game-task sunken-slide)) + (dm-give-cell (game-task sunken-room)) + (dm-give-cell (game-task sunken-sharks)) + ) + (= (get-task-status (game-task village2-levitator)) (task-status need-reward-speech)) ) - -(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 + +(defun-debug dm-lavabike-ready ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (dm-give-cell (game-task jungle-eggtop)) + (dm-give-cell (game-task jungle-lurkerm)) + (dm-give-cell (game-task jungle-tower)) + (dm-give-cell (game-task jungle-fishgame)) + (dm-give-cell (game-task jungle-plant)) + (dm-give-cell (game-task jungle-buzzer)) + (dm-give-cell (game-task jungle-canyon-end)) + (dm-give-cell (game-task jungle-temple-door)) + (dm-give-cell (game-task village1-yakow)) + (dm-give-cell (game-task village1-mayor-money)) + (dm-give-cell (game-task village1-uncle-money)) + (dm-give-cell (game-task village1-oracle-money1)) + (dm-give-cell (game-task village1-oracle-money2)) + (dm-give-cell (game-task beach-ecorocks)) + (dm-give-cell (game-task beach-pelican)) + (dm-give-cell (game-task beach-flutflut)) + (dm-give-cell (game-task beach-seagull)) + (dm-give-cell (game-task beach-cannon)) + (dm-give-cell (game-task beach-buzzer)) + (dm-give-cell (game-task beach-gimmie)) + (dm-give-cell (game-task beach-sentinel)) + (dm-give-cell (game-task misty-muse)) + (dm-give-cell (game-task misty-boat)) + (dm-give-cell (game-task misty-warehouse)) + (dm-give-cell (game-task misty-cannon)) + (dm-give-cell (game-task misty-bike)) + (dm-give-cell (game-task misty-buzzer)) + (dm-give-cell (game-task misty-bike-jump)) + (dm-give-cell (game-task misty-eco-challenge)) + (dm-give-cell (game-task village2-gambler-money)) + (dm-give-cell (game-task village2-geologist-money)) + (dm-give-cell (game-task village2-warrior-money)) + (dm-give-cell (game-task village2-oracle-money1)) + (dm-give-cell (game-task village2-oracle-money2)) + (dm-give-cell (game-task swamp-billy)) + (dm-give-cell (game-task swamp-flutflut)) + (dm-give-cell (game-task swamp-battle)) + (dm-give-cell (game-task swamp-tether-1)) + (dm-give-cell (game-task swamp-tether-2)) + (dm-give-cell (game-task swamp-tether-3)) + (dm-give-cell (game-task swamp-tether-4)) + (dm-give-cell (game-task swamp-buzzer)) + (dm-give-cell (game-task sunken-platforms)) + (dm-give-cell (game-task sunken-pipe)) + (dm-give-cell (game-task sunken-slide)) + (dm-give-cell (game-task sunken-room)) + (dm-give-cell (game-task sunken-sharks)) + (dm-give-cell (game-task sunken-buzzer)) + (dm-give-cell (game-task sunken-top-of-helix)) + (dm-give-cell (game-task sunken-spinning-room)) + (dm-give-cell (game-task rolling-race)) + (dm-give-cell (game-task rolling-robbers)) + (dm-give-cell (game-task rolling-moles)) + (dm-give-cell (game-task rolling-plants)) + (dm-give-cell (game-task rolling-lake)) + (dm-give-cell (game-task rolling-buzzer)) + (dm-give-cell (game-task rolling-ring-chase-1)) + (dm-give-cell (game-task rolling-ring-chase-2)) + (dm-give-cell (game-task snow-eggtop)) + (dm-give-cell (game-task snow-ram)) + (dm-give-cell (game-task snow-fort)) + (dm-give-cell (game-task snow-ball)) + (dm-give-cell (game-task snow-bunnies)) + (dm-give-cell (game-task snow-buzzer)) + (dm-give-cell (game-task snow-bumpers)) + (dm-give-cell (game-task snow-cage)) + (dm-give-cell (game-task firecanyon-buzzer)) + (dm-give-cell (game-task firecanyon-end)) + (dm-give-cell (game-task citadel-sage-green)) + (dm-give-cell (game-task citadel-sage-blue)) + (dm-give-cell (game-task citadel-sage-red)) + (dm-give-cell (game-task citadel-sage-yellow)) + (dm-give-cell (game-task village3-extra1)) + (dm-give-cell (game-task village1-buzzer)) + (dm-give-cell (game-task village2-buzzer)) + ) + (= (get-task-status (game-task lavatube-start)) (task-status need-reward-speech)) + ) + +(defun-debug 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" #f dm-task-get-money)) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "levitator ready" #f dm-levitator-ready)) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "lavabike ready" #f dm-lavabike-ready)) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "all cells" #f dm-give-all-cells)) + (debug-menu-make-task-unknown-menu s5-0 arg0) + (debug-menu-make-task-need-hint-menu s5-0 arg0) + (debug-menu-make-task-need-introduction-menu s5-0 arg0) + (debug-menu-make-task-need-reminder-a-menu s5-0 arg0) + (debug-menu-make-task-need-reminder-menu s5-0 arg0) + (debug-menu-make-task-need-reward-speech-menu s5-0 arg0) + (debug-menu-make-task-need-resolution-menu s5-0 arg0) + s4-0 ) - s4-0 - ) ) -(defun dm-anim-tester-flag-func ((arg0 int) (arg1 int)) +(defun-debug dm-anim-tester-flag-func ((arg0 int) (arg1 debug-menu-msg)) (when *anim-tester* - (case arg0 - (('at-apply-align) - (if (= arg1 4) - (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 32)) + (case arg0 + (('at-apply-align) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) (anim-tester-flags fanimt5))) + ) + (return (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt5))) + ) + (('at-show-joint-info) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) (anim-tester-flags fanimt4))) + ) + (return (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt4))) ) - (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 ) -(defun dm-anim-tester-func ((arg0 int)) +(defun-debug dm-anim-tester-func ((arg0 int) (arg1 debug-menu-msg)) (if (not *anim-tester*) - (anim-tester-start) - ) + (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) - ) + (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) ) -(defun build-continue-menu ((arg0 debug-menu-context)) +(defun-debug build-continue-menu ((arg0 debug-menu) (arg1 game-info)) (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? 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-2 (new 'debug 'debug-menu-item-flag (the-as string (-> v1-2 name)) (-> v1-2 name) dm-current-continue)) + ) + (debug-menu-append-item arg0 a1-2) + ) + (set! s4-0 (cdr s4-0)) + ) ) - ) - ) - (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)) ) - ) - (set! s5-0 (cdr s5-0)) ) - ) - arg0 + (the-as debug-menu-context arg0) ) -(defun debug-menu-context-make-default-menus ((arg0 debug-menu-context)) +(defun-debug 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 - ) + (debug-menu-context-set-root-menu arg0 s5-0) + (debug-menu-append-item + s5-0 + (debug-menu-make-from-template + arg0 + '(menu + "Artist" + (flag "Poly Stats" *stats-poly* dm-boolean-toggle-pick-func) + (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 10 1 #t 1 200 1) + (float-var "Subdiv Far" far dm-subdiv-float 10 1 #t 1 200 1) + (function "Target Start" #f (lambda () (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 10 10 #t -300 1000) + (flag "Apply Align" at-apply-align dm-anim-tester-flag-func) + (flag "Show Joint Inf" at-show-joint-info dm-anim-tester-flag-func) + (function "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) ) - (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) + (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 "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) + (debug-menu-append-item + s5-0 + (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 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (if *target* + (stop 'debug) + (start 'debug (get-or-create-continue! *game-info*)) ) - ) - ) - ) - (menu "Mode" (function "normal" #f (lambda () - (send-event *target* 'end-mode) - ) + ) + *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 debug-menu-msg) (arg2 float)) + (cond + ((= arg1 (debug-menu-msg press)) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default sfx-volume) f0-0) + f0-0 ) - (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 - ) - ) - ) + ) + (else + (-> *setting-control* default sfx-volume) + ) + ) + ) + 2 + 1 + #t + 0 + 100 + 0 + ) + (float-var + "music-volume" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) + (cond + ((= arg1 (debug-menu-msg press)) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default music-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default music-volume) + ) + ) + ) + 2 + 1 + #t + 0 + 100 + 0 + ) + (float-var + "dialog-volume" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) + (cond + ((= arg1 (debug-menu-msg press)) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default dialog-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default dialog-volume) + ) + ) + ) + 2 + 1 + #t + 0 + 100 + 0 + ) + (menu + "Language" + (flag "english" 0 dm-setting-language) + (flag "japanese" 5 dm-setting-language) + (flag "french" 1 dm-setting-language) + (flag "german" 2 dm-setting-language) + (flag "spanish" 3 dm-setting-language) + (flag "italian" 4 dm-setting-language) + (flag "uk-english" 6 dm-setting-language) + ) + (flag + "play-hints " + #f + (lambda ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default play-hints) (not (-> *setting-control* default play-hints))) + ) + (-> *setting-control* default play-hints) + ) + ) + (flag + "vibration" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default vibration) (not (-> *setting-control* default vibration))) + ) + (-> *setting-control* default vibration) + ) + ) + (flag + "border-mode" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default border-mode) (not (-> *setting-control* default border-mode))) + ) + (-> *setting-control* default border-mode) + ) + ) + ) + ) + ) + ) + (let ((a0-8 (debug-menu-find-from-template arg0 '("Game" "Continue")))) + (build-continue-menu a0-8 *game-info*) + ) + (debug-menu-append-item + s5-0 + (debug-menu-make-from-template + arg0 + '(menu + "Stats" + (flag "Poly" *stats-poly* dm-boolean-toggle-pick-func) + (flag "Collide" *stats-collide* dm-boolean-toggle-pick-func) + (flag "Bsp" *stats-bsp* dm-boolean-toggle-pick-func) + (flag "Buffer" *stats-buffer* dm-boolean-toggle-pick-func) + (flag "Target" *stats-target* dm-boolean-toggle-pick-func) + (flag "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 + (debug-menu-make-from-template + arg0 + '(menu + "Render" + (flag "sky" 1 dm-vu1-user-toggle-pick-func) + (flag "ocean" 2 dm-vu1-user-toggle-pick-func) + (flag "ocean-wave" 4 dm-vu1-user-toggle-pick-func) + (flag "TFRAG TIE TEXTURES" #x1 dm-texture-user-toggle-pick-func) + (flag "tfrag" 8 dm-vu1-user-toggle-pick-func) + (flag "tie-near" 16 dm-vu1-user-toggle-pick-func) + (flag "tie" 32 dm-vu1-user-toggle-pick-func) + (flag "generic" 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" 128 dm-vu1-user-toggle-pick-func) + (flag "SHRUB TEXTURES" #x4 dm-texture-user-toggle-pick-func) + (flag "shrub-near" 512 dm-vu1-user-toggle-pick-func) + (flag "shrubbery" 256 dm-vu1-user-toggle-pick-func) + (flag "billboard" 1024 dm-vu1-user-toggle-pick-func) + (flag "trans-shrubbery" 2048 dm-vu1-user-toggle-pick-func) + (flag "ALPHA TEXTURES" 1 dm-texture-user-toggle-pick-func) + (flag "trans-tfrag" 4096 dm-vu1-user-toggle-pick-func) + (flag "sprite" 8192 dm-vu1-user-toggle-pick-func) + (flag "shadow" 16384 dm-vu1-user-toggle-pick-func) + (flag "shadow-debug" *shadow-debug* dm-boolean-toggle-pick-func) + (flag "WATER TEXTURES" 2 dm-texture-user-toggle-pick-func) + (flag "depth-cue" 32768 dm-vu1-user-toggle-pick-func) + (flag "all on" 262143 dm-vu1-user-set-pick-func) + (flag "all off" 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 + (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 + (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" 1 dm-strip-lines-toggle-pick-func) + (flag "convertible" 2 dm-strip-lines-toggle-pick-func) + (flag "edgeable" 4 dm-strip-lines-toggle-pick-func) + (flag "ordinary" 8 dm-strip-lines-toggle-pick-func) + (flag "color mismatch" 16 dm-strip-lines-toggle-pick-func) + (flag "shader mismatch" 32 dm-strip-lines-toggle-pick-func) + (flag "uv mismatch" 64 dm-strip-lines-toggle-pick-func) + (flag "too big" 128 dm-strip-lines-toggle-pick-func) + (flag "good" 3 dm-strip-lines-set-pick-func) + (flag "bad" 240 dm-strip-lines-set-pick-func) + (flag "all edges" 255 dm-strip-lines-set-pick-func) + (flag "strips" 256 dm-strip-lines-set-pick-func) + (flag "frags" 512 dm-strip-lines-set-pick-func) + (flag "none" 0 dm-strip-lines-set-pick-func) + ) + (menu + "collision mesh" + (flag "wall" 1024 dm-strip-lines-toggle-pick-func) + (flag "ground" 2048 dm-strip-lines-toggle-pick-func) + (flag "all" 3072 dm-strip-lines-set-pick-func) + (flag "none" 0 dm-strip-lines-set-pick-func) + ) + (flag "Texture 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 + (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 + (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 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (if *target* + (set! (-> *target* state-flags) (logxor (-> *target* state-flags) 16)) + ) ) + (the-as symbol (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 () + (if *target* + (trsq->continue-point (-> *target* control)) + ) + (none) + ) + ) + ) ) ) - ) - ) - (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 (debug-menu-make-camera-menu arg0)) + (debug-menu-append-item + s5-0 + (debug-menu-make-from-template + arg0 + '(menu + "Subdiv" + (flag "Textured" 0 dm-subdiv-draw-func) + (flag "Outline" 1 dm-subdiv-draw-func) + (flag "Gouraud" 2 dm-subdiv-draw-func) + (flag "Hack" 3 dm-subdiv-draw-func) + ) ) ) - ) - ) - (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 + (debug-menu-make-from-template + arg0 + '(menu + "Ocean Subdiv" + (flag "Textured" 0 dm-ocean-subdiv-draw-func) + (flag "Outline" 1 dm-ocean-subdiv-draw-func) + (flag "Gouraud" 2 dm-ocean-subdiv-draw-func) + ) ) ) - ) - ) - (debug-menu-append-item - s5-0 - (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 + (debug-menu-make-from-template + arg0 + '(menu + "Time of day" + (flag "7am sunrise" 0 dm-time-of-day-func) + (flag "9am morning" 1 dm-time-of-day-func) + (flag "12pm noon" 2 dm-time-of-day-func) + (flag "3pm afternoon" 3 dm-time-of-day-func) + (flag "6pm sunset" 4 dm-time-of-day-func) + (flag "7pm twilight" 5 dm-time-of-day-func) + (flag "11pm evening" 6 dm-time-of-day-func) + (flag "4am green sun" 7 dm-time-of-day-func) + (flag "on" 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-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)) ) - (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 ) (define *popup-menu-context* (new 'debug 'debug-menu-context)) -(defun popup-menu-context-make-default-menus ((arg0 debug-menu-context)) +(defun-debug 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 + arg0 + '(main-menu + "Popup" + (flag "Cam 1" pad-1 dm-cam-externalize) + (flag "Target" #f (lambda ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (if *target* + (stop 'debug) + (start 'debug (get-or-create-continue! *game-info*)) + ) + ) + *target* ) - ) - (flag - "Stats" - *stats-target* - dm-boolean-toggle-pick-func - ) - (function "Reset" #f (lambda () - (reset-actors 'debug) - (none) + ) + (flag "Game" #f (lambda ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (let ((v1-3 (-> *game-info* mode))) + (set! (-> *game-info* mode) (cond + ((= v1-3 'play) + 'debug + ) + ((= v1-3 'debug) + 'play + ) + (else + (-> *game-info* mode) + ) + ) + ) + ) ) - ) - ) - ) + (= (-> *game-info* mode) 'play) + ) + ) + (function "Clean" #f (lambda ((arg0 int) (arg1 debug-menu-msg)) + (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 ) @@ -8908,44 +3949,157 @@ (popup-menu-context-make-default-menus *popup-menu-context*) -(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) +(defun-debug menu-respond-to-pause () + (case *master-mode* + (('menu) + (if (cpad-hold? 0 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 ) -(defun *menu-hook* () +(defun-debug *menu-hook* () (debug-menus-handler *debug-menu-context*) (debug-menus-handler *popup-menu-context*) ) -) +(#when (user? dass) + +(defmacro new-dm-function (text var func) + `(new 'debug 'debug-menu-item-function ,text ,var (the-as (function int object) ,func)) + ) +(defmacro new-dm-flag (text var func) + `(new 'debug 'debug-menu-item-flag ,text ,var (the-as (function int debug-menu-msg object) ,func)) + ) +(defmacro new-dm-sym-flag (text sym func) + `(new-dm-flag ,text (quote ,sym) ,func) + ) +(defmacro new-dm-submenu (text menu) + `(new 'debug 'debug-menu-item-submenu ,text ,menu) + ) + +(defun-debug dm-want-level-toggle-pick-func ((arg0 pair) (arg1 debug-menu-msg)) + (let* ((levname (the-as symbol (car arg0))) + (info (the-as level-load-info (-> levname value))) + (idx (the int (cdr arg0))) + (the-level (level-get *level* (-> info name))) + ) + (if (and the-level (!= the-level (-> *level* level idx))) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (load-state-want-levels + (if (= idx 0) (-> info name) (-> *level* level 0 name)) + (if (= idx 1) (-> info name) (-> *level* level 1 name)) + ) + ) + (eq? (-> *level* level idx name) (-> info name)) + ) + ) + +(defun-debug dm-display-level-toggle-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (let ((the-level (level-get *level* arg0))) + (if (not the-level) + (return 'invalid) + ) + (if (= arg1 (debug-menu-msg press)) + (when the-level + (load-state-want-display-level arg0 + (if (-> the-level display?) #f 'display) + ) + ) + ) + (and the-level (-> the-level display?)) + ) + ) + +(defun-debug debug-menu-make-load-want-menu ((ctx debug-menu-context) (lev-idx int)) + + (let ((want-menu (new 'debug 'debug-menu ctx "Level want menu"))) + + (let ((iter *level-load-list*)) + (while (not (or (null? iter) (null? (cdr iter)) (null? (cddr iter)))) + (debug-menu-append-item want-menu (new-dm-flag (symbol->string (the-as symbol (car iter))) (dcons (car iter) lev-idx) dm-want-level-toggle-pick-func)) + + (set! iter (cdr iter)) + ) + ) + (new-dm-submenu (new 'debug 'string 0 (string-format "Want ~D" lev-idx)) want-menu) + ) + ) + +(defun-debug debug-menu-make-load-display-menu ((ctx debug-menu-context)) + + (let ((display-menu (new 'debug 'debug-menu ctx "Level display menu"))) + + (let ((iter *level-load-list*)) + (while (not (or (null? iter) (null? (cdr iter)) (null? (cddr iter)))) + (debug-menu-append-item display-menu (new-dm-flag (symbol->string (the-as symbol (car iter))) (car iter) dm-display-level-toggle-pick-func)) + + (set! iter (cdr iter)) + ) + ) + + (new-dm-submenu "Display" display-menu) + ) + ) + +(defun-debug debug-menu-make-load-teleport-menu ((ctx debug-menu-context)) + + (let ((teleport-menu (new 'debug 'debug-menu ctx "Camera teleport menu"))) + + (let ((iter *level-load-list*)) + (while (not (or (null? iter) (null? (cdr iter)) (null? (cddr iter)))) + (debug-menu-append-item teleport-menu + (new-dm-function (symbol->string (the-as symbol (car iter))) + (-> (the-as symbol (car iter)) value) + (lambda ((info level-load-info)) + (let ((tf (new 'stack 'transformq))) + (set! (-> tf trans x) (-> info bsphere x)) + (set! (-> tf trans y) (-> info bsphere y)) + (set! (-> tf trans z) (-> info bsphere z)) + (quaternion-identity! (-> tf quat)) + (vector-identity! (-> tf scale)) + (send-event *camera* 'teleport-to-transformq tf) + ) + ) + )) + (set! iter (cdr iter)) + ) + ) + + (new-dm-submenu "Camera teleport" teleport-menu) + ) + ) + +(defun-debug debug-menu-make-load-menu ((ctx debug-menu-context)) + (let ((load-menu (new 'debug 'debug-menu ctx "Load menu"))) + (debug-menu-append-item load-menu (new-dm-sym-flag "Level Border" *display-level-border* dm-boolean-toggle-pick-func)) + + (debug-menu-append-item load-menu (debug-menu-make-load-want-menu ctx 0)) + (debug-menu-append-item load-menu (debug-menu-make-load-want-menu ctx 1)) + (debug-menu-append-item load-menu (debug-menu-make-load-display-menu ctx)) + (debug-menu-append-item load-menu (debug-menu-make-load-teleport-menu ctx)) + + (new-dm-submenu "Load" load-menu) + ) + ) + +(when (-> *debug-menu-context* root-menu) + (debug-menu-append-item (-> *debug-menu-context* root-menu) (debug-menu-make-load-menu *debug-menu-context*)) + ;; Entity menu TODO + ) + +) + +) diff --git a/goal_src/engine/debug/menu.gc b/goal_src/engine/debug/menu.gc index 9e74199611..c66403d2a6 100644 --- a/goal_src/engine/debug/menu.gc +++ b/goal_src/engine/debug/menu.gc @@ -159,25 +159,25 @@ ;; An item that calls a function when you select it. (deftype debug-menu-item-function (debug-menu-item) - ((activate-func (function int object) :offset-assert 24) + ((activate-func (function object object) :offset-assert 24) (hilite-timer int8 :offset-assert 28) ;; how much longer to stay highlighted for. ) :method-count-assert 9 :size-assert #x1d :flag-assert #x90000001d (:methods - (new (symbol type string int (function int object)) _type_ 0) + (new (symbol type string object (function object object)) _type_ 0) ) ) -(defmethod new debug-menu-item-function ((allocation symbol) (type-to-make type) (name string) (id int) (func (function int object))) +(defmethod new debug-menu-item-function ((allocation symbol) (type-to-make type) (name string) id (func (function object object))) "Create an item for a function." (let ((obj (object-new allocation type-to-make (the-as int (-> type-to-make size))))) (set! (-> obj name) name) (set! (-> obj parent) #f) (set! (-> obj refresh-delay) 0) (set! (-> obj refresh-ctr) (-> obj refresh-delay)) - (set! (-> obj id) id) + (set! (-> obj id) (the-as int id)) (set! (-> obj activate-func) func) (set! (-> obj hilite-timer) 0) obj @@ -186,25 +186,25 @@ ;; An item with on/off state. (deftype debug-menu-item-flag (debug-menu-item) - ((activate-func (function int debug-menu-msg object) :offset-assert 24) + ((activate-func (function object debug-menu-msg object) :offset-assert 24) (is-on object :offset-assert 28) ) :method-count-assert 9 :size-assert #x20 :flag-assert #x900000020 (:methods - (new (symbol type string int (function int debug-menu-msg object)) _type_ 0) + (new (symbol type string object (function object debug-menu-msg object)) _type_ 0) ) ) -(defmethod new debug-menu-item-flag ((allocation symbol) (type-to-make type) (name string) (id int) (func (function int debug-menu-msg object))) +(defmethod new debug-menu-item-flag ((allocation symbol) (type-to-make type) (name string) id (func (function object debug-menu-msg object))) "Create a new item for a flag. By default, the refresh-delay is set to 23." (let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size))))) (set! (-> v0-0 name) name) (set! (-> v0-0 parent) #f) (set! (-> v0-0 refresh-delay) 23) (set! (-> v0-0 refresh-ctr) (-> v0-0 refresh-delay)) - (set! (-> v0-0 id) id) + (set! (-> v0-0 id) (the-as int id)) (set! (-> v0-0 activate-func) func) (set! (-> v0-0 is-on) #f) v0-0 @@ -258,10 +258,7 @@ (define-extern debug-menu-context-send-msg (function debug-menu-context debug-menu-msg debug-menu-dest debug-menu-context)) -(define-extern debug-menu-make-from-template (function debug-menu-context pair debug-menu-node)) (define-extern debug-menu-item-send-msg (function debug-menu-item debug-menu-msg debug-menu-item)) -(define-extern debug-menu-item-var-render (function debug-menu-item-var int int int symbol debug-menu-item-var)) -(define-extern debug-menu-send-msg (function debug-menu debug-menu-msg symbol debug-menu)) @@ -522,7 +519,7 @@ context ) -(defun debug-menu-append-item ((menu debug-menu) (item debug-menu-item)) +(defun debug-menu-append-item ((menu debug-menu) (item debug-menu-node)) "Add an entry to the debug menu." (let* ((context (-> menu context)) (was-active (-> context is-active)) @@ -578,7 +575,7 @@ ) ) -(defun debug-menu-make-from-template ((arg0 debug-menu-context) (arg1 pair)) +(defun-recursive debug-menu-make-from-template debug-menu-node ((arg0 debug-menu-context) (arg1 pair)) "Make a debug menu from static layout data. The keys are: - menu : make a new submenu - main-menu : make the root menu @@ -1388,7 +1385,7 @@ arg0 ) -(defun debug-menu-send-msg ((arg0 debug-menu) (arg1 debug-menu-msg) (arg2 symbol)) +(defun-recursive debug-menu-send-msg debug-menu ((arg0 debug-menu) (arg1 debug-menu-msg) (arg2 symbol)) "Send to all items in menu. Arg2 picks if we are recursive or not." (let* ((s3-0 (-> arg0 items)) (s2-0 (car s3-0)) diff --git a/goal_src/engine/draw/drawable.gc b/goal_src/engine/draw/drawable.gc index 0a33221aba..404e5c2f30 100644 --- a/goal_src/engine/draw/drawable.gc +++ b/goal_src/engine/draw/drawable.gc @@ -53,6 +53,60 @@ |# ) +(defun-debug find-instance-by-name ((arg0 string)) + (dotimes (s5-0 (-> *level* length)) + (let ((v1-3 (-> *level* level s5-0))) + (when (= (-> v1-3 status) 'active) + (let ((s4-0 (-> v1-3 bsp drawable-trees))) + (dotimes (s3-0 (-> s4-0 length)) + (let ((v1-7 (-> s4-0 trees s3-0))) + (case (-> v1-7 type) + ((drawable-tree-instance-shrub) + (let ((s2-0 (-> (the-as drawable-tree-instance-shrub v1-7) info prototype-inline-array-shrub))) + (dotimes (s1-0 (-> s2-0 length)) + (if (string= arg0 (the-as string (-> s2-0 data s1-0 name))) + (return (-> s2-0 data s1-0)) + ) + ) + ) + ) + ((drawable-tree-instance-tie) + (let ((s2-1 (-> (the-as drawable-tree-instance-tie v1-7) prototypes prototype-array-tie))) + (dotimes (s1-1 (-> s2-1 length)) + (if (string= arg0 (the-as string (-> s2-1 array-data s1-1 name))) + (return (-> s2-1 array-data s1-1)) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + (the-as prototype-bucket #f) + ) + +(define-extern prototype-bucket-type (function prototype-bucket type)) ;; TODO + +(defun-debug prototype-bucket-recalc-fields ((arg0 prototype-bucket)) + (case (prototype-bucket-type arg0) + ((instance-shrubbery) + (set! (-> arg0 rdists x) (/ 1.0 (- (-> arg0 dists w) (-> arg0 dists x)))) + ) + (else + (set! (-> arg0 dists z) (+ (-> arg0 dists x) (* 0.33333334 (- (-> arg0 dists w) (-> arg0 dists x))))) + (set! (-> arg0 rdists x) (/ 1.0 (- (-> arg0 dists z) (-> arg0 dists x)))) + ) + ) + (set! (-> arg0 rdists z) (/ 1.0 (- (-> arg0 dists w) (-> arg0 dists z)))) + (set! (-> arg0 dists y) (* 0.5 (-> arg0 dists x))) + (set! (-> arg0 rdists y) (/ 1.0 (-> arg0 dists y))) + arg0 + ) + (defun sphere-cull ((arg0 vector)) #t ;; todo diff --git a/goal_src/engine/entity/entity.gc b/goal_src/engine/entity/entity.gc index 6836303a7b..a94d56a53d 100644 --- a/goal_src/engine/entity/entity.gc +++ b/goal_src/engine/entity/entity.gc @@ -1434,7 +1434,7 @@ "This function starts up an entity! The process should not be activated yet." - (birth-log "(init-entity entity: ~A)~%" ent) + ;;(birth-log "(init-entity ~A)~%" ent) ;; activate the process. It goes in the entity-pool, which is a child of the main active-pool. (activate proc *entity-pool* (res-lump-struct ent 'name basic) (the-as pointer #x70004000)) diff --git a/goal_src/engine/gfx/texture.gc b/goal_src/engine/gfx/texture.gc index da4272a0e5..342b44a9f9 100644 --- a/goal_src/engine/gfx/texture.gc +++ b/goal_src/engine/gfx/texture.gc @@ -2278,7 +2278,7 @@ ;; debug menu shader stuff (define *shader-list* '()) -(define *edit-shader* 0) +(define *edit-shader* (the-as texture-id 0)) (defun link-texture-by-id ((arg0 texture-id) (arg1 adgif-shader)) "Link the given adgif shader to the texture with the given ID" diff --git a/goal_src/engine/level/level.gc b/goal_src/engine/level/level.gc index 977490e41e..29883b0333 100644 --- a/goal_src/engine/level/level.gc +++ b/goal_src/engine/level/level.gc @@ -1455,7 +1455,7 @@ (let ((startup-level (case *kernel-boot-message* (('play) (if *debug-segment* - (#if (user? dass) 'finalboss 'village1) + 'village1 'title ) ) @@ -1478,10 +1478,10 @@ )) (set! *time-of-day-fast* #f) (load-commands-set! *level* '()) - ; (when *time-of-day-proc* - ; (set! (-> *time-of-day-proc* 0 time-ratio) (seconds 1.0)) - ; (set! (-> *time-of-day-proc* 0 hour) 7) ;; 7AM waking up in the morning - ; ) + (when *time-of-day-proc* + (set! (-> *time-of-day-proc* 0 time-ratio) (fsec 1.0)) + (set! (-> *time-of-day-proc* 0 hour) 7) ;; 7AM waking up in the morning + ) (set-blackout-frames 6) (unless *dproc* (reset! *load-state*) diff --git a/goal_src/engine/math/vector-h.gc b/goal_src/engine/math/vector-h.gc index 3f6e2c841e..9c13451719 100644 --- a/goal_src/engine/math/vector-h.gc +++ b/goal_src/engine/math/vector-h.gc @@ -506,8 +506,7 @@ (set! (-> ,vec z) ,zv) (set! (-> ,vec w) ,wv) ,vec - ) - ) + )) ) (defun vector-dot ((a vector) (b vector)) diff --git a/goal_src/goal-lib.gc b/goal_src/goal-lib.gc index 2916cbe74e..1a50936c35 100644 --- a/goal_src/goal-lib.gc +++ b/goal_src/goal-lib.gc @@ -655,6 +655,10 @@ `(car (cdr (cdr (cdr ,arg)))) ) +(defmacro dcons (a b) + `(new 'debug 'pair ,a ,b) + ) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; METHOD STUFF ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/goal_src/kernel/gcommon.gc b/goal_src/kernel/gcommon.gc index a20aa1c3c1..33a9fe2e36 100644 --- a/goal_src/kernel/gcommon.gc +++ b/goal_src/kernel/gcommon.gc @@ -614,7 +614,7 @@ NOTE: if you use an integer, don't accidentally return TRUE." ;; the compare function can return a few possible things. ;; we assume "unsorted" if compare-result is #f explicitly, or if it positive. - ;; HOWEVER, '#t itself is positive. So if we get #t, we assume sorted. + ;; HOWEVER, #t itself is positive. So if we get #t, we assume sorted. ;; there is possibly an ambiguity, if you happen to return a positive integer that ;; happens to be a pointer to #t, (let ((unsorted-count -1)) @@ -625,8 +625,8 @@ (let ((iter lst)) (while (not (or (null? (cdr iter)) (not (pair? (cdr iter))))) (let* ((first-elt (car iter)) - (seoncd-elt (car (cdr iter))) - (compare-result (compare-func first-elt seoncd-elt)) + (second-elt (car (cdr iter))) + (compare-result (compare-func first-elt second-elt)) ) ;; the compare function can return a few possible things. ;; we assume "unsorted" if compare-result is #f explicitly, or if it positive. @@ -638,7 +638,7 @@ (!= compare-result #t) ) (+! unsorted-count 1) - (set! (car iter) seoncd-elt) + (set! (car iter) second-elt) (set! (car (cdr iter)) first-elt) ) ) diff --git a/goalc/compiler/compilation/Static.cpp b/goalc/compiler/compilation/Static.cpp index 45e2be2ddd..fafa134499 100644 --- a/goalc/compiler/compilation/Static.cpp +++ b/goalc/compiler/compilation/Static.cpp @@ -575,12 +575,13 @@ StaticResult Compiler::compile_static_no_eval_for_pairs(const goos::Object& form fie->add_static(std::move(pair_structure)); return result; } else if (form.is_int()) { - if (!integer_fits(form.as_int(), 4, true)) { + s64 bint_val = form.as_int() << 3; + if (!integer_fits(bint_val, 4, true)) { throw_compiler_error( form, "Cannot store {} (0x{:x}) in a pair because it overflows a signed 32-bit integer.", - form.as_int(), form.as_int()); + bint_val, bint_val); } - return StaticResult::make_constant_data(form.as_int(), TypeSpec("int32")); + return StaticResult::make_constant_data(bint_val, TypeSpec("int32")); } else if (form.is_symbol()) { return StaticResult::make_symbol(form.as_symbol()->name); } else if (form.is_empty_list()) { diff --git a/goalc/debugger/Debugger.cpp b/goalc/debugger/Debugger.cpp index 111ae5e039..3bf93cfb58 100644 --- a/goalc/debugger/Debugger.cpp +++ b/goalc/debugger/Debugger.cpp @@ -214,6 +214,7 @@ std::vector Debugger::get_backtrace(u64 rip, u64 rsp) { rsp += 8; } + int fails = 0; while (true) { fmt::print(" rsp: 0x{:x} (#x{:x}) rip: 0x{:x} (#x{:x})\n", rsp, rsp - m_debug_context.base, rip, rip - m_debug_context.base); @@ -223,6 +224,7 @@ std::vector Debugger::get_backtrace(u64 rip, u64 rsp) { if (frame.rip_info.knows_function && frame.rip_info.func_debug && frame.rip_info.func_debug->stack_usage) { + fails = 0; fmt::print("<====================== CALL STACK ======================>\n"); fmt::print("{} from {}\n", frame.rip_info.function_name, frame.rip_info.func_debug->obj_name); // we're good! @@ -241,17 +243,57 @@ std::vector Debugger::get_backtrace(u64 rip, u64 rsp) { } else { if (!frame.rip_info.knows_function) { - fmt::print("Unknown Function at 0x{:x} (#x{:x})\n", rip, rip - m_debug_context.base); + if (fails == 0) { + fmt::print("Unknown Function at rip\n"); + } - // attempt to backtrace anyway! if this fails then rip - u64 next_rip = 0; - if (!read_memory_if_safe(&next_rip, rsp - m_debug_context.base)) { - fmt::print("Invalid return address encountered!\n"); + if (s32(rip - m_debug_context.base) > 0 && + m_symbol_name_to_value_map.find("function") != m_symbol_name_to_value_map.cend()) { + u32 function_sym_val = m_symbol_name_to_value_map.at("function"); + u32 goal_pc = u32(rip - m_debug_context.base) & -8; + + // go back through memory, but stop before reading the symbol table + u32 symtable_end = m_symbol_name_to_value_map.at("#f") + 0xff38; + while (goal_pc > symtable_end) { + goal_pc -= 8; + u32 wordval; + if (!read_memory_if_safe(&wordval, goal_pc)) { + goal_pc = symtable_end; + break; + } + + if (wordval == function_sym_val) { + // found a function! + fmt::print("Found function after {} bytes!\n", + (rip - m_debug_context.base) - goal_pc); + break; + } + } + + if (goal_pc == symtable_end) { + fmt::print("Could not find function within this address.\n"); + break; + } + + rip = goal_pc + m_debug_context.base + BASIC_OFFSET; + rsp = rsp + 8; // 8 for the call itself. + } else if (fails > 50) { + fmt::print( + "Backtrace was too long. Exception might have happened outside GOAL code, or the " + "stack frame is too long.\n"); break; + } else { + // attempt to backtrace anyway! if this fails then rip + u64 next_rip = 0; + if (!read_memory_if_safe(&next_rip, rsp - m_debug_context.base)) { + fmt::print("Invalid return address encountered!\n"); + break; + } + + rip = next_rip; + rsp = rsp + 8; // 8 for the call itself. + ++fails; } - - rip = next_rip; - rsp = rsp + 8; // 8 for the call itself. // break; } else if (!frame.rip_info.func_debug) { fmt::print("Function {} has no debug info.\n", frame.rip_info.function_name); diff --git a/test/decompiler/reference/decompiler-macros.gc b/test/decompiler/reference/decompiler-macros.gc index 7db2e01b63..30fd8e9d2e 100644 --- a/test/decompiler/reference/decompiler-macros.gc +++ b/test/decompiler/reference/decompiler-macros.gc @@ -257,11 +257,13 @@ (defmacro set-vector! (v xv yv zv wv) "Set all fields in a vector" (with-gensyms (vec) - `(let ((vec ,v)) - (set! (-> vec x) ,xv) - (set! (-> vec y) ,yv) - (set! (-> vec z) ,zv) - (set! (-> vec w) ,wv))) + `(let ((,vec ,v)) + (set! (-> ,vec x) ,xv) + (set! (-> ,vec y) ,yv) + (set! (-> ,vec z) ,zv) + (set! (-> ,vec w) ,wv) + ,vec + )) ) ;; cause the current process to change state @@ -406,6 +408,7 @@ (set! *defstate-type-stack* '()) `(none) ) +;; *no-state* is just used for the compiler to know whether a handler was actually set or not (defmacro defstate (state-name parents &key (virtual #f) &key (event *no-state*) @@ -416,7 +419,7 @@ &key (post *no-state*) ) "Define a new state!" - + (with-gensyms (new-state) (let ((defstate-type (first parents))) (when (not (null? *defstate-type-stack*)) @@ -427,24 +430,32 @@ ;; check for default handlers (let ((default-handlers (assoc defstate-type *default-state-handlers*))) (when (not (null? default-handlers)) + ;;(fmt #t "found default-handlers for {}: {}\n" defstate-type default-handlers) + ;; event (set! default-handlers (cdr default-handlers)) - (when (and (not event) (car default-handlers)) + (when (and (eq? event '*no-state*) (car default-handlers)) (set! event (car default-handlers))) + ;; enter (set! default-handlers (cdr default-handlers)) - (when (and (not enter) (car default-handlers)) + (when (and (eq? enter '*no-state*) (car default-handlers)) (set! enter (car default-handlers))) + ;; trans (set! default-handlers (cdr default-handlers)) - (when (and (not trans) (car default-handlers)) + (when (and (eq? trans '*no-state*) (car default-handlers)) (set! trans (car default-handlers))) + ;; exit (set! default-handlers (cdr default-handlers)) - (when (and (not exit) (car default-handlers)) + (when (and (eq? exit '*no-state*) (car default-handlers)) (set! exit (car default-handlers))) + ;; code (set! default-handlers (cdr default-handlers)) - (when (and (not code) (car default-handlers)) + (when (and (eq? code '*no-state*) (car default-handlers)) (set! code (car default-handlers))) + ;; post (set! default-handlers (cdr default-handlers)) - (when (and (not post) (car default-handlers)) + (when (and (eq? post '*no-state*) (car default-handlers)) (set! post (car default-handlers))) + (set! default-handlers (cdr default-handlers)) ) ) @@ -472,7 +483,7 @@ `(define-virtual-state-hook ,state-name ,defstate-type ,new-state :event ,event :enter ,enter :trans ,trans :exit ,exit :code ,code :post ,post) `(define-state-hook ,state-name ,defstate-type ,new-state :event ,event :enter ,enter :trans ,trans :exit ,exit :code ,code :post ,post) ) - + ) ) ) diff --git a/test/decompiler/reference/engine/camera/cam-update-h_REF.gc b/test/decompiler/reference/engine/camera/cam-update-h_REF.gc index a4513dfb91..a744d03dad 100644 --- a/test/decompiler/reference/engine/camera/cam-update-h_REF.gc +++ b/test/decompiler/reference/engine/camera/cam-update-h_REF.gc @@ -1,8 +1,8 @@ ;;-*-Lisp-*- (in-package goal) -;; definition for symbol *external-cam-options*, type int -(define *external-cam-options* 0) +;; definition for symbol *external-cam-options*, type external-cam-option +(define *external-cam-options* (the-as external-cam-option 0)) ;; definition for symbol *external-cam-mode*, type symbol (define *external-cam-mode* #f) diff --git a/test/decompiler/reference/engine/camera/cam-update_REF.gc b/test/decompiler/reference/engine/camera/cam-update_REF.gc index 0fb1d5b168..78b0b4ad28 100644 --- a/test/decompiler/reference/engine/camera/cam-update_REF.gc +++ b/test/decompiler/reference/engine/camera/cam-update_REF.gc @@ -221,7 +221,7 @@ (if (= (vector-length s4-1) 0.0) (set! (-> s4-1 y) -1.0) ) - (if (logtest? *external-cam-options* 1) + (if (logtest? *external-cam-options* (external-cam-option allow-z)) (set! s4-1 (the-as vector #f)) ) (cam-free-floating-move *save-camera-inv-rot* (-> arg0 trans) s4-1 s5-0) diff --git a/test/decompiler/reference/engine/debug/anim-tester_REF.gc b/test/decompiler/reference/engine/debug/anim-tester_REF.gc index 048d520fbb..3493aac72d 100644 --- a/test/decompiler/reference/engine/debug/anim-tester_REF.gc +++ b/test/decompiler/reference/engine/debug/anim-tester_REF.gc @@ -449,26 +449,29 @@ ;; definition of type anim-tester (deftype anim-tester (process-drawable) - ((flags int32 :offset-assert 176) - (obj-list glst-list :inline :offset-assert 180) - (current-obj string :offset-assert 196) - (speed int32 :offset-assert 200) - (list-con list-control :inline :offset-assert 204) - (pick-con list-control :inline :offset-assert 284) - (item-field int64 :offset-assert 368) - (inc-delay int32 :offset-assert 376) - (inc-timer int32 :offset-assert 380) - (edit-mode int32 :offset-assert 384) - (old-mode int32 :offset-assert 388) - (anim-speed float :offset-assert 392) - (anim-gspeed float :offset-assert 396) - (anim-first float :offset-assert 400) - (anim-last float :offset-assert 404) + ((flags anim-tester-flags :offset-assert 176) + (obj-list glst-list :inline :offset-assert 180) + (current-obj string :offset-assert 196) + (speed int32 :offset-assert 200) + (list-con list-control :inline :offset-assert 204) + (pick-con list-control :inline :offset-assert 284) + (item-field int64 :offset-assert 368) + (inc-delay int32 :offset-assert 376) + (inc-timer int32 :offset-assert 380) + (edit-mode int32 :offset-assert 384) + (old-mode int32 :offset-assert 388) + (anim-speed float :offset-assert 392) + (anim-gspeed float :offset-assert 396) + (anim-first float :offset-assert 400) + (anim-last float :offset-assert 404) ) :heap-base #x130 :method-count-assert 20 :size-assert #x198 :flag-assert #x1401300198 + (:states + anim-tester-process + ) ) ;; definition for method 3 of type anim-tester @@ -809,7 +812,7 @@ (format #t "current-obj=~A~%" (-> obj current-obj)) (format #t "speed=~f~%" (* (-> (new 'static 'array float 1 0.01) 0) (the float (-> obj speed)))) (format #t "--flags:--~%") - (the-as anim-tester (format #t " CONNECTED: ~A~%" (if (logtest? (-> obj flags) 1) + (the-as anim-tester (format #t " CONNECTED: ~A~%" (if (logtest? (-> obj flags) (anim-tester-flags fanimt0)) "TRUE" "f" ) @@ -934,12 +937,12 @@ ;; definition for function anim-tester-real-post ;; INFO: Return type mismatch int vs none. (defbehavior anim-tester-real-post anim-tester () - (when (logtest? (-> self flags) 1) - (if (logtest? (-> self flags) 32) + (when (logtest? (-> self flags) (anim-tester-flags fanimt0)) + (if (logtest? (-> self flags) (anim-tester-flags fanimt5)) (vector-v+! (-> self root trans) (-> self root trans) (-> self root transv)) ) (ja-post) - (when (logtest? (-> self flags) 16) + (when (logtest? (-> self flags) (anim-tester-flags fanimt4)) (draw-joint-spheres self) (dummy-10 (-> self skel) (the-as symbol *stdcon*)) ) @@ -1093,7 +1096,7 @@ (case arg2 (('reset) (process-disconnect self) - (set! (-> self flags) (logand -2 (-> self flags))) + (logclear! (-> self flags) (anim-tester-flags fanimt0)) (when (!= (-> *anim-tester* 0 edit-mode) 1) (set! (-> *debug-menu-context* is-hidden) #f) (set! (-> *anim-tester* 0 edit-mode) 0) @@ -1212,7 +1215,7 @@ (set! (-> *debug-menu-context* is-hidden) #f) (set! (-> *anim-tester* 0 edit-mode) 0) (set! *camera-read-buttons* #t) - (logior! (-> *anim-tester* 0 flags) 4) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) ) ) ) @@ -1383,7 +1386,7 @@ (set! (-> *debug-menu-context* is-hidden) #f) (set! (-> *anim-tester* 0 edit-mode) 0) (set! *camera-read-buttons* #t) - (logior! (-> *anim-tester* 0 flags) 4) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) ) ) ) @@ -1557,7 +1560,7 @@ (set! (-> *debug-menu-context* is-hidden) #f) (set! (-> *anim-tester* 0 edit-mode) 0) (set! *camera-read-buttons* #t) - (logior! (-> *anim-tester* 0 flags) 4) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) ) ) ) @@ -1660,7 +1663,7 @@ ) ;; definition for function anim-tester-pick-item-setup -;; INFO: Return type mismatch int vs none. +;; INFO: Return type mismatch anim-tester-flags vs none. (defun anim-tester-pick-item-setup ((arg0 anim-test-seq-item) (arg1 anim-test-sequence)) (let ((gp-0 (-> arg1 parent))) (set! (-> *anim-tester* 0 pick-con listfunc) anim-test-anim-list-handler) @@ -1692,7 +1695,7 @@ ) ) ) - (logior! (-> *anim-tester* 0 flags) 8) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) (none) ) @@ -1735,7 +1738,11 @@ ) (let ((gp-0 (-> arg1 the-node)) (s4-0 (the-as object (-> arg1 list-owner))) - (s2-0 (and (logtest? (-> *anim-tester* 0 flags) 8) (zero? (-> *anim-tester* 0 item-field)))) + (s2-0 (and + (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) + (zero? (-> *anim-tester* 0 item-field)) + ) + ) ) (cond ((zero? arg0) @@ -1938,13 +1945,13 @@ ) ((= arg0 4) (cond - ((logtest? (-> *anim-tester* 0 flags) 8) + ((logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) (let ((v1-88 (-> *anim-tester* 0 item-field))) (cond ((zero? v1-88) (cond ((cpad-pressed? 0 x) - (set! (-> *anim-tester* 0 flags) (logand -9 (-> *anim-tester* 0 flags))) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) (let ((v0-24 (the-as anim-test-obj @@ -1968,14 +1975,14 @@ ) ) ((cpad-pressed? 0 square) - (set! (-> *anim-tester* 0 flags) (logand -9 (-> *anim-tester* 0 flags))) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) ) ) ) ((= v1-88 9) (cond ((zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))) - (set! (-> *anim-tester* 0 flags) (logand -9 (-> *anim-tester* 0 flags))) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) ) ((cpad-pressed? 0 up) (let ((v1-124 (the-as anim-test-seq-item gp-0))) @@ -2018,7 +2025,7 @@ ((or (= v1-88 1) (= v1-88 2) (= v1-88 3) (= v1-88 4)) (cond ((zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))) - (set! (-> *anim-tester* 0 flags) (logand -9 (-> *anim-tester* 0 flags))) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) ) ((begin (set! (-> arg1 current-index) (-> arg1 the-index)) (<= (-> *anim-tester* 0 inc-timer) 0)) (if (> (-> *anim-tester* 0 inc-delay) 0) @@ -2137,7 +2144,7 @@ (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons square)) (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons square)) (set! (-> *anim-tester* 0 edit-mode) 3) - (logior! (-> *anim-tester* 0 flags) 4) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) ) ((cpad-pressed? 0 x) (cond @@ -2184,7 +2191,7 @@ (the-as int #f) ) (else - (logior! (-> *anim-tester* 0 flags) 8) + (logior! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3)) (set! (-> *anim-tester* 0 inc-delay) (-> *DISP_LIST-bank* INC_DELAY)) (set! (-> *anim-tester* 0 inc-timer) 0) 0 @@ -2272,8 +2279,8 @@ (let ((v1-0 (-> self edit-mode))) (cond ((zero? v1-0) - (when (logtest? (-> *anim-tester* 0 flags) 4) - (set! (-> *anim-tester* 0 flags) (logand -5 (-> *anim-tester* 0 flags))) + (when (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) + (logclear! (-> *anim-tester* 0 flags) (anim-tester-flags fanimt2)) (set-master-mode 'menu) ) ) @@ -2480,13 +2487,13 @@ :event anim-tester-standard-event-handler :enter - (behavior () (logior! (-> self flags) 2) (none)) + (behavior () (logior! (-> self flags) (anim-tester-flags fanimt1)) (none)) :trans (behavior () - (if (and (zero? (logand (-> self flags) 2)) (= *master-mode* 'menu)) + (if (and (zero? (logand (-> self flags) (anim-tester-flags fanimt1))) (= *master-mode* 'menu)) (anim-tester-interface) ) - (set! (-> self flags) (logand -3 (-> self flags))) + (logclear! (-> self flags) (anim-tester-flags fanimt1)) (when (!= *master-mode* 'menu) (dummy-10 (-> self skel) (the-as symbol *stdcon*)) (add-debug-x @@ -2502,7 +2509,7 @@ (behavior () (local-vars (s4-0 glst-node) (s5-1 anim-test-seq-item) (gp-2 anim-test-sequence)) (while #t - (set! (-> self flags) (logand -2 (-> self flags))) + (logclear! (-> self flags) (anim-tester-flags fanimt0)) (let ((v1-2 (-> self obj-list))) "is the list empty, #t = empty" (cond @@ -2529,7 +2536,7 @@ ) (format *stdcon* "anim-tester:no anims loaded~%") (format *stdcon* "displaying without anim not yet implement~%") - (set! (-> self flags) (logand -2 (-> self flags))) + (logclear! (-> self flags) (anim-tester-flags fanimt0)) (suspend) 0 ) @@ -2577,7 +2584,7 @@ (anim-tester-update-anim-info s5-1) (cond (s4-1 - (logior! (-> self flags) 1) + (logior! (-> self flags) (anim-tester-flags fanimt0)) (if (nonzero? (-> s5-1 blend)) (ja-channel-push! 1 (the int (* (the float (-> s5-1 blend)) (-> self anim-gspeed)))) (ja-channel-set! 1) @@ -2604,7 +2611,7 @@ ) (when (nonzero? (-> s5-1 blend)) (while (and (!= (-> self skel root-channel 0) (-> self skel channel)) (logtest? (-> s5-1 flags) 2)) - (when (logtest? (-> self flags) 32) + (when (logtest? (-> self flags) (anim-tester-flags fanimt5)) (TODO-RENAME-9 (-> self align)) (TODO-RENAME-10 (-> self align) @@ -2618,7 +2625,7 @@ ) ) (until (ja-done? 0) - (when (logtest? (-> self flags) 32) + (when (logtest? (-> self flags) (anim-tester-flags fanimt5)) (TODO-RENAME-9 (-> self align)) (TODO-RENAME-10 (-> self align) diff --git a/test/decompiler/reference/engine/debug/default-menu_REF.gc b/test/decompiler/reference/engine/debug/default-menu_REF.gc index 2f92fb3b59..a015718e46 100644 --- a/test/decompiler/reference/engine/debug/default-menu_REF.gc +++ b/test/decompiler/reference/engine/debug/default-menu_REF.gc @@ -6,12 +6,12 @@ ;; 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 symbol *dm-cam-mode-interpolation*, type int +(define *dm-cam-mode-interpolation* 0) ;; definition for function dm-cam-mode-func -(defun dm-cam-mode-func ((arg0 (state camera-slave)) (arg1 int)) - (if (and (= arg1 4) arg0) +(defun dm-cam-mode-func ((arg0 (state camera-slave)) (arg1 debug-menu-msg)) + (if (and (= arg1 (debug-menu-msg press)) arg0) (send-event *camera* 'change-state arg0 *dm-cam-mode-interpolation*) ) (if *camera* @@ -21,8 +21,8 @@ ) ;; definition for function dm-cam-settings-func -(defun dm-cam-settings-func ((arg0 int) (arg1 int)) - (when (and (= arg1 4) *camera*) +(defun dm-cam-settings-func ((arg0 int) (arg1 debug-menu-msg)) + (when (and (= arg1 (debug-menu-msg press)) *camera*) (cond ((zero? arg0) (send-event *camera* 'toggle-slave-option 1) @@ -128,8 +128,8 @@ ) ;; 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*) +(defun dm-cam-settings-func-int ((arg0 int) (arg1 debug-menu-msg) (arg2 int) (arg3 int)) + (when (and (= arg1 (debug-menu-msg press)) *camera*) (if (= (/ arg0 8) 5) (set! *dm-cam-mode-interpolation* arg2) ) @@ -148,8 +148,8 @@ ) ;; definition for function dm-cam-externalize -(defun dm-cam-externalize ((arg0 symbol) (arg1 int)) - (when (= arg1 4) +(defun dm-cam-externalize ((arg0 symbol) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (cond ((= arg0 'reset) (if (!= *external-cam-mode* 'locked) @@ -157,7 +157,7 @@ ) ) ((= arg0 'allow-z) - (set! *external-cam-options* (logxor *external-cam-options* 1)) + (set! *external-cam-options* (logxor *external-cam-options* (external-cam-option allow-z))) ) ((= *external-cam-mode* arg0) (set! *external-cam-mode* #f) @@ -171,15 +171,15 @@ ) ) (if (= arg0 'allow-z) - (logtest? *external-cam-options* 1) + (logtest? *external-cam-options* (external-cam-option allow-z)) (= *external-cam-mode* arg0) ) ) ;; definition for function dm-cam-render-float -(defun dm-cam-render-float ((arg0 int) (arg1 int) (arg2 float) (arg3 float)) +(defun dm-cam-render-float ((arg0 int) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) (with-pp - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (cond ((zero? (/ arg0 8)) (when *math-camera* @@ -237,8 +237,8 @@ ) ;; definition for function dm-subdiv-float -(defun dm-subdiv-float ((arg0 symbol) (arg1 int) (arg2 float) (arg3 float)) - (when (= arg1 4) +(defun dm-subdiv-float ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) + (when (= arg1 (debug-menu-msg press)) (case arg0 (('close) (if (and *math-camera* *subdivide-settings*) @@ -272,12 +272,12 @@ ) ;; definition for function dm-subdiv-int -(defun dm-subdiv-int ((arg0 function) (arg1 int) (arg2 object) (arg3 object)) - (when (= arg1 4) +(defun dm-subdiv-int ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 int)) + (when (= arg1 (debug-menu-msg press)) (case arg0 (('anim-speed) (if *anim-tester* - (set! (-> *anim-tester* 0 speed) (the-as int arg2)) + (set! (-> *anim-tester* 0 speed) arg2) ) ) ) @@ -296,41 +296,40 @@ ) ;; 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))) +(defun dm-setting-language ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default language) (the-as language-enum (/ arg0 8))) ) - (= (-> *setting-control* default language) (/ (the-as int arg0) 8)) + (= (-> *setting-control* default language) (/ 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))) +(defun dm-current-continue ((arg0 string) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (start 'play (get-continue-by-name *game-info* arg0)) ) - (the-as object (string= (-> (get-or-create-continue! *game-info*) name) (the-as string arg0))) + (string= (-> (get-or-create-continue! *game-info*) name) arg0) ) ;; definition for function dm-subdiv-draw-func -(defun dm-subdiv-draw-func ((arg0 int) (arg1 int)) - (if (= arg1 4) +(defun dm-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (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) +(defun dm-ocean-subdiv-draw-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (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) +(defun dm-time-of-day-func ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (set! *time-of-day-mode* (/ arg0 8)) (set! (-> *time-of-day-proc* 0 minute) 0) (cond @@ -378,8 +377,8 @@ ) ;; definition for function dm-time-of-day-func2 -(defun dm-time-of-day-func2 ((arg0 (pointer symbol)) (arg1 int)) - (when (= arg1 4) +(defun dm-time-of-day-func2 ((arg0 (pointer symbol)) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (set! (-> arg0 0) (not (-> arg0 0))) (when (!= (-> *time-of-day-proc* 0 time-ratio) 0.0) (if *time-of-day-fast* @@ -392,107 +391,105 @@ ) ;; 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) +(defun dm-boolean-toggle-pick-func ((arg0 (pointer symbol)) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (set! (-> arg0 0) (not (-> arg0 0))) ) - (the-as object (-> arg0 0)) + (-> 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)) +(defun dm-time-of-day-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (time-of-day-setup (= arg1 (debug-menu-msg press))) (none) ) ;; definition for function dm-actor-marks-pick-func -(defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 int)) - (if (= arg1 4) +(defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (set! *display-actor-marks* arg0) ) (= *display-actor-marks* arg0) ) ;; definition for function dm-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)) +(defun dm-compact-actor-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! *compact-actors* arg0) ) - (the-as object (= *compact-actors* arg0)) + (= *compact-actors* arg0) ) ;; definition for function dm-actor-vis-pick-func -(defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 int)) - (if (= arg1 4) +(defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (set! *display-actor-vis* arg0) ) (= *display-actor-vis* arg0) ) ;; definition for function dm-game-mode-pick-func -(defun dm-game-mode-pick-func ((arg0 symbol) (arg1 int)) - (if (= arg1 4) +(defun dm-game-mode-pick-func ((arg0 symbol) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (set! (-> *game-info* mode) arg0) ) (= (-> *game-info* mode) arg0) ) ;; definition for function dm-vu1-user-toggle-pick-func -(defun dm-vu1-user-toggle-pick-func ((arg0 int) (arg1 int)) - (if (= arg1 4) +(defun dm-vu1-user-toggle-pick-func ((arg0 vu1-renderer-mask) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (set! *vu1-enable-user-menu* (logxor *vu1-enable-user-menu* (the-as uint 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* (the-as vu1-renderer-mask arg0)) +(defun dm-vu1-user-set-pick-func ((arg0 vu1-renderer-mask) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (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) +(defun dm-texture-user-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (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) +(defun dm-texture-user-set-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (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) +(defun dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (set! *display-strip-lines* (logxor *display-strip-lines* (/ 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) +(defun dm-strip-lines-set-pick-func ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) (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)) +(defun dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 debug-menu-msg)) (let ((v1-0 (find-instance-by-name *edit-instance*))) (when v1-0 - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (set! (-> v1-0 flags) (logxor (-> v1-0 flags) (the-as uint arg0))) ) (logtest? (-> v1-0 flags) arg0) @@ -501,7 +498,7 @@ ) ;; definition for function all-texture-tweak-adjust -;; INFO: Return type mismatch int vs object. +;; INFO: Return type mismatch int vs none. (defun all-texture-tweak-adjust ((arg0 texture-page-dir) (arg1 float)) (dotimes (s4-0 (-> arg0 length)) (let ((s3-0 (-> arg0 entries s4-0 page))) @@ -524,27 +521,27 @@ ) ) ) - (the-as object 0) + 0 + (none) ) ;; 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)) +(defun dm-shader-pick-func ((arg0 texture-id) (arg1 debug-menu-msg)) (if (and - (= arg1 4) + (= arg1 (debug-menu-msg press)) *texture-page-dir* (-> *texture-page-dir* entries (-> arg0 page) page) (-> *texture-page-dir* entries (-> arg0 page) link) (nonzero? (-> *texture-page-dir* entries (-> arg0 page) link next (-> arg0 index))) ) - (set! *edit-shader* (the-as int arg0)) + (set! *edit-shader* arg0) ) - (the-as object (and (nonzero? *edit-shader*) (= arg0 *edit-shader*))) + (and (nonzero? *edit-shader*) (= arg0 *edit-shader*)) ) ;; definition for symbol *shader-pick-menu*, type debug-menu @@ -566,7 +563,7 @@ '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) + dm-shader-pick-func ) ) ) @@ -585,8 +582,8 @@ ) ;; definition for function dm-instance-pick-func -(defun dm-instance-pick-func ((arg0 string) (arg1 int)) - (when (= arg1 4) +(defun dm-instance-pick-func ((arg0 string) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (if (find-instance-by-name arg0) (set! *edit-instance* arg0) (set! *edit-instance* #f) @@ -596,11 +593,11 @@ ) ;; definition for function dm-enable-instance-func -(defun dm-enable-instance-func ((arg0 string) (arg1 int)) +(defun dm-enable-instance-func ((arg0 string) (arg1 debug-menu-msg)) (let ((v1-0 (find-instance-by-name arg0))) (cond (v1-0 - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (set! (-> v1-0 flags) (logxor (-> v1-0 flags) 1)) ) (zero? (logand (-> v1-0 flags) 1)) @@ -623,7 +620,7 @@ ;; definition for function build-instance-list ;; INFO: Return type mismatch int vs none. -(defun build-instance-list () +(defun build-instance-list ((arg0 object)) (debug-menu-remove-all-items *instance-shrub-menu*) (debug-menu-remove-all-items *instance-tie-menu*) (debug-menu-remove-all-items *enable-instance-tie-menu*) @@ -643,8 +640,8 @@ '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) + (-> s3-0 data s2-0 name) + dm-instance-pick-func ) ) ) @@ -661,8 +658,8 @@ '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) + (-> s3-1 array-data s2-1 name) + dm-instance-pick-func ) ) ) @@ -673,8 +670,8 @@ '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) + (-> s3-1 array-data s2-1 name) + dm-enable-instance-func ) ) ) @@ -809,227 +806,76 @@ ) ;; 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) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-camera-mode-menu ((arg0 debug-menu) (arg1 debug-menu)) + (new 'debug 'debug-menu-item-submenu "Camera" arg0) + (let ((a1-3 (new 'debug 'debug-menu-item-submenu "Mode" arg1))) + (debug-menu-append-item arg0 a1-3) ) - (let ((a1-5 (new - 'debug - 'debug-menu-item-flag - "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-5 (new 'debug 'debug-menu-item-flag "Off" #f dm-cam-mode-func))) + (debug-menu-append-item 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-7 (new 'debug 'debug-menu-item-flag "Free-floating" cam-free-floating dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-7) ) - (let ((a1-9 (new - 'debug - 'debug-menu-item-flag - "Fixed" - (the-as int cam-fixed) - (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-9 (new 'debug 'debug-menu-item-flag "Fixed" cam-fixed dm-cam-mode-func))) + (debug-menu-append-item 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-11 (new 'debug 'debug-menu-item-flag "Pov" cam-pov dm-cam-mode-func))) + (debug-menu-append-item 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-13 (new 'debug 'debug-menu-item-flag "Pov180" cam-pov180 dm-cam-mode-func))) + (debug-menu-append-item 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-15 (new 'debug 'debug-menu-item-flag "Billy" cam-billy dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-15) ) - (let ((a1-17 (new - 'debug - 'debug-menu-item-flag - "Pov-track" - (the-as int cam-pov-track) - (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-17 (new 'debug 'debug-menu-item-flag "Pov-track" cam-pov-track dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-17) ) - (let ((a1-19 (new - 'debug - 'debug-menu-item-flag - "Decel" - (the-as int cam-decel) - (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-19 (new 'debug 'debug-menu-item-flag "Decel" cam-decel dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-19) ) - (let ((a1-21 (new - 'debug - 'debug-menu-item-flag - "Endless fall" - (the-as int cam-endlessfall) - (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-21 (new 'debug 'debug-menu-item-flag "Endless fall" cam-endlessfall dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-21) ) - (let ((a1-23 (new - 'debug - 'debug-menu-item-flag - "Eye" - (the-as int cam-eye) - (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-23 (new 'debug 'debug-menu-item-flag "Eye" cam-eye dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-23) ) - (let ((a1-25 (new - 'debug - 'debug-menu-item-flag - "Stick" - (the-as int cam-stick) - (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-25 (new 'debug 'debug-menu-item-flag "Stick" cam-stick dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-25) ) - (let ((a1-27 (new - 'debug - 'debug-menu-item-flag - "String" - (the-as int cam-string) - (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-27 (new 'debug 'debug-menu-item-flag "String" cam-string dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-27) ) - (let ((a1-29 (new - 'debug - 'debug-menu-item-flag - "Standoff" - (the-as int cam-standoff) - (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-29 (new 'debug 'debug-menu-item-flag "Standoff" cam-standoff dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-29) ) - (let ((a1-31 (new - 'debug - 'debug-menu-item-flag - "Circular" - (the-as int cam-circular) - (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-31 (new 'debug 'debug-menu-item-flag "Circular" cam-circular dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-31) ) - (let ((a1-33 (new - 'debug - 'debug-menu-item-flag - "Look At" - (the-as int cam-lookat) - (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-33 (new 'debug 'debug-menu-item-flag "Look At" cam-lookat dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-33) ) - (let ((a1-35 (new - 'debug - 'debug-menu-item-flag - "Center of world" - (the-as int cam-point-watch) - (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-35 (new 'debug 'debug-menu-item-flag "Center of world" cam-point-watch dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-35) ) - (let ((a1-37 (new - 'debug - 'debug-menu-item-flag - "Spline" - (the-as int cam-spline) - (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-37 (new 'debug 'debug-menu-item-flag "Spline" cam-spline dm-cam-mode-func))) + (debug-menu-append-item 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-39 (new 'debug 'debug-menu-item-flag "Bike" cam-bike dm-cam-mode-func))) + (debug-menu-append-item 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-41 (new 'debug 'debug-menu-item-flag "Robotboss" cam-robotboss dm-cam-mode-func))) + (debug-menu-append-item arg1 a1-41) ) (let ((a1-43 - (new 'debug 'debug-menu-item-function "Reset Free" 6 (the-as (function int object) dm-cam-settings-func)) + (new 'debug 'debug-menu-item-function "Reset Free" 6 (the-as (function object object) dm-cam-settings-func)) ) ) - (the-as object (debug-menu-append-item (the-as debug-menu arg1) a1-43)) + (debug-menu-append-item arg1 a1-43) ) + (none) ) ;; definition for function debug-menu-make-camera-menu @@ -1038,71 +884,31 @@ (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)) + (debug-menu-make-camera-mode-menu gp-0 a1-3) ) (let ((s3-0 (new 'debug 'debug-menu arg0 "Camera externalize menu"))) (let ((a1-6 (new 'debug 'debug-menu-item-submenu "External" s3-0))) (debug-menu-append-item gp-0 a1-6) ) - (let ((a1-8 (new - 'debug - 'debug-menu-item-flag - "CPad 0" - (the-as int 'pad-0) - (the-as (function int debug-menu-msg object) dm-cam-externalize) - ) - ) - ) + (let ((a1-8 (new 'debug 'debug-menu-item-flag "CPad 0" 'pad-0 dm-cam-externalize))) (debug-menu-append-item s3-0 a1-8) ) - (let ((a1-10 (new - 'debug - 'debug-menu-item-flag - "CPad 1" - (the-as int 'pad-1) - (the-as (function int debug-menu-msg object) dm-cam-externalize) - ) - ) - ) + (let ((a1-10 (new 'debug 'debug-menu-item-flag "CPad 1" 'pad-1 dm-cam-externalize))) (debug-menu-append-item s3-0 a1-10) ) - (let ((a1-12 (new - 'debug - 'debug-menu-item-flag - "Lock" - (the-as int 'locked) - (the-as (function int debug-menu-msg object) dm-cam-externalize) - ) - ) - ) + (let ((a1-12 (new 'debug 'debug-menu-item-flag "Lock" 'locked dm-cam-externalize))) (debug-menu-append-item s3-0 a1-12) ) - (let ((a1-14 (new - 'debug - 'debug-menu-item-flag - "Reset" - (the-as int 'reset) - (the-as (function int debug-menu-msg object) dm-cam-externalize) - ) - ) - ) + (let ((a1-14 (new 'debug 'debug-menu-item-flag "Reset" 'reset dm-cam-externalize))) (debug-menu-append-item s3-0 a1-14) ) - (let ((a1-16 (new - 'debug - 'debug-menu-item-flag - "Allow z rot" - (the-as int 'allow-z) - (the-as (function int debug-menu-msg object) dm-cam-externalize) - ) - ) - ) + (let ((a1-16 (new 'debug 'debug-menu-item-flag "Allow z rot" 'allow-z dm-cam-externalize))) (debug-menu-append-item s3-0 a1-16) ) (let ((s2-0 (new 'debug 'debug-menu-item-var "Fov" 0 80))) (debug-menu-item-var-make-float s2-0 - (the-as (function int debug-menu-msg float float float) dm-cam-render-float) + dm-cam-render-float (the-as float 1.0) #t (the-as float 15.0) @@ -1116,25 +922,13 @@ (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) - ) - ) + (let ((a1-24 (new 'debug 'debug-menu-item-flag "Record" '*record-cam-collide-history* 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) - ) - ) + (let ((a1-26 + (new 'debug 'debug-menu-item-flag "Display" '*display-cam-collide-history* dm-boolean-toggle-pick-func) + ) ) (debug-menu-append-item s3-1 a1-26) ) @@ -1143,182 +937,62 @@ (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) - ) - ) - ) + (let ((a1-31 (new 'debug 'debug-menu-item-flag "Butt cam" 0 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) - ) - ) - ) + (let ((a1-33 (new 'debug 'debug-menu-item-flag "Block shift buttons" 13 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) - ) - ) - ) + (let ((a1-35 (new 'debug 'debug-menu-item-flag "Same side" 1 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) - ) - ) - ) + (let ((a1-37 (new 'debug 'debug-menu-item-flag "Move spherical" 2 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)) - ) - ) + (let ((a1-39 (new 'debug 'debug-menu-item-flag "Drag" 3 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) - ) - ) - ) + (let ((a1-41 (new 'debug 'debug-menu-item-flag "Allow Z rot" 4 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) - ) - ) - ) + (let ((a1-43 (new 'debug 'debug-menu-item-flag "Pitch for jump" 7 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) - ) - ) - ) + (let ((a1-45 (new 'debug 'debug-menu-item-flag "Find hidden target" 8 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) - ) - ) + (let ((a1-47 + (new 'debug 'debug-menu-item-flag "Move along camera Z" '*cam-free-move-along-z* 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) - ) - ) - ) + (let ((a1-49 (new 'debug 'debug-menu-item-flag "Ignore regions" 9 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) - ) - ) - ) + (let ((a1-51 (new 'debug 'debug-menu-item-flag "Switch only on ground" 10 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) - ) - ) - ) + (let ((a1-53 (new 'debug 'debug-menu-item-flag "Collide" 11 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) - ) - ) - ) + (let ((a1-55 (new 'debug 'debug-menu-item-flag "Line of Sight" 12 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) - ) - ) - ) + (let ((a1-57 (new 'debug 'debug-menu-item-flag "No Rotate" 14 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) - ) - ) - ) + (let ((a1-59 (new 'debug 'debug-menu-item-flag "Sticky Angle" 15 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-item-var-make-int s3-2 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) + dm-cam-render-float (the-as float 1.0) #t (the-as float 15.0) @@ -1331,120 +1005,49 @@ '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) + '*camera-no-mip-correction* + 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) - ) - ) + (let ((a1-69 + (new 'debug 'debug-menu-item-flag "last attacker" '*display-camera-last-attacker* 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) - ) - ) + (let ((a1-71 (new 'debug 'debug-menu-item-flag "old stats" '*display-camera-old-stats* 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) - ) - ) - ) + (let ((a1-73 (new 'debug 'debug-menu-item-flag "xyz axes" '*display-xyz-axes* dm-boolean-toggle-pick-func))) (debug-menu-append-item s4-1 a1-73) ) - (let ((a1-75 (new - 'debug - 'debug-menu-item-flag - "Master Marks" - (the-as int '*display-cam-master-marks*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) + (let ((a1-75 + (new 'debug 'debug-menu-item-flag "Master Marks" '*display-cam-master-marks* dm-boolean-toggle-pick-func) + ) ) (debug-menu-append-item s4-1 a1-75) ) - (let ((a1-77 (new - 'debug - 'debug-menu-item-flag - "Other Marks" - (the-as int '*display-cam-other*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) - ) + (let ((a1-77 (new 'debug 'debug-menu-item-flag "Other Marks" '*display-cam-other* dm-boolean-toggle-pick-func))) (debug-menu-append-item s4-1 a1-77) ) - (let ((a1-79 (new - 'debug - 'debug-menu-item-flag - "los debug" - (the-as int '*display-cam-los-debug*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) - ) + (let ((a1-79 (new 'debug 'debug-menu-item-flag "los debug" '*display-cam-los-debug* dm-boolean-toggle-pick-func))) (debug-menu-append-item s4-1 a1-79) ) - (let ((a1-81 (new - 'debug - 'debug-menu-item-flag - "los info" - (the-as int '*display-cam-los-info*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) - ) + (let ((a1-81 (new 'debug 'debug-menu-item-flag "los info" '*display-cam-los-info* dm-boolean-toggle-pick-func))) (debug-menu-append-item s4-1 a1-81) ) - (let ((a1-83 (new - 'debug - 'debug-menu-item-flag - "los Marks" - (the-as int '*display-cam-los-marks*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) - ) + (let ((a1-83 (new 'debug 'debug-menu-item-flag "los Marks" '*display-cam-los-marks* dm-boolean-toggle-pick-func))) (debug-menu-append-item s4-1 a1-83) ) - (let ((a1-85 (new - 'debug - 'debug-menu-item-flag - "coll Marks" - (the-as int '*display-cam-coll-marks*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) + (let ((a1-85 (new 'debug 'debug-menu-item-flag "coll Marks" '*display-cam-coll-marks* dm-boolean-toggle-pick-func)) ) (debug-menu-append-item s4-1 a1-85) ) - (let ((a1-87 (new - 'debug - 'debug-menu-item-flag - "Camera Marks" - (the-as int '*display-camera-marks*) - (the-as (function int debug-menu-msg object) dm-boolean-toggle-pick-func) - ) - ) + (let ((a1-87 (new 'debug 'debug-menu-item-flag "Camera Marks" '*display-camera-marks* dm-boolean-toggle-pick-func)) ) (debug-menu-append-item s4-1 a1-87) ) @@ -1453,17 +1056,17 @@ '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) - ) + '*cam-layout* + (the-as (function object debug-menu-msg object) (lambda ((arg0 symbol) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (if (-> arg0 value) + (cam-layout-stop) + (cam-layout-start) + ) + ) + (-> arg0 value) + (none) + ) ) ) ) @@ -1474,8 +1077,8 @@ 'debug 'debug-menu-item-function "Save Pos" - (the-as int #f) - (the-as (function int object) debug-create-cam-restore) + #f + (the-as (function object object) debug-create-cam-restore) ) ) ) @@ -1496,14 +1099,7 @@ (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) - ) - ) + (let ((a1-6 (new 'debug 'debug-menu-item-function "Refresh" #f (the-as (function object object) build-shader-list))) ) (debug-menu-append-item gp-0 a1-6) ) @@ -1512,7 +1108,7 @@ s4-1 (the-as (function int debug-menu-msg float float float) - (lambda ((arg0 symbol) (arg1 int) (arg2 float) (arg3 float)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) (set! arg3 (cond (*texture-page-dir* (let* ((s4-0 (the-as texture-id (-> arg0 value))) @@ -1521,7 +1117,7 @@ ) (cond ((and gp-0 v1-3) - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (set! (-> gp-0 uv-dist) arg2) (let ((s5-1 (the-as object (* (-> v1-3 next (-> s4-0 index) shader) 16)))) (while (nonzero? (the-as uint s5-1)) @@ -1556,27 +1152,31 @@ ) (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)))) - ) - ) + (let ((a1-11 (new + 'debug + 'debug-menu-item-function + "all tweak+" + #f + (the-as + (function object object) + (lambda () (the-as object (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)))) - ) - ) + (let ((a1-13 (new + 'debug + 'debug-menu-item-function + "all tweak-" + #f + (the-as + (function object object) + (lambda () (the-as object (all-texture-tweak-adjust *texture-page-dir* (the-as float -0.1)))) + ) + ) + ) ) (debug-menu-append-item gp-0 a1-13) ) @@ -1585,7 +1185,7 @@ s4-2 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1593,7 +1193,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex1 l) arg2) @@ -1633,7 +1233,7 @@ s4-3 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1641,7 +1241,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex1 k) arg2) @@ -1681,7 +1281,7 @@ s4-4 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1689,7 +1289,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex1 mmin) arg2) @@ -1729,7 +1329,7 @@ s4-5 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1737,7 +1337,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex1 mmag) arg2) @@ -1777,7 +1377,7 @@ s4-6 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1785,7 +1385,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex1 lcm) arg2) @@ -1825,7 +1425,7 @@ s4-7 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1833,7 +1433,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex0 tfx) arg2) @@ -1873,7 +1473,7 @@ s4-8 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1881,7 +1481,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex0 tbp0) arg2) @@ -1921,7 +1521,7 @@ s4-9 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1929,7 +1529,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex0 tbw) arg2) @@ -1969,7 +1569,7 @@ s4-10 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -1977,7 +1577,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex0 tw) arg2) @@ -2017,7 +1617,7 @@ s4-11 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2025,7 +1625,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex0 th) arg2) @@ -2065,7 +1665,7 @@ s4-12 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2073,7 +1673,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) tex1 mxl) arg2) @@ -2113,7 +1713,7 @@ s4-13 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2121,7 +1721,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) clamp wms) arg2) @@ -2161,7 +1761,7 @@ s4-14 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2169,7 +1769,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) clamp wmt) arg2) @@ -2209,7 +1809,7 @@ s4-15 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2217,7 +1817,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) clamp minu) arg2) @@ -2257,7 +1857,7 @@ s4-16 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2265,7 +1865,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) clamp maxu) arg2) @@ -2305,7 +1905,7 @@ s4-17 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2313,7 +1913,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) clamp minv) arg2) @@ -2353,7 +1953,7 @@ s4-18 (the-as (function int debug-menu-msg int int int) - (lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic)) + (lambda ((arg0 symbol) (arg1 debug-menu-msg) (arg2 int) (arg3 basic)) (cond (*texture-page-dir* (let* ((v1-1 (the-as texture-id (-> arg0 value))) @@ -2361,7 +1961,7 @@ ) (cond (a0-3 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (let ((a1-8 (the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16)))) (while (nonzero? (the-as uint a1-8)) (set! (-> (the-as adgif-shader a1-8) clamp maxv) arg2) @@ -2417,14 +2017,9 @@ (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) - ) - ) + (let ((a1-9 + (new 'debug 'debug-menu-item-function "Refresh" #f (the-as (function object object) build-instance-list)) + ) ) (debug-menu-append-item gp-0 a1-9) ) @@ -2433,13 +2028,13 @@ s3-0 (the-as (function int debug-menu-msg float float float) - (lambda ((arg0 debug-menu) (arg1 int) (arg2 float) (arg3 float)) + (lambda ((arg0 debug-menu) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) (let ((gp-0 (find-instance-by-name (-> arg0 name)))) (the-as object (cond (gp-0 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (set! (-> gp-0 dists x) (* 4096.0 arg2)) - (prototype-bucket-recalc-fields (the-as instance gp-0)) + (prototype-bucket-recalc-fields gp-0) ) (* 0.00024414062 (-> gp-0 dists x)) ) @@ -2465,13 +2060,13 @@ s3-1 (the-as (function int debug-menu-msg float float float) - (lambda ((arg0 debug-menu) (arg1 int) (arg2 float) (arg3 float)) + (lambda ((arg0 debug-menu) (arg1 debug-menu-msg) (arg2 float) (arg3 float)) (let ((gp-0 (find-instance-by-name (-> arg0 name)))) (the-as object (cond (gp-0 - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (set! (-> gp-0 dists w) (* 4096.0 arg2)) - (prototype-bucket-recalc-fields (the-as instance gp-0)) + (prototype-bucket-recalc-fields gp-0) ) (* 0.00024414062 (-> gp-0 dists w)) ) @@ -2492,15 +2087,7 @@ ) (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) - ) - ) - ) + (let ((a1-17 (new 'debug 'debug-menu-item-flag "invisible" 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"))) @@ -2509,14 +2096,9 @@ (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) - ) - ) + (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) ) @@ -2525,12 +2107,12 @@ ) ;; definition for function dm-task-unknown -(defun dm-task-unknown ((arg0 int) (arg1 int)) +(defun dm-task-unknown ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status unknown))) (return 'invalid) ) - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (close-specific-task! (the-as game-task gp-0) (task-status unknown)) ) (task-closed? (the-as game-task gp-0) (task-status unknown)) @@ -2538,12 +2120,12 @@ ) ;; definition for function dm-task-hint -(defun dm-task-hint ((arg0 int) (arg1 int)) +(defun dm-task-hint ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status need-hint))) (return 'invalid) ) - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (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)) @@ -2551,12 +2133,12 @@ ) ;; definition for function dm-task-introduction -(defun dm-task-introduction ((arg0 int) (arg1 int)) +(defun dm-task-introduction ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status need-introduction))) (return 'invalid) ) - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (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)) @@ -2564,12 +2146,12 @@ ) ;; definition for function dm-task-reminder-a -(defun dm-task-reminder-a ((arg0 int) (arg1 int)) +(defun dm-task-reminder-a ((arg0 int) (arg1 debug-menu-msg)) (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) + (if (= arg1 (debug-menu-msg press)) (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)) @@ -2577,12 +2159,12 @@ ) ;; definition for function dm-task-reminder -(defun dm-task-reminder ((arg0 int) (arg1 int)) +(defun dm-task-reminder ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder))) (return 'invalid) ) - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (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)) @@ -2590,12 +2172,12 @@ ) ;; definition for function dm-task-reward-speech -(defun dm-task-reward-speech ((arg0 int) (arg1 int)) +(defun dm-task-reward-speech ((arg0 int) (arg1 debug-menu-msg)) (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) + (if (= arg1 (debug-menu-msg press)) (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)) @@ -2603,12 +2185,12 @@ ) ;; definition for function dm-task-resolution -(defun dm-task-resolution ((arg0 int) (arg1 int)) +(defun dm-task-resolution ((arg0 int) (arg1 debug-menu-msg)) (let ((gp-0 (/ arg0 8))) (if (not (task-exists? (the-as game-task gp-0) (task-status need-resolution))) (return 'invalid) ) - (when (= arg1 4) + (when (= arg1 (debug-menu-msg press)) (send-event *target* 'get-pickup 6 (the float gp-0)) (close-specific-task! (the-as game-task gp-0) (task-status need-resolution)) ) @@ -2617,975 +2199,968 @@ ) ;; definition for function debug-menu-make-task-unknown-menu -(defun debug-menu-make-task-unknown-menu ((arg0 debug-menu-context) (arg1 debug-menu-context)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-unknown-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "unknown" + #f + #f + (flag "jungle-eggtop" 2 dm-task-unknown) + (flag "jungle-lurkerm" 3 dm-task-unknown) + (flag "jungle-tower" 4 dm-task-unknown) + (flag "jungle-fishgame" 5 dm-task-unknown) + (flag "jungle-plant" 6 dm-task-unknown) + (flag "jungle-buzzer" 7 dm-task-unknown) + (flag "jungle-canyon-end" 8 dm-task-unknown) + (flag "jungle-temple-door" 9 dm-task-unknown) + (flag "village1-yakow" 10 dm-task-unknown) + (flag "village1-mayor-money" 11 dm-task-unknown) + (flag "village1-uncle-money" 12 dm-task-unknown) + (flag "village1-oracle-money1" 13 dm-task-unknown) + (flag "village1-oracle-money2" 14 dm-task-unknown) + (flag "beach-ecorocks" 15 dm-task-unknown) + (flag "beach-pelican" 16 dm-task-unknown) + (flag "beach-flutflut" 17 dm-task-unknown) + (flag "beach-seagull" 18 dm-task-unknown) + (flag "beach-cannon" 19 dm-task-unknown) + (flag "beach-buzzer" 20 dm-task-unknown) + (flag "beach-gimmie" 21 dm-task-unknown) + (flag "beach-sentinel" 22 dm-task-unknown) + (flag "misty-muse" 23 dm-task-unknown) + (flag "misty-boat" 24 dm-task-unknown) + (flag "misty-warehouse" 25 dm-task-unknown) + (flag "misty-cannon" 26 dm-task-unknown) + (flag "misty-bike" 27 dm-task-unknown) + (flag "misty-buzzer" 28 dm-task-unknown) + (flag "misty-bike-jump" 29 dm-task-unknown) + (flag "misty-eco-challenge" 30 dm-task-unknown) + (flag "village2-gambler-money" 31 dm-task-unknown) + (flag "village2-geologist-money" 32 dm-task-unknown) + (flag "village2-warrior-money" 33 dm-task-unknown) + (flag "village2-oracle-money1" 34 dm-task-unknown) + (flag "village2-oracle-money2" 35 dm-task-unknown) + (flag "swamp-billy" 36 dm-task-unknown) + (flag "swamp-flutflut" 37 dm-task-unknown) + (flag "swamp-battle" 38 dm-task-unknown) + (flag "swamp-tether-1" 39 dm-task-unknown) + (flag "swamp-tether-2" 40 dm-task-unknown) + (flag "swamp-tether-3" 41 dm-task-unknown) + (flag "swamp-tether-4" 42 dm-task-unknown) + (flag "swamp-buzzer" 43 dm-task-unknown) + (flag "sunken-platforms" 44 dm-task-unknown) + (flag "sunken-pipe" 45 dm-task-unknown) + (flag "sunken-slide" 46 dm-task-unknown) + (flag "sunken-room" 47 dm-task-unknown) + (flag "sunken-sharks" 48 dm-task-unknown) + (flag "sunken-buzzer" 49 dm-task-unknown) + (flag "sunken-top-of-helix" 50 dm-task-unknown) + (flag "sunken-spinning-room" 51 dm-task-unknown) + (flag "rolling-race" 52 dm-task-unknown) + (flag "rolling-robbers" 53 dm-task-unknown) + (flag "rolling-moles" 54 dm-task-unknown) + (flag "rolling-plants" 55 dm-task-unknown) + (flag "rolling-lake" 56 dm-task-unknown) + (flag "rolling-buzzer" 57 dm-task-unknown) + (flag "rolling-ring-chase-1" 58 dm-task-unknown) + (flag "rolling-ring-chase-2" 59 dm-task-unknown) + (flag "snow-eggtop" 60 dm-task-unknown) + (flag "snow-ram" 61 dm-task-unknown) + (flag "snow-fort" 62 dm-task-unknown) + (flag "snow-ball" 63 dm-task-unknown) + (flag "snow-bunnies" 64 dm-task-unknown) + (flag "snow-buzzer" 65 dm-task-unknown) + (flag "snow-bumpers" 66 dm-task-unknown) + (flag "snow-cage" 67 dm-task-unknown) + (flag "firecanyon-buzzer" 68 dm-task-unknown) + (flag "firecanyon-end" 69 dm-task-unknown) + (flag "citadel-sage-green" 70 dm-task-unknown) + (flag "citadel-sage-blue" 71 dm-task-unknown) + (flag "citadel-sage-red" 72 dm-task-unknown) + (flag "citadel-sage-yellow" 73 dm-task-unknown) + (flag "village3-extra1" 74 dm-task-unknown) + (flag "village1-buzzer" 75 dm-task-unknown) + (flag "village2-buzzer" 76 dm-task-unknown) + (flag "village3-buzzer" 77 dm-task-unknown) + (flag "cave-gnawers" 78 dm-task-unknown) + (flag "cave-dark-crystals" 79 dm-task-unknown) + (flag "cave-dark-climb" 80 dm-task-unknown) + (flag "cave-robot-climb" 81 dm-task-unknown) + (flag "cave-swing-poles" 82 dm-task-unknown) + (flag "cave-spider-tunnel" 83 dm-task-unknown) + (flag "cave-platforms" 84 dm-task-unknown) + (flag "cave-buzzer" 85 dm-task-unknown) + (flag "ogre-boss" 86 dm-task-unknown) + (flag "ogre-end" 87 dm-task-unknown) + (flag "ogre-buzzer" 88 dm-task-unknown) + (flag "lavatube-end" 89 dm-task-unknown) + (flag "lavatube-buzzer" 90 dm-task-unknown) + (flag "citadel-buzzer" 91 dm-task-unknown) + (flag "training-gimmie" 92 dm-task-unknown) + (flag "training-door" 93 dm-task-unknown) + (flag "training-climb" 94 dm-task-unknown) + (flag "training-buzzer" 95 dm-task-unknown) + (flag "village3-miner-money1" 96 dm-task-unknown) + (flag "village3-miner-money2" 97 dm-task-unknown) + (flag "village3-miner-money3" 98 dm-task-unknown) + (flag "village3-miner-money4" 99 dm-task-unknown) + (flag "village3-oracle-money1" 100 dm-task-unknown) + (flag "village3-oracle-money2" 101 dm-task-unknown) + (flag "firecanyon-assistant" 102 dm-task-unknown) + (flag "village2-levitator" 103 dm-task-unknown) + (flag "swamp-arm" 104 dm-task-unknown) + (flag "village3-button" 105 dm-task-unknown) + (flag "red-eggtop" 106 dm-task-unknown) + (flag "lavatube-balls" 107 dm-task-unknown) + (flag "lavatube-start" 108 dm-task-unknown) + (flag "intro" 109 dm-task-unknown) + (flag "ogre-secret" 110 dm-task-unknown) + (flag "village4-button" 111 dm-task-unknown) + (flag "finalboss-movies" 112 dm-task-unknown) + (flag "plunger-lurker-hit" 113 dm-task-unknown) + (flag "leaving-misty" 114 dm-task-unknown) + (flag "assistant-village3" 115 dm-task-unknown) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; 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)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-need-hint-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-hint" + #f + #f + (flag "jungle-eggtop" 2 dm-task-hint) + (flag "jungle-lurkerm" 3 dm-task-hint) + (flag "jungle-tower" 4 dm-task-hint) + (flag "jungle-fishgame" 5 dm-task-hint) + (flag "jungle-plant" 6 dm-task-hint) + (flag "jungle-buzzer" 7 dm-task-hint) + (flag "jungle-canyon-end" 8 dm-task-hint) + (flag "jungle-temple-door" 9 dm-task-hint) + (flag "village1-yakow" 10 dm-task-hint) + (flag "village1-mayor-money" 11 dm-task-hint) + (flag "village1-uncle-money" 12 dm-task-hint) + (flag "village1-oracle-money1" 13 dm-task-hint) + (flag "village1-oracle-money2" 14 dm-task-hint) + (flag "beach-ecorocks" 15 dm-task-hint) + (flag "beach-pelican" 16 dm-task-hint) + (flag "beach-flutflut" 17 dm-task-hint) + (flag "beach-seagull" 18 dm-task-hint) + (flag "beach-cannon" 19 dm-task-hint) + (flag "beach-buzzer" 20 dm-task-hint) + (flag "beach-gimmie" 21 dm-task-hint) + (flag "beach-sentinel" 22 dm-task-hint) + (flag "misty-muse" 23 dm-task-hint) + (flag "misty-boat" 24 dm-task-hint) + (flag "misty-warehouse" 25 dm-task-hint) + (flag "misty-cannon" 26 dm-task-hint) + (flag "misty-bike" 27 dm-task-hint) + (flag "misty-buzzer" 28 dm-task-hint) + (flag "misty-bike-jump" 29 dm-task-hint) + (flag "misty-eco-challenge" 30 dm-task-hint) + (flag "village2-gambler-money" 31 dm-task-hint) + (flag "village2-geologist-money" 32 dm-task-hint) + (flag "village2-warrior-money" 33 dm-task-hint) + (flag "village2-oracle-money1" 34 dm-task-hint) + (flag "village2-oracle-money2" 35 dm-task-hint) + (flag "swamp-billy" 36 dm-task-hint) + (flag "swamp-flutflut" 37 dm-task-hint) + (flag "swamp-battle" 38 dm-task-hint) + (flag "swamp-tether-1" 39 dm-task-hint) + (flag "swamp-tether-2" 40 dm-task-hint) + (flag "swamp-tether-3" 41 dm-task-hint) + (flag "swamp-tether-4" 42 dm-task-hint) + (flag "swamp-buzzer" 43 dm-task-hint) + (flag "sunken-platforms" 44 dm-task-hint) + (flag "sunken-pipe" 45 dm-task-hint) + (flag "sunken-slide" 46 dm-task-hint) + (flag "sunken-room" 47 dm-task-hint) + (flag "sunken-sharks" 48 dm-task-hint) + (flag "sunken-buzzer" 49 dm-task-hint) + (flag "sunken-top-of-helix" 50 dm-task-hint) + (flag "sunken-spinning-room" 51 dm-task-hint) + (flag "rolling-race" 52 dm-task-hint) + (flag "rolling-robbers" 53 dm-task-hint) + (flag "rolling-moles" 54 dm-task-hint) + (flag "rolling-plants" 55 dm-task-hint) + (flag "rolling-lake" 56 dm-task-hint) + (flag "rolling-buzzer" 57 dm-task-hint) + (flag "rolling-ring-chase-1" 58 dm-task-hint) + (flag "rolling-ring-chase-2" 59 dm-task-hint) + (flag "snow-eggtop" 60 dm-task-hint) + (flag "snow-ram" 61 dm-task-hint) + (flag "snow-fort" 62 dm-task-hint) + (flag "snow-ball" 63 dm-task-hint) + (flag "snow-bunnies" 64 dm-task-hint) + (flag "snow-buzzer" 65 dm-task-hint) + (flag "snow-bumpers" 66 dm-task-hint) + (flag "snow-cage" 67 dm-task-hint) + (flag "firecanyon-buzzer" 68 dm-task-hint) + (flag "firecanyon-end" 69 dm-task-hint) + (flag "citadel-sage-green" 70 dm-task-hint) + (flag "citadel-sage-blue" 71 dm-task-hint) + (flag "citadel-sage-red" 72 dm-task-hint) + (flag "citadel-sage-yellow" 73 dm-task-hint) + (flag "village3-extra1" 74 dm-task-hint) + (flag "village1-buzzer" 75 dm-task-hint) + (flag "village2-buzzer" 76 dm-task-hint) + (flag "village3-buzzer" 77 dm-task-hint) + (flag "cave-gnawers" 78 dm-task-hint) + (flag "cave-dark-crystals" 79 dm-task-hint) + (flag "cave-dark-climb" 80 dm-task-hint) + (flag "cave-robot-climb" 81 dm-task-hint) + (flag "cave-swing-poles" 82 dm-task-hint) + (flag "cave-spider-tunnel" 83 dm-task-hint) + (flag "cave-platforms" 84 dm-task-hint) + (flag "cave-buzzer" 85 dm-task-hint) + (flag "ogre-boss" 86 dm-task-hint) + (flag "ogre-end" 87 dm-task-hint) + (flag "ogre-buzzer" 88 dm-task-hint) + (flag "lavatube-end" 89 dm-task-hint) + (flag "lavatube-buzzer" 90 dm-task-hint) + (flag "citadel-buzzer" 91 dm-task-hint) + (flag "training-gimmie" 92 dm-task-hint) + (flag "training-door" 93 dm-task-hint) + (flag "training-climb" 94 dm-task-hint) + (flag "training-buzzer" 95 dm-task-hint) + (flag "village3-miner-money1" 96 dm-task-hint) + (flag "village3-miner-money2" 97 dm-task-hint) + (flag "village3-miner-money3" 98 dm-task-hint) + (flag "village3-miner-money4" 99 dm-task-hint) + (flag "village3-oracle-money1" 100 dm-task-hint) + (flag "village3-oracle-money2" 101 dm-task-hint) + (flag "firecanyon-assistant" 102 dm-task-hint) + (flag "village2-levitator" 103 dm-task-hint) + (flag "swamp-arm" 104 dm-task-hint) + (flag "village3-button" 105 dm-task-hint) + (flag "red-eggtop" 106 dm-task-hint) + (flag "lavatube-balls" 107 dm-task-hint) + (flag "lavatube-start" 108 dm-task-hint) + (flag "intro" 109 dm-task-hint) + (flag "ogre-secret" 110 dm-task-hint) + (flag "village4-button" 111 dm-task-hint) + (flag "finalboss-movies" 112 dm-task-hint) + (flag "plunger-lurker-hit" 113 dm-task-hint) + (flag "leaving-misty" 114 dm-task-hint) + (flag "assistant-village3" 115 dm-task-hint) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; 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)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-need-introduction-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-introduction" + #f + #f + (flag "jungle-eggtop" 2 dm-task-introduction) + (flag "jungle-lurkerm" 3 dm-task-introduction) + (flag "jungle-tower" 4 dm-task-introduction) + (flag "jungle-fishgame" 5 dm-task-introduction) + (flag "jungle-plant" 6 dm-task-introduction) + (flag "jungle-buzzer" 7 dm-task-introduction) + (flag "jungle-canyon-end" 8 dm-task-introduction) + (flag "jungle-temple-door" 9 dm-task-introduction) + (flag "village1-yakow" 10 dm-task-introduction) + (flag "village1-mayor-money" 11 dm-task-introduction) + (flag "village1-uncle-money" 12 dm-task-introduction) + (flag "village1-oracle-money1" 13 dm-task-introduction) + (flag "village1-oracle-money2" 14 dm-task-introduction) + (flag "beach-ecorocks" 15 dm-task-introduction) + (flag "beach-pelican" 16 dm-task-introduction) + (flag "beach-flutflut" 17 dm-task-introduction) + (flag "beach-seagull" 18 dm-task-introduction) + (flag "beach-cannon" 19 dm-task-introduction) + (flag "beach-buzzer" 20 dm-task-introduction) + (flag "beach-gimmie" 21 dm-task-introduction) + (flag "beach-sentinel" 22 dm-task-introduction) + (flag "misty-muse" 23 dm-task-introduction) + (flag "misty-boat" 24 dm-task-introduction) + (flag "misty-warehouse" 25 dm-task-introduction) + (flag "misty-cannon" 26 dm-task-introduction) + (flag "misty-bike" 27 dm-task-introduction) + (flag "misty-buzzer" 28 dm-task-introduction) + (flag "misty-bike-jump" 29 dm-task-introduction) + (flag "misty-eco-challenge" 30 dm-task-introduction) + (flag "village2-gambler-money" 31 dm-task-introduction) + (flag "village2-geologist-money" 32 dm-task-introduction) + (flag "village2-warrior-money" 33 dm-task-introduction) + (flag "village2-oracle-money1" 34 dm-task-introduction) + (flag "village2-oracle-money2" 35 dm-task-introduction) + (flag "swamp-billy" 36 dm-task-introduction) + (flag "swamp-flutflut" 37 dm-task-introduction) + (flag "swamp-battle" 38 dm-task-introduction) + (flag "swamp-tether-1" 39 dm-task-introduction) + (flag "swamp-tether-2" 40 dm-task-introduction) + (flag "swamp-tether-3" 41 dm-task-introduction) + (flag "swamp-tether-4" 42 dm-task-introduction) + (flag "swamp-buzzer" 43 dm-task-introduction) + (flag "sunken-platforms" 44 dm-task-introduction) + (flag "sunken-pipe" 45 dm-task-introduction) + (flag "sunken-slide" 46 dm-task-introduction) + (flag "sunken-room" 47 dm-task-introduction) + (flag "sunken-sharks" 48 dm-task-introduction) + (flag "sunken-buzzer" 49 dm-task-introduction) + (flag "sunken-top-of-helix" 50 dm-task-introduction) + (flag "sunken-spinning-room" 51 dm-task-introduction) + (flag "rolling-race" 52 dm-task-introduction) + (flag "rolling-robbers" 53 dm-task-introduction) + (flag "rolling-moles" 54 dm-task-introduction) + (flag "rolling-plants" 55 dm-task-introduction) + (flag "rolling-lake" 56 dm-task-introduction) + (flag "rolling-buzzer" 57 dm-task-introduction) + (flag "rolling-ring-chase-1" 58 dm-task-introduction) + (flag "rolling-ring-chase-2" 59 dm-task-introduction) + (flag "snow-eggtop" 60 dm-task-introduction) + (flag "snow-ram" 61 dm-task-introduction) + (flag "snow-fort" 62 dm-task-introduction) + (flag "snow-ball" 63 dm-task-introduction) + (flag "snow-bunnies" 64 dm-task-introduction) + (flag "snow-buzzer" 65 dm-task-introduction) + (flag "snow-bumpers" 66 dm-task-introduction) + (flag "snow-cage" 67 dm-task-introduction) + (flag "firecanyon-buzzer" 68 dm-task-introduction) + (flag "firecanyon-end" 69 dm-task-introduction) + (flag "citadel-sage-green" 70 dm-task-introduction) + (flag "citadel-sage-blue" 71 dm-task-introduction) + (flag "citadel-sage-red" 72 dm-task-introduction) + (flag "citadel-sage-yellow" 73 dm-task-introduction) + (flag "village3-extra1" 74 dm-task-introduction) + (flag "village1-buzzer" 75 dm-task-introduction) + (flag "village2-buzzer" 76 dm-task-introduction) + (flag "village3-buzzer" 77 dm-task-introduction) + (flag "cave-gnawers" 78 dm-task-introduction) + (flag "cave-dark-crystals" 79 dm-task-introduction) + (flag "cave-dark-climb" 80 dm-task-introduction) + (flag "cave-robot-climb" 81 dm-task-introduction) + (flag "cave-swing-poles" 82 dm-task-introduction) + (flag "cave-spider-tunnel" 83 dm-task-introduction) + (flag "cave-platforms" 84 dm-task-introduction) + (flag "cave-buzzer" 85 dm-task-introduction) + (flag "ogre-boss" 86 dm-task-introduction) + (flag "ogre-end" 87 dm-task-introduction) + (flag "ogre-buzzer" 88 dm-task-introduction) + (flag "lavatube-end" 89 dm-task-introduction) + (flag "lavatube-buzzer" 90 dm-task-introduction) + (flag "citadel-buzzer" 91 dm-task-introduction) + (flag "training-gimmie" 92 dm-task-introduction) + (flag "training-door" 93 dm-task-introduction) + (flag "training-climb" 94 dm-task-introduction) + (flag "training-buzzer" 95 dm-task-introduction) + (flag "village3-miner-money1" 96 dm-task-introduction) + (flag "village3-miner-money2" 97 dm-task-introduction) + (flag "village3-miner-money3" 98 dm-task-introduction) + (flag "village3-miner-money4" 99 dm-task-introduction) + (flag "village3-oracle-money1" 100 dm-task-introduction) + (flag "village3-oracle-money2" 101 dm-task-introduction) + (flag "firecanyon-assistant" 102 dm-task-introduction) + (flag "village2-levitator" 103 dm-task-introduction) + (flag "swamp-arm" 104 dm-task-introduction) + (flag "village3-button" 105 dm-task-introduction) + (flag "red-eggtop" 106 dm-task-introduction) + (flag "lavatube-balls" 107 dm-task-introduction) + (flag "lavatube-start" 108 dm-task-introduction) + (flag "intro" 109 dm-task-introduction) + (flag "ogre-secret" 110 dm-task-introduction) + (flag "village4-button" 111 dm-task-introduction) + (flag "finalboss-movies" 112 dm-task-introduction) + (flag "plunger-lurker-hit" 113 dm-task-introduction) + (flag "leaving-misty" 114 dm-task-introduction) + (flag "assistant-village3" 115 dm-task-introduction) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; 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)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-need-reminder-a-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-reminder-a" + #f + #f + (flag "jungle-eggtop" 2 dm-task-reminder-a) + (flag "jungle-lurkerm" 3 dm-task-reminder-a) + (flag "jungle-tower" 4 dm-task-reminder-a) + (flag "jungle-fishgame" 5 dm-task-reminder-a) + (flag "jungle-plant" 6 dm-task-reminder-a) + (flag "jungle-buzzer" 7 dm-task-reminder-a) + (flag "jungle-canyon-end" 8 dm-task-reminder-a) + (flag "jungle-temple-door" 9 dm-task-reminder-a) + (flag "village1-yakow" 10 dm-task-reminder-a) + (flag "village1-mayor-money" 11 dm-task-reminder-a) + (flag "village1-uncle-money" 12 dm-task-reminder-a) + (flag "village1-oracle-money1" 13 dm-task-reminder-a) + (flag "village1-oracle-money2" 14 dm-task-reminder-a) + (flag "beach-ecorocks" 15 dm-task-reminder-a) + (flag "beach-pelican" 16 dm-task-reminder-a) + (flag "beach-flutflut" 17 dm-task-reminder-a) + (flag "beach-seagull" 18 dm-task-reminder-a) + (flag "beach-cannon" 19 dm-task-reminder-a) + (flag "beach-buzzer" 20 dm-task-reminder-a) + (flag "beach-gimmie" 21 dm-task-reminder-a) + (flag "beach-sentinel" 22 dm-task-reminder-a) + (flag "misty-muse" 23 dm-task-reminder-a) + (flag "misty-boat" 24 dm-task-reminder-a) + (flag "misty-warehouse" 25 dm-task-reminder-a) + (flag "misty-cannon" 26 dm-task-reminder-a) + (flag "misty-bike" 27 dm-task-reminder-a) + (flag "misty-buzzer" 28 dm-task-reminder-a) + (flag "misty-bike-jump" 29 dm-task-reminder-a) + (flag "misty-eco-challenge" 30 dm-task-reminder-a) + (flag "village2-gambler-money" 31 dm-task-reminder-a) + (flag "village2-geologist-money" 32 dm-task-reminder-a) + (flag "village2-warrior-money" 33 dm-task-reminder-a) + (flag "village2-oracle-money1" 34 dm-task-reminder-a) + (flag "village2-oracle-money2" 35 dm-task-reminder-a) + (flag "swamp-billy" 36 dm-task-reminder-a) + (flag "swamp-flutflut" 37 dm-task-reminder-a) + (flag "swamp-battle" 38 dm-task-reminder-a) + (flag "swamp-tether-1" 39 dm-task-reminder-a) + (flag "swamp-tether-2" 40 dm-task-reminder-a) + (flag "swamp-tether-3" 41 dm-task-reminder-a) + (flag "swamp-tether-4" 42 dm-task-reminder-a) + (flag "swamp-buzzer" 43 dm-task-reminder-a) + (flag "sunken-platforms" 44 dm-task-reminder-a) + (flag "sunken-pipe" 45 dm-task-reminder-a) + (flag "sunken-slide" 46 dm-task-reminder-a) + (flag "sunken-room" 47 dm-task-reminder-a) + (flag "sunken-sharks" 48 dm-task-reminder-a) + (flag "sunken-buzzer" 49 dm-task-reminder-a) + (flag "sunken-top-of-helix" 50 dm-task-reminder-a) + (flag "sunken-spinning-room" 51 dm-task-reminder-a) + (flag "rolling-race" 52 dm-task-reminder-a) + (flag "rolling-robbers" 53 dm-task-reminder-a) + (flag "rolling-moles" 54 dm-task-reminder-a) + (flag "rolling-plants" 55 dm-task-reminder-a) + (flag "rolling-lake" 56 dm-task-reminder-a) + (flag "rolling-buzzer" 57 dm-task-reminder-a) + (flag "rolling-ring-chase-1" 58 dm-task-reminder-a) + (flag "rolling-ring-chase-2" 59 dm-task-reminder-a) + (flag "snow-eggtop" 60 dm-task-reminder-a) + (flag "snow-ram" 61 dm-task-reminder-a) + (flag "snow-fort" 62 dm-task-reminder-a) + (flag "snow-ball" 63 dm-task-reminder-a) + (flag "snow-bunnies" 64 dm-task-reminder-a) + (flag "snow-buzzer" 65 dm-task-reminder-a) + (flag "snow-bumpers" 66 dm-task-reminder-a) + (flag "snow-cage" 67 dm-task-reminder-a) + (flag "firecanyon-buzzer" 68 dm-task-reminder-a) + (flag "firecanyon-end" 69 dm-task-reminder-a) + (flag "citadel-sage-green" 70 dm-task-reminder-a) + (flag "citadel-sage-blue" 71 dm-task-reminder-a) + (flag "citadel-sage-red" 72 dm-task-reminder-a) + (flag "citadel-sage-yellow" 73 dm-task-reminder-a) + (flag "village3-extra1" 74 dm-task-reminder-a) + (flag "village1-buzzer" 75 dm-task-reminder-a) + (flag "village2-buzzer" 76 dm-task-reminder-a) + (flag "village3-buzzer" 77 dm-task-reminder-a) + (flag "cave-gnawers" 78 dm-task-reminder-a) + (flag "cave-dark-crystals" 79 dm-task-reminder-a) + (flag "cave-dark-climb" 80 dm-task-reminder-a) + (flag "cave-robot-climb" 81 dm-task-reminder-a) + (flag "cave-swing-poles" 82 dm-task-reminder-a) + (flag "cave-spider-tunnel" 83 dm-task-reminder-a) + (flag "cave-platforms" 84 dm-task-reminder-a) + (flag "cave-buzzer" 85 dm-task-reminder-a) + (flag "ogre-boss" 86 dm-task-reminder-a) + (flag "ogre-end" 87 dm-task-reminder-a) + (flag "ogre-buzzer" 88 dm-task-reminder-a) + (flag "lavatube-end" 89 dm-task-reminder-a) + (flag "lavatube-buzzer" 90 dm-task-reminder-a) + (flag "citadel-buzzer" 91 dm-task-reminder-a) + (flag "training-gimmie" 92 dm-task-reminder-a) + (flag "training-door" 93 dm-task-reminder-a) + (flag "training-climb" 94 dm-task-reminder-a) + (flag "training-buzzer" 95 dm-task-reminder-a) + (flag "village3-miner-money1" 96 dm-task-reminder-a) + (flag "village3-miner-money2" 97 dm-task-reminder-a) + (flag "village3-miner-money3" 98 dm-task-reminder-a) + (flag "village3-miner-money4" 99 dm-task-reminder-a) + (flag "village3-oracle-money1" 100 dm-task-reminder-a) + (flag "village3-oracle-money2" 101 dm-task-reminder-a) + (flag "firecanyon-assistant" 102 dm-task-reminder-a) + (flag "village2-levitator" 103 dm-task-reminder-a) + (flag "swamp-arm" 104 dm-task-reminder-a) + (flag "village3-button" 105 dm-task-reminder-a) + (flag "red-eggtop" 106 dm-task-reminder-a) + (flag "lavatube-balls" 107 dm-task-reminder-a) + (flag "lavatube-start" 108 dm-task-reminder-a) + (flag "intro" 109 dm-task-reminder-a) + (flag "ogre-secret" 110 dm-task-reminder-a) + (flag "village4-button" 111 dm-task-reminder-a) + (flag "finalboss-movies" 112 dm-task-reminder-a) + (flag "plunger-lurker-hit" 113 dm-task-reminder-a) + (flag "leaving-misty" 114 dm-task-reminder-a) + (flag "assistant-village3" 115 dm-task-reminder-a) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; 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)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-need-reminder-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-reminder" + #f + #f + (flag "jungle-eggtop" 2 dm-task-reminder) + (flag "jungle-lurkerm" 3 dm-task-reminder) + (flag "jungle-tower" 4 dm-task-reminder) + (flag "jungle-fishgame" 5 dm-task-reminder) + (flag "jungle-plant" 6 dm-task-reminder) + (flag "jungle-buzzer" 7 dm-task-reminder) + (flag "jungle-canyon-end" 8 dm-task-reminder) + (flag "jungle-temple-door" 9 dm-task-reminder) + (flag "village1-yakow" 10 dm-task-reminder) + (flag "village1-mayor-money" 11 dm-task-reminder) + (flag "village1-uncle-money" 12 dm-task-reminder) + (flag "village1-oracle-money1" 13 dm-task-reminder) + (flag "village1-oracle-money2" 14 dm-task-reminder) + (flag "beach-ecorocks" 15 dm-task-reminder) + (flag "beach-pelican" 16 dm-task-reminder) + (flag "beach-flutflut" 17 dm-task-reminder) + (flag "beach-seagull" 18 dm-task-reminder) + (flag "beach-cannon" 19 dm-task-reminder) + (flag "beach-buzzer" 20 dm-task-reminder) + (flag "beach-gimmie" 21 dm-task-reminder) + (flag "beach-sentinel" 22 dm-task-reminder) + (flag "misty-muse" 23 dm-task-reminder) + (flag "misty-boat" 24 dm-task-reminder) + (flag "misty-warehouse" 25 dm-task-reminder) + (flag "misty-cannon" 26 dm-task-reminder) + (flag "misty-bike" 27 dm-task-reminder) + (flag "misty-buzzer" 28 dm-task-reminder) + (flag "misty-bike-jump" 29 dm-task-reminder) + (flag "misty-eco-challenge" 30 dm-task-reminder) + (flag "village2-gambler-money" 31 dm-task-reminder) + (flag "village2-geologist-money" 32 dm-task-reminder) + (flag "village2-warrior-money" 33 dm-task-reminder) + (flag "village2-oracle-money1" 34 dm-task-reminder) + (flag "village2-oracle-money2" 35 dm-task-reminder) + (flag "swamp-billy" 36 dm-task-reminder) + (flag "swamp-flutflut" 37 dm-task-reminder) + (flag "swamp-battle" 38 dm-task-reminder) + (flag "swamp-tether-1" 39 dm-task-reminder) + (flag "swamp-tether-2" 40 dm-task-reminder) + (flag "swamp-tether-3" 41 dm-task-reminder) + (flag "swamp-tether-4" 42 dm-task-reminder) + (flag "swamp-buzzer" 43 dm-task-reminder) + (flag "sunken-platforms" 44 dm-task-reminder) + (flag "sunken-pipe" 45 dm-task-reminder) + (flag "sunken-slide" 46 dm-task-reminder) + (flag "sunken-room" 47 dm-task-reminder) + (flag "sunken-sharks" 48 dm-task-reminder) + (flag "sunken-buzzer" 49 dm-task-reminder) + (flag "sunken-top-of-helix" 50 dm-task-reminder) + (flag "sunken-spinning-room" 51 dm-task-reminder) + (flag "rolling-race" 52 dm-task-reminder) + (flag "rolling-robbers" 53 dm-task-reminder) + (flag "rolling-moles" 54 dm-task-reminder) + (flag "rolling-plants" 55 dm-task-reminder) + (flag "rolling-lake" 56 dm-task-reminder) + (flag "rolling-buzzer" 57 dm-task-reminder) + (flag "rolling-ring-chase-1" 58 dm-task-reminder) + (flag "rolling-ring-chase-2" 59 dm-task-reminder) + (flag "snow-eggtop" 60 dm-task-reminder) + (flag "snow-ram" 61 dm-task-reminder) + (flag "snow-fort" 62 dm-task-reminder) + (flag "snow-ball" 63 dm-task-reminder) + (flag "snow-bunnies" 64 dm-task-reminder) + (flag "snow-buzzer" 65 dm-task-reminder) + (flag "snow-bumpers" 66 dm-task-reminder) + (flag "snow-cage" 67 dm-task-reminder) + (flag "firecanyon-buzzer" 68 dm-task-reminder) + (flag "firecanyon-end" 69 dm-task-reminder) + (flag "citadel-sage-green" 70 dm-task-reminder) + (flag "citadel-sage-blue" 71 dm-task-reminder) + (flag "citadel-sage-red" 72 dm-task-reminder) + (flag "citadel-sage-yellow" 73 dm-task-reminder) + (flag "village3-extra1" 74 dm-task-reminder) + (flag "village1-buzzer" 75 dm-task-reminder) + (flag "village2-buzzer" 76 dm-task-reminder) + (flag "village3-buzzer" 77 dm-task-reminder) + (flag "cave-gnawers" 78 dm-task-reminder) + (flag "cave-dark-crystals" 79 dm-task-reminder) + (flag "cave-dark-climb" 80 dm-task-reminder) + (flag "cave-robot-climb" 81 dm-task-reminder) + (flag "cave-swing-poles" 82 dm-task-reminder) + (flag "cave-spider-tunnel" 83 dm-task-reminder) + (flag "cave-platforms" 84 dm-task-reminder) + (flag "cave-buzzer" 85 dm-task-reminder) + (flag "ogre-boss" 86 dm-task-reminder) + (flag "ogre-end" 87 dm-task-reminder) + (flag "ogre-buzzer" 88 dm-task-reminder) + (flag "lavatube-end" 89 dm-task-reminder) + (flag "lavatube-buzzer" 90 dm-task-reminder) + (flag "citadel-buzzer" 91 dm-task-reminder) + (flag "training-gimmie" 92 dm-task-reminder) + (flag "training-door" 93 dm-task-reminder) + (flag "training-climb" 94 dm-task-reminder) + (flag "training-buzzer" 95 dm-task-reminder) + (flag "village3-miner-money1" 96 dm-task-reminder) + (flag "village3-miner-money2" 97 dm-task-reminder) + (flag "village3-miner-money3" 98 dm-task-reminder) + (flag "village3-miner-money4" 99 dm-task-reminder) + (flag "village3-oracle-money1" 100 dm-task-reminder) + (flag "village3-oracle-money2" 101 dm-task-reminder) + (flag "firecanyon-assistant" 102 dm-task-reminder) + (flag "village2-levitator" 103 dm-task-reminder) + (flag "swamp-arm" 104 dm-task-reminder) + (flag "village3-button" 105 dm-task-reminder) + (flag "red-eggtop" 106 dm-task-reminder) + (flag "lavatube-balls" 107 dm-task-reminder) + (flag "lavatube-start" 108 dm-task-reminder) + (flag "intro" 109 dm-task-reminder) + (flag "ogre-secret" 110 dm-task-reminder) + (flag "village4-button" 111 dm-task-reminder) + (flag "finalboss-movies" 112 dm-task-reminder) + (flag "plunger-lurker-hit" 113 dm-task-reminder) + (flag "leaving-misty" 114 dm-task-reminder) + (flag "assistant-village3" 115 dm-task-reminder) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; 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)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-need-reward-speech-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-reward-speech" + #f + #f + (flag "jungle-eggtop" 2 dm-task-reward-speech) + (flag "jungle-lurkerm" 3 dm-task-reward-speech) + (flag "jungle-tower" 4 dm-task-reward-speech) + (flag "jungle-fishgame" 5 dm-task-reward-speech) + (flag "jungle-plant" 6 dm-task-reward-speech) + (flag "jungle-buzzer" 7 dm-task-reward-speech) + (flag "jungle-canyon-end" 8 dm-task-reward-speech) + (flag "jungle-temple-door" 9 dm-task-reward-speech) + (flag "village1-yakow" 10 dm-task-reward-speech) + (flag "village1-mayor-money" 11 dm-task-reward-speech) + (flag "village1-uncle-money" 12 dm-task-reward-speech) + (flag "village1-oracle-money1" 13 dm-task-reward-speech) + (flag "village1-oracle-money2" 14 dm-task-reward-speech) + (flag "beach-ecorocks" 15 dm-task-reward-speech) + (flag "beach-pelican" 16 dm-task-reward-speech) + (flag "beach-flutflut" 17 dm-task-reward-speech) + (flag "beach-seagull" 18 dm-task-reward-speech) + (flag "beach-cannon" 19 dm-task-reward-speech) + (flag "beach-buzzer" 20 dm-task-reward-speech) + (flag "beach-gimmie" 21 dm-task-reward-speech) + (flag "beach-sentinel" 22 dm-task-reward-speech) + (flag "misty-muse" 23 dm-task-reward-speech) + (flag "misty-boat" 24 dm-task-reward-speech) + (flag "misty-warehouse" 25 dm-task-reward-speech) + (flag "misty-cannon" 26 dm-task-reward-speech) + (flag "misty-bike" 27 dm-task-reward-speech) + (flag "misty-buzzer" 28 dm-task-reward-speech) + (flag "misty-bike-jump" 29 dm-task-reward-speech) + (flag "misty-eco-challenge" 30 dm-task-reward-speech) + (flag "village2-gambler-money" 31 dm-task-reward-speech) + (flag "village2-geologist-money" 32 dm-task-reward-speech) + (flag "village2-warrior-money" 33 dm-task-reward-speech) + (flag "village2-oracle-money1" 34 dm-task-reward-speech) + (flag "village2-oracle-money2" 35 dm-task-reward-speech) + (flag "swamp-billy" 36 dm-task-reward-speech) + (flag "swamp-flutflut" 37 dm-task-reward-speech) + (flag "swamp-battle" 38 dm-task-reward-speech) + (flag "swamp-tether-1" 39 dm-task-reward-speech) + (flag "swamp-tether-2" 40 dm-task-reward-speech) + (flag "swamp-tether-3" 41 dm-task-reward-speech) + (flag "swamp-tether-4" 42 dm-task-reward-speech) + (flag "swamp-buzzer" 43 dm-task-reward-speech) + (flag "sunken-platforms" 44 dm-task-reward-speech) + (flag "sunken-pipe" 45 dm-task-reward-speech) + (flag "sunken-slide" 46 dm-task-reward-speech) + (flag "sunken-room" 47 dm-task-reward-speech) + (flag "sunken-sharks" 48 dm-task-reward-speech) + (flag "sunken-buzzer" 49 dm-task-reward-speech) + (flag "sunken-top-of-helix" 50 dm-task-reward-speech) + (flag "sunken-spinning-room" 51 dm-task-reward-speech) + (flag "rolling-race" 52 dm-task-reward-speech) + (flag "rolling-robbers" 53 dm-task-reward-speech) + (flag "rolling-moles" 54 dm-task-reward-speech) + (flag "rolling-plants" 55 dm-task-reward-speech) + (flag "rolling-lake" 56 dm-task-reward-speech) + (flag "rolling-buzzer" 57 dm-task-reward-speech) + (flag "rolling-ring-chase-1" 58 dm-task-reward-speech) + (flag "rolling-ring-chase-2" 59 dm-task-reward-speech) + (flag "snow-eggtop" 60 dm-task-reward-speech) + (flag "snow-ram" 61 dm-task-reward-speech) + (flag "snow-fort" 62 dm-task-reward-speech) + (flag "snow-ball" 63 dm-task-reward-speech) + (flag "snow-bunnies" 64 dm-task-reward-speech) + (flag "snow-buzzer" 65 dm-task-reward-speech) + (flag "snow-bumpers" 66 dm-task-reward-speech) + (flag "snow-cage" 67 dm-task-reward-speech) + (flag "firecanyon-buzzer" 68 dm-task-reward-speech) + (flag "firecanyon-end" 69 dm-task-reward-speech) + (flag "citadel-sage-green" 70 dm-task-reward-speech) + (flag "citadel-sage-blue" 71 dm-task-reward-speech) + (flag "citadel-sage-red" 72 dm-task-reward-speech) + (flag "citadel-sage-yellow" 73 dm-task-reward-speech) + (flag "village3-extra1" 74 dm-task-reward-speech) + (flag "village1-buzzer" 75 dm-task-reward-speech) + (flag "village2-buzzer" 76 dm-task-reward-speech) + (flag "village3-buzzer" 77 dm-task-reward-speech) + (flag "cave-gnawers" 78 dm-task-reward-speech) + (flag "cave-dark-crystals" 79 dm-task-reward-speech) + (flag "cave-dark-climb" 80 dm-task-reward-speech) + (flag "cave-robot-climb" 81 dm-task-reward-speech) + (flag "cave-swing-poles" 82 dm-task-reward-speech) + (flag "cave-spider-tunnel" 83 dm-task-reward-speech) + (flag "cave-platforms" 84 dm-task-reward-speech) + (flag "cave-buzzer" 85 dm-task-reward-speech) + (flag "ogre-boss" 86 dm-task-reward-speech) + (flag "ogre-end" 87 dm-task-reward-speech) + (flag "ogre-buzzer" 88 dm-task-reward-speech) + (flag "lavatube-end" 89 dm-task-reward-speech) + (flag "lavatube-buzzer" 90 dm-task-reward-speech) + (flag "citadel-buzzer" 91 dm-task-reward-speech) + (flag "training-gimmie" 92 dm-task-reward-speech) + (flag "training-door" 93 dm-task-reward-speech) + (flag "training-climb" 94 dm-task-reward-speech) + (flag "training-buzzer" 95 dm-task-reward-speech) + (flag "village3-miner-money1" 96 dm-task-reward-speech) + (flag "village3-miner-money2" 97 dm-task-reward-speech) + (flag "village3-miner-money3" 98 dm-task-reward-speech) + (flag "village3-miner-money4" 99 dm-task-reward-speech) + (flag "village3-oracle-money1" 100 dm-task-reward-speech) + (flag "village3-oracle-money2" 101 dm-task-reward-speech) + (flag "firecanyon-assistant" 102 dm-task-reward-speech) + (flag "village2-levitator" 103 dm-task-reward-speech) + (flag "swamp-arm" 104 dm-task-reward-speech) + (flag "village3-button" 105 dm-task-reward-speech) + (flag "red-eggtop" 106 dm-task-reward-speech) + (flag "lavatube-balls" 107 dm-task-reward-speech) + (flag "lavatube-start" 108 dm-task-reward-speech) + (flag "intro" 109 dm-task-reward-speech) + (flag "ogre-secret" 110 dm-task-reward-speech) + (flag "village4-button" 111 dm-task-reward-speech) + (flag "finalboss-movies" 112 dm-task-reward-speech) + (flag "plunger-lurker-hit" 113 dm-task-reward-speech) + (flag "leaving-misty" 114 dm-task-reward-speech) + (flag "assistant-village3" 115 dm-task-reward-speech) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; 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)) +;; INFO: Return type mismatch debug-menu-node vs none. +(defun debug-menu-make-task-need-resolution-menu ((arg0 debug-menu) (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 - ) - ) - ) + arg0 + (debug-menu-make-from-template arg1 '(menu + "need-resolution" + #f + #f + (flag "jungle-eggtop" 2 dm-task-resolution) + (flag "jungle-lurkerm" 3 dm-task-resolution) + (flag "jungle-tower" 4 dm-task-resolution) + (flag "jungle-fishgame" 5 dm-task-resolution) + (flag "jungle-plant" 6 dm-task-resolution) + (flag "jungle-buzzer" 7 dm-task-resolution) + (flag "jungle-canyon-end" 8 dm-task-resolution) + (flag "jungle-temple-door" 9 dm-task-resolution) + (flag "village1-yakow" 10 dm-task-resolution) + (flag "village1-mayor-money" 11 dm-task-resolution) + (flag "village1-uncle-money" 12 dm-task-resolution) + (flag "village1-oracle-money1" 13 dm-task-resolution) + (flag "village1-oracle-money2" 14 dm-task-resolution) + (flag "beach-ecorocks" 15 dm-task-resolution) + (flag "beach-pelican" 16 dm-task-resolution) + (flag "beach-flutflut" 17 dm-task-resolution) + (flag "beach-seagull" 18 dm-task-resolution) + (flag "beach-cannon" 19 dm-task-resolution) + (flag "beach-buzzer" 20 dm-task-resolution) + (flag "beach-gimmie" 21 dm-task-resolution) + (flag "beach-sentinel" 22 dm-task-resolution) + (flag "misty-muse" 23 dm-task-resolution) + (flag "misty-boat" 24 dm-task-resolution) + (flag "misty-warehouse" 25 dm-task-resolution) + (flag "misty-cannon" 26 dm-task-resolution) + (flag "misty-bike" 27 dm-task-resolution) + (flag "misty-buzzer" 28 dm-task-resolution) + (flag "misty-bike-jump" 29 dm-task-resolution) + (flag "misty-eco-challenge" 30 dm-task-resolution) + (flag "village2-gambler-money" 31 dm-task-resolution) + (flag "village2-geologist-money" 32 dm-task-resolution) + (flag "village2-warrior-money" 33 dm-task-resolution) + (flag "village2-oracle-money1" 34 dm-task-resolution) + (flag "village2-oracle-money2" 35 dm-task-resolution) + (flag "swamp-billy" 36 dm-task-resolution) + (flag "swamp-flutflut" 37 dm-task-resolution) + (flag "swamp-battle" 38 dm-task-resolution) + (flag "swamp-tether-1" 39 dm-task-resolution) + (flag "swamp-tether-2" 40 dm-task-resolution) + (flag "swamp-tether-3" 41 dm-task-resolution) + (flag "swamp-tether-4" 42 dm-task-resolution) + (flag "swamp-buzzer" 43 dm-task-resolution) + (flag "sunken-platforms" 44 dm-task-resolution) + (flag "sunken-pipe" 45 dm-task-resolution) + (flag "sunken-slide" 46 dm-task-resolution) + (flag "sunken-room" 47 dm-task-resolution) + (flag "sunken-sharks" 48 dm-task-resolution) + (flag "sunken-buzzer" 49 dm-task-resolution) + (flag "sunken-top-of-helix" 50 dm-task-resolution) + (flag "sunken-spinning-room" 51 dm-task-resolution) + (flag "rolling-race" 52 dm-task-resolution) + (flag "rolling-robbers" 53 dm-task-resolution) + (flag "rolling-moles" 54 dm-task-resolution) + (flag "rolling-plants" 55 dm-task-resolution) + (flag "rolling-lake" 56 dm-task-resolution) + (flag "rolling-buzzer" 57 dm-task-resolution) + (flag "rolling-ring-chase-1" 58 dm-task-resolution) + (flag "rolling-ring-chase-2" 59 dm-task-resolution) + (flag "snow-eggtop" 60 dm-task-resolution) + (flag "snow-ram" 61 dm-task-resolution) + (flag "snow-fort" 62 dm-task-resolution) + (flag "snow-ball" 63 dm-task-resolution) + (flag "snow-bunnies" 64 dm-task-resolution) + (flag "snow-buzzer" 65 dm-task-resolution) + (flag "snow-bumpers" 66 dm-task-resolution) + (flag "snow-cage" 67 dm-task-resolution) + (flag "firecanyon-buzzer" 68 dm-task-resolution) + (flag "firecanyon-end" 69 dm-task-resolution) + (flag "citadel-sage-green" 70 dm-task-resolution) + (flag "citadel-sage-blue" 71 dm-task-resolution) + (flag "citadel-sage-red" 72 dm-task-resolution) + (flag "citadel-sage-yellow" 73 dm-task-resolution) + (flag "village3-extra1" 74 dm-task-resolution) + (flag "village1-buzzer" 75 dm-task-resolution) + (flag "village2-buzzer" 76 dm-task-resolution) + (flag "village3-buzzer" 77 dm-task-resolution) + (flag "cave-gnawers" 78 dm-task-resolution) + (flag "cave-dark-crystals" 79 dm-task-resolution) + (flag "cave-dark-climb" 80 dm-task-resolution) + (flag "cave-robot-climb" 81 dm-task-resolution) + (flag "cave-swing-poles" 82 dm-task-resolution) + (flag "cave-spider-tunnel" 83 dm-task-resolution) + (flag "cave-platforms" 84 dm-task-resolution) + (flag "cave-buzzer" 85 dm-task-resolution) + (flag "ogre-boss" 86 dm-task-resolution) + (flag "ogre-end" 87 dm-task-resolution) + (flag "ogre-buzzer" 88 dm-task-resolution) + (flag "lavatube-end" 89 dm-task-resolution) + (flag "lavatube-buzzer" 90 dm-task-resolution) + (flag "citadel-buzzer" 91 dm-task-resolution) + (flag "training-gimmie" 92 dm-task-resolution) + (flag "training-door" 93 dm-task-resolution) + (flag "training-climb" 94 dm-task-resolution) + (flag "training-buzzer" 95 dm-task-resolution) + (flag "village3-miner-money1" 96 dm-task-resolution) + (flag "village3-miner-money2" 97 dm-task-resolution) + (flag "village3-miner-money3" 98 dm-task-resolution) + (flag "village3-miner-money4" 99 dm-task-resolution) + (flag "village3-oracle-money1" 100 dm-task-resolution) + (flag "village3-oracle-money2" 101 dm-task-resolution) + (flag "firecanyon-assistant" 102 dm-task-resolution) + (flag "village2-levitator" 103 dm-task-resolution) + (flag "swamp-arm" 104 dm-task-resolution) + (flag "village3-button" 105 dm-task-resolution) + (flag "red-eggtop" 106 dm-task-resolution) + (flag "lavatube-balls" 107 dm-task-resolution) + (flag "lavatube-start" 108 dm-task-resolution) + (flag "intro" 109 dm-task-resolution) + (flag "ogre-secret" 110 dm-task-resolution) + (flag "village4-button" 111 dm-task-resolution) + (flag "finalboss-movies" 112 dm-task-resolution) + (flag "plunger-lurker-hit" 113 dm-task-resolution) + (flag "leaving-misty" 114 dm-task-resolution) + (flag "assistant-village3" 115 dm-task-resolution) + #f + #f + #f + #f + #f + #f + #f + #f + ) + ) ) + (none) ) ;; definition for function dm-task-get-money -(defun dm-task-get-money ((arg0 int) (arg1 int)) +(defun dm-task-get-money ((arg0 int) (arg1 debug-menu-msg)) (with-pp - (if (= arg1 4) + (if (= arg1 (debug-menu-msg press)) (send-event *target* 'get-pickup 5 (-> *GAME-bank* money-task-inc)) ) (let ((a1-2 (new 'stack-no-clear 'event-message-block))) @@ -3600,8 +3175,8 @@ ) ;; definition for function dm-give-all-cells -(defun dm-give-all-cells ((arg0 int) (arg1 int)) - (when (= arg1 4) +(defun dm-give-all-cells ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (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)) @@ -3617,145 +3192,145 @@ ;; definition for function dm-give-cell ;; INFO: Return type mismatch int vs none. -(defun dm-give-cell ((arg0 int)) +(defun dm-give-cell ((arg0 game-task)) (send-event *target* 'get-pickup 6 (the float arg0)) - (close-specific-task! (the-as game-task arg0) (task-status need-resolution)) + (close-specific-task! arg0 (task-status need-resolution)) (none) ) ;; definition for function dm-levitator-ready -(defun dm-levitator-ready ((arg0 int) (arg1 int)) - (when (= arg1 4) +(defun dm-levitator-ready ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (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) + (dm-give-cell (game-task jungle-eggtop)) + (dm-give-cell (game-task jungle-lurkerm)) + (dm-give-cell (game-task jungle-tower)) + (dm-give-cell (game-task jungle-fishgame)) + (dm-give-cell (game-task jungle-plant)) + (dm-give-cell (game-task jungle-buzzer)) + (dm-give-cell (game-task jungle-canyon-end)) + (dm-give-cell (game-task jungle-temple-door)) + (dm-give-cell (game-task village1-yakow)) + (dm-give-cell (game-task village1-mayor-money)) + (dm-give-cell (game-task village1-uncle-money)) + (dm-give-cell (game-task village1-oracle-money1)) + (dm-give-cell (game-task village1-oracle-money2)) + (dm-give-cell (game-task beach-ecorocks)) + (dm-give-cell (game-task beach-pelican)) + (dm-give-cell (game-task beach-flutflut)) + (dm-give-cell (game-task beach-seagull)) + (dm-give-cell (game-task beach-cannon)) + (dm-give-cell (game-task beach-buzzer)) + (dm-give-cell (game-task beach-gimmie)) + (dm-give-cell (game-task beach-sentinel)) + (dm-give-cell (game-task misty-muse)) + (dm-give-cell (game-task misty-boat)) + (dm-give-cell (game-task misty-warehouse)) + (dm-give-cell (game-task misty-cannon)) + (dm-give-cell (game-task misty-bike)) + (dm-give-cell (game-task misty-buzzer)) + (dm-give-cell (game-task misty-bike-jump)) + (dm-give-cell (game-task misty-eco-challenge)) + (dm-give-cell (game-task village2-gambler-money)) + (dm-give-cell (game-task village2-geologist-money)) + (dm-give-cell (game-task village2-oracle-money1)) + (dm-give-cell (game-task village2-oracle-money2)) + (dm-give-cell (game-task swamp-billy)) + (dm-give-cell (game-task swamp-flutflut)) + (dm-give-cell (game-task swamp-battle)) + (dm-give-cell (game-task swamp-tether-1)) + (dm-give-cell (game-task swamp-tether-2)) + (dm-give-cell (game-task swamp-tether-3)) + (dm-give-cell (game-task swamp-tether-4)) + (dm-give-cell (game-task swamp-buzzer)) + (dm-give-cell (game-task sunken-platforms)) + (dm-give-cell (game-task sunken-pipe)) + (dm-give-cell (game-task sunken-slide)) + (dm-give-cell (game-task sunken-room)) + (dm-give-cell (game-task sunken-sharks)) ) (= (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) +(defun dm-lavabike-ready ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (dm-give-cell (game-task jungle-eggtop)) + (dm-give-cell (game-task jungle-lurkerm)) + (dm-give-cell (game-task jungle-tower)) + (dm-give-cell (game-task jungle-fishgame)) + (dm-give-cell (game-task jungle-plant)) + (dm-give-cell (game-task jungle-buzzer)) + (dm-give-cell (game-task jungle-canyon-end)) + (dm-give-cell (game-task jungle-temple-door)) + (dm-give-cell (game-task village1-yakow)) + (dm-give-cell (game-task village1-mayor-money)) + (dm-give-cell (game-task village1-uncle-money)) + (dm-give-cell (game-task village1-oracle-money1)) + (dm-give-cell (game-task village1-oracle-money2)) + (dm-give-cell (game-task beach-ecorocks)) + (dm-give-cell (game-task beach-pelican)) + (dm-give-cell (game-task beach-flutflut)) + (dm-give-cell (game-task beach-seagull)) + (dm-give-cell (game-task beach-cannon)) + (dm-give-cell (game-task beach-buzzer)) + (dm-give-cell (game-task beach-gimmie)) + (dm-give-cell (game-task beach-sentinel)) + (dm-give-cell (game-task misty-muse)) + (dm-give-cell (game-task misty-boat)) + (dm-give-cell (game-task misty-warehouse)) + (dm-give-cell (game-task misty-cannon)) + (dm-give-cell (game-task misty-bike)) + (dm-give-cell (game-task misty-buzzer)) + (dm-give-cell (game-task misty-bike-jump)) + (dm-give-cell (game-task misty-eco-challenge)) + (dm-give-cell (game-task village2-gambler-money)) + (dm-give-cell (game-task village2-geologist-money)) + (dm-give-cell (game-task village2-warrior-money)) + (dm-give-cell (game-task village2-oracle-money1)) + (dm-give-cell (game-task village2-oracle-money2)) + (dm-give-cell (game-task swamp-billy)) + (dm-give-cell (game-task swamp-flutflut)) + (dm-give-cell (game-task swamp-battle)) + (dm-give-cell (game-task swamp-tether-1)) + (dm-give-cell (game-task swamp-tether-2)) + (dm-give-cell (game-task swamp-tether-3)) + (dm-give-cell (game-task swamp-tether-4)) + (dm-give-cell (game-task swamp-buzzer)) + (dm-give-cell (game-task sunken-platforms)) + (dm-give-cell (game-task sunken-pipe)) + (dm-give-cell (game-task sunken-slide)) + (dm-give-cell (game-task sunken-room)) + (dm-give-cell (game-task sunken-sharks)) + (dm-give-cell (game-task sunken-buzzer)) + (dm-give-cell (game-task sunken-top-of-helix)) + (dm-give-cell (game-task sunken-spinning-room)) + (dm-give-cell (game-task rolling-race)) + (dm-give-cell (game-task rolling-robbers)) + (dm-give-cell (game-task rolling-moles)) + (dm-give-cell (game-task rolling-plants)) + (dm-give-cell (game-task rolling-lake)) + (dm-give-cell (game-task rolling-buzzer)) + (dm-give-cell (game-task rolling-ring-chase-1)) + (dm-give-cell (game-task rolling-ring-chase-2)) + (dm-give-cell (game-task snow-eggtop)) + (dm-give-cell (game-task snow-ram)) + (dm-give-cell (game-task snow-fort)) + (dm-give-cell (game-task snow-ball)) + (dm-give-cell (game-task snow-bunnies)) + (dm-give-cell (game-task snow-buzzer)) + (dm-give-cell (game-task snow-bumpers)) + (dm-give-cell (game-task snow-cage)) + (dm-give-cell (game-task firecanyon-buzzer)) + (dm-give-cell (game-task firecanyon-end)) + (dm-give-cell (game-task citadel-sage-green)) + (dm-give-cell (game-task citadel-sage-blue)) + (dm-give-cell (game-task citadel-sage-red)) + (dm-give-cell (game-task citadel-sage-yellow)) + (dm-give-cell (game-task village3-extra1)) + (dm-give-cell (game-task village1-buzzer)) + (dm-give-cell (game-task village2-buzzer)) ) (= (get-task-status (game-task lavatube-start)) (task-status need-reward-speech)) ) @@ -3765,65 +3340,36 @@ (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) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "enough money" #f dm-task-get-money)) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "levitator ready" #f dm-levitator-ready)) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "lavabike ready" #f dm-lavabike-ready)) + (debug-menu-append-item s5-0 (new 'debug 'debug-menu-item-flag "all cells" #f dm-give-all-cells)) + (debug-menu-make-task-unknown-menu s5-0 arg0) + (debug-menu-make-task-need-hint-menu s5-0 arg0) + (debug-menu-make-task-need-introduction-menu s5-0 arg0) + (debug-menu-make-task-need-reminder-a-menu s5-0 arg0) + (debug-menu-make-task-need-reminder-menu s5-0 arg0) + (debug-menu-make-task-need-reward-speech-menu s5-0 arg0) + (debug-menu-make-task-need-resolution-menu 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)) +(defun dm-anim-tester-flag-func ((arg0 int) (arg1 debug-menu-msg)) (when *anim-tester* (case arg0 (('at-apply-align) - (if (= arg1 4) - (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 32)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) (anim-tester-flags fanimt5))) ) - (return (the-as object (logtest? (-> *anim-tester* 0 flags) 32))) + (return (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt5))) ) (('at-show-joint-info) - (if (= arg1 4) - (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 16)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) (anim-tester-flags fanimt4))) ) - (return (the-as object (logtest? (-> *anim-tester* 0 flags) 16))) + (return (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt4))) ) ) ) @@ -3832,7 +3378,7 @@ ;; definition for function dm-anim-tester-func ;; INFO: Return type mismatch object vs none. -(defun dm-anim-tester-func ((arg0 int)) +(defun dm-anim-tester-func ((arg0 int) (arg1 debug-menu-msg)) (if (not *anim-tester*) (anim-tester-start) ) @@ -3866,22 +3412,16 @@ ) ;; definition for function build-continue-menu -(defun build-continue-menu ((arg0 debug-menu-context)) +;; INFO: Return type mismatch debug-menu vs debug-menu-context. +(defun build-continue-menu ((arg0 debug-menu) (arg1 game-info)) (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) - ) - ) + (a1-2 (new 'debug 'debug-menu-item-flag (the-as string (-> v1-2 name)) (-> v1-2 name) dm-current-continue)) ) - (debug-menu-append-item (the-as debug-menu arg0) a1-1) + (debug-menu-append-item arg0 a1-2) ) (set! s4-0 (cdr s4-0)) ) @@ -3889,7 +3429,7 @@ (set! s5-0 (cdr s5-0)) ) ) - arg0 + (the-as debug-menu-context arg0) ) ;; definition for function debug-menu-context-make-default-menus @@ -3898,418 +3438,295 @@ (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-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 10 1 #t 1 200 1) + (float-var "Subdiv Far" far dm-subdiv-float 10 1 #t 1 200 1) + (function "Target Start" #f (lambda () (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 10 10 #t -300 1000) + (flag "Apply Align" at-apply-align dm-anim-tester-flag-func) + (flag "Show Joint Inf" at-show-joint-info dm-anim-tester-flag-func) + (function "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)) + (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 - "New Life" + ) + (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 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (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 () (initialize! *game-info* 'die (the-as game-save #f) (the-as string #f)) (none)) + (lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) + (cond + ((= arg1 (debug-menu-msg press)) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default sfx-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default sfx-volume) + ) + ) + ) + 2 + 1 + #t + 0 + 100 + 0 ) - (function - "Reset Game" + (float-var + "music-volume" #f - (lambda () - (set! (-> *game-info* mode) 'debug) - (initialize! *game-info* 'game (the-as game-save #f) (the-as string #f)) - (none) + (lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) + (cond + ((= arg1 (debug-menu-msg press)) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default music-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default music-volume) + ) + ) ) + 2 + 1 + #t + 0 + 100 + 0 ) - (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* - ) + (float-var + "dialog-volume" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg) (arg2 float)) + (cond + ((= arg1 (debug-menu-msg press)) + (let ((f0-0 arg2)) + (set! (-> *setting-control* default dialog-volume) f0-0) + f0-0 + ) + ) + (else + (-> *setting-control* default dialog-volume) + ) ) - (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)) - ) + 2 + 1 + #t + 0 + 100 + 0 + ) + (menu + "Language" + (flag "english" 0 dm-setting-language) + (flag "japanese" 5 dm-setting-language) + (flag "french" 1 dm-setting-language) + (flag "german" 2 dm-setting-language) + (flag "spanish" 3 dm-setting-language) + (flag "italian" 4 dm-setting-language) + (flag "uk-english" 6 dm-setting-language) + ) + (flag + "play-hints " + #f + (lambda ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default play-hints) (not (-> *setting-control* default play-hints))) + ) + (-> *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 + "vibration" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default vibration) (not (-> *setting-control* default vibration))) + ) + (-> *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)) - ) + ) + (flag + "border-mode" + #f + (lambda ((arg0 int) (arg1 debug-menu-msg)) + (if (= arg1 (debug-menu-msg press)) + (set! (-> *setting-control* default border-mode) (not (-> *setting-control* default border-mode))) + ) + (-> *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)) + (let ((a0-8 (debug-menu-find-from-template arg0 '("Game" "Continue")))) + (build-continue-menu a0-8 *game-info*) ) (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-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 - "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-make-from-template + arg0 + '(menu + "Render" + (flag "sky" 1 dm-vu1-user-toggle-pick-func) + (flag "ocean" 2 dm-vu1-user-toggle-pick-func) + (flag "ocean-wave" 4 dm-vu1-user-toggle-pick-func) + (flag "TFRAG TIE TEXTURES" #x1 dm-texture-user-toggle-pick-func) + (flag "tfrag" 8 dm-vu1-user-toggle-pick-func) + (flag "tie-near" 16 dm-vu1-user-toggle-pick-func) + (flag "tie" 32 dm-vu1-user-toggle-pick-func) + (flag "generic" 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" 128 dm-vu1-user-toggle-pick-func) + (flag "SHRUB TEXTURES" #x4 dm-texture-user-toggle-pick-func) + (flag "shrub-near" 512 dm-vu1-user-toggle-pick-func) + (flag "shrubbery" 256 dm-vu1-user-toggle-pick-func) + (flag "billboard" 1024 dm-vu1-user-toggle-pick-func) + (flag "trans-shrubbery" 2048 dm-vu1-user-toggle-pick-func) + (flag "ALPHA TEXTURES" 1 dm-texture-user-toggle-pick-func) + (flag "trans-tfrag" 4096 dm-vu1-user-toggle-pick-func) + (flag "sprite" 8192 dm-vu1-user-toggle-pick-func) + (flag "shadow" 16384 dm-vu1-user-toggle-pick-func) + (flag "shadow-debug" *shadow-debug* dm-boolean-toggle-pick-func) + (flag "WATER TEXTURES" 2 dm-texture-user-toggle-pick-func) + (flag "depth-cue" 32768 dm-vu1-user-toggle-pick-func) + (flag "all on" 262143 dm-vu1-user-set-pick-func) + (flag "all off" 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 - "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-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 - "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) + (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) @@ -4319,165 +3736,223 @@ (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) ) - ) + (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" 1 dm-strip-lines-toggle-pick-func) + (flag "convertible" 2 dm-strip-lines-toggle-pick-func) + (flag "edgeable" 4 dm-strip-lines-toggle-pick-func) + (flag "ordinary" 8 dm-strip-lines-toggle-pick-func) + (flag "color mismatch" 16 dm-strip-lines-toggle-pick-func) + (flag "shader mismatch" 32 dm-strip-lines-toggle-pick-func) + (flag "uv mismatch" 64 dm-strip-lines-toggle-pick-func) + (flag "too big" 128 dm-strip-lines-toggle-pick-func) + (flag "good" 3 dm-strip-lines-set-pick-func) + (flag "bad" 240 dm-strip-lines-set-pick-func) + (flag "all edges" 255 dm-strip-lines-set-pick-func) + (flag "strips" 256 dm-strip-lines-set-pick-func) + (flag "frags" 512 dm-strip-lines-set-pick-func) + (flag "none" 0 dm-strip-lines-set-pick-func) + ) + (menu + "collision mesh" + (flag "wall" 1024 dm-strip-lines-toggle-pick-func) + (flag "ground" 2048 dm-strip-lines-toggle-pick-func) + (flag "all" 3072 dm-strip-lines-set-pick-func) + (flag "none" 0 dm-strip-lines-set-pick-func) + ) + (flag "Texture 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 - "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)) + (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 + (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 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) + (if *target* + (set! (-> *target* state-flags) (logxor (-> *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)) - ) - ) - ) - ) + (the-as symbol (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 () + (if *target* + (trsq->continue-point (-> *target* control)) + ) + (none) + ) + ) + ) ) ) (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-make-from-template + arg0 + '(menu + "Subdiv" + (flag "Textured" 0 dm-subdiv-draw-func) + (flag "Outline" 1 dm-subdiv-draw-func) + (flag "Gouraud" 2 dm-subdiv-draw-func) + (flag "Hack" 3 dm-subdiv-draw-func) + ) ) ) (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-make-from-template + arg0 + '(menu + "Ocean Subdiv" + (flag "Textured" 0 dm-ocean-subdiv-draw-func) + (flag "Outline" 1 dm-ocean-subdiv-draw-func) + (flag "Gouraud" 2 dm-ocean-subdiv-draw-func) + ) ) ) (debug-menu-append-item s5-0 - (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-make-from-template + arg0 + '(menu + "Time of day" + (flag "7am sunrise" 0 dm-time-of-day-func) + (flag "9am morning" 1 dm-time-of-day-func) + (flag "12pm noon" 2 dm-time-of-day-func) + (flag "3pm afternoon" 3 dm-time-of-day-func) + (flag "6pm sunset" 4 dm-time-of-day-func) + (flag "7pm twilight" 5 dm-time-of-day-func) + (flag "11pm evening" 6 dm-time-of-day-func) + (flag "4am green sun" 7 dm-time-of-day-func) + (flag "on" 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-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)) @@ -4496,8 +3971,8 @@ '(main-menu "Popup" (flag "Cam 1" pad-1 dm-cam-externalize) - (flag "Target" #f (lambda ((arg0 int) (arg1 int)) - (when (= arg1 4) + (flag "Target" #f (lambda ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (if *target* (stop 'debug) (start 'debug (get-or-create-continue! *game-info*)) @@ -4506,8 +3981,8 @@ *target* ) ) - (flag "Game" #f (lambda ((arg0 int) (arg1 int)) - (when (= arg1 4) + (flag "Game" #f (lambda ((arg0 int) (arg1 debug-menu-msg)) + (when (= arg1 (debug-menu-msg press)) (let ((v1-3 (-> *game-info* mode))) (set! (-> *game-info* mode) (cond ((= v1-3 'play) @@ -4526,7 +4001,7 @@ (= (-> *game-info* mode) 'play) ) ) - (function "Clean" #f (lambda ((arg0 int) (arg1 int)) + (function "Clean" #f (lambda ((arg0 int) (arg1 debug-menu-msg)) (if (time-of-day-setup #f) (time-of-day-setup #t) ) diff --git a/test/decompiler/reference/engine/debug/menu_REF.gc b/test/decompiler/reference/engine/debug/menu_REF.gc index ba7c84a9c8..bb93295132 100644 --- a/test/decompiler/reference/engine/debug/menu_REF.gc +++ b/test/decompiler/reference/engine/debug/menu_REF.gc @@ -182,14 +182,14 @@ ;; definition of type debug-menu-item-function (deftype debug-menu-item-function (debug-menu-item) - ((activate-func (function int object) :offset-assert 24) - (hilite-timer int8 :offset-assert 28) + ((activate-func (function object object) :offset-assert 24) + (hilite-timer int8 :offset-assert 28) ) :method-count-assert 9 :size-assert #x1d :flag-assert #x90000001d (:methods - (new (symbol type string int (function int object)) _type_ 0) + (new (symbol type string object (function object object)) _type_ 0) ) ) @@ -207,13 +207,13 @@ ) ;; definition for method 0 of type debug-menu-item-function -(defmethod new debug-menu-item-function ((allocation symbol) (type-to-make type) (arg0 string) (arg1 int) (arg2 (function int object))) +(defmethod new debug-menu-item-function ((allocation symbol) (type-to-make type) (arg0 string) (arg1 object) (arg2 (function object object))) (let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size))))) (set! (-> v0-0 name) arg0) (set! (-> v0-0 parent) #f) (set! (-> v0-0 refresh-delay) 0) (set! (-> v0-0 refresh-ctr) (-> v0-0 refresh-delay)) - (set! (-> v0-0 id) arg1) + (set! (-> v0-0 id) (the-as int arg1)) (set! (-> v0-0 activate-func) arg2) (set! (-> v0-0 hilite-timer) 0) v0-0 @@ -222,14 +222,14 @@ ;; definition of type debug-menu-item-flag (deftype debug-menu-item-flag (debug-menu-item) - ((activate-func (function int debug-menu-msg object) :offset-assert 24) - (is-on object :offset-assert 28) + ((activate-func (function object debug-menu-msg object) :offset-assert 24) + (is-on object :offset-assert 28) ) :method-count-assert 9 :size-assert #x20 :flag-assert #x900000020 (:methods - (new (symbol type string int (function int debug-menu-msg object)) _type_ 0) + (new (symbol type string object (function object debug-menu-msg object)) _type_ 0) ) ) @@ -247,13 +247,18 @@ ) ;; definition for method 0 of type debug-menu-item-flag -(defmethod new debug-menu-item-flag ((allocation symbol) (type-to-make type) (arg0 string) (arg1 int) (arg2 (function int debug-menu-msg object))) +(defmethod new debug-menu-item-flag ((allocation symbol) + (type-to-make type) + (arg0 string) + (arg1 object) + (arg2 (function object debug-menu-msg object)) + ) (let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size))))) (set! (-> v0-0 name) arg0) (set! (-> v0-0 parent) #f) (set! (-> v0-0 refresh-delay) 23) (set! (-> v0-0 refresh-ctr) (-> v0-0 refresh-delay)) - (set! (-> v0-0 id) arg1) + (set! (-> v0-0 id) (the-as int arg1)) (set! (-> v0-0 activate-func) arg2) (set! (-> v0-0 is-on) (the-as object #f)) v0-0 @@ -578,7 +583,7 @@ ) ;; definition for function debug-menu-append-item -(defun debug-menu-append-item ((menu debug-menu) (item debug-menu-item)) +(defun debug-menu-append-item ((menu debug-menu) (item debug-menu-node)) (let* ((context (-> menu context)) (was-active (-> context is-active)) ) @@ -661,7 +666,7 @@ (while (not (null? gp-1)) (let ((a1-4 (debug-menu-make-from-template arg0 (the-as pair a1-3)))) (if a1-4 - (debug-menu-append-item s4-1 (the-as debug-menu-item a1-4)) + (debug-menu-append-item s4-1 a1-4) ) ) (set! gp-1 (cdr gp-1)) @@ -678,7 +683,7 @@ (while (not (null? gp-2)) (let ((a1-7 (debug-menu-make-from-template arg0 (the-as pair a1-6)))) (if a1-7 - (debug-menu-append-item (the-as debug-menu s5-0) (the-as debug-menu-item a1-7)) + (debug-menu-append-item (the-as debug-menu s5-0) a1-7) ) ) (set! gp-2 (cdr gp-2)) @@ -695,8 +700,8 @@ 'debug 'debug-menu-item-flag s5-1 - (the-as int (car (cdr (cdr arg1)))) - (the-as (function int debug-menu-msg object) (debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))) + (car (cdr (cdr arg1))) + (the-as (function object debug-menu-msg object) (debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))) ) ) ((or (= s4-0 0) (= s4-0 'function)) @@ -704,8 +709,8 @@ 'debug 'debug-menu-item-function s5-1 - (the-as int (car (cdr (cdr arg1)))) - (the-as (function int object) (debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))) + (car (cdr (cdr arg1))) + (the-as (function object object) (debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))) ) ) ((= s4-0 'var) diff --git a/test/decompiler/reference/engine/gfx/texture_REF.gc b/test/decompiler/reference/engine/gfx/texture_REF.gc index 51cc8e7760..b28f586fc2 100644 --- a/test/decompiler/reference/engine/gfx/texture_REF.gc +++ b/test/decompiler/reference/engine/gfx/texture_REF.gc @@ -2469,8 +2469,8 @@ ;; definition for symbol *shader-list*, type pair (define *shader-list* '()) -;; definition for symbol *edit-shader*, type int -(define *edit-shader* 0) +;; definition for symbol *edit-shader*, type texture-id +(define *edit-shader* (new 'static 'texture-id)) ;; definition for function link-texture-by-id (defun link-texture-by-id ((arg0 texture-id) (arg1 adgif-shader)) diff --git a/test/decompiler/reference/engine/level/level-info_REF.gc b/test/decompiler/reference/engine/level/level-info_REF.gc index 742af7aa27..5fb26a2b32 100644 --- a/test/decompiler/reference/engine/level/level-info_REF.gc +++ b/test/decompiler/reference/engine/level/level-info_REF.gc @@ -109,8 +109,7 @@ :disp1 'special ) ) - :tasks - '((the binteger 92) (the binteger 93) (the binteger 94) (the binteger 95)) + :tasks '(92 93 94 95) :priority 100 :load-commands '() :alt-load-commands '() @@ -250,8 +249,7 @@ :disp1 #f ) ) - :tasks - '((the binteger 10) (the binteger 11) (the binteger 12) (the binteger 13) (the binteger 14) (the binteger 75)) + :tasks '(10 11 12 13 14 75) :priority #xc8 :load-commands '() :alt-load-commands @@ -303,16 +301,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 15) - (the binteger 16) - (the binteger 17) - (the binteger 18) - (the binteger 19) - (the binteger 20) - (the binteger 21) - (the binteger 22) - ) + :tasks '(15 16 17 18 19 20 21 22) :priority 100 :load-commands '() :alt-load-commands '() @@ -363,15 +352,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 2) - (the binteger 3) - (the binteger 4) - (the binteger 5) - (the binteger 7) - (the binteger 8) - (the binteger 9) - ) + :tasks '(2 3 4 5 7 8 9) :priority 100 :load-commands '() :alt-load-commands @@ -609,16 +590,7 @@ :disp1 'special ) ) - :tasks - '((the binteger 23) - (the binteger 24) - (the binteger 25) - (the binteger 26) - (the binteger 27) - (the binteger 28) - (the binteger 29) - (the binteger 30) - ) + :tasks '(23 24 25 26 27 28 29 30) :priority 100 :load-commands '() :alt-load-commands '() @@ -686,8 +658,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 68) (the binteger 69)) + :tasks '(68 69) :priority 100 :load-commands '() :alt-load-commands '() @@ -774,8 +745,7 @@ :disp1 #f ) ) - :tasks - '((the binteger 31) (the binteger 32) (the binteger 34) (the binteger 35) (the binteger 76)) + :tasks '(31 32 34 35 76) :priority #xc8 :load-commands '() :alt-load-commands '() @@ -1154,16 +1124,7 @@ :disp1 'special-vis ) ) - :tasks - '((the binteger 36) - (the binteger 37) - (the binteger 38) - (the binteger 39) - (the binteger 40) - (the binteger 41) - (the binteger 42) - (the binteger 43) - ) + :tasks '(36 37 38 39 40 41 42 43) :priority 100 :load-commands '() :alt-load-commands '() @@ -1213,16 +1174,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 52) - (the binteger 53) - (the binteger 54) - (the binteger 55) - (the binteger 56) - (the binteger 57) - (the binteger 58) - (the binteger 59) - ) + :tasks '(52 53 54 55 56 57 58 59) :priority 100 :load-commands '() :alt-load-commands '() @@ -1308,8 +1260,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 86) (the binteger 87) (the binteger 110) (the binteger 88)) + :tasks '(86 87 110 88) :priority 100 :load-commands '() :alt-load-commands '() @@ -1396,16 +1347,7 @@ :disp1 #f ) ) - :tasks - '((the binteger 96) - (the binteger 97) - (the binteger 98) - (the binteger 99) - (the binteger 100) - (the binteger 101) - (the binteger 74) - (the binteger 77) - ) + :tasks '(96 97 98 99 100 101 74 77) :priority #xc8 :load-commands '() :alt-load-commands '() @@ -1600,16 +1542,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 60) - (the binteger 61) - (the binteger 62) - (the binteger 63) - (the binteger 64) - (the binteger 66) - (the binteger 67) - (the binteger 65) - ) + :tasks '(60 61 62 63 64 66 67 65) :priority 100 :load-commands '() :alt-load-commands '() @@ -1695,16 +1628,7 @@ :disp1 #f ) ) - :tasks - '((the binteger 78) - (the binteger 79) - (the binteger 80) - (the binteger 81) - (the binteger 82) - (the binteger 83) - (the binteger 84) - (the binteger 85) - ) + :tasks '(78 79 80 81 82 83 84 85) :priority 100 :load-commands '() :alt-load-commands '() @@ -1926,8 +1850,7 @@ :disp1 'display ) ) - :tasks - '((the binteger 89) (the binteger 90)) + :tasks '(89 90) :priority 100 :load-commands '() :alt-load-commands '() @@ -2140,8 +2063,7 @@ :disp1 #f ) ) - :tasks - '((the binteger 70) (the binteger 71) (the binteger 72) (the binteger 73) (the binteger 91)) + :tasks '(70 71 72 73 91) :priority 100 :load-commands '() :alt-load-commands '() diff --git a/test/decompiler/reference/engine/level/load-boundary-data_REF.gc b/test/decompiler/reference/engine/level/load-boundary-data_REF.gc index 03d76a4fbd..830ef602ed 100644 --- a/test/decompiler/reference/engine/level/load-boundary-data_REF.gc +++ b/test/decompiler/reference/engine/level/load-boundary-data_REF.gc @@ -28,8 +28,8 @@ 12074740.0 -19333410.0 ) - '((the binteger 6) "finalboss-fight" #f) - '((the binteger 6) "finalboss-start" #f) + '(6 "finalboss-fight" #f) + '(6 "finalboss-start" #f) ) (new 'static @@ -48,7 +48,7 @@ -13672758.0 ) '(0 #f #f) - '((the binteger 6) "snow-outside-cave" #f) + '(6 "snow-outside-cave" #f) ) (new 'static @@ -67,7 +67,7 @@ -13487760.0 ) '(0 #f #f) - '((the binteger 6) "snow-outside-fort" #f) + '(6 "snow-outside-fort" #f) ) (new 'static @@ -86,7 +86,7 @@ -14196348.0 ) '(0 #f #f) - '((the binteger 6) "snow-by-ice-lake" #f) + '(6 "snow-by-ice-lake" #f) ) (new 'static @@ -108,8 +108,8 @@ -569183.0 -33546.773 ) - '((the binteger 3) beach display) - '((the binteger 3) beach display) + '(3 beach display) + '(3 beach display) ) (new 'static @@ -129,8 +129,8 @@ 11380415.0 -18514332.0 ) - '((the binteger 6) "citadel-entrance" #f) - '((the binteger 6) "citadel-entrance" #f) + '(6 "citadel-entrance" #f) + '(6 "citadel-entrance" #f) ) (new 'static @@ -148,7 +148,7 @@ 4530877.0 -12508498.0 ) - '((the binteger 6) "maincave-to-robocave" #f) + '(6 "maincave-to-robocave" #f) '(0 #f #f) ) (new @@ -167,8 +167,8 @@ -680121.3 -6757647.5 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 special-vis) + '(3 village2 display) + '(3 village2 special-vis) ) (new 'static @@ -186,7 +186,7 @@ 12122353.0 -18877466.0 ) - '((the binteger 6) "citadel-generator-start" #f) + '(6 "citadel-generator-start" #f) '(0 #f #f) ) (new @@ -205,7 +205,7 @@ 11485550.0 -19797886.0 ) - '((the binteger 6) "citadel-plat-start" #f) + '(6 "citadel-plat-start" #f) '(0 #f #f) ) (new @@ -224,7 +224,7 @@ 10898940.0 -18972940.0 ) - '((the binteger 6) "citadel-launch-start" #f) + '(6 "citadel-launch-start" #f) '(0 #f #f) ) (new @@ -243,8 +243,8 @@ 768319.25 -2135490.8 ) - '((the binteger 3) village1 #f) - '((the binteger 3) village1 display) + '(3 village1 #f) + '(3 village1 display) ) (new 'static @@ -263,7 +263,7 @@ -3912510.8 ) '(0 #f #f) - '((the binteger 1) firecanyon village1) + '(1 firecanyon village1) ) (new 'static @@ -281,8 +281,8 @@ 10078353.0 -16477023.0 ) - '((the binteger 6) "lavatube-after-ribbon" #f) - '((the binteger 6) "lavatube-after-ribbon" #f) + '(6 "lavatube-after-ribbon" #f) + '(6 "lavatube-after-ribbon" #f) ) (new 'static @@ -300,8 +300,8 @@ 11278355.0 -18072140.0 ) - '((the binteger 6) "lavatube-end" #f) - '((the binteger 6) "lavatube-end" #f) + '(6 "lavatube-end" #f) + '(6 "lavatube-end" #f) ) (new 'static @@ -319,8 +319,8 @@ 3804332.0 -13805874.0 ) - '((the binteger 6) "ogre-end" #f) - '((the binteger 6) "ogre-end" #f) + '(6 "ogre-end" #f) + '(6 "ogre-end" #f) ) (new 'static @@ -338,8 +338,8 @@ 763242.75 -7308856.5 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 special-vis) + '(3 village2 display) + '(3 village2 special-vis) ) (new 'static @@ -361,8 +361,8 @@ 5004734.0 -12257655.0 ) - '((the binteger 3) maincave #f) - '((the binteger 3) maincave display) + '(3 maincave #f) + '(3 maincave display) ) (new 'static @@ -385,7 +385,7 @@ -12257655.0 ) '(0 #f #f) - '((the binteger 4) mai #f) + '(4 mai #f) ) (new 'static @@ -407,7 +407,7 @@ 5004734.0 -12257655.0 ) - '((the binteger 4) rob #f) + '(4 rob #f) '(0 #f #f) ) (new @@ -429,7 +429,7 @@ -18949898.0 ) '(0 #f #f) - '((the binteger 1) citadel lavatube) + '(1 citadel lavatube) ) (new 'static @@ -447,8 +447,8 @@ 11606826.0 -18673318.0 ) - '((the binteger 3) lavatube #f) - '((the binteger 3) lavatube display) + '(3 lavatube #f) + '(3 lavatube display) ) (new 'static @@ -466,7 +466,7 @@ 945858.75 -8171829.5 ) - '((the binteger 6) "ogre-race" #f) + '(6 "ogre-race" #f) '(0 #f #f) ) (new @@ -486,7 +486,7 @@ -13929350.0 ) '(0 #f #f) - '((the binteger 1) village3 lavatube) + '(1 village3 lavatube) ) (new 'static @@ -505,7 +505,7 @@ -14811145.0 ) '(0 #f #f) - '((the binteger 4) lav #f) + '(4 lav #f) ) (new 'static @@ -523,8 +523,8 @@ 4969281.0 -14637079.0 ) - '((the binteger 3) lavatube #f) - '((the binteger 3) lavatube display) + '(3 lavatube #f) + '(3 lavatube display) ) (new 'static @@ -544,7 +544,7 @@ 5078574.5 -14217605.0 ) - '((the binteger 1) village3 lavatube) + '(1 village3 lavatube) '(0 #f #f) ) (new @@ -563,8 +563,8 @@ -270673.44 160221.88 ) - '((the binteger 3) beach #f) - '((the binteger 3) beach display) + '(3 beach #f) + '(3 beach display) ) (new 'static @@ -584,8 +584,8 @@ 4712033.0 -13110535.0 ) - '((the binteger 3) village3 display) - '((the binteger 3) village3 #f) + '(3 village3 display) + '(3 village3 #f) ) (new 'static @@ -603,7 +603,7 @@ 4954258.5 -11802688.0 ) - '((the binteger 4) rob #f) + '(4 rob #f) '(0 #f #f) ) (new @@ -623,7 +623,7 @@ -12024020.0 ) '(0 #f #f) - '((the binteger 4) mai #f) + '(4 mai #f) ) (new 'static @@ -641,8 +641,8 @@ 58039.688 -6204528.0 ) - '((the binteger 3) village2 special-vis) - '((the binteger 3) village2 #f) + '(3 village2 special-vis) + '(3 village2 #f) ) (new 'static @@ -660,8 +660,8 @@ 39494.13 -6504359.5 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 special-vis) + '(3 village2 display) + '(3 village2 special-vis) ) (new 'static @@ -679,8 +679,8 @@ -667642.5 -6660005.5 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 special-vis) + '(3 village2 display) + '(3 village2 special-vis) ) (new 'static @@ -698,8 +698,8 @@ 1622619.2 -978791.7 ) - '((the binteger 3) village1 special-vis) - '((the binteger 3) village1 #f) + '(3 village1 special-vis) + '(3 village1 #f) ) (new 'static @@ -733,8 +733,8 @@ -1249669.5 -2319393.8 ) - '((the binteger 3) village1 display) - '((the binteger 3) village1 special-vis) + '(3 village1 display) + '(3 village1 special-vis) ) (new 'static @@ -753,7 +753,7 @@ -12507810.0 ) '(0 #f #f) - '((the binteger 1) maincave darkcave) + '(1 maincave darkcave) ) (new 'static @@ -771,7 +771,7 @@ 4529194.0 -12512575.0 ) - '((the binteger 1) maincave robocave) + '(1 maincave robocave) '(0 #f #f) ) (new @@ -790,8 +790,8 @@ 4589708.5 -13556925.0 ) - '((the binteger 3) maincave #f) - '((the binteger 3) maincave display) + '(3 maincave #f) + '(3 maincave display) ) (new 'static @@ -810,7 +810,7 @@ -7215005.0 ) '(0 #f #f) - '((the binteger 6) "sunkenb-helix" #f) + '(6 "sunkenb-helix" #f) ) (new 'static @@ -832,7 +832,7 @@ 4353558.0 -14051260.0 ) - '((the binteger 1) village3 ogre) + '(1 village3 ogre) '(0 #f #f) ) (new @@ -851,7 +851,7 @@ 4117809.5 -13471865.0 ) - '((the binteger 4) vi3 #f) + '(4 vi3 #f) '(0 #f #f) ) (new @@ -871,7 +871,7 @@ -13723764.0 ) '(0 #f #f) - '((the binteger 4) ogr #f) + '(4 ogr #f) ) (new 'static @@ -894,7 +894,7 @@ -7385641.0 ) '(0 #f #f) - '((the binteger 4) sun #f) + '(4 sun #f) ) (new 'static @@ -912,8 +912,8 @@ 3057429.0 -6862769.0 ) - '((the binteger 6) "sunken1" #f) - '((the binteger 6) "sunken2" #f) + '(6 "sunken1" #f) + '(6 "sunken2" #f) ) (new 'static @@ -931,8 +931,8 @@ 2389408.2 -6532305.5 ) - '((the binteger 3) village2 #f) - '((the binteger 3) village2 display) + '(3 village2 #f) + '(3 village2 display) ) (new 'static @@ -952,7 +952,7 @@ 1846512.6 -7685321.0 ) - '((the binteger 6) "swamp-start" #f) + '(6 "swamp-start" #f) '(0 #f #f) ) (new @@ -971,7 +971,7 @@ 2639106.8 -8402343.0 ) - '((the binteger 6) "swamp-game" #f) + '(6 "swamp-game" #f) '(0 #f #f) ) (new @@ -990,7 +990,7 @@ 1610530.4 -8198038.0 ) - '((the binteger 6) "swamp-cave1" #f) + '(6 "swamp-cave1" #f) '(0 #f #f) ) (new @@ -1013,7 +1013,7 @@ 428069.8 3364700.5 ) - '((the binteger 6) "misty-start" #f) + '(6 "misty-start" #f) '(0 #f #f) ) (new @@ -1038,7 +1038,7 @@ -883808.56 3444019.2 ) - '((the binteger 6) "misty-silo" #f) + '(6 "misty-silo" #f) '(0 #f #f) ) (new @@ -1062,7 +1062,7 @@ -6774793.5 ) '(0 #f #f) - '((the binteger 4) vi2 #f) + '(4 vi2 #f) ) (new 'static @@ -1084,7 +1084,7 @@ 2284159.5 -6774793.5 ) - '((the binteger 4) sun #f) + '(4 sun #f) '(0 #f #f) ) (new @@ -1103,7 +1103,7 @@ 1663485.5 -7296843.5 ) - '((the binteger 4) vi2 #f) + '(4 vi2 #f) '(0 #f #f) ) (new @@ -1122,7 +1122,7 @@ 1914029.8 -7344404.5 ) - '((the binteger 4) swa #f) + '(4 swa #f) '(0 #f #f) ) (new @@ -1141,8 +1141,8 @@ 1888000.6 -7230796.5 ) - '((the binteger 3) swamp display) - '((the binteger 3) swamp #f) + '(3 swamp display) + '(3 swamp #f) ) (new 'static @@ -1164,7 +1164,7 @@ 1929451.4 -7131590.5 ) - '((the binteger 1) village2 swamp) + '(1 village2 swamp) '(0 #f #f) ) (new @@ -1185,7 +1185,7 @@ 774879.44 -6780504.5 ) - '((the binteger 4) rol #f) + '(4 rol #f) '(0 #f #f) ) (new @@ -1206,7 +1206,7 @@ 468429.44 -6424190.5 ) - '((the binteger 4) vi2 #f) + '(4 vi2 #f) '(0 #f #f) ) (new @@ -1225,7 +1225,7 @@ -239475.86 -332696.8 ) - '((the binteger 4) vi1 #f) + '(4 vi1 #f) '(0 #f #f) ) (new @@ -1256,8 +1256,8 @@ -1338912.4 229231.64 ) - '((the binteger 3) beach #f) - '((the binteger 3) beach display-no-wait) + '(3 beach #f) + '(3 beach display-no-wait) ) (new 'static @@ -1275,8 +1275,8 @@ -130347.68 -500937.6 ) - '((the binteger 3) firecanyon display) - '((the binteger 3) firecanyon #f) + '(3 firecanyon display) + '(3 firecanyon #f) ) (new 'static @@ -1307,7 +1307,7 @@ -1275753.6 ) '(0 #f #f) - '((the binteger 4) jun #f) + '(4 jun #f) ) (new 'static @@ -1325,7 +1325,7 @@ 842849.06 -804235.94 ) - '((the binteger 4) vi1 #f) + '(4 vi1 #f) '(0 #f #f) ) (new @@ -1344,7 +1344,7 @@ 1767576.5 1188691.0 ) - '((the binteger 4) jun #f) + '(4 jun #f) '(0 #f #f) ) (new @@ -1367,7 +1367,7 @@ 1232901.1 1021193.6 ) - '((the binteger 1) village1 jungle) + '(1 village1 jungle) '(0 #f #f) ) (new @@ -1388,8 +1388,8 @@ 470693.25 -460100.72 ) - '((the binteger 3) jungle display-no-wait) - '((the binteger 3) jungle #f) + '(3 jungle display-no-wait) + '(3 jungle #f) ) (new 'static @@ -1419,7 +1419,7 @@ 1464112.8 -1010652.75 ) - '((the binteger 1) jungle jungleb) + '(1 jungle jungleb) '(0 #f #f) ) (new @@ -1440,7 +1440,7 @@ -4327.104 -433914.72 ) - '((the binteger 1) village1 firecanyon) + '(1 village1 firecanyon) '(0 #f #f) ) (new @@ -1466,7 +1466,7 @@ 711968.75 ) '(0 #f #f) - '((the binteger 1) village1 beach) + '(1 village1 beach) ) (new 'static @@ -1484,8 +1484,8 @@ 420024.44 -4609727.0 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 #f) + '(3 village2 display) + '(3 village2 #f) ) (new 'static @@ -1503,7 +1503,7 @@ -50913.258 -4000428.0 ) - '((the binteger 1) village2 firecanyon) + '(1 village2 firecanyon) '(0 #f #f) ) (new @@ -1522,7 +1522,7 @@ -126883.84 -507940.1 ) - '((the binteger 4) fic #f) + '(4 fic #f) '(0 #f #f) ) (new @@ -1541,7 +1541,7 @@ -351702.84 -248529.5 ) - '((the binteger 4) bea #f) + '(4 bea #f) '(0 #f #f) ) (new @@ -1561,7 +1561,7 @@ -196373.8 ) '(0 #f #f) - '((the binteger 4) vi1 #f) + '(4 vi1 #f) ) (new 'static @@ -1579,7 +1579,7 @@ 1543875.5 -6043701.0 ) - '((the binteger 4) vi2 #f) + '(4 vi2 #f) '(0 #f #f) ) (new @@ -1598,7 +1598,7 @@ 1298001.9 -5991312.0 ) - '((the binteger 4) fic #f) + '(4 fic #f) '(0 #f #f) ) (new @@ -1626,7 +1626,7 @@ -6036264.5 ) '(0 #f #f) - '((the binteger 1) village2 rolling) + '(1 village2 rolling) ) (new 'static @@ -1650,8 +1650,8 @@ 643162.44 -6208203.0 ) - '((the binteger 3) rolling #f) - '((the binteger 3) rolling display-no-wait) + '(3 rolling #f) + '(3 rolling display-no-wait) ) (new 'static @@ -1673,7 +1673,7 @@ 1541163.8 -7418157.0 ) - '((the binteger 1) village2 ogre) + '(1 village2 ogre) '(0 #f #f) ) (new @@ -1694,8 +1694,8 @@ 912550.5 -7099027.5 ) - '((the binteger 3) ogre #f) - '((the binteger 3) ogre display) + '(3 ogre #f) + '(3 ogre display) ) (new 'static @@ -1713,7 +1713,7 @@ 920252.2 -7300986.5 ) - '((the binteger 4) ogr #f) + '(4 ogr #f) '(0 #f #f) ) (new @@ -1732,7 +1732,7 @@ 934710.06 -7195729.5 ) - '((the binteger 4) vi2 #f) + '(4 vi2 #f) '(0 #f #f) ) (new @@ -1755,7 +1755,7 @@ 2177376.0 -6131660.5 ) - '((the binteger 1) village2 sunken) + '(1 village2 sunken) '(0 #f #f) ) (new @@ -1778,8 +1778,8 @@ 2270167.8 -6228972.5 ) - '((the binteger 3) sunken special) - '((the binteger 3) sunken #f) + '(3 sunken special) + '(3 sunken #f) ) (new 'static @@ -1809,8 +1809,8 @@ 1464112.8 -1010652.75 ) - '((the binteger 3) jungleb display) - '((the binteger 3) jungleb #f) + '(3 jungleb display) + '(3 jungleb #f) ) (new 'static @@ -1840,7 +1840,7 @@ 1464112.8 -1010652.75 ) - '((the binteger 4) jub #f) + '(4 jub #f) '(0 #f #f) ) (new @@ -1859,7 +1859,7 @@ 236215.77 4114074.5 ) - '((the binteger 6) "misty-bike" #f) + '(6 "misty-bike" #f) '(0 #f #f) ) (new @@ -1878,7 +1878,7 @@ -376094.4 4748463.0 ) - '((the binteger 6) "misty-backside" #f) + '(6 "misty-backside" #f) '(0 #f #f) ) (new @@ -1901,7 +1901,7 @@ -1025873.2 4087144.5 ) - '((the binteger 6) "misty-silo2" #f) + '(6 "misty-silo2" #f) '(0 #f #f) ) (new @@ -1920,7 +1920,7 @@ 1975421.4 -8528661.0 ) - '((the binteger 6) "swamp-cave2" #f) + '(6 "swamp-cave2" #f) '(0 #f #f) ) (new @@ -1943,7 +1943,7 @@ 1993817.2 -7976457.0 ) - '((the binteger 6) "swamp-cave3" #f) + '(6 "swamp-cave3" #f) '(0 #f #f) ) (new @@ -1968,7 +1968,7 @@ 1219588.5 -6039556.5 ) - '((the binteger 1) firecanyon village2) + '(1 firecanyon village2) '(0 #f #f) ) (new @@ -1989,8 +1989,8 @@ 1420048.6 -6125594.0 ) - '((the binteger 3) firecanyon display) - '((the binteger 3) firecanyon #f) + '(3 firecanyon display) + '(3 firecanyon #f) ) (new 'static @@ -2008,8 +2008,8 @@ 2815001.5 -7150704.5 ) - '((the binteger 3) sunkenb display) - '((the binteger 3) sunkenb #f) + '(3 sunkenb display) + '(3 sunkenb #f) ) (new 'static @@ -2027,8 +2027,8 @@ 2080828.8 -6613302.0 ) - '((the binteger 4) sun #f) - '((the binteger 4) sub #f) + '(4 sun #f) + '(4 sub #f) ) (new 'static @@ -2046,8 +2046,8 @@ 3000425.2 -6456572.0 ) - '((the binteger 6) "sunken1" #f) - '((the binteger 6) "sunken-start" #f) + '(6 "sunken1" #f) + '(6 "sunken-start" #f) ) (new 'static @@ -2070,7 +2070,7 @@ -7385641.0 ) '(0 #f #f) - '((the binteger 6) "sunken2" #f) + '(6 "sunken2" #f) ) (new 'static @@ -2088,8 +2088,8 @@ 2434369.8 -13646915.0 ) - '((the binteger 3) village3 display) - '((the binteger 3) village3 #f) + '(3 village3 display) + '(3 village3 #f) ) (new 'static @@ -2107,8 +2107,8 @@ 4474615.5 -13949533.0 ) - '((the binteger 3) ogre #f) - '((the binteger 3) ogre display) + '(3 ogre #f) + '(3 ogre display) ) (new 'static @@ -2129,7 +2129,7 @@ -13951485.0 ) '(0 #f #f) - '((the binteger 1) village3 maincave) + '(1 village3 maincave) ) (new 'static @@ -2147,7 +2147,7 @@ 4538566.5 -13427408.0 ) - '((the binteger 4) vi3 #f) + '(4 vi3 #f) '(0 #f #f) ) (new @@ -2167,7 +2167,7 @@ -13195000.0 ) '(0 #f #f) - '((the binteger 4) mai #f) + '(4 mai #f) ) (new 'static @@ -2185,8 +2185,8 @@ 4969636.0 -12062795.0 ) - '((the binteger 3) robocave display) - '((the binteger 3) robocave #f) + '(3 robocave display) + '(3 robocave #f) ) (new 'static @@ -2204,8 +2204,8 @@ 3956508.8 -12221835.0 ) - '((the binteger 3) darkcave display) - '((the binteger 3) darkcave #f) + '(3 darkcave display) + '(3 darkcave #f) ) (new 'static @@ -2225,8 +2225,8 @@ 1963614.9 -752705.06 ) - '((the binteger 3) village1 special-vis) - '((the binteger 3) village1 display) + '(3 village1 special-vis) + '(3 village1 display) ) (new 'static @@ -2246,8 +2246,8 @@ 1490514.9 -1133170.4 ) - '((the binteger 3) village1 #f) - '((the binteger 3) village1 special-vis) + '(3 village1 #f) + '(3 village1 special-vis) ) (new 'static @@ -2265,8 +2265,8 @@ 1611146.1 -1038699.56 ) - '((the binteger 3) village1 #f) - '((the binteger 3) village1 display) + '(3 village1 #f) + '(3 village1 display) ) (new 'static @@ -2286,8 +2286,8 @@ -462479.25 -5758803.0 ) - '((the binteger 3) village2 special-vis) - '((the binteger 3) village2 #f) + '(3 village2 special-vis) + '(3 village2 #f) ) (new 'static @@ -2305,8 +2305,8 @@ -652583.3 -7045665.0 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 special-vis) + '(3 village2 display) + '(3 village2 special-vis) ) (new 'static @@ -2329,7 +2329,7 @@ -14619070.0 ) '(0 #f #f) - '((the binteger 1) village3 snow) + '(1 village3 snow) ) (new 'static @@ -2351,8 +2351,8 @@ 4466017.5 -14619070.0 ) - '((the binteger 3) snow #f) - '((the binteger 3) snow display) + '(3 snow #f) + '(3 snow display) ) (new 'static @@ -2372,7 +2372,7 @@ 4965741.5 -12733760.0 ) - '((the binteger 1) village3 maincave) + '(1 village3 maincave) '(0 #f #f) ) (new @@ -2392,7 +2392,7 @@ -12180870.0 ) '(0 #f #f) - '((the binteger 4) mai #f) + '(4 mai #f) ) (new 'static @@ -2410,7 +2410,7 @@ 3919676.8 -12152098.0 ) - '((the binteger 4) dar #f) + '(4 dar #f) '(0 #f #f) ) (new @@ -2435,8 +2435,8 @@ 1151230.6 -1642343.9 ) - '((the binteger 3) village1 display) - '((the binteger 3) village1 special-vis) + '(3 village1 display) + '(3 village1 special-vis) ) (new 'static @@ -2460,8 +2460,8 @@ 1350810.2 -7725342.0 ) - '((the binteger 3) village2 display) - '((the binteger 3) village2 special-vis) + '(3 village2 display) + '(3 village2 special-vis) ) (new 'static @@ -2480,7 +2480,7 @@ -14048015.0 ) '(0 #f #f) - '((the binteger 4) sno #f) + '(4 sno #f) ) (new 'static @@ -2498,8 +2498,8 @@ 4969281.0 -14637079.0 ) - '((the binteger 3) lavatube #f) - '((the binteger 3) lavatube display) + '(3 lavatube #f) + '(3 lavatube display) ) (new 'static @@ -2517,7 +2517,7 @@ 4946641.5 -14744985.0 ) - '((the binteger 4) vi3 #f) + '(4 vi3 #f) '(0 #f #f) ) (new @@ -2537,7 +2537,7 @@ -14811145.0 ) '(0 #f #f) - '((the binteger 4) lav #f) + '(4 lav #f) ) (new 'static @@ -2555,8 +2555,8 @@ 6450754.5 -13712894.0 ) - '((the binteger 3) village3 #f) - '((the binteger 3) village3 display) + '(3 village3 #f) + '(3 village3 display) ) (new 'static @@ -2574,7 +2574,7 @@ 4331064.0 -14524060.0 ) - '((the binteger 1) village3 maincave) + '(1 village3 maincave) '(0 #f #f) ) (new @@ -2593,8 +2593,8 @@ 2427817.5 -13884534.0 ) - '((the binteger 6) "snow-across-from-flut" #f) - '((the binteger 6) "snow-flut-flut" #f) + '(6 "snow-across-from-flut" #f) + '(6 "snow-flut-flut" #f) ) (new 'static @@ -2617,7 +2617,7 @@ -13758485.0 ) '(0 #f #f) - '((the binteger 6) "snow-outside-fort" #f) + '(6 "snow-outside-fort" #f) ) (new 'static @@ -2635,7 +2635,7 @@ 1703776.4 -13157055.0 ) - '((the binteger 1) ogre village3) + '(1 ogre village3) '(0 #f #f) ) (new @@ -2654,8 +2654,8 @@ 11019460.0 -18143272.0 ) - '((the binteger 3) citadel display) - '((the binteger 3) citadel #f) + '(3 citadel display) + '(3 citadel #f) ) (new 'static @@ -2674,7 +2674,7 @@ -18123988.0 ) '(0 #f #f) - '((the binteger 4) lav #f) + '(4 lav #f) ) (new 'static @@ -2692,7 +2692,7 @@ 11616860.0 -18607858.0 ) - '((the binteger 4) cit #f) + '(4 cit #f) '(0 #f #f) ) (new @@ -2711,7 +2711,7 @@ 10052340.0 -16500909.0 ) - '((the binteger 1) lavatube citadel) + '(1 lavatube citadel) '(0 #f #f) ) (new @@ -2735,7 +2735,7 @@ -19841458.0 ) '(0 #f #f) - '((the binteger 1) citadel finalboss) + '(1 citadel finalboss) ) (new 'static @@ -2757,7 +2757,7 @@ 11992955.0 -19068516.0 ) - '((the binteger 1) citadel lavatube) + '(1 citadel lavatube) '(0 #f #f) ) (new @@ -2780,7 +2780,7 @@ 11646273.0 -19462514.0 ) - '((the binteger 4) cit #f) + '(4 cit #f) '(0 #f #f) ) (new @@ -2804,7 +2804,7 @@ -19462514.0 ) '(0 #f #f) - '((the binteger 4) fin #f) + '(4 fin #f) ) (new 'static @@ -2822,7 +2822,7 @@ 2730103.5 -7108117.5 ) - '((the binteger 6) "sunken-tube1" #f) + '(6 "sunken-tube1" #f) '(0 #f #f) ) (new @@ -2842,7 +2842,7 @@ -12480849.0 ) '(0 #f #f) - '((the binteger 6) "maincave-to-darkcave" #f) + '(6 "maincave-to-darkcave" #f) ) (new 'static @@ -2860,8 +2860,8 @@ 1309181.4 -8143856.5 ) - '((the binteger 6) "swamp-dock1" #f) - '((the binteger 6) "swamp-start" #f) + '(6 "swamp-dock1" #f) + '(6 "swamp-start" #f) ) (new 'static @@ -2879,8 +2879,8 @@ 1575238.2 -8380055.5 ) - '((the binteger 6) "swamp-dock2" #f) - '((the binteger 6) "swamp-cave1" #f) + '(6 "swamp-dock2" #f) + '(6 "swamp-cave1" #f) ) (new 'static @@ -2898,8 +2898,8 @@ 1161522.8 -5738810.0 ) - '((the binteger 6) "firecanyon-end" #f) - '((the binteger 6) "firecanyon-end" #f) + '(6 "firecanyon-end" #f) + '(6 "firecanyon-end" #f) ) (new 'static @@ -2917,8 +2917,8 @@ 49935.15 -742140.3 ) - '((the binteger 6) "firecanyon-start" #f) - '((the binteger 6) "firecanyon-start" #f) + '(6 "firecanyon-start" #f) + '(6 "firecanyon-start" #f) ) (new 'static @@ -2936,8 +2936,8 @@ 644078.75 -8259235.5 ) - '((the binteger 6) "ogre-race" #f) - '((the binteger 6) "ogre-race" #f) + '(6 "ogre-race" #f) + '(6 "ogre-race" #f) ) (new 'static @@ -2955,8 +2955,8 @@ 5457999.0 -14391688.0 ) - '((the binteger 6) "lavatube-start" #f) - '((the binteger 6) "lavatube-start" #f) + '(6 "lavatube-start" #f) + '(6 "lavatube-start" #f) ) (new 'static @@ -2974,8 +2974,8 @@ 9096633.0 -13873403.0 ) - '((the binteger 6) "lavatube-middle" #f) - '((the binteger 6) "lavatube-middle" #f) + '(6 "lavatube-middle" #f) + '(6 "lavatube-middle" #f) ) (new 'static @@ -2993,7 +2993,7 @@ 5324678.0 -11402115.0 ) - '((the binteger 6) "robocave-bottom" #f) + '(6 "robocave-bottom" #f) '(0 #f #f) ) (new @@ -3012,8 +3012,8 @@ 2987056.5 -6462185.5 ) - '((the binteger 1) sunken sunkenb) - '((the binteger 1) sunken village2) + '(1 sunken sunkenb) + '(1 sunken village2) ) (new 'static @@ -3031,7 +3031,7 @@ 10991630.0 -19494320.0 ) - '((the binteger 6) "citadel-launch-end" #f) + '(6 "citadel-launch-end" #f) '(0 #f #f) ) (new @@ -3050,7 +3050,7 @@ 11230883.0 -19653924.0 ) - '((the binteger 6) "citadel-plat-end" #f) + '(6 "citadel-plat-end" #f) '(0 #f #f) ) (new @@ -3069,7 +3069,7 @@ 11856455.0 -19580640.0 ) - '((the binteger 6) "citadel-generator-end" #f) + '(6 "citadel-generator-end" #f) '(0 #f #f) ) (new @@ -3088,8 +3088,8 @@ 3489005.0 -13470209.0 ) - '((the binteger 6) "snow-outside-fort" #f) - '((the binteger 6) "snow-fort" #f) + '(6 "snow-outside-fort" #f) + '(6 "snow-fort" #f) ) (new 'static @@ -3109,8 +3109,8 @@ -911788.4 -6482925.0 ) - '((the binteger 3) village2 special-vis) - '((the binteger 3) village2 #f) + '(3 village2 special-vis) + '(3 village2 #f) ) (new 'static @@ -3128,8 +3128,8 @@ -802274.3 -6692809.0 ) - '((the binteger 3) village2 #f) - '((the binteger 3) village2 special-vis) + '(3 village2 #f) + '(3 village2 special-vis) ) (new 'static @@ -3147,7 +3147,7 @@ 777812.4 -117024.52 ) - '((the binteger 3) jungle display) + '(3 jungle display) '(0 #f #f) ) (new @@ -3168,7 +3168,7 @@ 1041836.25 -6827792.0 ) - '((the binteger 3) rolling display) + '(3 rolling display) '(0 #f #f) ) (new @@ -3188,7 +3188,7 @@ -9043683.0 ) '(0 #f #f) - '((the binteger 1) ogre village2) + '(1 ogre village2) ) (new 'static @@ -3212,8 +3212,8 @@ 5148654.0 -11322573.0 ) - '((the binteger 3) maincave special) - '((the binteger 3) maincave display) + '(3 maincave special) + '(3 maincave display) ) (new 'static @@ -3231,8 +3231,8 @@ 11398090.0 -19190674.0 ) - '((the binteger 3) finalboss #f) - '((the binteger 3) finalboss display) + '(3 finalboss #f) + '(3 finalboss display) ) (new 'static @@ -3254,8 +3254,8 @@ 11646273.0 -19462514.0 ) - '((the binteger 3) citadel display) - '((the binteger 3) citadel special) + '(3 citadel display) + '(3 citadel special) ) (new 'static @@ -3273,8 +3273,8 @@ 11604685.0 -18827730.0 ) - '((the binteger 6) "citadel-start" #f) - '((the binteger 6) "citadel-start" #f) + '(6 "citadel-start" #f) + '(6 "citadel-start" #f) ) (new 'static @@ -3297,7 +3297,7 @@ -13804749.0 ) '(0 #f #f) - '((the binteger 6) "snow-pass-to-fort" #f) + '(6 "snow-pass-to-fort" #f) ) (new 'static @@ -3315,7 +3315,7 @@ 3128871.8 -14038774.0 ) - '((the binteger 6) "snow-by-ice-lake-alt" #f) + '(6 "snow-by-ice-lake-alt" #f) '(0 #f #f) ) (new @@ -3334,7 +3334,7 @@ 3362401.8 -13489235.0 ) - '((the binteger 6) "snow-outside-fort" #f) + '(6 "snow-outside-fort" #f) '(0 #f #f) ) (new @@ -3353,8 +3353,8 @@ 1006257.0 -6823930.5 ) - '((the binteger 6) "village2-start" #f) - '((the binteger 6) "village2-dock" #f) + '(6 "village2-start" #f) + '(6 "village2-dock" #f) ) (new 'static @@ -3376,8 +3376,8 @@ 4466017.5 -14619070.0 ) - '((the binteger 4) vi3 #f) - '((the binteger 3) snow display) + '(4 vi3 #f) + '(3 snow display) ) (new 'static @@ -3396,7 +3396,7 @@ -14560723.0 ) '(0 #f #f) - '((the binteger 6) "village3-farside" #f) + '(6 "village3-farside" #f) ) (new 'static @@ -3415,7 +3415,7 @@ -14334280.0 ) '(0 #f #f) - '((the binteger 6) "village3-farside" #f) + '(6 "village3-farside" #f) ) (new 'static @@ -3433,7 +3433,7 @@ 4595041.0 -13553850.0 ) - '((the binteger 6) "village3-farside" #f) + '(6 "village3-farside" #f) '(0 #f #f) ) (new @@ -3453,7 +3453,7 @@ -14064108.0 ) '(0 #f #f) - '((the binteger 6) "village3-start" #f) + '(6 "village3-start" #f) ) (new 'static @@ -3473,7 +3473,7 @@ 4706984.5 -13037610.0 ) - '((the binteger 6) "maincave-start" #f) + '(6 "maincave-start" #f) '(0 #f #f) ) ) diff --git a/test/decompiler/reference/kernel/gcommon_REF.gc b/test/decompiler/reference/kernel/gcommon_REF.gc index d312d64f01..9358f29246 100644 --- a/test/decompiler/reference/kernel/gcommon_REF.gc +++ b/test/decompiler/reference/kernel/gcommon_REF.gc @@ -414,12 +414,12 @@ (let ((iter lst)) (while (not (or (null? (cdr iter)) (not (pair? (cdr iter))))) (let* ((first-elt (car iter)) - (seoncd-elt (car (cdr iter))) - (compare-result (compare-func first-elt seoncd-elt)) + (second-elt (car (cdr iter))) + (compare-result (compare-func first-elt second-elt)) ) (when (and (or (not compare-result) (> (the-as int compare-result) 0)) (!= compare-result #t)) (+! unsorted-count 1) - (set! (car iter) seoncd-elt) + (set! (car iter) second-elt) (set! (car (cdr iter)) first-elt) ) ) diff --git a/test/decompiler/reference/levels/beach/beach-rocks_REF.gc b/test/decompiler/reference/levels/beach/beach-rocks_REF.gc index bdae027bf6..2fcc54bc3f 100644 --- a/test/decompiler/reference/levels/beach/beach-rocks_REF.gc +++ b/test/decompiler/reference/levels/beach/beach-rocks_REF.gc @@ -465,7 +465,7 @@ :index 4 :parts 4 :command-list - '(((the binteger -150) blackout (the binteger 100)) ((the binteger -116) blackout 0)) + '((-150 blackout 100) (-116 blackout 0)) ) (the-as art-joint-anim (-> self draw art-group data 2)) (the-as art-joint-anim (-> self draw art-group data 3)) diff --git a/test/decompiler/reference/levels/beach/bird-lady-beach_REF.gc b/test/decompiler/reference/levels/beach/bird-lady-beach_REF.gc index c91c3640d7..f45e67538b 100644 --- a/test/decompiler/reference/levels/beach/bird-lady-beach_REF.gc +++ b/test/decompiler/reference/levels/beach/bird-lady-beach_REF.gc @@ -97,12 +97,7 @@ :index 4 :parts 10 :command-list - '(((the binteger 141) joint "cameraB") - ((the binteger 535) joint "camera") - ((the binteger 696) joint "cameraB") - ((the binteger 758) joint "camera") - ((the binteger 813) joint "cameraB") - ) + '((141 joint "cameraB") (535 joint "camera") (696 joint "cameraB") (758 joint "camera") (813 joint "cameraB")) ) ) (else diff --git a/test/decompiler/reference/levels/beach/bird-lady_REF.gc b/test/decompiler/reference/levels/beach/bird-lady_REF.gc index ed9119ab64..0241de9247 100644 --- a/test/decompiler/reference/levels/beach/bird-lady_REF.gc +++ b/test/decompiler/reference/levels/beach/bird-lady_REF.gc @@ -83,25 +83,25 @@ :parts 11 :command-list '((0 want-levels village1 beach) - ((the binteger 49) joint "cameraB") - ((the binteger 101) display-level beach special) - ((the binteger 101) kill "yakow-8") - ((the binteger 101) kill "yakow-9") - ((the binteger 101) kill "yakow-10") - ((the binteger 101) kill "yakow-11") - ((the binteger 101) kill "yakow-12") - ((the binteger 102) joint "camera") - ((the binteger 125) joint "cameraB") - ((the binteger 251) joint "camera") - ((the binteger 326) joint "cameraB") - ((the binteger 649) display-level beach movie) - ((the binteger 649) want-force-vis beach #t) - ((the binteger 650) alive "flutflutegg-1") - ((the binteger 651) joint "camera") - ((the binteger 1041) joint "cameraB") - ((the binteger 1046) dead "flutflutegg-1") - ((the binteger 1046) display-level beach display) - ((the binteger 1046) want-force-vis beach #f) + (49 joint "cameraB") + (101 display-level beach special) + (101 kill "yakow-8") + (101 kill "yakow-9") + (101 kill "yakow-10") + (101 kill "yakow-11") + (101 kill "yakow-12") + (102 joint "camera") + (125 joint "cameraB") + (251 joint "camera") + (326 joint "cameraB") + (649 display-level beach movie) + (649 want-force-vis beach #t) + (650 alive "flutflutegg-1") + (651 joint "camera") + (1041 joint "cameraB") + (1046 dead "flutflutegg-1") + (1046 display-level beach display) + (1046 want-force-vis beach #f) ) ) ) diff --git a/test/decompiler/reference/levels/beach/mayor_REF.gc b/test/decompiler/reference/levels/beach/mayor_REF.gc index 71cc254270..7740ba7d7c 100644 --- a/test/decompiler/reference/levels/beach/mayor_REF.gc +++ b/test/decompiler/reference/levels/beach/mayor_REF.gc @@ -172,9 +172,9 @@ (0 kill "crate-2469") (0 kill "villagea-part-69") (0 display-level beach special) - ((the binteger 565) joint "cameraB") - ((the binteger 850) joint "camera") - ((the binteger 915) joint "cameraB") + (565 joint "cameraB") + (850 joint "camera") + (915 joint "cameraB") ) ) ) diff --git a/test/decompiler/reference/levels/beach/sculptor_REF.gc b/test/decompiler/reference/levels/beach/sculptor_REF.gc index 0a5d44b5f4..79fca309c3 100644 --- a/test/decompiler/reference/levels/beach/sculptor_REF.gc +++ b/test/decompiler/reference/levels/beach/sculptor_REF.gc @@ -135,13 +135,13 @@ (0 kill "med-res-level-14") (0 kill "med-res-level-22") (0 kill "med-res-level-23") - ((the binteger 285) joint "cameraB") - ((the binteger 331) joint "camera") - ((the binteger 614) joint "cameraB") - ((the binteger 760) joint "camera") - ((the binteger 1183) joint "cameraB") - ((the binteger 1278) joint "camera") - ((the binteger 1433) joint "cameraB") + (285 joint "cameraB") + (331 joint "camera") + (614 joint "cameraB") + (760 joint "camera") + (1183 joint "cameraB") + (1278 joint "camera") + (1433 joint "cameraB") ) ) ) @@ -179,7 +179,7 @@ :index 18 :parts 4 :command-list - '(((the binteger 51) joint "cameraB") ((the binteger 87) joint "camera")) + '((51 joint "cameraB") (87 joint "camera")) ) ) (else diff --git a/test/decompiler/reference/levels/citadel/assistant-citadel_REF.gc b/test/decompiler/reference/levels/citadel/assistant-citadel_REF.gc index 4f86b8f761..c7e8c9e199 100644 --- a/test/decompiler/reference/levels/citadel/assistant-citadel_REF.gc +++ b/test/decompiler/reference/levels/citadel/assistant-citadel_REF.gc @@ -43,19 +43,19 @@ :index 4 :parts 11 :command-list - '(((the binteger 61) joint "cameraB") - ((the binteger 151) joint "camera") - ((the binteger 226) joint "cameraB") - ((the binteger 273) joint "camera") - ((the binteger 316) joint "cameraB") - ((the binteger 451) joint "camera") - ((the binteger 651) joint "cameraB") - ((the binteger 786) joint "camera") - ((the binteger 888) joint "cameraB") - ((the binteger 1011) joint "camera") - ((the binteger 1011) shadow target #f) - ((the binteger 1140) shadow target #t) - ((the binteger 1191) joint "cameraB") + '((61 joint "cameraB") + (151 joint "camera") + (226 joint "cameraB") + (273 joint "camera") + (316 joint "cameraB") + (451 joint "camera") + (651 joint "cameraB") + (786 joint "camera") + (888 joint "cameraB") + (1011 joint "camera") + (1011 shadow target #f) + (1140 shadow target #t) + (1191 joint "cameraB") ) ) ) diff --git a/test/decompiler/reference/levels/citadel/citadel-sages_REF.gc b/test/decompiler/reference/levels/citadel/citadel-sages_REF.gc index 23fec77656..194ca673bf 100644 --- a/test/decompiler/reference/levels/citadel/citadel-sages_REF.gc +++ b/test/decompiler/reference/levels/citadel/citadel-sages_REF.gc @@ -647,11 +647,11 @@ :index 7 :parts 9 :command-list - '(((the binteger 15) send-event self disable-bars) - ((the binteger 45) joint "cameraB") - ((the binteger 216) joint "camera") - ((the binteger 435) joint "cameraB") - ((the binteger 685) joint "camera") + '((15 send-event self disable-bars) + (45 joint "cameraB") + (216 joint "camera") + (435 joint "cameraB") + (685 joint "camera") ) ) ) @@ -779,16 +779,16 @@ :index 7 :parts 9 :command-list - '(((the binteger 15) send-event self disable-bars) - ((the binteger 45) joint "cameraB") - ((the binteger 74) shadow self #f) - ((the binteger 185) joint "camera") - ((the binteger 256) joint "cameraB") - ((the binteger 505) joint "camera") - ((the binteger 590) joint "cameraB") - ((the binteger 670) joint "camera") - ((the binteger 875) shadow self #t) - ((the binteger 876) joint "cameraB") + '((15 send-event self disable-bars) + (45 joint "cameraB") + (74 shadow self #f) + (185 joint "camera") + (256 joint "cameraB") + (505 joint "camera") + (590 joint "cameraB") + (670 joint "camera") + (875 shadow self #t) + (876 joint "cameraB") ) ) ) @@ -916,11 +916,11 @@ :index 7 :parts 6 :command-list - '(((the binteger 15) send-event self disable-bars) - ((the binteger 45) joint "cameraB") - ((the binteger 256) joint "camera") - ((the binteger 314) joint "cameraB") - ((the binteger 600) joint "camera") + '((15 send-event self disable-bars) + (45 joint "cameraB") + (256 joint "camera") + (314 joint "cameraB") + (600 joint "camera") ) ) ) @@ -1018,13 +1018,13 @@ :index 6 :parts 12 :command-list - '(((the binteger 33) joint "cameraB") - ((the binteger 156) joint "camera") - ((the binteger 405) joint "cameraB") - ((the binteger 576) joint "camera") - ((the binteger 823) joint "cameraB") - ((the binteger 1156) joint "camera") - ((the binteger 1199) joint "cameraB") + '((33 joint "cameraB") + (156 joint "camera") + (405 joint "cameraB") + (576 joint "camera") + (823 joint "cameraB") + (1156 joint "camera") + (1199 joint "cameraB") ) ) ) @@ -1051,12 +1051,12 @@ :index 5 :parts 12 :command-list - '(((the binteger 71) joint "cameraB") - ((the binteger 207) joint "camera") - ((the binteger 343) joint "cameraB") - ((the binteger 574) joint "camera") - ((the binteger 1060) joint "cameraB") - ((the binteger 1061) send-event camera teleport) + '((71 joint "cameraB") + (207 joint "camera") + (343 joint "cameraB") + (574 joint "camera") + (1060 joint "cameraB") + (1061 send-event camera teleport) ) ) ) @@ -1117,78 +1117,78 @@ (0 want-levels citadel finalboss) (0 display-level finalboss special) (0 send-event "citb-robotboss-1" 'die) - ((the binteger 335) joint "cameraB") - ((the binteger 581) joint "camera") - ((the binteger 696) joint "cameraB") - ((the binteger 828) joint "camera") - ((the binteger 1180) joint "cameraB") - ((the binteger 1380) send-event self 'spawn-robot) - ((the binteger 1382) joint "camera") - ((the binteger 1382) kill "citb-disc-d-2") - ((the binteger 1382) kill "citb-disc-c-4") - ((the binteger 1382) kill "citb-disc-c-5") - ((the binteger 1382) kill "citb-disc-c-6") - ((the binteger 1382) kill "citb-disc-b-12") - ((the binteger 1382) kill "citb-disc-b-13") - ((the binteger 1382) kill "citb-disc-b-14") - ((the binteger 1382) kill "citb-disc-a-11") - ((the binteger 1382) kill "citb-disc-a-12") - ((the binteger 1382) kill "citb-disc-a-13") - ((the binteger 1382) kill "citb-disc-a-14") - ((the binteger 1382) kill "citb-disc-a-15") - ((the binteger 1382) kill "citb-disc-a-16") - ((the binteger 1382) kill "citb-disc-b-21") - ((the binteger 1382) kill "citb-button-28") - ((the binteger 1382) kill "citb-button-32") - ((the binteger 1382) kill "citb-generator-1") - ((the binteger 1382) kill "citb-generator-2") - ((the binteger 1382) kill "citb-generator-3") - ((the binteger 1382) kill "citb-generator-4") - ((the binteger 1382) kill "citb-iris-door-15") - ((the binteger 1382) kill "citb-iris-door-16") - ((the binteger 1382) kill "crate-2996") - ((the binteger 1382) kill "crate-2997") - ((the binteger 1382) kill "crate-2998") - ((the binteger 1382) kill "crate-3000") - ((the binteger 1382) kill "citb-plat-eco-1") - ((the binteger 1382) kill "citb-plat-eco-2") - ((the binteger 1382) kill "citb-plat-eco-3") - ((the binteger 1382) kill "citb-stair-plat-1") - ((the binteger 1382) kill "citb-stair-plat-2") - ((the binteger 1382) kill "citb-stair-plat-3") - ((the binteger 1382) kill "citb-stair-plat-4") - ((the binteger 1382) kill "citb-stair-plat-5") - ((the binteger 1382) kill "citb-stair-plat-6") - ((the binteger 1382) kill "red-sagecage-1") - ((the binteger 1382) kill "blue-sagecage-1") - ((the binteger 1382) kill "yellow-sagecage-1") - ((the binteger 1382) kill "babak-391") - ((the binteger 1382) kill "citb-disc-c-10") - ((the binteger 1382) kill "citb-iris-door-32") - ((the binteger 1382) kill "citb-disc-b-18") - ((the binteger 1382) kill "citb-disc-b-19") - ((the binteger 1382) kill "citb-disc-b-20") - ((the binteger 1382) kill "citb-iris-door-14") - ((the binteger 1382) kill "orb-cache-top-32") - ((the binteger 1382) kill "citb-disc-b-17") - ((the binteger 1382) kill "citb-iris-door-13") - ((the binteger 1382) kill "citb-button-39") - ((the binteger 1382) kill "citb-button-40") - ((the binteger 1382) kill "babak-392") - ((the binteger 1382) kill "babak-393") - ((the binteger 1382) kill "citb-button-33") - ((the binteger 1382) kill "citb-button-34") - ((the binteger 1382) kill "citb-drop-plat-365") - ((the binteger 1382) kill "citb-drop-plat-366") - ((the binteger 1382) kill "citb-drop-plat-367") - ((the binteger 1382) kill "citb-iris-door-21") - ((the binteger 1382) kill "assistant-lavatube-end-3") - ((the binteger 1382) kill "babak-394") - ((the binteger 1382) kill "babak-396") - ((the binteger 1382) kill "citb-drop-plat-376") - ((the binteger 1605) joint "cameraB") - ((the binteger 1733) kill "citb-iris-door-2") - ((the binteger 1736) joint "camera") + (335 joint "cameraB") + (581 joint "camera") + (696 joint "cameraB") + (828 joint "camera") + (1180 joint "cameraB") + (1380 send-event self 'spawn-robot) + (1382 joint "camera") + (1382 kill "citb-disc-d-2") + (1382 kill "citb-disc-c-4") + (1382 kill "citb-disc-c-5") + (1382 kill "citb-disc-c-6") + (1382 kill "citb-disc-b-12") + (1382 kill "citb-disc-b-13") + (1382 kill "citb-disc-b-14") + (1382 kill "citb-disc-a-11") + (1382 kill "citb-disc-a-12") + (1382 kill "citb-disc-a-13") + (1382 kill "citb-disc-a-14") + (1382 kill "citb-disc-a-15") + (1382 kill "citb-disc-a-16") + (1382 kill "citb-disc-b-21") + (1382 kill "citb-button-28") + (1382 kill "citb-button-32") + (1382 kill "citb-generator-1") + (1382 kill "citb-generator-2") + (1382 kill "citb-generator-3") + (1382 kill "citb-generator-4") + (1382 kill "citb-iris-door-15") + (1382 kill "citb-iris-door-16") + (1382 kill "crate-2996") + (1382 kill "crate-2997") + (1382 kill "crate-2998") + (1382 kill "crate-3000") + (1382 kill "citb-plat-eco-1") + (1382 kill "citb-plat-eco-2") + (1382 kill "citb-plat-eco-3") + (1382 kill "citb-stair-plat-1") + (1382 kill "citb-stair-plat-2") + (1382 kill "citb-stair-plat-3") + (1382 kill "citb-stair-plat-4") + (1382 kill "citb-stair-plat-5") + (1382 kill "citb-stair-plat-6") + (1382 kill "red-sagecage-1") + (1382 kill "blue-sagecage-1") + (1382 kill "yellow-sagecage-1") + (1382 kill "babak-391") + (1382 kill "citb-disc-c-10") + (1382 kill "citb-iris-door-32") + (1382 kill "citb-disc-b-18") + (1382 kill "citb-disc-b-19") + (1382 kill "citb-disc-b-20") + (1382 kill "citb-iris-door-14") + (1382 kill "orb-cache-top-32") + (1382 kill "citb-disc-b-17") + (1382 kill "citb-iris-door-13") + (1382 kill "citb-button-39") + (1382 kill "citb-button-40") + (1382 kill "babak-392") + (1382 kill "babak-393") + (1382 kill "citb-button-33") + (1382 kill "citb-button-34") + (1382 kill "citb-drop-plat-365") + (1382 kill "citb-drop-plat-366") + (1382 kill "citb-drop-plat-367") + (1382 kill "citb-iris-door-21") + (1382 kill "assistant-lavatube-end-3") + (1382 kill "babak-394") + (1382 kill "babak-396") + (1382 kill "citb-drop-plat-376") + (1605 joint "cameraB") + (1733 kill "citb-iris-door-2") + (1736 joint "camera") ) ) ) diff --git a/test/decompiler/reference/levels/firecanyon/assistant-firecanyon_REF.gc b/test/decompiler/reference/levels/firecanyon/assistant-firecanyon_REF.gc index 2f54af63ca..809fe6f479 100644 --- a/test/decompiler/reference/levels/firecanyon/assistant-firecanyon_REF.gc +++ b/test/decompiler/reference/levels/firecanyon/assistant-firecanyon_REF.gc @@ -41,18 +41,18 @@ :parts 11 :command-list '((0 want-levels village1 firecanyon) - ((the binteger 151) joint "cameraB") - ((the binteger 346) joint "camera") - ((the binteger 346) shadow self #f) - ((the binteger 461) joint "cameraB") - ((the binteger 546) joint "camera") - ((the binteger 636) joint "cameraB") - ((the binteger 695) alive "balloon-12") - ((the binteger 696) joint "camera") - ((the binteger 821) alive "balloon-16") - ((the binteger 822) joint "cameraB") - ((the binteger 962) joint "camera") - ((the binteger 1268) shadow self #t) + (151 joint "cameraB") + (346 joint "camera") + (346 shadow self #f) + (461 joint "cameraB") + (546 joint "camera") + (636 joint "cameraB") + (695 alive "balloon-12") + (696 joint "camera") + (821 alive "balloon-16") + (822 joint "cameraB") + (962 joint "camera") + (1268 shadow self #t) ) ) ) diff --git a/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc b/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc index 2e0a0f84c0..b223160892 100644 --- a/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc +++ b/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc @@ -1296,32 +1296,32 @@ :command-list '((0 want-levels village1 jungle) (0 alive "jungle-part-1") - ((the binteger 130) blackout (the binteger 10)) - ((the binteger 130) display-level village1 movie) - ((the binteger 130) want-force-vis village1 #t) - ((the binteger 134) blackout 0) - ((the binteger 229) blackout (the binteger 10)) - ((the binteger 232) blackout 0) - ((the binteger 235) display-level village1 #f) - ((the binteger 235) want-force-vis village1 #f) - ((the binteger 419) blackout (the binteger 10)) - ((the binteger 422) blackout 0) - ((the binteger 518) blackout (the binteger 10)) - ((the binteger 521) blackout 0) - ((the binteger 585) blackout (the binteger 10)) - ((the binteger 588) blackout 0) - ((the binteger 668) blackout (the binteger 10)) - ((the binteger 671) blackout 0) - ((the binteger 848) display-level village1 movie) - ((the binteger 848) want-force-vis village1 #t) - ((the binteger 849) alive "fishermans-boat-2") - ((the binteger 878) blackout (the binteger 10)) - ((the binteger 881) blackout 0) - ((the binteger 958) blackout (the binteger 10)) - ((the binteger 961) blackout 0) - ((the binteger 965) dead "fishermans-boat-2") - ((the binteger 965) display-level village1 display) - ((the binteger 965) want-force-vis village1 #f) + (130 blackout 10) + (130 display-level village1 movie) + (130 want-force-vis village1 #t) + (134 blackout 0) + (229 blackout 10) + (232 blackout 0) + (235 display-level village1 #f) + (235 want-force-vis village1 #f) + (419 blackout 10) + (422 blackout 0) + (518 blackout 10) + (521 blackout 0) + (585 blackout 10) + (588 blackout 0) + (668 blackout 10) + (671 blackout 0) + (848 display-level village1 movie) + (848 want-force-vis village1 #t) + (849 alive "fishermans-boat-2") + (878 blackout 10) + (881 blackout 0) + (958 blackout 10) + (961 blackout 0) + (965 dead "fishermans-boat-2") + (965 display-level village1 display) + (965 want-force-vis village1 #f) ) ) ) @@ -1340,7 +1340,7 @@ :index 9 :parts 4 :command-list - '(((the binteger 188) blackout (the binteger 10)) ((the binteger 199) blackout 0)) + '((188 blackout 10) (199 blackout 0)) ) ) (else @@ -1392,7 +1392,7 @@ :index 12 :parts 6 :command-list - '((0 send-event self emissive-on) ((the binteger 700) send-event self emissive-off)) + '((0 send-event self emissive-on) (700 send-event self emissive-off)) ) ) diff --git a/test/decompiler/reference/levels/lavatube/assistant-lavatube_REF.gc b/test/decompiler/reference/levels/lavatube/assistant-lavatube_REF.gc index 7abb20557d..c93c6961b1 100644 --- a/test/decompiler/reference/levels/lavatube/assistant-lavatube_REF.gc +++ b/test/decompiler/reference/levels/lavatube/assistant-lavatube_REF.gc @@ -40,11 +40,7 @@ :index 5 :parts 11 :command-list - '(((the binteger 232) joint "cameraB") - ((the binteger 491) joint "camera") - ((the binteger 866) joint "cameraB") - ((the binteger 1061) joint "camera") - ) + '((232 joint "cameraB") (491 joint "camera") (866 joint "cameraB") (1061 joint "camera")) ) ) (else diff --git a/test/decompiler/reference/levels/misty/muse_REF.gc b/test/decompiler/reference/levels/misty/muse_REF.gc index 860c8fa6cc..0b861b435f 100644 --- a/test/decompiler/reference/levels/misty/muse_REF.gc +++ b/test/decompiler/reference/levels/misty/muse_REF.gc @@ -698,7 +698,7 @@ nav-enemy-default-event-handler :index 9 :parts 2 :command-list - '(((the binteger 1) blackout 0) ((the binteger 219) blackout (the binteger 60))) + '((1 blackout 0) (219 blackout 60)) ) ) (set! (-> obj victory-anim) (fuel-cell-pick-anim obj)) diff --git a/test/decompiler/reference/levels/misty/sidekick-human_REF.gc b/test/decompiler/reference/levels/misty/sidekick-human_REF.gc index 0716a70b0e..a2a047a67d 100644 --- a/test/decompiler/reference/levels/misty/sidekick-human_REF.gc +++ b/test/decompiler/reference/levels/misty/sidekick-human_REF.gc @@ -1674,30 +1674,30 @@ (0 kill "teetertotter-5") (0 kill "bone-platform-4") (0 kill "misty-battle-controller-1") - ((the binteger 30) send-event self offset-army) - ((the binteger 196) joint "cameraB") - ((the binteger 196) shadow target #f) - ((the binteger 196) shadow self #f) - ((the binteger 380) send-event self evilbro) - ((the binteger 385) send-event "evilbro" draw #t) - ((the binteger 385) send-event "evilsis" draw #t) - ((the binteger 397) joint "camera") - ((the binteger 410) setting-reset ocean-off #t) - ((the binteger 456) joint "cameraB") - ((the binteger 546) joint "camera") - ((the binteger 701) joint "cameraB") - ((the binteger 701) setting-reset ocean-off near) - ((the binteger 776) joint "camera") - ((the binteger 776) setting-reset ocean-off #t) - ((the binteger 937) joint "cameraB") - ((the binteger 1027) joint "camera") - ((the binteger 1122) joint "cameraB") - ((the binteger 1221) joint "cameraB") - ((the binteger 1221) setting-reset ocean-off near) - ((the binteger 1280) alive "sequenceC-1") - ((the binteger 1281) save) - ((the binteger 1281) shadow target #t) - ((the binteger 1281) setting-unset ocean-off) + (30 send-event self offset-army) + (196 joint "cameraB") + (196 shadow target #f) + (196 shadow self #f) + (380 send-event self evilbro) + (385 send-event "evilbro" draw #t) + (385 send-event "evilsis" draw #t) + (397 joint "camera") + (410 setting-reset ocean-off #t) + (456 joint "cameraB") + (546 joint "camera") + (701 joint "cameraB") + (701 setting-reset ocean-off near) + (776 joint "camera") + (776 setting-reset ocean-off #t) + (937 joint "cameraB") + (1027 joint "camera") + (1122 joint "cameraB") + (1221 joint "cameraB") + (1221 setting-reset ocean-off near) + (1280 alive "sequenceC-1") + (1281 save) + (1281 shadow target #t) + (1281 setting-unset ocean-off) ) ) ) @@ -1971,48 +1971,48 @@ (0 kill "money-1563") (0 kill "money-1564") (0 kill "money-1565") - ((the binteger 5) alive "dark-eco-pool-11") - ((the binteger 151) joint "cameraB") - ((the binteger 200) want-levels misty village1) - ((the binteger 236) joint "camera") - ((the binteger 301) joint "cameraB") - ((the binteger 421) joint "camera") - ((the binteger 460) shadow self #f) - ((the binteger 470) shadow self #t) - ((the binteger 496) joint "cameraB") - ((the binteger 611) joint "camera") - ((the binteger 721) joint "cameraB") - ((the binteger 1176) joint "camera") - ((the binteger 1271) joint "cameraB") - ((the binteger 1331) joint "camera") - ((the binteger 1386) joint "cameraB") - ((the binteger 1461) joint "camera") - ((the binteger 1524) joint "cameraB") - ((the binteger 1558) joint "camera") - ((the binteger 1602) joint "cameraB") - ((the binteger 1628) joint "camera") - ((the binteger 1676) joint "cameraB") - ((the binteger 1728) joint "camera") - ((the binteger 1791) joint "cameraB") - ((the binteger 1831) joint "camera") - ((the binteger 1942) joint "cameraB") - ((the binteger 2000) display-level village1 special) - ((the binteger 2028) joint "camera") - ((the binteger 2096) joint "cameraB") - ((the binteger 2154) joint "camera") - ((the binteger 2226) joint "cameraB") - ((the binteger 2266) joint "camera") - ((the binteger 2307) joint "cameraB") - ((the binteger 2431) joint "camera") - ((the binteger 2476) joint "cameraB") - ((the binteger 2530) display-level misty movie) - ((the binteger 2530) want-force-vis misty #t) - ((the binteger 2530) dead "dark-eco-pool-11") - ((the binteger 2534) display-level village1 display) - ((the binteger 2535) want-vis vi1) - ((the binteger 2536) joint "camera") - ((the binteger 2580) alive "sage-23") - ((the binteger 2596) save) + (5 alive "dark-eco-pool-11") + (151 joint "cameraB") + (200 want-levels misty village1) + (236 joint "camera") + (301 joint "cameraB") + (421 joint "camera") + (460 shadow self #f) + (470 shadow self #t) + (496 joint "cameraB") + (611 joint "camera") + (721 joint "cameraB") + (1176 joint "camera") + (1271 joint "cameraB") + (1331 joint "camera") + (1386 joint "cameraB") + (1461 joint "camera") + (1524 joint "cameraB") + (1558 joint "camera") + (1602 joint "cameraB") + (1628 joint "camera") + (1676 joint "cameraB") + (1728 joint "camera") + (1791 joint "cameraB") + (1831 joint "camera") + (1942 joint "cameraB") + (2000 display-level village1 special) + (2028 joint "camera") + (2096 joint "cameraB") + (2154 joint "camera") + (2226 joint "cameraB") + (2266 joint "camera") + (2307 joint "cameraB") + (2431 joint "camera") + (2476 joint "cameraB") + (2530 display-level misty movie) + (2530 want-force-vis misty #t) + (2530 dead "dark-eco-pool-11") + (2534 display-level village1 display) + (2535 want-vis vi1) + (2536 joint "camera") + (2580 alive "sage-23") + (2596 save) ) ) ) diff --git a/test/decompiler/reference/levels/ogre/flying-lurker_REF.gc b/test/decompiler/reference/levels/ogre/flying-lurker_REF.gc index 9fdf43455d..ceb8739674 100644 --- a/test/decompiler/reference/levels/ogre/flying-lurker_REF.gc +++ b/test/decompiler/reference/levels/ogre/flying-lurker_REF.gc @@ -109,32 +109,32 @@ :index 7 :parts 4 :command-list - '(((the binteger 200) alive "tntbarrel-223") - ((the binteger 200) alive "tntbarrel-222") - ((the binteger 200) alive "tntbarrel-221") - ((the binteger 200) alive "tntbarrel-220") - ((the binteger 200) alive "tntbarrel-224") - ((the binteger 200) alive "tntbarrel-219") - ((the binteger 200) alive "tntbarrel-246") - ((the binteger 200) alive "tntbarrel-249") - ((the binteger 200) alive "tntbarrel-250") - ((the binteger 200) alive "tntbarrel-251") - ((the binteger 200) alive "tntbarrel-225") - ((the binteger 201) joint "cameraB") - ((the binteger 220) send-event "tntbarrel-223" 'die-big) - ((the binteger 230) send-event "tntbarrel-222" 'die-big) - ((the binteger 240) send-event "tntbarrel-221" 'die-big) - ((the binteger 240) send-event "tntbarrel-220" 'die-big) - ((the binteger 245) send-event "tntbarrel-224" 'die-big) - ((the binteger 250) send-event "tntbarrel-219" 'die-big) - ((the binteger 251) joint "cameraA") - ((the binteger 260) send-event "tntbarrel-246" 'die-big) - ((the binteger 325) send-event "tntbarrel-249" 'die-big) - ((the binteger 380) send-event "tntbarrel-250" 'die-big) - ((the binteger 410) send-event "tntbarrel-251" 'die-big) - ((the binteger 420) blackout (the binteger 30)) - ((the binteger 421) joint "cameraB") - ((the binteger 430) send-event "tntbarrel-225" 'die-big) + '((200 alive "tntbarrel-223") + (200 alive "tntbarrel-222") + (200 alive "tntbarrel-221") + (200 alive "tntbarrel-220") + (200 alive "tntbarrel-224") + (200 alive "tntbarrel-219") + (200 alive "tntbarrel-246") + (200 alive "tntbarrel-249") + (200 alive "tntbarrel-250") + (200 alive "tntbarrel-251") + (200 alive "tntbarrel-225") + (201 joint "cameraB") + (220 send-event "tntbarrel-223" 'die-big) + (230 send-event "tntbarrel-222" 'die-big) + (240 send-event "tntbarrel-221" 'die-big) + (240 send-event "tntbarrel-220" 'die-big) + (245 send-event "tntbarrel-224" 'die-big) + (250 send-event "tntbarrel-219" 'die-big) + (251 joint "cameraA") + (260 send-event "tntbarrel-246" 'die-big) + (325 send-event "tntbarrel-249" 'die-big) + (380 send-event "tntbarrel-250" 'die-big) + (410 send-event "tntbarrel-251" 'die-big) + (420 blackout 30) + (421 joint "cameraB") + (430 send-event "tntbarrel-225" 'die-big) ) ) (the-as art-joint-anim #f) diff --git a/test/decompiler/reference/levels/swamp/billy_REF.gc b/test/decompiler/reference/levels/swamp/billy_REF.gc index eb8acdcdac..552dbda77b 100644 --- a/test/decompiler/reference/levels/swamp/billy_REF.gc +++ b/test/decompiler/reference/levels/swamp/billy_REF.gc @@ -530,14 +530,14 @@ (0 kill "swamp-spike-43") (0 kill "swamp-spike-44") (0 kill "swamp-spike-45") - ((the binteger 346) blackout (the binteger 10)) - ((the binteger 349) blackout 0) - ((the binteger 494) blackout (the binteger 10)) - ((the binteger 497) blackout 0) - ((the binteger 1145) blackout (the binteger 10)) - ((the binteger 1148) blackout 0) - ((the binteger 1518) blackout (the binteger 10)) - ((the binteger 1521) blackout 0) + (346 blackout 10) + (349 blackout 0) + (494 blackout 10) + (497 blackout 0) + (1145 blackout 10) + (1148 blackout 0) + (1518 blackout 10) + (1521 blackout 0) ) ) ) diff --git a/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc b/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc index 53c4451d9f..f97028cb27 100644 --- a/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc +++ b/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc @@ -1508,9 +1508,7 @@ swamp-rat-nest-default-event-handler ;; definition for method 21 of type swamp-rat-nest-dummy-a (defmethod dummy-21 swamp-rat-nest-dummy-a ((obj swamp-rat-nest-dummy-a)) (let ((v1-0 0)) - (let* ((a0-1 - '((the binteger 5) (the binteger 6) (the binteger 7) (the binteger 8) (the binteger 9) (the binteger 10)) - ) + (let* ((a0-1 '(5 6 7 8 9 10)) (a1-0 (car a0-1)) ) (while (not (null? a0-1)) @@ -1535,9 +1533,7 @@ swamp-rat-nest-default-event-handler ;; definition for method 21 of type swamp-rat-nest-dummy-b (defmethod dummy-21 swamp-rat-nest-dummy-b ((obj swamp-rat-nest-dummy-b)) (let ((v1-0 0)) - (let* ((a0-1 - '((the binteger 5) (the binteger 9) (the binteger 10) (the binteger 6) (the binteger 7) (the binteger 8)) - ) + (let* ((a0-1 '(5 9 10 6 7 8)) (a1-0 (car a0-1)) ) (while (not (null? a0-1)) @@ -1562,18 +1558,15 @@ swamp-rat-nest-default-event-handler ;; definition for method 21 of type swamp-rat-nest-dummy-c (defmethod dummy-21 swamp-rat-nest-dummy-c ((obj swamp-rat-nest-dummy-c)) (let ((v1-0 0)) - (let* ((a0-1 '((the binteger 5) (the binteger 6))) - (a1-0 (car a0-1)) - ) - (while (not (null? a0-1)) - (when (< v1-0 6) - (set! (-> obj spawn-joint-array v1-0) (/ (the-as int a1-0) 8)) - (+! v1-0 1) + (let* ((a0-1 '(5 6)) (a1-0 (car a0-1))) (while (not (null? a0-1)) + (when (< v1-0 6) + (set! (-> obj spawn-joint-array v1-0) (/ (the-as int a1-0) 8)) + (+! v1-0 1) + ) + (set! a0-1 (cdr a0-1)) + (set! a1-0 (car a0-1)) + ) ) - (set! a0-1 (cdr a0-1)) - (set! a1-0 (car a0-1)) - ) - ) (set! (-> obj spawn-joint-count) v1-0) ) (set! (-> obj death-part) (-> *part-group-id-table* 294)) diff --git a/test/decompiler/reference/levels/village1/assistant_REF.gc b/test/decompiler/reference/levels/village1/assistant_REF.gc index 8494cfd0b3..9ec3c1c0a1 100644 --- a/test/decompiler/reference/levels/village1/assistant_REF.gc +++ b/test/decompiler/reference/levels/village1/assistant_REF.gc @@ -100,31 +100,31 @@ :parts 11 :command-list '((0 want-levels village1 beach) - ((the binteger 128) joint "cameraB") - ((the binteger 312) joint "camera") - ((the binteger 492) joint "cameraB") - ((the binteger 537) joint "camera") - ((the binteger 734) display-level beach movie) - ((the binteger 734) want-force-vis beach #t) - ((the binteger 735) alive "ecovent-48") - ((the binteger 742) blackout (the binteger 10)) - ((the binteger 743) joint "cameraB") - ((the binteger 745) blackout 0) - ((the binteger 839) alive "ecovent-200") - ((the binteger 841) joint "camera") - ((the binteger 842) dead "ecovent-48") - ((the binteger 942) blackout (the binteger 10)) - ((the binteger 944) joint "cameraB") - ((the binteger 945) blackout 0) - ((the binteger 945) dead "ecovent-200") - ((the binteger 945) display-level beach #f) - ((the binteger 1049) blackout (the binteger 10)) - ((the binteger 1051) joint "camera") - ((the binteger 1052) blackout 0) - ((the binteger 1135) blackout (the binteger 10)) - ((the binteger 1137) joint "cameraB") - ((the binteger 1138) blackout 0) - ((the binteger 1216) joint "camera") + (128 joint "cameraB") + (312 joint "camera") + (492 joint "cameraB") + (537 joint "camera") + (734 display-level beach movie) + (734 want-force-vis beach #t) + (735 alive "ecovent-48") + (742 blackout 10) + (743 joint "cameraB") + (745 blackout 0) + (839 alive "ecovent-200") + (841 joint "camera") + (842 dead "ecovent-48") + (942 blackout 10) + (944 joint "cameraB") + (945 blackout 0) + (945 dead "ecovent-200") + (945 display-level beach #f) + (1049 blackout 10) + (1051 joint "camera") + (1052 blackout 0) + (1135 blackout 10) + (1137 joint "cameraB") + (1138 blackout 0) + (1216 joint "camera") ) ) ) @@ -137,11 +137,7 @@ :index 12 :parts 6 :command-list - '((0 want-levels village1 beach) - ((the binteger 129) joint "cameraB") - ((the binteger 319) joint "camera") - ((the binteger 505) joint "cameraB") - ) + '((0 want-levels village1 beach) (129 joint "cameraB") (319 joint "camera") (505 joint "cameraB")) ) ) ) diff --git a/test/decompiler/reference/levels/village1/explorer_REF.gc b/test/decompiler/reference/levels/village1/explorer_REF.gc index 1098ad4da8..b8ec2128b3 100644 --- a/test/decompiler/reference/levels/village1/explorer_REF.gc +++ b/test/decompiler/reference/levels/village1/explorer_REF.gc @@ -83,12 +83,7 @@ :index 9 :parts 11 :command-list - '(((the binteger 418) joint "cameraB") - ((the binteger 695) shadow self #f) - ((the binteger 695) joint "camera") - ((the binteger 838) shadow self #t) - ((the binteger 838) joint "cameraB") - ) + '((418 joint "cameraB") (695 shadow self #f) (695 joint "camera") (838 shadow self #t) (838 joint "cameraB")) ) ) (((task-status need-reminder)) @@ -104,11 +99,11 @@ :parts 5 :command-list '((0 send-event target draw #f) - ((the binteger 148) send-event target draw #t) - ((the binteger 148) joint "cameraB") - ((the binteger 390) send-event target draw #f) - ((the binteger 390) joint "camera") - ((the binteger 505) send-event target draw #t) + (148 send-event target draw #t) + (148 joint "cameraB") + (390 send-event target draw #f) + (390 joint "camera") + (505 send-event target draw #t) ) ) ) @@ -137,7 +132,7 @@ :index 12 :parts 5 :command-list - '(((the binteger 167) joint "cameraB") ((the binteger 310) joint "camera")) + '((167 joint "cameraB") (310 joint "camera")) ) ) (else diff --git a/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc b/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc index 27110d21a6..6e671d9d1f 100644 --- a/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc +++ b/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc @@ -1069,14 +1069,14 @@ '((0 want-levels village1 misty) (0 shadow target #f) (0 shadow sidekick #f) - ((the binteger 250) display-level misty display) - ((the binteger 250) display-level village1 special) - ((the binteger 250) want-vis mis) - ((the binteger 250) want-force-vis misty #t) - ((the binteger 459) want-force-vis misty #f) - ((the binteger 459) save) - ((the binteger 459) blackout (the binteger 20)) - ((the binteger 459) shadow target #t) + (250 display-level misty display) + (250 display-level village1 special) + (250 want-vis mis) + (250 want-force-vis misty #t) + (459 want-force-vis misty #f) + (459 save) + (459 blackout 20) + (459 shadow target #t) ) ) ) @@ -1206,14 +1206,14 @@ '((0 want-levels village1 misty) (0 shadow target #f) (0 shadow sidekick #f) - ((the binteger 250) display-level village1 display) - ((the binteger 250) display-level misty #f) - ((the binteger 250) want-vis vi1) - ((the binteger 250) want-force-vis village1 #t) - ((the binteger 459) want-force-vis village1 #f) - ((the binteger 459) save) - ((the binteger 459) blackout (the binteger 20)) - ((the binteger 459) shadow target #t) + (250 display-level village1 display) + (250 display-level misty #f) + (250 want-vis vi1) + (250 want-force-vis village1 #t) + (459 want-force-vis village1 #f) + (459 save) + (459 blackout 20) + (459 shadow target #t) ) ) ) @@ -1223,21 +1223,21 @@ :parts 12 :command-list '((0 want-levels village1 misty) - ((the binteger 105) want-levels village1 intro) - ((the binteger 150) display-level intro display) - ((the binteger 150) want-vis int) - ((the binteger 150) kill "med-res-level-3") - ((the binteger 150) want-force-vis intro #t) - ((the binteger 151) send-event self evilbro) - ((the binteger 1199) send-event self evilsis) - ((the binteger 1200) want-force-vis intro #f) - ((the binteger 1200) want-levels village1 beach) - ((the binteger 1200) display-level village1 display) - ((the binteger 1200) want-vis vi1) - ((the binteger 1200) want-force-vis village1 #t) - ((the binteger 1349) want-force-vis village1 #f) - ((the binteger 1349) save) - ((the binteger 1349) blackout (the binteger 20)) + (105 want-levels village1 intro) + (150 display-level intro display) + (150 want-vis int) + (150 kill "med-res-level-3") + (150 want-force-vis intro #t) + (151 send-event self evilbro) + (1199 send-event self evilsis) + (1200 want-force-vis intro #f) + (1200 want-levels village1 beach) + (1200 display-level village1 display) + (1200 want-vis vi1) + (1200 want-force-vis village1 #t) + (1349 want-force-vis village1 #f) + (1349 save) + (1349 blackout 20) ) ) ) diff --git a/test/decompiler/reference/levels/village1/sage_REF.gc b/test/decompiler/reference/levels/village1/sage_REF.gc index c93ce68112..e318b1c69e 100644 --- a/test/decompiler/reference/levels/village1/sage_REF.gc +++ b/test/decompiler/reference/levels/village1/sage_REF.gc @@ -42,16 +42,16 @@ :index 8 :parts 12 :command-list - '(((the binteger 1) blackout 0) - ((the binteger 100) want-levels village1 misty) - ((the binteger 261) joint "cameraB") - ((the binteger 521) joint "camera") - ((the binteger 776) joint "cameraB") - ((the binteger 810) joint "camera") - ((the binteger 1171) joint "cameraB") - ((the binteger 1235) joint "camera") - ((the binteger 1235) save) - ((the binteger 1418) blackout (the binteger 30)) + '((1 blackout 0) + (100 want-levels village1 misty) + (261 joint "cameraB") + (521 joint "camera") + (776 joint "cameraB") + (810 joint "camera") + (1171 joint "cameraB") + (1235 joint "camera") + (1235 save) + (1418 blackout 30) ) ) ) @@ -91,33 +91,33 @@ (0 kill "ropebridge-5") (0 kill "ropebridge-4") (0 kill "villagea-water-2") - (0 time-of-day (the binteger 7)) - ((the binteger 1) time-of-day (the binteger -1)) - ((the binteger 3) blackout 0) - ((the binteger 25) blackout 0) - ((the binteger 25) want-force-vis village1 #f) - ((the binteger 56) joint "cameraB") - ((the binteger 100) want-force-inside village1 #f) - ((the binteger 107) joint "camera") - ((the binteger 137) joint "cameraB") - ((the binteger 202) joint "camera") - ((the binteger 286) joint "cameraB") - ((the binteger 554) joint "camera") - ((the binteger 633) joint "cameraB") - ((the binteger 711) joint "camera") - ((the binteger 796) joint "cameraB") - ((the binteger 921) joint "camera") - ((the binteger 1021) shadow self #f) - ((the binteger 1021) joint "cameraB") - ((the binteger 1081) joint "camera") - ((the binteger 1183) joint "cameraB") - ((the binteger 1221) joint "camera") - ((the binteger 1496) shadow self #t) - ((the binteger 1496) joint "cameraB") - ((the binteger 1496) time-of-day (the binteger 18)) - ((the binteger 1721) joint "camera") - ((the binteger 1721) time-of-day (the binteger 7)) - ((the binteger 1722) time-of-day (the binteger -1)) + (0 time-of-day 7) + (1 time-of-day -1) + (3 blackout 0) + (25 blackout 0) + (25 want-force-vis village1 #f) + (56 joint "cameraB") + (100 want-force-inside village1 #f) + (107 joint "camera") + (137 joint "cameraB") + (202 joint "camera") + (286 joint "cameraB") + (554 joint "camera") + (633 joint "cameraB") + (711 joint "camera") + (796 joint "cameraB") + (921 joint "camera") + (1021 shadow self #f) + (1021 joint "cameraB") + (1081 joint "camera") + (1183 joint "cameraB") + (1221 joint "camera") + (1496 shadow self #t) + (1496 joint "cameraB") + (1496 time-of-day 18) + (1721 joint "camera") + (1721 time-of-day 7) + (1722 time-of-day -1) ) ) ) @@ -143,37 +143,37 @@ :command-list '((0 want-levels village1 beach) (0 blackout 0) - ((the binteger 197) joint "cameraB") - ((the binteger 361) joint "camera") - ((the binteger 660) joint "cameraB") - ((the binteger 937) display-level beach movie) - ((the binteger 937) want-force-vis beach #t) - ((the binteger 938) alive "ecoventrock-3") - ((the binteger 938) alive "ecoventrock-4") - ((the binteger 938) alive "ecoventrock-5") - ((the binteger 938) alive "ecoventrock-6") - ((the binteger 938) alive "ecoventrock-7") - ((the binteger 938) alive "harvester-87") - ((the binteger 938) alive "harvester-88") - ((the binteger 938) alive "harvester-89") - ((the binteger 938) alive "harvester-90") - ((the binteger 938) alive "harvester-91") - ((the binteger 940) joint "camera") - ((the binteger 1160) joint "cameraB") - ((the binteger 1162) dead "ecoventrock-3") - ((the binteger 1162) dead "ecoventrock-4") - ((the binteger 1162) dead "ecoventrock-5") - ((the binteger 1162) dead "ecoventrock-6") - ((the binteger 1162) dead "ecoventrock-7") - ((the binteger 1162) dead "harvester-87") - ((the binteger 1162) dead "harvester-88") - ((the binteger 1162) dead "harvester-89") - ((the binteger 1162) dead "harvester-90") - ((the binteger 1162) dead "harvester-91") - ((the binteger 1310) joint "camera") - ((the binteger 1313) want-force-vis beach #f) - ((the binteger 1313) display-level beach #f) - ((the binteger 1313) send-event "warp-gate-switch-3" 'hide) + (197 joint "cameraB") + (361 joint "camera") + (660 joint "cameraB") + (937 display-level beach movie) + (937 want-force-vis beach #t) + (938 alive "ecoventrock-3") + (938 alive "ecoventrock-4") + (938 alive "ecoventrock-5") + (938 alive "ecoventrock-6") + (938 alive "ecoventrock-7") + (938 alive "harvester-87") + (938 alive "harvester-88") + (938 alive "harvester-89") + (938 alive "harvester-90") + (938 alive "harvester-91") + (940 joint "camera") + (1160 joint "cameraB") + (1162 dead "ecoventrock-3") + (1162 dead "ecoventrock-4") + (1162 dead "ecoventrock-5") + (1162 dead "ecoventrock-6") + (1162 dead "ecoventrock-7") + (1162 dead "harvester-87") + (1162 dead "harvester-88") + (1162 dead "harvester-89") + (1162 dead "harvester-90") + (1162 dead "harvester-91") + (1310 joint "camera") + (1313 want-force-vis beach #f) + (1313 display-level beach #f) + (1313 send-event "warp-gate-switch-3" 'hide) ) ) ) @@ -187,12 +187,12 @@ :parts 12 :command-list '((0 want-levels village1 beach) - ((the binteger 261) joint "cameraB") - ((the binteger 521) joint "camera") - ((the binteger 776) joint "cameraB") - ((the binteger 810) joint "camera") - ((the binteger 1171) joint "cameraB") - ((the binteger 1235) joint "camera") + (261 joint "cameraB") + (521 joint "camera") + (776 joint "cameraB") + (810 joint "camera") + (1171 joint "cameraB") + (1235 joint "camera") ) ) ) @@ -216,7 +216,7 @@ :index 9 :parts 5 :command-list - '(((the binteger 86) joint "cameraB") ((the binteger 320) joint "camera")) + '((86 joint "cameraB") (320 joint "camera")) ) ) (else @@ -226,22 +226,22 @@ :parts 4 :command-list '((0 want-levels village1 beach) - ((the binteger 245) display-level beach movie) - ((the binteger 245) want-force-vis beach #t) - ((the binteger 246) alive "ecoventrock-3") - ((the binteger 246) alive "ecoventrock-4") - ((the binteger 246) alive "ecoventrock-5") - ((the binteger 246) alive "ecoventrock-6") - ((the binteger 246) alive "ecoventrock-7") - ((the binteger 246) alive "harvester-87") - ((the binteger 246) alive "harvester-88") - ((the binteger 246) alive "harvester-89") - ((the binteger 246) alive "harvester-90") - ((the binteger 246) alive "harvester-91") - ((the binteger 246) joint "cameraB") - ((the binteger 365) want-force-vis beach #f) - ((the binteger 365) display-level beach #f) - ((the binteger 366) joint "camera") + (245 display-level beach movie) + (245 want-force-vis beach #t) + (246 alive "ecoventrock-3") + (246 alive "ecoventrock-4") + (246 alive "ecoventrock-5") + (246 alive "ecoventrock-6") + (246 alive "ecoventrock-7") + (246 alive "harvester-87") + (246 alive "harvester-88") + (246 alive "harvester-89") + (246 alive "harvester-90") + (246 alive "harvester-91") + (246 joint "cameraB") + (365 want-force-vis beach #f) + (365 display-level beach #f) + (366 joint "camera") ) ) ) @@ -293,62 +293,62 @@ (0 kill "fishermans-boat-2") (0 kill "revcycleprop-2") (0 kill "revcycle-8") - ((the binteger 113) joint "cameraB") - ((the binteger 232) joint "camera") - ((the binteger 289) joint "cameraB") - ((the binteger 338) joint "camera") - ((the binteger 405) joint "cameraB") - ((the binteger 560) joint "camera") - ((the binteger 660) joint "cameraB") - ((the binteger 699) joint "camera") - ((the binteger 837) joint "cameraB") - ((the binteger 837) shadow self #f) - ((the binteger 910) joint "camera") - ((the binteger 945) alive "farmer-3") - ((the binteger 945) alive "hutlamp-2") - ((the binteger 950) joint "cameraB") - ((the binteger 974) display-level beach movie) - ((the binteger 974) want-force-vis beach #t) - ((the binteger 1011) alive "bird-lady-4") - ((the binteger 1015) joint "camera") - ((the binteger 1018) dead "farmer-3") - ((the binteger 1018) dead "hutlamp-2") - ((the binteger 1075) alive "explorer-4") - ((the binteger 1080) joint "cameraB") - ((the binteger 1080) want-force-vis beach #f) - ((the binteger 1080) display-level beach #f) - ((the binteger 1082) dead "bird-lady-4") - ((the binteger 1133) joint "camera") - ((the binteger 1135) dead "explorer-4") - ((the binteger 1244) display-level beach movie) - ((the binteger 1244) want-force-vis beach #t) - ((the binteger 1245) alive "fuel-cell-42") - ((the binteger 1246) joint "cameraB") - ((the binteger 1369) joint "camera") - ((the binteger 1438) alive "fuel-cell-42") - ((the binteger 1438) want-force-vis beach #f) - ((the binteger 1438) dead "fuel-cell-42") - ((the binteger 1438) kill "villagea-water-2") - ((the binteger 1438) kill "crate-3147") - ((the binteger 1438) kill "crate-3146") - ((the binteger 1438) kill "crate-3143") - ((the binteger 1438) kill "sagesail-6") - ((the binteger 1438) kill "windmill-sail-4") - ((the binteger 1438) kill "ropebridge-4") - ((the binteger 1438) kill "ropebridge-5") - ((the binteger 1438) kill "windspinner-8") - ((the binteger 1438) kill "windspinner-9") - ((the binteger 1438) joint "cameraB") - ((the binteger 1439) want-levels village1 training) - ((the binteger 1439) save) - ((the binteger 1529) joint "camera") - ((the binteger 1691) joint "cameraB") - ((the binteger 1753) joint "camera") - ((the binteger 1874) joint "cameraB") - ((the binteger 2057) joint "camera") - ((the binteger 2176) joint "cameraB") - ((the binteger 2226) joint "camera") - ((the binteger 2226) shadow self #t) + (113 joint "cameraB") + (232 joint "camera") + (289 joint "cameraB") + (338 joint "camera") + (405 joint "cameraB") + (560 joint "camera") + (660 joint "cameraB") + (699 joint "camera") + (837 joint "cameraB") + (837 shadow self #f) + (910 joint "camera") + (945 alive "farmer-3") + (945 alive "hutlamp-2") + (950 joint "cameraB") + (974 display-level beach movie) + (974 want-force-vis beach #t) + (1011 alive "bird-lady-4") + (1015 joint "camera") + (1018 dead "farmer-3") + (1018 dead "hutlamp-2") + (1075 alive "explorer-4") + (1080 joint "cameraB") + (1080 want-force-vis beach #f) + (1080 display-level beach #f) + (1082 dead "bird-lady-4") + (1133 joint "camera") + (1135 dead "explorer-4") + (1244 display-level beach movie) + (1244 want-force-vis beach #t) + (1245 alive "fuel-cell-42") + (1246 joint "cameraB") + (1369 joint "camera") + (1438 alive "fuel-cell-42") + (1438 want-force-vis beach #f) + (1438 dead "fuel-cell-42") + (1438 kill "villagea-water-2") + (1438 kill "crate-3147") + (1438 kill "crate-3146") + (1438 kill "crate-3143") + (1438 kill "sagesail-6") + (1438 kill "windmill-sail-4") + (1438 kill "ropebridge-4") + (1438 kill "ropebridge-5") + (1438 kill "windspinner-8") + (1438 kill "windspinner-9") + (1438 joint "cameraB") + (1439 want-levels village1 training) + (1439 save) + (1529 joint "camera") + (1691 joint "cameraB") + (1753 joint "camera") + (1874 joint "cameraB") + (2057 joint "camera") + (2176 joint "cameraB") + (2226 joint "camera") + (2226 shadow self #t) ) ) ) diff --git a/test/decompiler/reference/levels/village2/assistant-village2_REF.gc b/test/decompiler/reference/levels/village2/assistant-village2_REF.gc index 39d8fdeca5..04c325950d 100644 --- a/test/decompiler/reference/levels/village2/assistant-village2_REF.gc +++ b/test/decompiler/reference/levels/village2/assistant-village2_REF.gc @@ -130,156 +130,156 @@ :command-list '((0 send-event target draw #f) (0 kill "villageb-part-33") - ((the binteger 95) send-event target draw #t) - ((the binteger 95) joint "cameraB") - ((the binteger 131) send-event target draw #f) - ((the binteger 131) joint "camera") - ((the binteger 190) setting-reset ocean-off #t) - ((the binteger 190) kill "pontoonten-20") - ((the binteger 190) kill "pontoonten-19") - ((the binteger 190) kill "pontoonten-18") - ((the binteger 190) kill "pontoonten-17") - ((the binteger 190) kill "pontoonten-16") - ((the binteger 190) kill "pontoonten-15") - ((the binteger 190) kill "pontoonten-14") - ((the binteger 190) kill "pontoonten-13") - ((the binteger 190) kill "pontoonten-12") - ((the binteger 190) kill "pontoonten-11") - ((the binteger 190) kill "pontoonten-10") - ((the binteger 190) kill "pontoonten-9") - ((the binteger 190) kill "pontoonten-8") - ((the binteger 190) kill "pontoonten-7") - ((the binteger 190) kill "pontoonten-6") - ((the binteger 190) kill "pontoonfive-3") - ((the binteger 190) kill "pontoonfive-4") - ((the binteger 190) kill "pontoonfive-5") - ((the binteger 190) kill "pontoonfive-6") - ((the binteger 190) kill "pontoonfive-7") - ((the binteger 190) kill "pontoonfive-8") - ((the binteger 190) kill "pontoonfive-12") - ((the binteger 190) kill "pontoonfive-13") - ((the binteger 190) kill "pontoonfive-14") - ((the binteger 190) kill "pontoonfive-15") - ((the binteger 190) kill "pontoonfive-16") - ((the binteger 190) kill "pontoonfive-17") - ((the binteger 190) kill "pontoonfive-18") - ((the binteger 190) kill "pontoonfive-19") - ((the binteger 190) kill "pontoonfive-20") - ((the binteger 190) kill "allpontoons-1") - ((the binteger 190) kill "med-res-level-12") - ((the binteger 190) kill "med-res-level-13") - ((the binteger 190) kill "med-res-level-15") - ((the binteger 190) kill "swamp-blimp-3") - ((the binteger 190) kill "barrel-85") - ((the binteger 190) kill "barrel-86") - ((the binteger 190) kill "money-2844") - ((the binteger 190) kill "money-2845") - ((the binteger 190) kill "money-2846") - ((the binteger 190) kill "money-2847") - ((the binteger 190) kill "money-2848") - ((the binteger 190) kill "money-2849") - ((the binteger 190) kill "money-4923") - ((the binteger 190) kill "money-4924") - ((the binteger 190) kill "money-4925") - ((the binteger 190) kill "money-4926") - ((the binteger 190) kill "money-4927") - ((the binteger 190) kill "eco-27") - ((the binteger 190) kill "sharkey-25") - ((the binteger 190) kill "barrel-117") - ((the binteger 190) kill "barrel-118") - ((the binteger 190) kill "barrel-119") - ((the binteger 190) kill "barrel-120") - ((the binteger 190) kill "barrel-121") - ((the binteger 190) kill "barrel-122") - ((the binteger 190) kill "crate-3129") - ((the binteger 190) kill "crate-3132") - ((the binteger 190) kill "crate-3133") - ((the binteger 190) kill "villageb-part-32") - ((the binteger 190) kill "villageb-part-30") - ((the binteger 190) kill "exit-chamber-dummy-1") - ((the binteger 190) kill "villageb-part-34") - ((the binteger 191) send-event target draw #t) - ((the binteger 191) joint "cameraB") - ((the binteger 241) joint "camera") - ((the binteger 241) send-event target draw #f) - ((the binteger 241) setting-unset ocean-off) - ((the binteger 241) dead "pontoonten-20") - ((the binteger 241) dead "pontoonten-19") - ((the binteger 241) dead "pontoonten-18") - ((the binteger 241) dead "pontoonten-17") - ((the binteger 241) dead "pontoonten-16") - ((the binteger 241) dead "pontoonten-15") - ((the binteger 241) dead "pontoonten-14") - ((the binteger 241) dead "pontoonten-13") - ((the binteger 241) dead "pontoonten-12") - ((the binteger 241) dead "pontoonten-11") - ((the binteger 241) dead "pontoonten-10") - ((the binteger 241) dead "pontoonten-9") - ((the binteger 241) dead "pontoonten-8") - ((the binteger 241) dead "pontoonten-7") - ((the binteger 241) dead "pontoonten-6") - ((the binteger 241) dead "pontoonfive-3") - ((the binteger 241) dead "pontoonfive-4") - ((the binteger 241) dead "pontoonfive-5") - ((the binteger 241) dead "pontoonfive-6") - ((the binteger 241) dead "pontoonfive-7") - ((the binteger 241) dead "pontoonfive-8") - ((the binteger 241) dead "pontoonfive-12") - ((the binteger 241) dead "pontoonfive-13") - ((the binteger 241) dead "pontoonfive-14") - ((the binteger 241) dead "pontoonfive-15") - ((the binteger 241) dead "pontoonfive-16") - ((the binteger 241) dead "pontoonfive-17") - ((the binteger 241) dead "pontoonfive-18") - ((the binteger 241) dead "pontoonfive-19") - ((the binteger 241) dead "pontoonfive-20") - ((the binteger 241) dead "allpontoons-1") - ((the binteger 241) dead "med-res-level-12") - ((the binteger 241) dead "med-res-level-13") - ((the binteger 241) dead "med-res-level-15") - ((the binteger 241) dead "swamp-blimp-3") - ((the binteger 241) dead "barrel-85") - ((the binteger 241) dead "barrel-86") - ((the binteger 241) dead "money-2844") - ((the binteger 241) dead "money-2845") - ((the binteger 241) dead "money-2846") - ((the binteger 241) dead "money-2847") - ((the binteger 241) dead "money-2848") - ((the binteger 241) dead "money-2849") - ((the binteger 241) dead "money-4923") - ((the binteger 241) dead "money-4924") - ((the binteger 241) dead "money-4925") - ((the binteger 241) dead "money-4926") - ((the binteger 241) dead "money-4927") - ((the binteger 241) dead "eco-27") - ((the binteger 241) dead "sharkey-25") - ((the binteger 241) dead "barrel-117") - ((the binteger 241) dead "barrel-118") - ((the binteger 241) dead "barrel-119") - ((the binteger 241) dead "barrel-120") - ((the binteger 241) dead "barrel-121") - ((the binteger 241) dead "barrel-122") - ((the binteger 241) dead "crate-3129") - ((the binteger 241) dead "crate-3132") - ((the binteger 241) dead "crate-3133") - ((the binteger 241) dead "villageb-part-32") - ((the binteger 241) dead "villageb-part-30") - ((the binteger 321) joint "cameraB") - ((the binteger 352) joint "camera") - ((the binteger 383) joint "cameraB") - ((the binteger 411) joint "camera") - ((the binteger 501) joint "cameraB") - ((the binteger 501) send-event target draw #t) - ((the binteger 567) joint "camera") - ((the binteger 634) alive "fireboulder-6") - ((the binteger 635) joint "cameraB") - ((the binteger 701) joint "camera") - ((the binteger 741) joint "cameraB") - ((the binteger 784) joint "camera") - ((the binteger 936) joint "cameraB") - ((the binteger 1065) joint "camera") - ((the binteger 1145) joint "cameraB") - ((the binteger 1241) joint "camera") + (95 send-event target draw #t) + (95 joint "cameraB") + (131 send-event target draw #f) + (131 joint "camera") + (190 setting-reset ocean-off #t) + (190 kill "pontoonten-20") + (190 kill "pontoonten-19") + (190 kill "pontoonten-18") + (190 kill "pontoonten-17") + (190 kill "pontoonten-16") + (190 kill "pontoonten-15") + (190 kill "pontoonten-14") + (190 kill "pontoonten-13") + (190 kill "pontoonten-12") + (190 kill "pontoonten-11") + (190 kill "pontoonten-10") + (190 kill "pontoonten-9") + (190 kill "pontoonten-8") + (190 kill "pontoonten-7") + (190 kill "pontoonten-6") + (190 kill "pontoonfive-3") + (190 kill "pontoonfive-4") + (190 kill "pontoonfive-5") + (190 kill "pontoonfive-6") + (190 kill "pontoonfive-7") + (190 kill "pontoonfive-8") + (190 kill "pontoonfive-12") + (190 kill "pontoonfive-13") + (190 kill "pontoonfive-14") + (190 kill "pontoonfive-15") + (190 kill "pontoonfive-16") + (190 kill "pontoonfive-17") + (190 kill "pontoonfive-18") + (190 kill "pontoonfive-19") + (190 kill "pontoonfive-20") + (190 kill "allpontoons-1") + (190 kill "med-res-level-12") + (190 kill "med-res-level-13") + (190 kill "med-res-level-15") + (190 kill "swamp-blimp-3") + (190 kill "barrel-85") + (190 kill "barrel-86") + (190 kill "money-2844") + (190 kill "money-2845") + (190 kill "money-2846") + (190 kill "money-2847") + (190 kill "money-2848") + (190 kill "money-2849") + (190 kill "money-4923") + (190 kill "money-4924") + (190 kill "money-4925") + (190 kill "money-4926") + (190 kill "money-4927") + (190 kill "eco-27") + (190 kill "sharkey-25") + (190 kill "barrel-117") + (190 kill "barrel-118") + (190 kill "barrel-119") + (190 kill "barrel-120") + (190 kill "barrel-121") + (190 kill "barrel-122") + (190 kill "crate-3129") + (190 kill "crate-3132") + (190 kill "crate-3133") + (190 kill "villageb-part-32") + (190 kill "villageb-part-30") + (190 kill "exit-chamber-dummy-1") + (190 kill "villageb-part-34") + (191 send-event target draw #t) + (191 joint "cameraB") + (241 joint "camera") + (241 send-event target draw #f) + (241 setting-unset ocean-off) + (241 dead "pontoonten-20") + (241 dead "pontoonten-19") + (241 dead "pontoonten-18") + (241 dead "pontoonten-17") + (241 dead "pontoonten-16") + (241 dead "pontoonten-15") + (241 dead "pontoonten-14") + (241 dead "pontoonten-13") + (241 dead "pontoonten-12") + (241 dead "pontoonten-11") + (241 dead "pontoonten-10") + (241 dead "pontoonten-9") + (241 dead "pontoonten-8") + (241 dead "pontoonten-7") + (241 dead "pontoonten-6") + (241 dead "pontoonfive-3") + (241 dead "pontoonfive-4") + (241 dead "pontoonfive-5") + (241 dead "pontoonfive-6") + (241 dead "pontoonfive-7") + (241 dead "pontoonfive-8") + (241 dead "pontoonfive-12") + (241 dead "pontoonfive-13") + (241 dead "pontoonfive-14") + (241 dead "pontoonfive-15") + (241 dead "pontoonfive-16") + (241 dead "pontoonfive-17") + (241 dead "pontoonfive-18") + (241 dead "pontoonfive-19") + (241 dead "pontoonfive-20") + (241 dead "allpontoons-1") + (241 dead "med-res-level-12") + (241 dead "med-res-level-13") + (241 dead "med-res-level-15") + (241 dead "swamp-blimp-3") + (241 dead "barrel-85") + (241 dead "barrel-86") + (241 dead "money-2844") + (241 dead "money-2845") + (241 dead "money-2846") + (241 dead "money-2847") + (241 dead "money-2848") + (241 dead "money-2849") + (241 dead "money-4923") + (241 dead "money-4924") + (241 dead "money-4925") + (241 dead "money-4926") + (241 dead "money-4927") + (241 dead "eco-27") + (241 dead "sharkey-25") + (241 dead "barrel-117") + (241 dead "barrel-118") + (241 dead "barrel-119") + (241 dead "barrel-120") + (241 dead "barrel-121") + (241 dead "barrel-122") + (241 dead "crate-3129") + (241 dead "crate-3132") + (241 dead "crate-3133") + (241 dead "villageb-part-32") + (241 dead "villageb-part-30") + (321 joint "cameraB") + (352 joint "camera") + (383 joint "cameraB") + (411 joint "camera") + (501 joint "cameraB") + (501 send-event target draw #t) + (567 joint "camera") + (634 alive "fireboulder-6") + (635 joint "cameraB") + (701 joint "camera") + (741 joint "cameraB") + (784 joint "camera") + (936 joint "cameraB") + (1065 joint "camera") + (1145 joint "cameraB") + (1241 joint "camera") ) ) ) @@ -324,14 +324,14 @@ :index 21 :parts 10 :command-list - '(((the binteger 197) joint "cameraB") - ((the binteger 351) joint "camera") - ((the binteger 431) joint "cameraB") - ((the binteger 553) joint "camera") - ((the binteger 631) joint "cameraB") - ((the binteger 842) joint "camera") - ((the binteger 900) joint "cameraB") - ((the binteger 1069) joint "camera") + '((197 joint "cameraB") + (351 joint "camera") + (431 joint "cameraB") + (553 joint "camera") + (631 joint "cameraB") + (842 joint "camera") + (900 joint "cameraB") + (1069 joint "camera") ) ) ) @@ -356,11 +356,7 @@ :index 17 :parts 6 :command-list - '(((the binteger 55) joint "cameraB") - ((the binteger 145) joint "camera") - ((the binteger 207) joint "cameraB") - ((the binteger 363) joint "camera") - ) + '((55 joint "cameraB") (145 joint "camera") (207 joint "cameraB") (363 joint "camera")) ) ) (else @@ -374,12 +370,7 @@ :index 19 :parts 8 :command-list - '(((the binteger 71) joint "cameraB") - ((the binteger 308) joint "camera") - ((the binteger 426) joint "cameraB") - ((the binteger 550) joint "camera") - ((the binteger 644) joint "cameraB") - ) + '((71 joint "cameraB") (308 joint "camera") (426 joint "cameraB") (550 joint "camera") (644 joint "cameraB")) ) ) ) @@ -1644,14 +1635,14 @@ :index 16 :parts 7 :command-list - '(((the binteger 196) joint "cameraB") - ((the binteger 241) joint "camera") - ((the binteger 286) joint "cameraB") - ((the binteger 436) joint "camera") - ((the binteger 526) joint "cameraB") - ((the binteger 581) joint "camera") - ((the binteger 639) joint "cameraB") - ((the binteger 715) joint "camera") + '((196 joint "cameraB") + (241 joint "camera") + (286 joint "cameraB") + (436 joint "camera") + (526 joint "cameraB") + (581 joint "camera") + (639 joint "cameraB") + (715 joint "camera") ) ) ) diff --git a/test/decompiler/reference/levels/village2/gambler_REF.gc b/test/decompiler/reference/levels/village2/gambler_REF.gc index 894f84070b..0938c6ee40 100644 --- a/test/decompiler/reference/levels/village2/gambler_REF.gc +++ b/test/decompiler/reference/levels/village2/gambler_REF.gc @@ -44,21 +44,21 @@ :command-list '((0 want-levels village2 rolling) (0 display-level rolling #f) - ((the binteger 29) joint "cameraB") - ((the binteger 103) joint "camera") - ((the binteger 231) joint "cameraB") - ((the binteger 730) display-level rolling display) - ((the binteger 730) want-force-vis rolling #t) - ((the binteger 732) alive "gorge-pusher-5") - ((the binteger 732) alive "gorge-pusher-6") - ((the binteger 732) alive "gorge-start-1") - ((the binteger 732) joint "camera") - ((the binteger 945) joint "cameraB") - ((the binteger 950) dead "gorge-pusher-5") - ((the binteger 950) dead "gorge-pusher-6") - ((the binteger 950) dead "gorge-start-1") - ((the binteger 950) display-level rolling #f) - ((the binteger 950) want-force-vis rolling #f) + (29 joint "cameraB") + (103 joint "camera") + (231 joint "cameraB") + (730 display-level rolling display) + (730 want-force-vis rolling #t) + (732 alive "gorge-pusher-5") + (732 alive "gorge-pusher-6") + (732 alive "gorge-start-1") + (732 joint "camera") + (945 joint "cameraB") + (950 dead "gorge-pusher-5") + (950 dead "gorge-pusher-6") + (950 dead "gorge-start-1") + (950 display-level rolling #f) + (950 want-force-vis rolling #f) ) ) ) diff --git a/test/decompiler/reference/levels/village2/geologist_REF.gc b/test/decompiler/reference/levels/village2/geologist_REF.gc index f6e75e00fa..93d7650833 100644 --- a/test/decompiler/reference/levels/village2/geologist_REF.gc +++ b/test/decompiler/reference/levels/village2/geologist_REF.gc @@ -43,14 +43,14 @@ :parts 13 :command-list '((0 want-levels village2 rolling) - ((the binteger 199) joint "cameraB") - ((the binteger 325) joint "camera") - ((the binteger 520) alive "racer-2") - ((the binteger 544) joint "cameraB") - ((the binteger 546) dead "racer-2") - ((the binteger 809) joint "camera") - ((the binteger 1031) joint "cameraB") - ((the binteger 1229) joint "camera") + (199 joint "cameraB") + (325 joint "camera") + (520 alive "racer-2") + (544 joint "cameraB") + (546 dead "racer-2") + (809 joint "camera") + (1031 joint "cameraB") + (1229 joint "camera") ) ) ) diff --git a/test/decompiler/reference/levels/village2/sage-bluehut_REF.gc b/test/decompiler/reference/levels/village2/sage-bluehut_REF.gc index f13e1e17c3..095082aba1 100644 --- a/test/decompiler/reference/levels/village2/sage-bluehut_REF.gc +++ b/test/decompiler/reference/levels/village2/sage-bluehut_REF.gc @@ -94,10 +94,7 @@ :index 8 :parts 12 :command-list - '(((the binteger 678) joint "cameraB") - ((the binteger 1166) joint "camera") - ((the binteger 1258) joint "cameraB") - ) + '((678 joint "cameraB") (1166 joint "camera") (1258 joint "cameraB")) ) ) (else @@ -113,12 +110,12 @@ :index 6 :parts 8 :command-list - '(((the binteger 141) joint "cameraB") - ((the binteger 214) joint "camera") - ((the binteger 308) joint "cameraB") - ((the binteger 686) joint "camera") - ((the binteger 786) joint "cameraB") - ((the binteger 843) joint "camera") + '((141 joint "cameraB") + (214 joint "camera") + (308 joint "cameraB") + (686 joint "camera") + (786 joint "cameraB") + (843 joint "camera") ) ) ) @@ -142,10 +139,7 @@ :index 7 :parts 4 :command-list - '(((the binteger 90) joint "cameraB") - ((the binteger 259) joint "camera") - ((the binteger 352) joint "cameraB") - ) + '((90 joint "cameraB") (259 joint "camera") (352 joint "cameraB")) ) ) ) diff --git a/test/decompiler/reference/levels/village2/warrior_REF.gc b/test/decompiler/reference/levels/village2/warrior_REF.gc index 94896bafb3..0a45a45768 100644 --- a/test/decompiler/reference/levels/village2/warrior_REF.gc +++ b/test/decompiler/reference/levels/village2/warrior_REF.gc @@ -81,17 +81,17 @@ :index 6 :parts 29 :command-list - '(((the binteger 125) joint "cameraB") - ((the binteger 260) joint "camera") - ((the binteger 574) joint "cameraB") - ((the binteger 918) joint "camera") - ((the binteger 1174) joint "cameraB") - ((the binteger 1174) shadow self #f) - ((the binteger 1301) joint "camera") - ((the binteger 1301) shadow self #t) - ((the binteger 2025) joint "cameraB") - ((the binteger 2322) joint "camera") - ((the binteger 2560) joint "cameraB") + '((125 joint "cameraB") + (260 joint "camera") + (574 joint "cameraB") + (918 joint "camera") + (1174 joint "cameraB") + (1174 shadow self #f) + (1301 joint "camera") + (1301 shadow self #t) + (2025 joint "cameraB") + (2322 joint "camera") + (2560 joint "cameraB") ) ) ) @@ -135,7 +135,7 @@ :index 8 :parts 6 :command-list - '(((the binteger 508) blackout (the binteger 10)) ((the binteger 511) blackout 0)) + '((508 blackout 10) (511 blackout 0)) ) ) (else diff --git a/test/decompiler/reference/levels/village3/miners_REF.gc b/test/decompiler/reference/levels/village3/miners_REF.gc index 2f36858f1c..bb9e21ed06 100644 --- a/test/decompiler/reference/levels/village3/miners_REF.gc +++ b/test/decompiler/reference/levels/village3/miners_REF.gc @@ -349,16 +349,16 @@ :index 4 :parts 16 :command-list - '(((the binteger 171) joint "cameraB") - ((the binteger 206) joint "camera") - ((the binteger 423) joint "cameraB") - ((the binteger 591) joint "camera") - ((the binteger 692) joint "cameraB") - ((the binteger 918) joint "camera") - ((the binteger 1122) joint "cameraB") - ((the binteger 1122) shadow self #f) - ((the binteger 1241) joint "camera") - ((the binteger 1241) shadow self #t) + '((171 joint "cameraB") + (206 joint "camera") + (423 joint "cameraB") + (591 joint "camera") + (692 joint "cameraB") + (918 joint "camera") + (1122 joint "cameraB") + (1122 shadow self #f) + (1241 joint "camera") + (1241 shadow self #t) ) ) ) @@ -384,13 +384,13 @@ :parts 8 :command-list '((0 want-levels village3 maincave) - ((the binteger 149) joint "cameraB") - ((the binteger 158) display-level maincave movie) - ((the binteger 158) want-force-vis maincave #t) - ((the binteger 435) display-level maincave #f) - ((the binteger 435) joint "camera") - ((the binteger 680) joint "cameraB") - ((the binteger 719) joint "camera") + (149 joint "cameraB") + (158 display-level maincave movie) + (158 want-force-vis maincave #t) + (435 display-level maincave #f) + (435 joint "camera") + (680 joint "cameraB") + (719 joint "camera") ) ) ) @@ -404,7 +404,7 @@ :index 11 :parts 7 :command-list - '(((the binteger 2) shadow "minertall-1" #f) ((the binteger 835) shadow "minertall-1" #t)) + '((2 shadow "minertall-1" #f) (835 shadow "minertall-1" #t)) ) ) ) @@ -481,7 +481,7 @@ :index 12 :parts 5 :command-list - '(((the binteger 2) shadow "minertall-1" #f) ((the binteger 500) shadow "minertall-1" #t)) + '((2 shadow "minertall-1" #f) (500 shadow "minertall-1" #t)) ) ) ) @@ -509,7 +509,7 @@ :index 8 :parts 6 :command-list - '(((the binteger 154) joint "cameraB") ((the binteger 461) joint "camera")) + '((154 joint "cameraB") (461 joint "camera")) ) ) ) diff --git a/test/decompiler/reference/levels/village3/sage-village3_REF.gc b/test/decompiler/reference/levels/village3/sage-village3_REF.gc index 5a88f7c869..37cafc3da2 100644 --- a/test/decompiler/reference/levels/village3/sage-village3_REF.gc +++ b/test/decompiler/reference/levels/village3/sage-village3_REF.gc @@ -107,36 +107,36 @@ :index 8 :parts 58 :command-list - '(((the binteger 206) joint "cameraB") - ((the binteger 268) joint "camera") - ((the binteger 321) joint "cameraB") - ((the binteger 415) joint "camera") - ((the binteger 502) joint "cameraB") - ((the binteger 655) joint "camera") - ((the binteger 864) joint "cameraB") - ((the binteger 958) joint "camera") - ((the binteger 1178) joint "cameraB") - ((the binteger 1295) joint "camera") - ((the binteger 1377) joint "cameraB") - ((the binteger 1683) joint "camera") - ((the binteger 2066) joint "cameraB") - ((the binteger 2209) joint "camera") - ((the binteger 2389) joint "cameraB") - ((the binteger 2707) joint "camera") - ((the binteger 2769) joint "cameraB") - ((the binteger 2901) joint "camera") - ((the binteger 3021) joint "cameraB") - ((the binteger 3158) joint "camera") - ((the binteger 3301) joint "cameraB") - ((the binteger 3533) joint "camera") - ((the binteger 3632) joint "cameraB") - ((the binteger 3692) joint "camera") - ((the binteger 3780) joint "cameraB") - ((the binteger 3818) joint "camera") - ((the binteger 4188) joint "cameraB") - ((the binteger 4324) joint "camera") - ((the binteger 4462) joint "cameraB") - ((the binteger 4542) joint "camera") + '((206 joint "cameraB") + (268 joint "camera") + (321 joint "cameraB") + (415 joint "camera") + (502 joint "cameraB") + (655 joint "camera") + (864 joint "cameraB") + (958 joint "camera") + (1178 joint "cameraB") + (1295 joint "camera") + (1377 joint "cameraB") + (1683 joint "camera") + (2066 joint "cameraB") + (2209 joint "camera") + (2389 joint "cameraB") + (2707 joint "camera") + (2769 joint "cameraB") + (2901 joint "camera") + (3021 joint "cameraB") + (3158 joint "camera") + (3301 joint "cameraB") + (3533 joint "camera") + (3632 joint "cameraB") + (3692 joint "camera") + (3780 joint "cameraB") + (3818 joint "camera") + (4188 joint "cameraB") + (4324 joint "camera") + (4462 joint "cameraB") + (4542 joint "camera") ) ) ) @@ -160,12 +160,7 @@ :index 4 :parts 9 :command-list - '(((the binteger 111) joint "cameraB") - ((the binteger 189) joint "camera") - ((the binteger 455) joint "cameraB") - ((the binteger 638) joint "camera") - ((the binteger 753) joint "cameraB") - ) + '((111 joint "cameraB") (189 joint "camera") (455 joint "cameraB") (638 joint "camera") (753 joint "cameraB")) ) ) (else @@ -177,7 +172,7 @@ :index 6 :parts 6 :command-list - '(((the binteger 155) joint "cameraB") ((the binteger 370) joint "camera")) + '((155 joint "cameraB") (370 joint "camera")) ) ) ) diff --git a/test/decompiler/reference/levels/village_common/oracle_REF.gc b/test/decompiler/reference/levels/village_common/oracle_REF.gc index ea76a6e412..70ec7d6074 100644 --- a/test/decompiler/reference/levels/village_common/oracle_REF.gc +++ b/test/decompiler/reference/levels/village_common/oracle_REF.gc @@ -135,7 +135,7 @@ (0 kill "ceilingflag-9") (0 kill "orb-cache-top-14") (0 setting-reset ocean-off near) - ((the binteger 399) setting-unset ocean-off) + (399 setting-unset ocean-off) ) ) ) diff --git a/test/goalc/source_templates/with_game/test-static-pair-1.gc b/test/goalc/source_templates/with_game/test-static-pair-1.gc index 12964bbc6f..d9c84ef1ac 100644 --- a/test/goalc/source_templates/with_game/test-static-pair-1.gc +++ b/test/goalc/source_templates/with_game/test-static-pair-1.gc @@ -1,5 +1,5 @@ (defun test-static-pair-function () - (format #t "~A~%" '(8 ( w . a ) beans 16 (-8 -16) twelve ( a . "test"))) + (format #t "~A~%" '(1 ( w . a ) beans 2 (-1 -2) twelve ( a . "test"))) 0 ) diff --git a/test/goalc/test_with_game.cpp b/test/goalc/test_with_game.cpp index 26f5221918..c411ed9cf9 100644 --- a/test/goalc/test_with_game.cpp +++ b/test/goalc/test_with_game.cpp @@ -869,10 +869,9 @@ TEST_F(WithGameTests, StackInlineArray) { } TEST_F(WithGameTests, GetEnumVals) { - shared_compiler->runner.run_static_test( - env, testCategory, "test-get-enum-vals.gc", - {"((thing1 . #) (thing3 . #) " - "(thing5 . #))\n0\n"}); + shared_compiler->runner.run_static_test(env, testCategory, "test-get-enum-vals.gc", + {"((thing1 . 1) (thing3 . 3) " + "(thing5 . 5))\n0\n"}); } TEST_F(WithGameTests, SetU64FromFloat) {