mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
b2052016e2
* time of day * goal code seems to work * stars at wrong spot * stars and sun work * debugging clouds * fix texture correction * sky works * cleanup, add profiler * clean up * final clean up * offline tests * missing include
9268 lines
217 KiB
Common Lisp
9268 lines
217 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: default-menu.gc
|
|
;; name in dgo: default-menu
|
|
;; dgos: GAME, ENGINE
|
|
|
|
;; Forward declarations for stuff we haven't written yet:
|
|
(define-extern external-cam-reset! (function none))
|
|
(define-extern time-of-day-setup (function symbol symbol))
|
|
(define-extern *compact-actors* symbol)
|
|
(define-extern find-instance-by-name (function string instance))
|
|
(define-extern *edit-instance* string)
|
|
(define-extern cam-free-floating state)
|
|
(define-extern cam-standoff state)
|
|
(define-extern cam-pov state)
|
|
(define-extern cam-pov180 state)
|
|
(define-extern cam-pov-track state)
|
|
(define-extern cam-billy state)
|
|
(define-extern cam-endlessfall state)
|
|
(define-extern cam-lookat state)
|
|
(define-extern cam-stick state)
|
|
(define-extern cam-bike state)
|
|
(define-extern cam-fixed state)
|
|
(define-extern cam-decel state)
|
|
(define-extern cam-eye state)
|
|
(define-extern cam-point-watch state)
|
|
(define-extern cam-orbit state)
|
|
(define-extern cam-robotboss state)
|
|
(define-extern cam-layout-stop (function none))
|
|
(define-extern cam-layout-start (function none))
|
|
(define-extern prototype-bucket-recalc-fields (function instance none))
|
|
(define-extern auto-save-command (function symbol int int process-tree none))
|
|
|
|
;; this file is debug only
|
|
(when *debug-segment*
|
|
;; definition for symbol *debug-menu-context*, type debug-menu-context
|
|
(define *debug-menu-context* (new 'debug 'debug-menu-context))
|
|
|
|
;; definition for symbol *dm-cam-mode-interpolation*, type debug-menu
|
|
(define *dm-cam-mode-interpolation* (the-as debug-menu 0))
|
|
|
|
;; definition for function dm-cam-mode-func
|
|
(defun dm-cam-mode-func ((arg0 uint) (arg1 int))
|
|
(with-pp
|
|
(when (and (= arg1 4) arg0)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) pp)
|
|
(set! (-> a1-1 num-params) 2)
|
|
(set! (-> a1-1 message) 'change-state)
|
|
(set! (-> a1-1 param 0) arg0)
|
|
(set! (-> a1-1 param 1) (the-as uint *dm-cam-mode-interpolation*))
|
|
(send-event-function *camera* a1-1)
|
|
)
|
|
)
|
|
(cond
|
|
(*camera*
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) pp)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'query-state)
|
|
(set! (-> a1-2 param 0) arg0)
|
|
(send-event-function *camera* a1-2)
|
|
)
|
|
)
|
|
(else
|
|
(not arg0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-settings-func
|
|
(defun dm-cam-settings-func ((arg0 int) (arg1 int))
|
|
(with-pp
|
|
(when (and (= arg1 4) *camera*)
|
|
(cond
|
|
((zero? arg0)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) pp)
|
|
(set! (-> a1-1 num-params) 1)
|
|
(set! (-> a1-1 message) 'toggle-slave-option)
|
|
(set! (-> a1-1 param 0) (the-as uint 1))
|
|
(send-event-function *camera* a1-1)
|
|
)
|
|
)
|
|
((= arg0 13)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) pp)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'toggle-slave-option)
|
|
(set! (-> a1-2 param 0) (the-as uint 8192))
|
|
(send-event-function *camera* a1-2)
|
|
)
|
|
)
|
|
((= arg0 1)
|
|
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-3 from) pp)
|
|
(set! (-> a1-3 num-params) 1)
|
|
(set! (-> a1-3 message) 'toggle-slave-option)
|
|
(set! (-> a1-3 param 0) (the-as uint 2))
|
|
(send-event-function *camera* a1-3)
|
|
)
|
|
)
|
|
((= arg0 2)
|
|
(let ((a1-4 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-4 from) pp)
|
|
(set! (-> a1-4 num-params) 1)
|
|
(set! (-> a1-4 message) 'toggle-slave-option)
|
|
(set! (-> a1-4 param 0) (the-as uint 4))
|
|
(send-event-function *camera* a1-4)
|
|
)
|
|
)
|
|
((= arg0 3)
|
|
(let ((a1-5 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-5 from) pp)
|
|
(set! (-> a1-5 num-params) 1)
|
|
(set! (-> a1-5 message) 'toggle-slave-option)
|
|
(set! (-> a1-5 param 0) (the-as uint 128))
|
|
(send-event-function *camera* a1-5)
|
|
)
|
|
)
|
|
((= arg0 4)
|
|
(let ((a1-6 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-6 from) pp)
|
|
(set! (-> a1-6 num-params) 1)
|
|
(set! (-> a1-6 message) 'toggle-slave-option)
|
|
(set! (-> a1-6 param 0) (the-as uint 8))
|
|
(send-event-function *camera* a1-6)
|
|
)
|
|
)
|
|
((= arg0 7)
|
|
(let ((a1-7 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-7 from) pp)
|
|
(set! (-> a1-7 num-params) 1)
|
|
(set! (-> a1-7 message) 'toggle-slave-option)
|
|
(set! (-> a1-7 param 0) (the-as uint 16))
|
|
(send-event-function *camera* a1-7)
|
|
)
|
|
)
|
|
((= arg0 8)
|
|
(let ((a1-8 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-8 from) pp)
|
|
(set! (-> a1-8 num-params) 1)
|
|
(set! (-> a1-8 message) 'toggle-slave-option)
|
|
(set! (-> a1-8 param 0) (the-as uint 64))
|
|
(send-event-function *camera* a1-8)
|
|
)
|
|
)
|
|
((= arg0 6)
|
|
(let ((a1-9 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-9 from) pp)
|
|
(set! (-> a1-9 num-params) 0)
|
|
(set! (-> a1-9 message) 'reset-root)
|
|
(send-event-function *camera* a1-9)
|
|
)
|
|
)
|
|
((= arg0 9)
|
|
(set!
|
|
(-> *camera* master-options)
|
|
(logxor (-> *camera* master-options) 1)
|
|
)
|
|
)
|
|
((= arg0 10)
|
|
(set!
|
|
(-> *camera* master-options)
|
|
(logxor (-> *camera* master-options) 4)
|
|
)
|
|
)
|
|
((= arg0 11)
|
|
(let ((a1-10 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-10 from) pp)
|
|
(set! (-> a1-10 num-params) 1)
|
|
(set! (-> a1-10 message) 'toggle-slave-option)
|
|
(set! (-> a1-10 param 0) (the-as uint 32))
|
|
(send-event-function *camera* a1-10)
|
|
)
|
|
)
|
|
((= arg0 12)
|
|
(let ((a1-11 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-11 from) pp)
|
|
(set! (-> a1-11 num-params) 1)
|
|
(set! (-> a1-11 message) 'toggle-slave-option)
|
|
(set! (-> a1-11 param 0) (the-as uint 512))
|
|
(send-event-function *camera* a1-11)
|
|
)
|
|
)
|
|
((= arg0 14)
|
|
(let ((a1-12 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-12 from) pp)
|
|
(set! (-> a1-12 num-params) 1)
|
|
(set! (-> a1-12 message) 'toggle-slave-option)
|
|
(set! (-> a1-12 param 0) (the-as uint #x8000))
|
|
(send-event-function *camera* a1-12)
|
|
)
|
|
)
|
|
((= arg0 15)
|
|
(let ((a1-13 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-13 from) pp)
|
|
(set! (-> a1-13 num-params) 1)
|
|
(set! (-> a1-13 message) 'toggle-slave-option)
|
|
(set! (-> a1-13 param 0) (the-as uint #x10000))
|
|
(send-event-function *camera* a1-13)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
(*camera*
|
|
(cond
|
|
((zero? arg0)
|
|
(logtest? (-> *camera* slave-options) 1)
|
|
)
|
|
((= arg0 13)
|
|
(logtest? (-> *camera* slave-options) 8192)
|
|
)
|
|
((= arg0 1)
|
|
(logtest? (-> *camera* slave-options) 2)
|
|
)
|
|
((= arg0 2)
|
|
(logtest? (-> *camera* slave-options) 4)
|
|
)
|
|
((= arg0 3)
|
|
(logtest? (-> *camera* slave-options) 128)
|
|
)
|
|
((= arg0 4)
|
|
(logtest? (-> *camera* slave-options) 8)
|
|
)
|
|
((= arg0 7)
|
|
(logtest? (-> *camera* slave-options) 16)
|
|
)
|
|
((= arg0 8)
|
|
(logtest? (-> *camera* slave-options) 64)
|
|
)
|
|
((= arg0 11)
|
|
(logtest? (-> *camera* slave-options) 32)
|
|
)
|
|
((= arg0 12)
|
|
(logtest? (-> *camera* slave-options) 512)
|
|
)
|
|
((= arg0 14)
|
|
(logtest? (-> *camera* slave-options) #x8000)
|
|
)
|
|
((= arg0 15)
|
|
(logtest? #x10000 (-> *camera* slave-options))
|
|
)
|
|
((= arg0 9)
|
|
(logtest? (-> *camera* master-options) 1)
|
|
)
|
|
((= arg0 10)
|
|
(logtest? (-> *camera* master-options) 4)
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-settings-func-int
|
|
(defun
|
|
dm-cam-settings-func-int
|
|
((arg0 int) (arg1 int) (arg2 debug-menu) (arg3 debug-menu))
|
|
(when (and (= arg1 4) *camera*)
|
|
(if (= (/ arg0 8) 5)
|
|
(set! *dm-cam-mode-interpolation* arg2)
|
|
)
|
|
)
|
|
(cond
|
|
(*camera*
|
|
(if (= (/ arg0 8) 5)
|
|
*dm-cam-mode-interpolation*
|
|
arg3
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-externalize
|
|
(defun dm-cam-externalize ((arg0 symbol) (arg1 int))
|
|
(when (= arg1 4)
|
|
(cond
|
|
((= arg0 'reset)
|
|
(if (!= *external-cam-mode* 'locked)
|
|
(external-cam-reset!)
|
|
)
|
|
)
|
|
((= arg0 'allow-z)
|
|
(set! *external-cam-options* (logxor *external-cam-options* 1))
|
|
)
|
|
((= *external-cam-mode* arg0)
|
|
(set! *external-cam-mode* #f)
|
|
)
|
|
(else
|
|
(if (not *external-cam-mode*)
|
|
(external-cam-reset!)
|
|
)
|
|
(set! *external-cam-mode* arg0)
|
|
)
|
|
)
|
|
)
|
|
(if (= arg0 'allow-z)
|
|
(logtest? *external-cam-options* 1)
|
|
(= *external-cam-mode* arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-cam-render-float
|
|
(defun dm-cam-render-float ((arg0 int) (arg1 int) (arg2 float) (arg3 float))
|
|
(with-pp
|
|
(when (= arg1 4)
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(when *math-camera*
|
|
(set! (-> *math-camera* fov) (* 182.04445 arg2))
|
|
(update-math-camera
|
|
*math-camera*
|
|
(-> *setting-control* current video-mode)
|
|
(-> *setting-control* current aspect-ratio)
|
|
)
|
|
)
|
|
)
|
|
((= (/ arg0 8) 1)
|
|
(when *camera*
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) pp)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'set-fov)
|
|
(set! (-> a1-2 param 0) (the-as uint (* 182.04445 arg2)))
|
|
(send-event-function *camera* a1-2)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(cond
|
|
(*math-camera*
|
|
(* 0.005493164 (-> *math-camera* fov))
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
((= (/ arg0 8) 1)
|
|
(cond
|
|
(*camera*
|
|
(let ((f30-0 0.005493164)
|
|
(a1-3 (new 'stack-no-clear 'event-message-block))
|
|
)
|
|
(set! (-> a1-3 from) pp)
|
|
(set! (-> a1-3 num-params) 0)
|
|
(set! (-> a1-3 message) 'query-fov)
|
|
(* f30-0 (the-as float (send-event-function *camera* a1-3)))
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-subdiv-float
|
|
(defun dm-subdiv-float ((arg0 symbol) (arg1 int) (arg2 float) (arg3 float))
|
|
(when (= arg1 4)
|
|
(case arg0
|
|
(('close)
|
|
(if (and *math-camera* *subdivide-settings*)
|
|
(set! (-> *subdivide-settings* close 3) (* 4096.0 arg2))
|
|
)
|
|
)
|
|
(('far)
|
|
(if (and *math-camera* *subdivide-settings*)
|
|
(set! (-> *subdivide-settings* far 3) (* 4096.0 arg2))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(case arg0
|
|
(('close)
|
|
(if (and *math-camera* *subdivide-settings*)
|
|
(* 0.00024414062 (-> *subdivide-settings* close 3))
|
|
arg3
|
|
)
|
|
)
|
|
(('far)
|
|
(if (and *math-camera* *subdivide-settings*)
|
|
(* 0.00024414062 (-> *subdivide-settings* far 3))
|
|
arg3
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-subdiv-int
|
|
(defun dm-subdiv-int ((arg0 function) (arg1 int) (arg2 object) (arg3 object))
|
|
(when (= arg1 4)
|
|
(case arg0
|
|
(('anim-speed)
|
|
(if *anim-tester*
|
|
(set! (-> *anim-tester* 0 speed) (the-as int arg2))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(case arg0
|
|
(('anim-speed)
|
|
(if *anim-tester*
|
|
(-> *anim-tester* 0 speed)
|
|
arg3
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-setting-language
|
|
(defun dm-setting-language ((arg0 function) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! (-> *setting-control* default language) (the-as language-enum (/ (the-as int arg0) 8)))
|
|
)
|
|
(= (-> *setting-control* default language) (the-as language-enum (/ (the-as int arg0) 8)))
|
|
)
|
|
|
|
;; definition for function dm-current-continue
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defun dm-current-continue ((arg0 function) (arg1 int))
|
|
(if (= arg1 4)
|
|
(start 'play (get-continue-by-name *game-info* (the-as string arg0)))
|
|
)
|
|
(the-as
|
|
object
|
|
(string=
|
|
(-> (get-or-create-continue! *game-info*) name)
|
|
(the-as string arg0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-subdiv-draw-func
|
|
(defun dm-subdiv-draw-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *subdivide-draw-mode* (/ arg0 8))
|
|
)
|
|
(= (/ arg0 8) *subdivide-draw-mode*)
|
|
)
|
|
|
|
;; definition for function dm-ocean-subdiv-draw-func
|
|
(defun dm-ocean-subdiv-draw-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *ocean-subdivide-draw-mode* (/ arg0 8))
|
|
)
|
|
(= (/ arg0 8) *ocean-subdivide-draw-mode*)
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-func
|
|
(defun dm-time-of-day-func ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(set! *time-of-day-mode* (/ arg0 8))
|
|
(set! (-> *time-of-day-proc* 0 minute) 0)
|
|
(cond
|
|
((zero? (/ arg0 8))
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 7)
|
|
)
|
|
((= (/ arg0 8) 1)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 9)
|
|
)
|
|
((= (/ arg0 8) 2)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 12)
|
|
)
|
|
((= (/ arg0 8) 3)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 15)
|
|
)
|
|
((= (/ arg0 8) 4)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 18)
|
|
)
|
|
((= (/ arg0 8) 5)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 19)
|
|
)
|
|
((= (/ arg0 8) 6)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 23)
|
|
)
|
|
((= (/ arg0 8) 7)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(set! (-> *time-of-day-proc* 0 hour) 4)
|
|
)
|
|
((= (/ arg0 8) 8)
|
|
(if *time-of-day-fast*
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 18000.0)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 300.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(= (/ arg0 8) *time-of-day-mode*)
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-func2
|
|
(defun dm-time-of-day-func2 ((arg0 (pointer symbol)) (arg1 int))
|
|
(when (= arg1 4)
|
|
(set! (-> arg0 0) (not (-> arg0 0)))
|
|
(when (!= (-> *time-of-day-proc* 0 time-ratio) 0.0)
|
|
(if *time-of-day-fast*
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 18000.0)
|
|
(set! (-> *time-of-day-proc* 0 time-ratio) 300.0)
|
|
)
|
|
)
|
|
)
|
|
(-> arg0 0)
|
|
)
|
|
|
|
;; definition for function dm-boolean-toggle-pick-func
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defun dm-boolean-toggle-pick-func ((arg0 (pointer symbol)) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! (-> arg0 0) (not (-> arg0 0)))
|
|
)
|
|
(the-as object (-> arg0 0))
|
|
)
|
|
|
|
;; definition for function dm-time-of-day-pick-func
|
|
(defun dm-time-of-day-pick-func ((arg0 symbol) (arg1 int))
|
|
(time-of-day-setup (= arg1 4))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function dm-actor-marks-pick-func
|
|
(defun dm-actor-marks-pick-func ((arg0 symbol) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *display-actor-marks* arg0)
|
|
)
|
|
(= *display-actor-marks* arg0)
|
|
)
|
|
|
|
;; definition for function dm-compact-actor-pick-func
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defun dm-compact-actor-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *compact-actors* (the-as symbol arg0))
|
|
)
|
|
(the-as object (= *compact-actors* arg0))
|
|
)
|
|
|
|
;; definition for function dm-actor-vis-pick-func
|
|
(defun dm-actor-vis-pick-func ((arg0 symbol) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *display-actor-vis* arg0)
|
|
)
|
|
(= *display-actor-vis* arg0)
|
|
)
|
|
|
|
;; definition for function dm-game-mode-pick-func
|
|
(defun dm-game-mode-pick-func ((arg0 symbol) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! (-> *game-info* mode) arg0)
|
|
)
|
|
(= (-> *game-info* mode) arg0)
|
|
)
|
|
|
|
;; definition for function dm-vu1-user-toggle-pick-func
|
|
(defun dm-vu1-user-toggle-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *vu1-enable-user-menu* (logxor *vu1-enable-user-menu* arg0))
|
|
)
|
|
(logtest? *vu1-enable-user-menu* arg0)
|
|
)
|
|
|
|
;; definition for function dm-vu1-user-set-pick-func
|
|
(defun dm-vu1-user-set-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *vu1-enable-user-menu* arg0)
|
|
)
|
|
(= *vu1-enable-user-menu* arg0)
|
|
)
|
|
|
|
;; definition for function dm-texture-user-toggle-pick-func
|
|
(defun dm-texture-user-toggle-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *texture-enable-user-menu* (logxor *texture-enable-user-menu* arg0))
|
|
)
|
|
(logtest? *texture-enable-user-menu* arg0)
|
|
)
|
|
|
|
;; definition for function dm-texture-user-set-pick-func
|
|
(defun dm-texture-user-set-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *texture-enable-user-menu* arg0)
|
|
)
|
|
(= *texture-enable-user-menu* arg0)
|
|
)
|
|
|
|
;; definition for function dm-strip-lines-toggle-pick-func
|
|
(defun dm-strip-lines-toggle-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *display-strip-lines* (logxor *display-strip-lines* (/ arg0 8)))
|
|
)
|
|
(logtest? *display-strip-lines* (/ arg0 8))
|
|
)
|
|
|
|
;; definition for function dm-strip-lines-set-pick-func
|
|
(defun dm-strip-lines-set-pick-func ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set! *display-strip-lines* (/ arg0 8))
|
|
)
|
|
(= *display-strip-lines* (/ arg0 8))
|
|
)
|
|
|
|
;; definition for function dm-edit-instance-toggle-pick-func
|
|
(defun dm-edit-instance-toggle-pick-func ((arg0 int) (arg1 int))
|
|
(let ((v1-0 (find-instance-by-name *edit-instance*)))
|
|
(when v1-0
|
|
(if (= arg1 4)
|
|
(set! (-> v1-0 unknown) (logxor (-> v1-0 unknown) (the-as uint arg0)))
|
|
)
|
|
(logtest? (-> v1-0 unknown) arg0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function all-texture-tweak-adjust
|
|
;; INFO: Return type mismatch int vs object.
|
|
(defun all-texture-tweak-adjust ((arg0 texture-page-dir) (arg1 float))
|
|
(format #t "texture tweak NYI~%")
|
|
; (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)
|
|
)
|
|
|
|
;; definition for function debug-menu-node<?
|
|
(defun debug-menu-node<? ((arg0 debug-menu) (arg1 debug-menu))
|
|
(string<=? (-> arg0 name) (-> arg1 name))
|
|
)
|
|
|
|
;; definition for function dm-shader-pick-func
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defun dm-shader-pick-func ((arg0 texture-id) (arg1 int))
|
|
(if
|
|
(and
|
|
(= arg1 4)
|
|
*texture-page-dir*
|
|
(-> *texture-page-dir* entries (-> arg0 page) page)
|
|
(-> *texture-page-dir* entries (-> arg0 page) link)
|
|
(nonzero?
|
|
(-> *texture-page-dir* entries (-> arg0 page) link next (-> arg0 index))
|
|
)
|
|
)
|
|
(set! *edit-shader* (the-as int arg0))
|
|
)
|
|
(the-as object (and (nonzero? *edit-shader*) (= arg0 *edit-shader*)))
|
|
)
|
|
|
|
;; definition for symbol *shader-pick-menu*, type debug-menu
|
|
(define *shader-pick-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for function build-shader-list
|
|
(defun build-shader-list ()
|
|
(debug-menu-remove-all-items *shader-pick-menu*)
|
|
(when *texture-page-dir*
|
|
(dotimes (gp-0 (-> *texture-page-dir* length))
|
|
(let ((s5-0 (-> *texture-page-dir* entries gp-0 page))
|
|
(s4-0 (-> *texture-page-dir* entries gp-0 link))
|
|
)
|
|
(when (and s5-0 s4-0)
|
|
(dotimes (s3-0 (-> s5-0 length))
|
|
(when (and (-> s5-0 data s3-0) (nonzero? (-> s4-0 next s3-0)))
|
|
(let
|
|
((a1-1
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(-> s5-0 data s3-0 name)
|
|
(logior (shr (shl s3-0 52) 44) (shr (shl gp-0 52) 32))
|
|
(the-as (function int debug-menu-msg object) dm-shader-pick-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item *shader-pick-menu* a1-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v0-3 (sort (-> *shader-pick-menu* items) debug-menu-node<?)))
|
|
(set! (-> *shader-pick-menu* items) (the-as pair v0-3))
|
|
v0-3
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-instance-pick-func
|
|
(defun dm-instance-pick-func ((arg0 string) (arg1 int))
|
|
(when (= arg1 4)
|
|
(if (find-instance-by-name arg0)
|
|
(set! *edit-instance* arg0)
|
|
(set! *edit-instance* #f)
|
|
)
|
|
)
|
|
(and *edit-instance* (string= arg0 *edit-instance*))
|
|
)
|
|
|
|
;; definition for function dm-enable-instance-func
|
|
(defun dm-enable-instance-func ((arg0 string) (arg1 int))
|
|
(let ((v1-0 (find-instance-by-name arg0)))
|
|
(cond
|
|
(v1-0
|
|
(if (= arg1 4)
|
|
(set! (-> v1-0 unknown) (logxor (-> v1-0 unknown) 1))
|
|
)
|
|
(zero? (logand (-> v1-0 unknown) 1))
|
|
)
|
|
(else
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *instance-shrub-menu*, type debug-menu
|
|
(define *instance-shrub-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for symbol *instance-tie-menu*, type debug-menu
|
|
(define *instance-tie-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for symbol *enable-instance-tie-menu*, type debug-menu
|
|
(define *enable-instance-tie-menu* (the-as debug-menu #f))
|
|
|
|
;; definition for function build-instance-list
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun build-instance-list ()
|
|
(debug-menu-remove-all-items *instance-shrub-menu*)
|
|
(debug-menu-remove-all-items *instance-tie-menu*)
|
|
(debug-menu-remove-all-items *enable-instance-tie-menu*)
|
|
(set! *display-instance-info* #f)
|
|
(dotimes (gp-0 (-> *level* length))
|
|
(let ((v1-3 (-> *level* level gp-0)))
|
|
(when (= (-> v1-3 status) 'active)
|
|
(let ((s5-0 (-> v1-3 bsp drawable-trees)))
|
|
(dotimes (s4-0 (-> s5-0 length))
|
|
(let ((v1-7 (-> s5-0 data s4-0)))
|
|
(case (-> v1-7 type)
|
|
((drawable-tree-instance-shrub)
|
|
(let
|
|
((s3-0
|
|
(->
|
|
(the-as drawable-tree-instance-shrub v1-7)
|
|
info
|
|
prototype-inline-array-shrub
|
|
)
|
|
)
|
|
)
|
|
(dotimes (s2-0 (-> s3-0 length))
|
|
(let
|
|
((a1-4
|
|
(new
|
|
'global
|
|
'debug-menu-item-flag
|
|
(the-as string (-> s3-0 data s2-0 name))
|
|
(the-as int (-> s3-0 data s2-0 name))
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-instance-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item *instance-shrub-menu* a1-4)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((drawable-tree-instance-tie)
|
|
(let
|
|
((s3-1
|
|
(->
|
|
(the-as drawable-tree-instance-tie v1-7)
|
|
prototypes
|
|
prototype-array-tie
|
|
)
|
|
)
|
|
)
|
|
(dotimes (s2-1 (-> s3-1 length))
|
|
(let
|
|
((a1-7
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(the-as string (-> s3-1 array-data s2-1 name))
|
|
(the-as int (-> s3-1 array-data s2-1 name))
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-instance-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item *instance-tie-menu* a1-7)
|
|
)
|
|
(let
|
|
((a1-9
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(the-as string (-> s3-1 array-data s2-1 name))
|
|
(the-as int (-> s3-1 array-data s2-1 name))
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-enable-instance-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a1-9 is-on) #t)
|
|
(debug-menu-append-item *enable-instance-tie-menu* a1-9)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set!
|
|
(-> *instance-shrub-menu* items)
|
|
(the-as
|
|
pair
|
|
(sort
|
|
(-> *instance-shrub-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu))
|
|
(string<=? (-> arg0 name) (-> arg1 name))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set!
|
|
(-> *instance-tie-menu* items)
|
|
(the-as
|
|
pair
|
|
(sort
|
|
(-> *instance-tie-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu))
|
|
(string<=? (-> arg0 name) (-> arg1 name))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set!
|
|
(-> *enable-instance-tie-menu* items)
|
|
(the-as
|
|
pair
|
|
(sort
|
|
(-> *enable-instance-tie-menu* items)
|
|
(lambda ((arg0 debug-menu) (arg1 debug-menu))
|
|
(string<=? (-> arg0 name) (-> arg1 name))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function debug-create-cam-restore
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defun debug-create-cam-restore ()
|
|
(cond
|
|
(*math-camera*
|
|
(format #t "(defun-debug cam-restore ()~%")
|
|
(format #t " ;;this function is a hack, don't use it as an example~%")
|
|
(format #t " (let ((pos (new 'stack 'vector))~%")
|
|
(format #t " (rot (new 'stack 'matrix)))~%")
|
|
(format #t " (set! (-> pos x) ~12F)~%" (-> *math-camera* trans x))
|
|
(format #t " (set! (-> pos y) ~12F)~%" (-> *math-camera* trans y))
|
|
(format #t " (set! (-> pos z) ~12F)~%" (-> *math-camera* trans z))
|
|
(format #t " (set! (-> pos w) 1.0)~%")
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 0) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 0 x)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 1) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 0 y)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 2) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 0 z)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 3) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 0 w)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 4) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 1 x)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 5) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 1 y)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 6) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 1 z)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 7) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 1 w)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 8) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 2 x)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 9) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 2 y)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 10) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 2 z)
|
|
)
|
|
(format
|
|
#t
|
|
" (set! (-> rot data 11) ~12F)~%"
|
|
(-> *math-camera* inv-camera-rot vector 2 w)
|
|
)
|
|
(format #t " (set! (-> rot data 12) ~12F)~%" 0.0)
|
|
(format #t " (set! (-> rot data 13) ~12F)~%" 0.0)
|
|
(format #t " (set! (-> rot data 14) ~12F)~%" 0.0)
|
|
(format #t " (set! (-> rot data 15) ~12F)~%" 1.0)
|
|
(let ((gp-0 (new 'stack-no-clear 'euler-angles)))
|
|
(matrix->eul gp-0 (-> *math-camera* inv-camera-rot) 21)
|
|
(format
|
|
#t
|
|
" ;; euler angles (xyz order degrees) x ~R y ~R z ~R~%"
|
|
(-> gp-0 x)
|
|
(-> gp-0 y)
|
|
(-> gp-0 z)
|
|
)
|
|
(format
|
|
#t
|
|
" ;; MAYA euler angles (xyz order degrees) x ~R y ~R z ~R~%"
|
|
(-> gp-0 x)
|
|
(- 32768.0 (-> gp-0 y))
|
|
(-> gp-0 z)
|
|
)
|
|
)
|
|
(format #t " (debug-set-camera-pos-rot! pos rot)~%")
|
|
(format
|
|
#t
|
|
" (send-event *camera* 'set-fov (deg ~f))~%"
|
|
(* 0.005493164 (-> *math-camera* fov))
|
|
)
|
|
(format #t " (clear *camera-old-level*)~%")
|
|
(format
|
|
#t
|
|
" (format *camera-old-level* \"~A\")~%"
|
|
(-> *level* level0 name)
|
|
)
|
|
(let ((t9-31 format)
|
|
(a0-31 #t)
|
|
(a1-31 " (set! *camera-old-cpu* ~D)~%")
|
|
(v1-29
|
|
(-> *display* frames (-> *display* last-screen) frame profile-bar 0)
|
|
)
|
|
)
|
|
(t9-31
|
|
a0-31
|
|
a1-31
|
|
(-> v1-29 data (+ (-> v1-29 profile-frame-count) -2) time-stamp)
|
|
)
|
|
)
|
|
(let ((t9-32 format)
|
|
(a0-32 #t)
|
|
(a1-32 " (set! *camera-old-vu* ~D)~%")
|
|
(v1-34
|
|
(-> *display* frames (-> *display* last-screen) frame profile-bar 1)
|
|
)
|
|
)
|
|
(t9-32
|
|
a0-32
|
|
a1-32
|
|
(-> v1-34 data (+ (-> v1-34 profile-frame-count) -2) time-stamp)
|
|
)
|
|
)
|
|
(dummy-14 (-> *level* level0) #f)
|
|
(format
|
|
#t
|
|
" (set! *camera-old-tfrag-bytes* ~D)~%"
|
|
(+
|
|
(-> *level* level0 mem-usage-block data 1 total)
|
|
(-> *level* level0 mem-usage-block data 2 total)
|
|
(-> *level* level0 mem-usage-block data 3 total)
|
|
(-> *level* level0 mem-usage-block data 4 total)
|
|
(-> *level* level0 mem-usage-block data 5 total)
|
|
(-> *level* level0 mem-usage-block data 6 total)
|
|
(-> *level* level0 mem-usage-block data 7 total)
|
|
(-> *level* level0 mem-usage-block data 8 total)
|
|
)
|
|
)
|
|
(format #t " (clear *camera-old-stat-string-tfrag*)~%")
|
|
(format #t " (clear *camera-old-stat-string-tfrag-near*)~%")
|
|
(format #t " (clear *camera-old-stat-string-total*)~%")
|
|
(when *stats-poly*
|
|
(format
|
|
#t
|
|
" (format *camera-old-stat-string-tfrag* \"~S\")~%"
|
|
*stat-string-tfrag*
|
|
)
|
|
(format
|
|
#t
|
|
" (format *camera-old-stat-string-tfrag-near* \"~S\")~%"
|
|
*stat-string-tfrag-near*
|
|
)
|
|
(format
|
|
#t
|
|
" (format *camera-old-stat-string-total* \"~S\")~%"
|
|
*stat-string-total*
|
|
)
|
|
)
|
|
(format #t " (set! *display-camera-old-stats* #t)~%")
|
|
(format #t " )~%")
|
|
(format #t " )~%")
|
|
)
|
|
(else
|
|
(format #t "camera save failed~%")
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-camera-mode-menu
|
|
;; INFO: Return type mismatch debug-menu-item vs object.
|
|
(defun debug-menu-make-camera-mode-menu ((arg0 int) (arg1 int))
|
|
(new 'debug 'debug-menu-item-submenu "Camera" (the-as debug-menu arg0))
|
|
(let
|
|
((a1-3 (new 'debug 'debug-menu-item-submenu "Mode" (the-as debug-menu arg1)))
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg0) a1-3)
|
|
)
|
|
(let
|
|
((a1-5
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Off"
|
|
(the-as int #f)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-5)
|
|
)
|
|
(let
|
|
((a1-7
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Free-floating"
|
|
(the-as int cam-free-floating)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-7)
|
|
)
|
|
(let
|
|
((a1-9
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Fixed"
|
|
(the-as int cam-fixed)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-9)
|
|
)
|
|
(let
|
|
((a1-11
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Pov"
|
|
(the-as int cam-pov)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-11)
|
|
)
|
|
(let
|
|
((a1-13
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Pov180"
|
|
(the-as int cam-pov180)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-13)
|
|
)
|
|
(let
|
|
((a1-15
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Billy"
|
|
(the-as int cam-billy)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-15)
|
|
)
|
|
(let
|
|
((a1-17
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Pov-track"
|
|
(the-as int cam-pov-track)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-17)
|
|
)
|
|
(let
|
|
((a1-19
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Decel"
|
|
(the-as int cam-decel)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-19)
|
|
)
|
|
(let
|
|
((a1-21
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Endless fall"
|
|
(the-as int cam-endlessfall)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-21)
|
|
)
|
|
(let
|
|
((a1-23
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Eye"
|
|
(the-as int cam-eye)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-23)
|
|
)
|
|
(let
|
|
((a1-25
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Stick"
|
|
(the-as int cam-stick)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-25)
|
|
)
|
|
(let
|
|
((a1-27
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"String"
|
|
(the-as int cam-string)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-27)
|
|
)
|
|
(let
|
|
((a1-29
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Standoff"
|
|
(the-as int cam-standoff)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-29)
|
|
)
|
|
(let
|
|
((a1-31
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Circular"
|
|
(the-as int cam-circular)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-31)
|
|
)
|
|
(let
|
|
((a1-33
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Look At"
|
|
(the-as int cam-lookat)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-33)
|
|
)
|
|
(let
|
|
((a1-35
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Center of world"
|
|
(the-as int cam-point-watch)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-35)
|
|
)
|
|
(let
|
|
((a1-37
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Spline"
|
|
(the-as int cam-spline)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-37)
|
|
)
|
|
(let
|
|
((a1-39
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Bike"
|
|
(the-as int cam-bike)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-39)
|
|
)
|
|
(let
|
|
((a1-41
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Robotboss"
|
|
(the-as int cam-robotboss)
|
|
(the-as (function int debug-menu-msg object) dm-cam-mode-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg1) a1-41)
|
|
)
|
|
(let
|
|
((a1-43
|
|
(new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Reset Free"
|
|
6
|
|
(the-as (function int object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(the-as object (debug-menu-append-item (the-as debug-menu arg1) a1-43))
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-camera-menu
|
|
(defun debug-menu-make-camera-menu ((arg0 debug-menu-context))
|
|
(let* ((gp-0 (new 'debug 'debug-menu arg0 "Camera menu"))
|
|
(s5-0 (new 'debug 'debug-menu-item-submenu "Camera" gp-0))
|
|
)
|
|
(let ((a1-3 (new 'debug 'debug-menu arg0 "Camera mode menu")))
|
|
(debug-menu-make-camera-mode-menu (the-as int gp-0) (the-as int a1-3))
|
|
)
|
|
(let ((s3-0 (new 'debug 'debug-menu arg0 "Camera externalize menu")))
|
|
(let ((a1-6 (new 'debug 'debug-menu-item-submenu "External" s3-0)))
|
|
(debug-menu-append-item gp-0 a1-6)
|
|
)
|
|
(let
|
|
((a1-8
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"CPad 0"
|
|
(the-as int 'pad-0)
|
|
(the-as (function int debug-menu-msg object) dm-cam-externalize)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-0 a1-8)
|
|
)
|
|
(let
|
|
((a1-10
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"CPad 1"
|
|
(the-as int 'pad-1)
|
|
(the-as (function int debug-menu-msg object) dm-cam-externalize)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-0 a1-10)
|
|
)
|
|
(let
|
|
((a1-12
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Lock"
|
|
(the-as int 'locked)
|
|
(the-as (function int debug-menu-msg object) dm-cam-externalize)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-0 a1-12)
|
|
)
|
|
(let
|
|
((a1-14
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Reset"
|
|
(the-as int 'reset)
|
|
(the-as (function int debug-menu-msg object) dm-cam-externalize)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-0 a1-14)
|
|
)
|
|
(let
|
|
((a1-16
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Allow z rot"
|
|
(the-as int 'allow-z)
|
|
(the-as (function int debug-menu-msg object) dm-cam-externalize)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-0 a1-16)
|
|
)
|
|
(let ((s2-0 (new 'debug 'debug-menu-item-var "Fov" 0 80)))
|
|
(debug-menu-item-var-make-float
|
|
s2-0
|
|
(the-as
|
|
(function int debug-menu-msg float float float)
|
|
dm-cam-render-float
|
|
)
|
|
(the-as float 1.0)
|
|
#t
|
|
(the-as float 15.0)
|
|
(the-as float 180.0)
|
|
1
|
|
)
|
|
(debug-menu-append-item s3-0 s2-0)
|
|
)
|
|
)
|
|
(let ((s3-1 (new 'debug 'debug-menu arg0 "Camera collision menu")))
|
|
(let ((a1-22 (new 'debug 'debug-menu-item-submenu "Collision" s3-1)))
|
|
(debug-menu-append-item gp-0 a1-22)
|
|
)
|
|
(let
|
|
((a1-24
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Record"
|
|
(the-as int '*record-cam-collide-history*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-1 a1-24)
|
|
)
|
|
(let
|
|
((a1-26
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Display"
|
|
(the-as int '*display-cam-collide-history*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s3-1 a1-26)
|
|
)
|
|
)
|
|
(let ((s4-1 (new 'debug 'debug-menu arg0 "Camera settings menu")))
|
|
(let ((a1-29 (new 'debug 'debug-menu-item-submenu "Settings" s4-1)))
|
|
(debug-menu-append-item gp-0 a1-29)
|
|
)
|
|
(let
|
|
((a1-31
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Butt cam"
|
|
0
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-31)
|
|
)
|
|
(let
|
|
((a1-33
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Block shift buttons"
|
|
13
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-33)
|
|
)
|
|
(let
|
|
((a1-35
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Same side"
|
|
1
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-35)
|
|
)
|
|
(let
|
|
((a1-37
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Move spherical"
|
|
2
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-37)
|
|
)
|
|
(let
|
|
((a1-39
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Drag"
|
|
3
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-39)
|
|
)
|
|
(let
|
|
((a1-41
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Allow Z rot"
|
|
4
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-41)
|
|
)
|
|
(let
|
|
((a1-43
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Pitch for jump"
|
|
7
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-43)
|
|
)
|
|
(let
|
|
((a1-45
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Find hidden target"
|
|
8
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-45)
|
|
)
|
|
(let
|
|
((a1-47
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Move along camera Z"
|
|
(the-as int '*cam-free-move-along-z*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-47)
|
|
)
|
|
(let
|
|
((a1-49
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Ignore regions"
|
|
9
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-49)
|
|
)
|
|
(let
|
|
((a1-51
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Switch only on ground"
|
|
10
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-51)
|
|
)
|
|
(let
|
|
((a1-53
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Collide"
|
|
11
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-53)
|
|
)
|
|
(let
|
|
((a1-55
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Line of Sight"
|
|
12
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-55)
|
|
)
|
|
(let
|
|
((a1-57
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"No Rotate"
|
|
14
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-57)
|
|
)
|
|
(let
|
|
((a1-59
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Sticky Angle"
|
|
15
|
|
(the-as (function int debug-menu-msg object) dm-cam-settings-func)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-59)
|
|
)
|
|
(let ((s3-2 (new 'debug 'debug-menu-item-var "Interp Frms" 40 80)))
|
|
(debug-menu-item-var-make-int
|
|
s3-2
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
dm-cam-settings-func-int
|
|
)
|
|
1
|
|
#f
|
|
0
|
|
0
|
|
#f
|
|
)
|
|
(debug-menu-append-item s4-1 s3-2)
|
|
)
|
|
(let ((s3-3 (new 'debug 'debug-menu-item-var "Fov" 8 80)))
|
|
(debug-menu-item-var-make-float
|
|
s3-3
|
|
(the-as
|
|
(function int debug-menu-msg float float float)
|
|
dm-cam-render-float
|
|
)
|
|
(the-as float 1.0)
|
|
#t
|
|
(the-as float 15.0)
|
|
(the-as float 180.0)
|
|
1
|
|
)
|
|
(debug-menu-append-item s4-1 s3-3)
|
|
)
|
|
(let
|
|
((a1-67
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"no mip/lod correction"
|
|
(the-as int '*camera-no-mip-correction*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-67)
|
|
)
|
|
(let
|
|
((a1-69
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"last attacker"
|
|
(the-as int '*display-camera-last-attacker*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-69)
|
|
)
|
|
(let
|
|
((a1-71
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"old stats"
|
|
(the-as int '*display-camera-old-stats*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-71)
|
|
)
|
|
(let
|
|
((a1-73
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"xyz axes"
|
|
(the-as int '*display-xyz-axes*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-73)
|
|
)
|
|
(let
|
|
((a1-75
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Master Marks"
|
|
(the-as int '*display-cam-master-marks*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-75)
|
|
)
|
|
(let
|
|
((a1-77
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Other Marks"
|
|
(the-as int '*display-cam-other*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-77)
|
|
)
|
|
(let
|
|
((a1-79
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"los debug"
|
|
(the-as int '*display-cam-los-debug*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-79)
|
|
)
|
|
(let
|
|
((a1-81
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"los info"
|
|
(the-as int '*display-cam-los-info*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-81)
|
|
)
|
|
(let
|
|
((a1-83
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"los Marks"
|
|
(the-as int '*display-cam-los-marks*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-83)
|
|
)
|
|
(let
|
|
((a1-85
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"coll Marks"
|
|
(the-as int '*display-cam-coll-marks*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-85)
|
|
)
|
|
(let
|
|
((a1-87
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Camera Marks"
|
|
(the-as int '*display-camera-marks*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s4-1 a1-87)
|
|
)
|
|
)
|
|
(let
|
|
((a1-89
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Edit"
|
|
(the-as int '*cam-layout*)
|
|
(the-as
|
|
(function int debug-menu-msg object)
|
|
(lambda ((arg0 symbol) (arg1 int))
|
|
(when (= arg1 4)
|
|
(if (-> arg0 value)
|
|
(cam-layout-stop)
|
|
(cam-layout-start)
|
|
)
|
|
)
|
|
(-> arg0 value)
|
|
(none)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-89)
|
|
)
|
|
(let
|
|
((a1-91
|
|
(new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Save Pos"
|
|
(the-as int #f)
|
|
(the-as (function int object) debug-create-cam-restore)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-91)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-shader-menu
|
|
(defun debug-menu-make-shader-menu ((arg0 debug-menu-context))
|
|
(let* ((gp-0 (new 'debug 'debug-menu arg0 "Shader menu"))
|
|
(s5-0 (new 'debug 'debug-menu-item-submenu "Shader" gp-0))
|
|
)
|
|
(let ((a3-3 (new 'debug 'debug-menu arg0 "Shader pick menu")))
|
|
(set! *shader-pick-menu* a3-3)
|
|
(let ((a1-4 (new 'debug 'debug-menu-item-submenu "Pick Shader" a3-3)))
|
|
(debug-menu-append-item gp-0 a1-4)
|
|
)
|
|
)
|
|
(let
|
|
((a1-6
|
|
(new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Refresh"
|
|
(the-as int #f)
|
|
(the-as (function int object) build-shader-list)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-6)
|
|
)
|
|
(let
|
|
((s4-1
|
|
(new 'debug 'debug-menu-item-var "tweak" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-float
|
|
s4-1
|
|
(the-as
|
|
(function int debug-menu-msg float float float)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 float) (arg3 float))
|
|
(set! arg3 (cond
|
|
(*texture-page-dir*
|
|
(let* ((s4-0 (the-as texture-id (-> arg0 value)))
|
|
(gp-0 (lookup-texture-by-id s4-0))
|
|
(v1-3
|
|
(-> *texture-page-dir* entries (-> s4-0 page) link)
|
|
)
|
|
)
|
|
(cond
|
|
((and gp-0 v1-3)
|
|
(when (= arg1 4)
|
|
(set! (-> gp-0 uv-dist) arg2)
|
|
(let
|
|
((s5-1
|
|
(the-as
|
|
object
|
|
(* (-> v1-3 next (-> s4-0 index) shader) 16)
|
|
)
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint s5-1))
|
|
(adgif-shader-update! (the-as adgif-shader s5-1) gp-0)
|
|
(set!
|
|
s5-1
|
|
(* (-> (the-as adgif-shader s5-1) next shader) 16)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(-> gp-0 uv-dist)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(the-as float 0.1)
|
|
#t
|
|
(the-as float 0.1)
|
|
(the-as float 30.0)
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s4-1)
|
|
)
|
|
(let
|
|
((a1-11
|
|
(new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"all tweak+"
|
|
(the-as int #f)
|
|
(the-as (function int object) (lambda ()
|
|
(all-texture-tweak-adjust
|
|
*texture-page-dir*
|
|
(the-as float 0.1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-11)
|
|
)
|
|
(let
|
|
((a1-13
|
|
(new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"all tweak-"
|
|
(the-as int #f)
|
|
(the-as (function int object) (lambda ()
|
|
(all-texture-tweak-adjust
|
|
*texture-page-dir*
|
|
(the-as float -0.1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-13)
|
|
)
|
|
(let
|
|
((s4-2 (new 'debug 'debug-menu-item-var "l" (the-as int '*edit-shader*) 80))
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-2
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 l) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 l)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#f
|
|
)
|
|
(debug-menu-append-item gp-0 s4-2)
|
|
)
|
|
(let
|
|
((s4-3 (new 'debug 'debug-menu-item-var "k" (the-as int '*edit-shader*) 80))
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-3
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 k) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 k)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
-2048
|
|
2047
|
|
#f
|
|
)
|
|
(debug-menu-append-item gp-0 s4-3)
|
|
)
|
|
(let
|
|
((s4-4
|
|
(new 'debug 'debug-menu-item-var "mmin" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-4
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 mmin) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 mmin)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
5
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-4)
|
|
)
|
|
(let
|
|
((s4-5
|
|
(new 'debug 'debug-menu-item-var "mmag" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-5
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 mmag) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 mmag)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
1
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-5)
|
|
)
|
|
(let
|
|
((s4-6
|
|
(new 'debug 'debug-menu-item-var "lcm" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-6
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 lcm) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 lcm)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
1
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-6)
|
|
)
|
|
(let
|
|
((s4-7
|
|
(new 'debug 'debug-menu-item-var "tfx" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-7
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tfx) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tfx)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-7)
|
|
)
|
|
(let
|
|
((s4-8
|
|
(new 'debug 'debug-menu-item-var "tbp" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-8
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tbp0) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tbp0)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
#x4000
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-8)
|
|
)
|
|
(let
|
|
((s4-9
|
|
(new 'debug 'debug-menu-item-var "tbw" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-9
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tbw) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tbw)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
15
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-9)
|
|
)
|
|
(let
|
|
((s4-10
|
|
(new 'debug 'debug-menu-item-var "tw" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-10
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 tw) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 tw)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
10
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-10)
|
|
)
|
|
(let
|
|
((s4-11
|
|
(new 'debug 'debug-menu-item-var "th" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-11
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex0 th) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex0 th)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
10
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-11)
|
|
)
|
|
(let
|
|
((s4-12
|
|
(new 'debug 'debug-menu-item-var "mxl" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-12
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) tex1 mxl) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) tex1 mxl)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
6
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-12)
|
|
)
|
|
(let
|
|
((s4-13
|
|
(new 'debug 'debug-menu-item-var "wms" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-13
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp wms) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp wms)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-13)
|
|
)
|
|
(let
|
|
((s4-14
|
|
(new 'debug 'debug-menu-item-var "wmt" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-14
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp wmt) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp wmt)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
3
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-14)
|
|
)
|
|
(let
|
|
((s4-15
|
|
(new 'debug 'debug-menu-item-var "minu" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-15
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp minu) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp minu)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-15)
|
|
)
|
|
(let
|
|
((s4-16
|
|
(new 'debug 'debug-menu-item-var "maxu" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-16
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp maxu) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp maxu)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-16)
|
|
)
|
|
(let
|
|
((s4-17
|
|
(new 'debug 'debug-menu-item-var "minv" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-17
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp minv) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp minv)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-17)
|
|
)
|
|
(let
|
|
((s4-18
|
|
(new 'debug 'debug-menu-item-var "maxv" (the-as int '*edit-shader*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-int
|
|
s4-18
|
|
(the-as
|
|
(function int debug-menu-msg int int int)
|
|
(lambda ((arg0 symbol) (arg1 int) (arg2 int) (arg3 basic))
|
|
(cond
|
|
(*texture-page-dir*
|
|
(let* ((v1-1 (the-as texture-id (-> arg0 value)))
|
|
(a0-3 (-> *texture-page-dir* entries (-> v1-1 page) link))
|
|
)
|
|
(cond
|
|
(a0-3
|
|
(when (= arg1 4)
|
|
(let
|
|
((a1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(while (nonzero? (the-as uint a1-8))
|
|
(set! (-> (the-as adgif-shader a1-8) clamp maxv) arg2)
|
|
(set! a1-8 (* (-> (the-as adgif-shader a1-8) next shader) 16))
|
|
)
|
|
)
|
|
)
|
|
(let
|
|
((v1-8
|
|
(the-as object (* (-> a0-3 next (-> v1-1 index) shader) 16))
|
|
)
|
|
)
|
|
(if (nonzero? (the-as uint v1-8))
|
|
(-> (the-as adgif-shader v1-8) clamp maxv)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
1
|
|
#t
|
|
0
|
|
511
|
|
#t
|
|
)
|
|
(debug-menu-append-item gp-0 s4-18)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-instance-menu
|
|
(defun debug-menu-make-instance-menu ((arg0 debug-menu-context))
|
|
(let* ((stub-menu (new 'debug 'debug-menu arg0 "Instance menu"))
|
|
(stub-item (new 'debug 'debug-menu-item-submenu "Instance" stub-menu)))
|
|
|
|
stub-item
|
|
)
|
|
#|
|
|
(let* ((gp-0 (new 'debug 'debug-menu arg0 "Instance menu"))
|
|
(s5-0 (new 'debug 'debug-menu-item-submenu "Instance" gp-0))
|
|
)
|
|
(let ((a3-3 (new 'debug 'debug-menu arg0 "Instance shrub menu")))
|
|
(set! *instance-shrub-menu* a3-3)
|
|
(let ((a1-4 (new 'debug 'debug-menu-item-submenu "Pick Shrub" a3-3)))
|
|
(debug-menu-append-item gp-0 a1-4)
|
|
)
|
|
)
|
|
(let ((a3-5 (new 'debug 'debug-menu arg0 "Instance tie menu")))
|
|
(set! *instance-tie-menu* a3-5)
|
|
(let ((a1-7 (new 'debug 'debug-menu-item-submenu "Pick Tie" a3-5)))
|
|
(debug-menu-append-item gp-0 a1-7)
|
|
)
|
|
)
|
|
(let
|
|
((a1-9
|
|
(new
|
|
'debug
|
|
'debug-menu-item-function
|
|
"Refresh"
|
|
(the-as int #f)
|
|
build-instance-list
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-9)
|
|
)
|
|
(let
|
|
((s3-0
|
|
(new 'debug 'debug-menu-item-var "near" (the-as int '*edit-instance*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-float
|
|
s3-0
|
|
(the-as
|
|
(function int int float float float)
|
|
(lambda ((arg0 debug-menu) (arg1 int) (arg2 float) (arg3 float))
|
|
(let ((gp-0 (find-instance-by-name (-> arg0 name))))
|
|
(the-as object (cond
|
|
(gp-0
|
|
(when (= arg1 4)
|
|
(set! (-> gp-0 unknown-vector x) (* 4096.0 arg2))
|
|
(prototype-bucket-recalc-fields gp-0)
|
|
)
|
|
(* 0.00024414062 (-> gp-0 unknown-vector x))
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(the-as float 1.0)
|
|
#t
|
|
(the-as float 10.0)
|
|
(the-as float 250.0)
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s3-0)
|
|
)
|
|
(let
|
|
((s3-1
|
|
(new 'debug 'debug-menu-item-var "far" (the-as int '*edit-instance*) 80)
|
|
)
|
|
)
|
|
(debug-menu-item-var-make-float
|
|
s3-1
|
|
(the-as
|
|
(function int int float float float)
|
|
(lambda ((arg0 debug-menu) (arg1 int) (arg2 float) (arg3 float))
|
|
(let ((gp-0 (find-instance-by-name (-> arg0 name))))
|
|
(the-as object (cond
|
|
(gp-0
|
|
(when (= arg1 4)
|
|
(set! (-> gp-0 unknown-vector w) (* 4096.0 arg2))
|
|
(prototype-bucket-recalc-fields gp-0)
|
|
)
|
|
(* 0.00024414062 (-> gp-0 unknown-vector w))
|
|
)
|
|
(else
|
|
(empty)
|
|
arg3
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(the-as float 1.0)
|
|
#t
|
|
(the-as float 10.0)
|
|
(the-as float 250.0)
|
|
1
|
|
)
|
|
(debug-menu-append-item gp-0 s3-1)
|
|
)
|
|
(let
|
|
((a1-17
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"invisible"
|
|
(the-as symbol 1)
|
|
dm-edit-instance-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-17)
|
|
)
|
|
(let ((a3-13 (new 'debug 'debug-menu arg0 "Enable Instance Tie Menu")))
|
|
(set! *enable-instance-tie-menu* a3-13)
|
|
(let ((a1-20 (new 'debug 'debug-menu-item-submenu "Enable Tie" a3-13)))
|
|
(debug-menu-append-item gp-0 a1-20)
|
|
)
|
|
)
|
|
(let
|
|
((a1-22
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"Instance Info"
|
|
'*display-instance-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item gp-0 a1-22)
|
|
)
|
|
s5-0
|
|
)
|
|
|#
|
|
)
|
|
|
|
;; definition for function dm-task-unknown
|
|
(defun dm-task-unknown ((arg0 int) (arg1 int))
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if (not (task-exists? (the-as game-task gp-0) (task-status unknown)))
|
|
(return 'invalid)
|
|
)
|
|
(if (= arg1 4)
|
|
(close-specific-task! (the-as game-task gp-0) (task-status unknown))
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status unknown))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-hint
|
|
(defun dm-task-hint ((arg0 int) (arg1 int))
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if (not (task-exists? (the-as game-task gp-0) (task-status need-hint)))
|
|
(return 'invalid)
|
|
)
|
|
(if (= arg1 4)
|
|
(close-specific-task! (the-as game-task gp-0) (task-status need-hint))
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status need-hint))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-introduction
|
|
(defun dm-task-introduction ((arg0 int) (arg1 int))
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if
|
|
(not (task-exists? (the-as game-task gp-0) (task-status need-introduction)))
|
|
(return 'invalid)
|
|
)
|
|
(if (= arg1 4)
|
|
(close-specific-task!
|
|
(the-as game-task gp-0)
|
|
(task-status need-introduction)
|
|
)
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status need-introduction))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-reminder-a
|
|
(defun dm-task-reminder-a ((arg0 int) (arg1 int))
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if
|
|
(not (task-exists? (the-as game-task gp-0) (task-status need-reminder-a)))
|
|
(return 'invalid)
|
|
)
|
|
(if (= arg1 4)
|
|
(close-specific-task! (the-as game-task gp-0) (task-status need-reminder-a))
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status need-reminder-a))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-reminder
|
|
(defun dm-task-reminder ((arg0 int) (arg1 int))
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if (not (task-exists? (the-as game-task gp-0) (task-status need-reminder)))
|
|
(return 'invalid)
|
|
)
|
|
(if (= arg1 4)
|
|
(close-specific-task! (the-as game-task gp-0) (task-status need-reminder))
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status need-reminder))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-reward-speech
|
|
(defun dm-task-reward-speech ((arg0 int) (arg1 int))
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if
|
|
(not
|
|
(task-exists? (the-as game-task gp-0) (task-status need-reward-speech))
|
|
)
|
|
(return 'invalid)
|
|
)
|
|
(if (= arg1 4)
|
|
(close-specific-task!
|
|
(the-as game-task gp-0)
|
|
(task-status need-reward-speech)
|
|
)
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status need-reward-speech))
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-resolution
|
|
(defun dm-task-resolution ((arg0 int) (arg1 int))
|
|
(with-pp
|
|
(let ((gp-0 (/ arg0 8)))
|
|
(if
|
|
(not (task-exists? (the-as game-task gp-0) (task-status need-resolution)))
|
|
(return 'invalid)
|
|
)
|
|
(when (= arg1 4)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) pp)
|
|
(set! (-> a1-2 num-params) 2)
|
|
(set! (-> a1-2 message) 'get-pickup)
|
|
(set! (-> a1-2 param 0) (the-as uint 6))
|
|
(set! (-> a1-2 param 1) (the-as uint (the float gp-0)))
|
|
(send-event-function *target* a1-2)
|
|
)
|
|
(close-specific-task!
|
|
(the-as game-task gp-0)
|
|
(task-status need-resolution)
|
|
)
|
|
)
|
|
(task-closed? (the-as game-task gp-0) (task-status need-resolution))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-unknown-menu
|
|
(defun
|
|
debug-menu-make-task-unknown-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "unknown" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-unknown
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-unknown
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-need-hint-menu
|
|
(defun
|
|
debug-menu-make-task-need-hint-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "need-hint" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-hint
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-hint
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-need-introduction-menu
|
|
(defun
|
|
debug-menu-make-task-need-introduction-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "need-introduction" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-introduction
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-introduction
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-need-reminder-a-menu
|
|
(defun
|
|
debug-menu-make-task-need-reminder-a-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "need-reminder-a" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-reminder-a
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-reminder-a
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-need-reminder-menu
|
|
(defun
|
|
debug-menu-make-task-need-reminder-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "need-reminder" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-reminder
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-reminder
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-need-reward-speech-menu
|
|
(defun
|
|
debug-menu-make-task-need-reward-speech-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "need-reward-speech" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-reward-speech
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-reward-speech
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-need-resolution-menu
|
|
(defun
|
|
debug-menu-make-task-need-resolution-menu
|
|
((arg0 debug-menu-context) (arg1 debug-menu-context))
|
|
(debug-menu-append-item
|
|
(the-as debug-menu arg0)
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg1
|
|
'(
|
|
menu "need-resolution" #f #f (flag
|
|
"jungle-eggtop"
|
|
(the binteger 2)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-lurkerm"
|
|
(the binteger 3)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-tower"
|
|
(the binteger 4)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-fishgame"
|
|
(the binteger 5)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-plant"
|
|
(the binteger 6)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-buzzer"
|
|
(the binteger 7)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-canyon-end"
|
|
(the binteger 8)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"jungle-temple-door"
|
|
(the binteger 9)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village1-yakow"
|
|
(the binteger 10)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village1-mayor-money"
|
|
(the binteger 11)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village1-uncle-money"
|
|
(the binteger 12)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village1-oracle-money1"
|
|
(the binteger 13)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village1-oracle-money2"
|
|
(the binteger 14)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-ecorocks"
|
|
(the binteger 15)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-pelican"
|
|
(the binteger 16)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-flutflut"
|
|
(the binteger 17)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-seagull"
|
|
(the binteger 18)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-cannon"
|
|
(the binteger 19)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-buzzer"
|
|
(the binteger 20)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-gimmie"
|
|
(the binteger 21)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"beach-sentinel"
|
|
(the binteger 22)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-muse"
|
|
(the binteger 23)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-boat"
|
|
(the binteger 24)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-warehouse"
|
|
(the binteger 25)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-cannon"
|
|
(the binteger 26)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-bike"
|
|
(the binteger 27)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-buzzer"
|
|
(the binteger 28)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-bike-jump"
|
|
(the binteger 29)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"misty-eco-challenge"
|
|
(the binteger 30)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-gambler-money"
|
|
(the binteger 31)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-geologist-money"
|
|
(the binteger 32)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-warrior-money"
|
|
(the binteger 33)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-oracle-money1"
|
|
(the binteger 34)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-oracle-money2"
|
|
(the binteger 35)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-billy"
|
|
(the binteger 36)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-flutflut"
|
|
(the binteger 37)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-battle"
|
|
(the binteger 38)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-tether-1"
|
|
(the binteger 39)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-tether-2"
|
|
(the binteger 40)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-tether-3"
|
|
(the binteger 41)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-tether-4"
|
|
(the binteger 42)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-buzzer"
|
|
(the binteger 43)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-platforms"
|
|
(the binteger 44)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-pipe"
|
|
(the binteger 45)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-slide"
|
|
(the binteger 46)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-room"
|
|
(the binteger 47)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-sharks"
|
|
(the binteger 48)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-buzzer"
|
|
(the binteger 49)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-top-of-helix"
|
|
(the binteger 50)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"sunken-spinning-room"
|
|
(the binteger 51)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-race"
|
|
(the binteger 52)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-robbers"
|
|
(the binteger 53)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-moles"
|
|
(the binteger 54)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-plants"
|
|
(the binteger 55)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-lake"
|
|
(the binteger 56)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-buzzer"
|
|
(the binteger 57)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-1"
|
|
(the binteger 58)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"rolling-ring-chase-2"
|
|
(the binteger 59)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-eggtop"
|
|
(the binteger 60)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-ram"
|
|
(the binteger 61)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-fort"
|
|
(the binteger 62)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-ball"
|
|
(the binteger 63)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-bunnies"
|
|
(the binteger 64)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-buzzer"
|
|
(the binteger 65)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-bumpers"
|
|
(the binteger 66)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"snow-cage"
|
|
(the binteger 67)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"firecanyon-buzzer"
|
|
(the binteger 68)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"firecanyon-end"
|
|
(the binteger 69)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"citadel-sage-green"
|
|
(the binteger 70)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"citadel-sage-blue"
|
|
(the binteger 71)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"citadel-sage-red"
|
|
(the binteger 72)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"citadel-sage-yellow"
|
|
(the binteger 73)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-extra1"
|
|
(the binteger 74)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village1-buzzer"
|
|
(the binteger 75)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-buzzer"
|
|
(the binteger 76)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-buzzer"
|
|
(the binteger 77)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-gnawers"
|
|
(the binteger 78)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-dark-crystals"
|
|
(the binteger 79)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-dark-climb"
|
|
(the binteger 80)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-robot-climb"
|
|
(the binteger 81)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-swing-poles"
|
|
(the binteger 82)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-spider-tunnel"
|
|
(the binteger 83)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-platforms"
|
|
(the binteger 84)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"cave-buzzer"
|
|
(the binteger 85)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"ogre-boss"
|
|
(the binteger 86)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"ogre-end"
|
|
(the binteger 87)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"ogre-buzzer"
|
|
(the binteger 88)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"lavatube-end"
|
|
(the binteger 89)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"lavatube-buzzer"
|
|
(the binteger 90)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"citadel-buzzer"
|
|
(the binteger 91)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"training-gimmie"
|
|
(the binteger 92)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"training-door"
|
|
(the binteger 93)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"training-climb"
|
|
(the binteger 94)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"training-buzzer"
|
|
(the binteger 95)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-miner-money1"
|
|
(the binteger 96)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-miner-money2"
|
|
(the binteger 97)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-miner-money3"
|
|
(the binteger 98)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-miner-money4"
|
|
(the binteger 99)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-oracle-money1"
|
|
(the binteger 100)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-oracle-money2"
|
|
(the binteger 101)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"firecanyon-assistant"
|
|
(the binteger 102)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village2-levitator"
|
|
(the binteger 103)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"swamp-arm"
|
|
(the binteger 104)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village3-button"
|
|
(the binteger 105)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"red-eggtop"
|
|
(the binteger 106)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"lavatube-balls"
|
|
(the binteger 107)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"lavatube-start"
|
|
(the binteger 108)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"intro"
|
|
(the binteger 109)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"ogre-secret"
|
|
(the binteger 110)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"village4-button"
|
|
(the binteger 111)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"finalboss-movies"
|
|
(the binteger 112)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"plunger-lurker-hit"
|
|
(the binteger 113)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"leaving-misty"
|
|
(the binteger 114)
|
|
dm-task-resolution
|
|
)
|
|
(flag
|
|
"assistant-village3"
|
|
(the binteger 115)
|
|
dm-task-resolution
|
|
)
|
|
#f #f #f #f #f #f #f #f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-task-get-money
|
|
(defun dm-task-get-money ((arg0 int) (arg1 int))
|
|
(with-pp
|
|
(when (= arg1 4)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) pp)
|
|
(set! (-> a1-1 num-params) 2)
|
|
(set! (-> a1-1 message) 'get-pickup)
|
|
(set! (-> a1-1 param 0) (the-as uint 5))
|
|
(set! (-> a1-1 param 1) (the-as uint (-> *GAME-bank* money-task-inc)))
|
|
(send-event-function *target* a1-1)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) pp)
|
|
(set! (-> a1-2 num-params) 2)
|
|
(set! (-> a1-2 message) 'query)
|
|
(set! (-> a1-2 param 0) (the-as uint 'pickup))
|
|
(set! (-> a1-2 param 1) (the-as uint 5))
|
|
(>=
|
|
(the-as float (send-event-function *target* a1-2))
|
|
(-> *GAME-bank* money-task-inc)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-give-all-cells
|
|
(defun dm-give-all-cells ((arg0 int) (arg1 int))
|
|
(with-pp
|
|
(when (= arg1 4)
|
|
(dotimes (gp-0 100)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) pp)
|
|
(set! (-> a1-1 num-params) 2)
|
|
(set! (-> a1-1 message) 'get-pickup)
|
|
(set! (-> a1-1 param 0) (the-as uint 6))
|
|
(set! (-> a1-1 param 1) (the-as uint (the float (+ gp-0 2))))
|
|
(send-event-function *target* a1-1)
|
|
)
|
|
(close-specific-task!
|
|
(the-as game-task (+ gp-0 2))
|
|
(task-status need-resolution)
|
|
)
|
|
)
|
|
)
|
|
(dotimes (gp-1 100)
|
|
(if
|
|
(not
|
|
(task-closed? (the-as game-task (+ gp-1 2)) (task-status need-resolution))
|
|
)
|
|
(return #f)
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-give-cell
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun dm-give-cell ((arg0 int))
|
|
(with-pp
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) pp)
|
|
(set! (-> a1-0 num-params) 2)
|
|
(set! (-> a1-0 message) 'get-pickup)
|
|
(set! (-> a1-0 param 0) (the-as uint 6))
|
|
(set! (-> a1-0 param 1) (the-as uint (the float arg0)))
|
|
(send-event-function *target* a1-0)
|
|
)
|
|
(close-specific-task! (the-as game-task arg0) (task-status need-resolution))
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-levitator-ready
|
|
(defun dm-levitator-ready ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(close-specific-task!
|
|
(game-task village2-levitator)
|
|
(task-status need-introduction)
|
|
)
|
|
(close-specific-task!
|
|
(game-task village2-levitator)
|
|
(task-status need-reminder-a)
|
|
)
|
|
(dm-give-cell 2)
|
|
(dm-give-cell 3)
|
|
(dm-give-cell 4)
|
|
(dm-give-cell 5)
|
|
(dm-give-cell 6)
|
|
(dm-give-cell 7)
|
|
(dm-give-cell 8)
|
|
(dm-give-cell 9)
|
|
(dm-give-cell 10)
|
|
(dm-give-cell 11)
|
|
(dm-give-cell 12)
|
|
(dm-give-cell 13)
|
|
(dm-give-cell 14)
|
|
(dm-give-cell 15)
|
|
(dm-give-cell 16)
|
|
(dm-give-cell 17)
|
|
(dm-give-cell 18)
|
|
(dm-give-cell 19)
|
|
(dm-give-cell 20)
|
|
(dm-give-cell 21)
|
|
(dm-give-cell 22)
|
|
(dm-give-cell 23)
|
|
(dm-give-cell 24)
|
|
(dm-give-cell 25)
|
|
(dm-give-cell 26)
|
|
(dm-give-cell 27)
|
|
(dm-give-cell 28)
|
|
(dm-give-cell 29)
|
|
(dm-give-cell 30)
|
|
(dm-give-cell 31)
|
|
(dm-give-cell 32)
|
|
(dm-give-cell 34)
|
|
(dm-give-cell 35)
|
|
(dm-give-cell 36)
|
|
(dm-give-cell 37)
|
|
(dm-give-cell 38)
|
|
(dm-give-cell 39)
|
|
(dm-give-cell 40)
|
|
(dm-give-cell 41)
|
|
(dm-give-cell 42)
|
|
(dm-give-cell 43)
|
|
(dm-give-cell 44)
|
|
(dm-give-cell 45)
|
|
(dm-give-cell 46)
|
|
(dm-give-cell 47)
|
|
(dm-give-cell 48)
|
|
)
|
|
(=
|
|
(get-task-status (game-task village2-levitator))
|
|
(task-status need-reward-speech)
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-lavabike-ready
|
|
(defun dm-lavabike-ready ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(dm-give-cell 2)
|
|
(dm-give-cell 3)
|
|
(dm-give-cell 4)
|
|
(dm-give-cell 5)
|
|
(dm-give-cell 6)
|
|
(dm-give-cell 7)
|
|
(dm-give-cell 8)
|
|
(dm-give-cell 9)
|
|
(dm-give-cell 10)
|
|
(dm-give-cell 11)
|
|
(dm-give-cell 12)
|
|
(dm-give-cell 13)
|
|
(dm-give-cell 14)
|
|
(dm-give-cell 15)
|
|
(dm-give-cell 16)
|
|
(dm-give-cell 17)
|
|
(dm-give-cell 18)
|
|
(dm-give-cell 19)
|
|
(dm-give-cell 20)
|
|
(dm-give-cell 21)
|
|
(dm-give-cell 22)
|
|
(dm-give-cell 23)
|
|
(dm-give-cell 24)
|
|
(dm-give-cell 25)
|
|
(dm-give-cell 26)
|
|
(dm-give-cell 27)
|
|
(dm-give-cell 28)
|
|
(dm-give-cell 29)
|
|
(dm-give-cell 30)
|
|
(dm-give-cell 31)
|
|
(dm-give-cell 32)
|
|
(dm-give-cell 33)
|
|
(dm-give-cell 34)
|
|
(dm-give-cell 35)
|
|
(dm-give-cell 36)
|
|
(dm-give-cell 37)
|
|
(dm-give-cell 38)
|
|
(dm-give-cell 39)
|
|
(dm-give-cell 40)
|
|
(dm-give-cell 41)
|
|
(dm-give-cell 42)
|
|
(dm-give-cell 43)
|
|
(dm-give-cell 44)
|
|
(dm-give-cell 45)
|
|
(dm-give-cell 46)
|
|
(dm-give-cell 47)
|
|
(dm-give-cell 48)
|
|
(dm-give-cell 49)
|
|
(dm-give-cell 50)
|
|
(dm-give-cell 51)
|
|
(dm-give-cell 52)
|
|
(dm-give-cell 53)
|
|
(dm-give-cell 54)
|
|
(dm-give-cell 55)
|
|
(dm-give-cell 56)
|
|
(dm-give-cell 57)
|
|
(dm-give-cell 58)
|
|
(dm-give-cell 59)
|
|
(dm-give-cell 60)
|
|
(dm-give-cell 61)
|
|
(dm-give-cell 62)
|
|
(dm-give-cell 63)
|
|
(dm-give-cell 64)
|
|
(dm-give-cell 65)
|
|
(dm-give-cell 66)
|
|
(dm-give-cell 67)
|
|
(dm-give-cell 68)
|
|
(dm-give-cell 69)
|
|
(dm-give-cell 70)
|
|
(dm-give-cell 71)
|
|
(dm-give-cell 72)
|
|
(dm-give-cell 73)
|
|
(dm-give-cell 74)
|
|
(dm-give-cell 75)
|
|
(dm-give-cell 76)
|
|
)
|
|
(=
|
|
(get-task-status (game-task lavatube-start))
|
|
(task-status need-reward-speech)
|
|
)
|
|
)
|
|
|
|
;; definition for function debug-menu-make-task-menu
|
|
(defun debug-menu-make-task-menu ((arg0 debug-menu-context))
|
|
(let* ((s5-0 (new 'debug 'debug-menu arg0 "Task menu"))
|
|
(s4-0 (new 'debug 'debug-menu-item-submenu "Task" s5-0))
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"enough money"
|
|
(the-as int #f)
|
|
(the-as (function int debug-menu-msg object) dm-task-get-money)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"levitator ready"
|
|
(the-as int #f)
|
|
(the-as (function int debug-menu-msg object) dm-levitator-ready)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"lavabike ready"
|
|
(the-as int #f)
|
|
(the-as (function int debug-menu-msg object) dm-lavabike-ready)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
"all cells"
|
|
(the-as int #f)
|
|
(the-as (function int debug-menu-msg object) dm-give-all-cells)
|
|
)
|
|
)
|
|
(debug-menu-make-task-unknown-menu (the-as debug-menu-context s5-0) arg0)
|
|
(debug-menu-make-task-need-hint-menu (the-as debug-menu-context s5-0) arg0)
|
|
(debug-menu-make-task-need-introduction-menu
|
|
(the-as debug-menu-context s5-0)
|
|
arg0
|
|
)
|
|
(debug-menu-make-task-need-reminder-a-menu
|
|
(the-as debug-menu-context s5-0)
|
|
arg0
|
|
)
|
|
(debug-menu-make-task-need-reminder-menu
|
|
(the-as debug-menu-context s5-0)
|
|
arg0
|
|
)
|
|
(debug-menu-make-task-need-reward-speech-menu
|
|
(the-as debug-menu-context s5-0)
|
|
arg0
|
|
)
|
|
(debug-menu-make-task-need-resolution-menu
|
|
(the-as debug-menu-context s5-0)
|
|
arg0
|
|
)
|
|
s4-0
|
|
)
|
|
)
|
|
|
|
;; definition for function dm-anim-tester-flag-func
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
(defun dm-anim-tester-flag-func ((arg0 int) (arg1 int))
|
|
(when *anim-tester*
|
|
(case arg0
|
|
(('at-apply-align)
|
|
(if (= arg1 4)
|
|
(set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 32))
|
|
)
|
|
(return (the-as object (logtest? (-> *anim-tester* 0 flags) 32)))
|
|
)
|
|
(('at-show-joint-info)
|
|
(if (= arg1 4)
|
|
(set! (-> *anim-tester* 0 flags) (logxor (-> *anim-tester* 0 flags) 16))
|
|
)
|
|
(return (the-as object (logtest? (-> *anim-tester* 0 flags) 16)))
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function dm-anim-tester-func
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defun dm-anim-tester-func ((arg0 int))
|
|
(with-pp
|
|
(if (not *anim-tester*)
|
|
(anim-tester-start)
|
|
)
|
|
(when *anim-tester*
|
|
(cond
|
|
((= arg0 'at-pick-object)
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) pp)
|
|
(set! (-> a1-0 num-params) 0)
|
|
(set! (-> a1-0 message) 'pick-object)
|
|
(send-event-function (ppointer->process *anim-tester*) a1-0)
|
|
)
|
|
(set! (-> *debug-menu-context* is-hidden) #t)
|
|
)
|
|
((= arg0 'at-pick-joint-anim)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) pp)
|
|
(set! (-> a1-1 num-params) 0)
|
|
(set! (-> a1-1 message) 'pick-joint-anim)
|
|
(send-event-function (ppointer->process *anim-tester*) a1-1)
|
|
)
|
|
(set! (-> *debug-menu-context* is-hidden) #t)
|
|
)
|
|
((= arg0 'at-pick-sequence)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) pp)
|
|
(set! (-> a1-2 num-params) 0)
|
|
(set! (-> a1-2 message) 'pick-sequence)
|
|
(send-event-function (ppointer->process *anim-tester*) a1-2)
|
|
)
|
|
(set! (-> *debug-menu-context* is-hidden) #t)
|
|
)
|
|
((= arg0 'at-save-sequences)
|
|
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-3 from) pp)
|
|
(set! (-> a1-3 num-params) 0)
|
|
(set! (-> a1-3 message) 'save-sequences)
|
|
(send-event-function (ppointer->process *anim-tester*) a1-3)
|
|
)
|
|
)
|
|
((= arg0 'at-cam-stick)
|
|
(set! *camera-orbit-target* *anim-tester*)
|
|
(let ((a1-4 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-4 from) pp)
|
|
(set! (-> a1-4 num-params) 2)
|
|
(set! (-> a1-4 message) 'change-state)
|
|
(set! (-> a1-4 param 0) (the-as uint cam-orbit))
|
|
(set! (-> a1-4 param 1) (the-as uint 0))
|
|
(send-event-function *camera* a1-4)
|
|
)
|
|
)
|
|
((= arg0 'at-cam-free-floating)
|
|
(let ((a1-5 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-5 from) pp)
|
|
(set! (-> a1-5 num-params) 2)
|
|
(set! (-> a1-5 message) 'change-state)
|
|
(set! (-> a1-5 param 0) (the-as uint cam-free-floating))
|
|
(set! (-> a1-5 param 1) (the-as uint 0))
|
|
(send-event-function *camera* a1-5)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for function build-continue-menu
|
|
(defun build-continue-menu ((arg0 debug-menu-context))
|
|
(let ((s5-0 *level-load-list*))
|
|
(while (not (null? s5-0))
|
|
(let
|
|
((s4-0
|
|
(->
|
|
(the-as level-load-info (-> (the-as symbol (car s5-0)) value))
|
|
continues
|
|
)
|
|
)
|
|
)
|
|
(while (not (null? s4-0))
|
|
(let* ((v1-2 (the-as level-load-info (car s4-0)))
|
|
(a1-1
|
|
(new
|
|
'debug
|
|
'debug-menu-item-flag
|
|
(the-as string (-> v1-2 name))
|
|
(the-as int (-> v1-2 name))
|
|
(the-as (function int debug-menu-msg object) dm-current-continue)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item (the-as debug-menu arg0) a1-1)
|
|
)
|
|
(set! s4-0 (cdr s4-0))
|
|
)
|
|
)
|
|
(set! s5-0 (cdr s5-0))
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for function debug-menu-context-make-default-menus
|
|
(defun debug-menu-context-make-default-menus ((arg0 debug-menu-context))
|
|
(let ((s5-0 (new 'debug 'debug-menu arg0 "Main menu")))
|
|
(debug-menu-context-set-root-menu arg0 s5-0)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Artist" (flag
|
|
"Poly Stats"
|
|
*stats-poly*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Memory Stats"
|
|
*stats-memory*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Memory Stats Short"
|
|
*stats-memory-short*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ground Stats"
|
|
*display-ground-stats*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"All Visible"
|
|
*artist-all-visible*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Flip Visible"
|
|
*artist-flip-visible*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Fix Visible"
|
|
*artist-fix-visible*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Fix Frustum"
|
|
*artist-fix-frustum*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Error Spheres"
|
|
*artist-error-spheres*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Use menu subdiv"
|
|
*artist-use-menu-subdiv*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(float-var
|
|
"Subdiv Close"
|
|
close
|
|
dm-subdiv-float
|
|
(the binteger 10)
|
|
(the binteger 1)
|
|
#t
|
|
(the binteger 1)
|
|
(the binteger 200)
|
|
(the binteger 1)
|
|
)
|
|
(float-var
|
|
"Subdiv Far"
|
|
far
|
|
dm-subdiv-float
|
|
(the binteger 10)
|
|
(the binteger 1)
|
|
#t
|
|
(the binteger 1)
|
|
(the binteger 200)
|
|
(the binteger 1)
|
|
)
|
|
(function "Target Start" #f (lambda ()
|
|
(the-as
|
|
int
|
|
(start
|
|
'debug
|
|
(get-or-create-continue! *game-info*)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function "Target Stop" #f (lambda ()
|
|
(stop 'debug)
|
|
)
|
|
)
|
|
(menu
|
|
"Anim Tester"
|
|
(int-var
|
|
"Speed"
|
|
anim-speed
|
|
dm-subdiv-int
|
|
(the binteger 10)
|
|
(the binteger 10)
|
|
#t
|
|
(the binteger -300)
|
|
(the binteger 1000)
|
|
)
|
|
(flag "Apply Align" at-apply-align dm-anim-tester-flag-func)
|
|
(flag "Show Joint Inf" at-show-joint-info dm-anim-tester-flag-func)
|
|
(function "Camera Face" at-cam-stick dm-anim-tester-func)
|
|
(function "Camera Free" at-cam-free-floating dm-anim-tester-func)
|
|
(function "Pick Object" at-pick-object dm-anim-tester-func)
|
|
(function "Pick Joint Anim" at-pick-joint-anim dm-anim-tester-func)
|
|
(function "Pick Sequence" at-pick-sequence dm-anim-tester-func)
|
|
(function "Save Sequences" at-save-sequences dm-anim-tester-func)
|
|
)
|
|
(flag
|
|
"Show Entity Errors"
|
|
*display-entity-errors*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Sprite Info"
|
|
*display-sprite-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Time of Day"
|
|
#f
|
|
dm-time-of-day-pick-func
|
|
)
|
|
(flag "Preload Anims" *preload-spool-anims* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Game" (function "New Game" #f (lambda ()
|
|
(initialize!
|
|
*game-info*
|
|
'game
|
|
(the-as game-save #f)
|
|
(the-as string #f)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(function "New Life" #f (lambda ()
|
|
(initialize!
|
|
*game-info*
|
|
'die
|
|
(the-as game-save #f)
|
|
(the-as string #f)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(function "Reset Game" #f (lambda ()
|
|
(set! (-> *game-info* mode) 'debug)
|
|
(initialize!
|
|
*game-info*
|
|
'game
|
|
(the-as game-save #f)
|
|
(the-as string #f)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(function "Reset Actors" #f (lambda ()
|
|
(reset-actors 'debug)
|
|
(none)
|
|
)
|
|
)
|
|
(function "Save Game" #f (lambda ()
|
|
(auto-save-command 'save 0 0 *default-pool*)
|
|
(none)
|
|
)
|
|
)
|
|
(function "Load Game" #f (lambda ()
|
|
(auto-save-command
|
|
'restore
|
|
0
|
|
0
|
|
*default-pool*
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(flag "Target" #f (lambda ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(if *target*
|
|
(stop 'debug)
|
|
(start
|
|
'debug
|
|
(get-or-create-continue! *game-info*)
|
|
)
|
|
)
|
|
)
|
|
*target*
|
|
)
|
|
)
|
|
(flag
|
|
"Game Mode"
|
|
play
|
|
dm-game-mode-pick-func
|
|
)
|
|
(flag
|
|
"Debug Mode"
|
|
debug
|
|
dm-game-mode-pick-func
|
|
)
|
|
(menu
|
|
"Continue"
|
|
)
|
|
(menu
|
|
"Settings"
|
|
(float-var "sfx-volume" #f (lambda ((arg0 int) (arg1 int) (arg2 float))
|
|
(cond
|
|
((= arg1 4)
|
|
(let ((f0-0 arg2))
|
|
(set!
|
|
(->
|
|
*setting-control*
|
|
default
|
|
sfx-volume
|
|
)
|
|
f0-0
|
|
)
|
|
f0-0
|
|
)
|
|
)
|
|
(else
|
|
(-> *setting-control* default sfx-volume)
|
|
)
|
|
)
|
|
)
|
|
(the binteger 2) (the binteger 1) #t 0 (the binteger 100) 0
|
|
)
|
|
(float-var
|
|
"music-volume"
|
|
#f
|
|
(lambda ((arg0 int) (arg1 int) (arg2 float))
|
|
(cond
|
|
((= arg1 4)
|
|
(let ((f0-0 arg2))
|
|
(set! (-> *setting-control* default music-volume) f0-0)
|
|
f0-0
|
|
)
|
|
)
|
|
(else
|
|
(-> *setting-control* default music-volume)
|
|
)
|
|
)
|
|
)
|
|
(the binteger 2)
|
|
(the binteger 1)
|
|
#t
|
|
0
|
|
(the binteger 100)
|
|
0
|
|
)
|
|
(float-var
|
|
"dialog-volume"
|
|
#f
|
|
(lambda ((arg0 int) (arg1 int) (arg2 float))
|
|
(cond
|
|
((= arg1 4)
|
|
(let ((f0-0 arg2))
|
|
(set! (-> *setting-control* default dialog-volume) f0-0)
|
|
f0-0
|
|
)
|
|
)
|
|
(else
|
|
(-> *setting-control* default dialog-volume)
|
|
)
|
|
)
|
|
)
|
|
(the binteger 2)
|
|
(the binteger 1)
|
|
#t
|
|
0
|
|
(the binteger 100)
|
|
0
|
|
)
|
|
(menu
|
|
"Language"
|
|
(flag "english" 0 dm-setting-language)
|
|
(flag "japanese" (the binteger 5) dm-setting-language)
|
|
(flag "french" (the binteger 1) dm-setting-language)
|
|
(flag "german" (the binteger 2) dm-setting-language)
|
|
(flag "spanish" (the binteger 3) dm-setting-language)
|
|
(flag "italian" (the binteger 4) dm-setting-language)
|
|
(flag "uk-english" (the binteger 6) dm-setting-language)
|
|
)
|
|
(flag "play-hints " #f (lambda ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set!
|
|
(-> *setting-control* default play-hints)
|
|
(not
|
|
(-> *setting-control* default play-hints)
|
|
)
|
|
)
|
|
)
|
|
(the-as
|
|
basic
|
|
(-> *setting-control* default play-hints)
|
|
)
|
|
)
|
|
)
|
|
(flag "vibration" #f (lambda ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set!
|
|
(-> *setting-control* default vibration)
|
|
(not (-> *setting-control* default vibration))
|
|
)
|
|
)
|
|
(the-as
|
|
basic
|
|
(-> *setting-control* default vibration)
|
|
)
|
|
)
|
|
)
|
|
(flag "border-mode" #f (lambda ((arg0 int) (arg1 int))
|
|
(if (= arg1 4)
|
|
(set!
|
|
(-> *setting-control* default border-mode)
|
|
(not
|
|
(-> *setting-control* default border-mode)
|
|
)
|
|
)
|
|
)
|
|
(the-as
|
|
basic
|
|
(-> *setting-control* default border-mode)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((a0-8 (debug-menu-find-from-template arg0 '("Game" "Continue")))
|
|
(t9-7 build-continue-menu)
|
|
)
|
|
*game-info*
|
|
(t9-7 (the-as debug-menu-context a0-8))
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Stats" (flag
|
|
"Poly"
|
|
*stats-poly*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Collide"
|
|
*stats-collide*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Bsp"
|
|
*stats-bsp*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Buffer"
|
|
*stats-buffer*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Target"
|
|
*stats-target*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Dma test"
|
|
*stats-dma-test*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Blerc"
|
|
*stats-blerc*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag "Perf" *display-perf-stats* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Render" (flag
|
|
"sky"
|
|
(the binteger 1)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"ocean"
|
|
(the binteger 2)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"ocean-wave"
|
|
(the binteger 4)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"TFRAG TIE TEXTURES"
|
|
#x1
|
|
dm-texture-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"tfrag"
|
|
(the binteger 8)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"tie-near"
|
|
(the binteger 16)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"tie"
|
|
(the binteger 32)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"generic"
|
|
(the binteger 64)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"generic-tie"
|
|
*generic-tie*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"PRIS TEXTURES"
|
|
#x2
|
|
dm-texture-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"merc"
|
|
(the binteger 128)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"SHRUB TEXTURES"
|
|
#x4
|
|
dm-texture-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"shrub-near"
|
|
(the binteger 512)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"shrubbery"
|
|
(the binteger 256)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"billboard"
|
|
(the binteger 1024)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"trans-shrubbery"
|
|
(the binteger 2048)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"ALPHA TEXTURES"
|
|
(the binteger 1)
|
|
dm-texture-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"trans-tfrag"
|
|
(the binteger 4096)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"sprite"
|
|
(the binteger 8192)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"shadow"
|
|
(the binteger 16384)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"shadow-debug"
|
|
*shadow-debug*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"WATER TEXTURES"
|
|
(the binteger 2)
|
|
dm-texture-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"depth-cue"
|
|
(the binteger 32768)
|
|
dm-vu1-user-toggle-pick-func
|
|
)
|
|
(flag
|
|
"all on"
|
|
(the binteger 262143)
|
|
dm-vu1-user-set-pick-func
|
|
)
|
|
(flag
|
|
"all off"
|
|
(the binteger 196608)
|
|
dm-vu1-user-set-pick-func
|
|
)
|
|
(flag
|
|
"all textures on"
|
|
#x1f
|
|
dm-texture-user-set-pick-func
|
|
)
|
|
(flag "all textures off" 0 dm-texture-user-set-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Collision" (flag
|
|
"Collide Stats"
|
|
*stats-collide*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Collision Marks"
|
|
*display-collision-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Collision Cache"
|
|
*display-collide-cache*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Render Collision"
|
|
*display-render-collision*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Hipri Collision Marks"
|
|
*display-hipri-collision-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Edge Collision Marks"
|
|
*display-edge-collision-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Display" (flag
|
|
"Profile"
|
|
*display-profile*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ticks"
|
|
*profile-ticks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"File Info"
|
|
*display-file-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Level Spheres"
|
|
*display-level-spheres*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Collision Marks"
|
|
*display-collision-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Collision Cache"
|
|
*display-collide-cache*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Hipri Collision Marks"
|
|
*display-hipri-collision-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Edge Collision Marks"
|
|
*display-edge-collision-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Target Marks"
|
|
*display-target-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Target Stats"
|
|
*stats-target*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Entity Lights"
|
|
*display-lights*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Camera Marks"
|
|
*display-camera-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Camera Info"
|
|
*display-camera-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Geometry Marks"
|
|
*display-geo-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Nav Marks"
|
|
*display-nav-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Path Marks"
|
|
*display-path-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Vol Marks"
|
|
*display-vol-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(menu
|
|
"Ambient Marks"
|
|
(flag
|
|
"Ambient Hint Marks"
|
|
*display-ambient-hint-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Sound Marks"
|
|
*display-ambient-sound-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Poi Marks"
|
|
*display-ambient-poi-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Light Marks"
|
|
*display-ambient-light-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Dark Marks"
|
|
*display-ambient-dark-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Weather Off Marks"
|
|
*display-ambient-weather-off-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Ocean Off Marks"
|
|
*display-ambient-ocean-off-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Ocean Near Off Marks"
|
|
*display-ambient-ocean-near-off-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Music"
|
|
*display-ambient-music-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
)
|
|
(menu
|
|
"Actor Marks"
|
|
(flag "off" #f dm-actor-marks-pick-func)
|
|
(flag "on" #t dm-actor-marks-pick-func)
|
|
(flag "full" full dm-actor-marks-pick-func)
|
|
(flag "process" process dm-actor-marks-pick-func)
|
|
)
|
|
(menu
|
|
"Actor Vis"
|
|
(flag "off" #f dm-actor-vis-pick-func)
|
|
(flag "box" box dm-actor-vis-pick-func)
|
|
(flag "sphere" sphere dm-actor-vis-pick-func)
|
|
(flag "all" #t dm-actor-vis-pick-func)
|
|
)
|
|
(flag
|
|
"Art Control"
|
|
*display-art-control*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Instance Info"
|
|
*display-instance-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(menu
|
|
"strip lines"
|
|
(flag "strippable" (the binteger 1) dm-strip-lines-toggle-pick-func)
|
|
(flag "convertible" (the binteger 2) dm-strip-lines-toggle-pick-func)
|
|
(flag "edgeable" (the binteger 4) dm-strip-lines-toggle-pick-func)
|
|
(flag "ordinary" (the binteger 8) dm-strip-lines-toggle-pick-func)
|
|
(flag
|
|
"color mismatch"
|
|
(the binteger 16)
|
|
dm-strip-lines-toggle-pick-func
|
|
)
|
|
(flag
|
|
"shader mismatch"
|
|
(the binteger 32)
|
|
dm-strip-lines-toggle-pick-func
|
|
)
|
|
(flag "uv mismatch" (the binteger 64) dm-strip-lines-toggle-pick-func)
|
|
(flag "too big" (the binteger 128) dm-strip-lines-toggle-pick-func)
|
|
(flag "good" (the binteger 3) dm-strip-lines-set-pick-func)
|
|
(flag "bad" (the binteger 240) dm-strip-lines-set-pick-func)
|
|
(flag "all edges" (the binteger 255) dm-strip-lines-set-pick-func)
|
|
(flag "strips" (the binteger 256) dm-strip-lines-set-pick-func)
|
|
(flag "frags" (the binteger 512) dm-strip-lines-set-pick-func)
|
|
(flag "none" 0 dm-strip-lines-set-pick-func)
|
|
)
|
|
(menu
|
|
"collision mesh"
|
|
(flag "wall" (the binteger 1024) dm-strip-lines-toggle-pick-func)
|
|
(flag "ground" (the binteger 2048) dm-strip-lines-toggle-pick-func)
|
|
(flag "all" (the binteger 3072) dm-strip-lines-set-pick-func)
|
|
(flag "none" 0 dm-strip-lines-set-pick-func)
|
|
)
|
|
(flag
|
|
"Texture Download"
|
|
*display-texture-download*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Level Border"
|
|
*display-level-border*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Split Boxes"
|
|
*display-split-boxes*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Split Box Info"
|
|
*display-split-box-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Load boundaries"
|
|
*display-load-boundaries*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag "Memcard Info" *display-memcard-info* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Actor" (flag
|
|
"Spawn Actors"
|
|
*spawn-actors*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(function "Reset Actors" #f (lambda ()
|
|
(reset-actors 'debug)
|
|
(none)
|
|
)
|
|
)
|
|
(menu
|
|
"Actor Compaction"
|
|
(flag "off" #f dm-compact-actor-pick-func)
|
|
(flag "on" #t dm-compact-actor-pick-func)
|
|
(flag "debug" debug dm-compact-actor-pick-func)
|
|
)
|
|
(flag
|
|
"Ambients"
|
|
*execute-ambients*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Hint Marks"
|
|
*display-ambient-hint-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Sound Marks"
|
|
*display-ambient-sound-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Poi Marks"
|
|
*display-ambient-poi-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Light Marks"
|
|
*display-ambient-light-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Dark Marks"
|
|
*display-ambient-dark-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Weather Off Marks"
|
|
*display-ambient-weather-off-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Ocean Off Marks"
|
|
*display-ambient-ocean-off-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Ocean Near Off Marks"
|
|
*display-ambient-ocean-near-off-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Ambient Music"
|
|
*display-ambient-music-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(menu
|
|
"Actor Marks"
|
|
(flag "off" #f dm-actor-marks-pick-func)
|
|
(flag "on" #t dm-actor-marks-pick-func)
|
|
(flag "full" full dm-actor-marks-pick-func)
|
|
(flag "process" process dm-actor-marks-pick-func)
|
|
)
|
|
(menu
|
|
"Actor Vis"
|
|
(flag "off" #f dm-actor-vis-pick-func)
|
|
(flag "box" box dm-actor-vis-pick-func)
|
|
(flag "sphere" sphere dm-actor-vis-pick-func)
|
|
(flag "all" #t dm-actor-vis-pick-func)
|
|
)
|
|
(flag "Actor Vis" *vis-actors* dm-boolean-toggle-pick-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Target" (flag
|
|
"Target Stats"
|
|
*stats-target*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(function "Play" #f (lambda ()
|
|
(play #t #t)
|
|
)
|
|
)
|
|
(function "Start" #f (lambda ()
|
|
(the-as
|
|
int
|
|
(start
|
|
'debug
|
|
(get-or-create-continue! *game-info*)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function "Stop" #f (lambda ()
|
|
(stop 'debug)
|
|
)
|
|
)
|
|
(flag "Invulnerable" #f (lambda ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(if *target*
|
|
(set!
|
|
(-> *target* state-flags)
|
|
(logxor (-> *target* state-flags) 16)
|
|
)
|
|
)
|
|
)
|
|
(and
|
|
*target*
|
|
(logtest? (-> *target* state-flags) 16)
|
|
)
|
|
)
|
|
)
|
|
(function "Reset Trans" #f (lambda ()
|
|
(when *target*
|
|
(position-in-front-of-camera!
|
|
(target-pos 0)
|
|
(the-as float 40960.0)
|
|
(the-as float 4096.0)
|
|
)
|
|
(set!
|
|
(-> *target* control transv quad)
|
|
(the-as uint128 0)
|
|
)
|
|
(quaternion-identity!
|
|
(-> *target* control quat)
|
|
)
|
|
(quaternion-identity!
|
|
(-> *target* control unknown-quaternion00)
|
|
)
|
|
(quaternion-identity!
|
|
(-> *target* control dir-targ)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function "Zero Trans" #f (lambda ()
|
|
(when *target*
|
|
(set-vector!
|
|
(-> *target* control trans)
|
|
0.0
|
|
163840.0
|
|
0.0
|
|
1.0
|
|
)
|
|
(set!
|
|
(-> *target* control transv quad)
|
|
(the-as uint128 0)
|
|
)
|
|
(quaternion-identity!
|
|
(-> *target* control quat)
|
|
)
|
|
(quaternion-identity!
|
|
(-> *target* control unknown-quaternion00)
|
|
)
|
|
(quaternion-identity!
|
|
(-> *target* control dir-targ)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(menu "Mode" (function "normal" #f (lambda ()
|
|
(with-pp
|
|
(let
|
|
((a1-0
|
|
(new 'stack-no-clear 'event-message-block
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a1-0 from) pp)
|
|
(set! (-> a1-0 num-params) 0)
|
|
(set! (-> a1-0 message) 'end-mode)
|
|
(send-event-function
|
|
*target*
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function "racing" #f (lambda ()
|
|
(with-pp
|
|
(let
|
|
((a1-0
|
|
(new 'stack-no-clear 'event-message-block)
|
|
)
|
|
)
|
|
(set! (-> a1-0 from) pp)
|
|
(set! (-> a1-0 num-params) 2)
|
|
(set! (-> a1-0 message) 'change-mode)
|
|
(set! (-> a1-0 param 0) (the-as uint 'racing))
|
|
(set! (-> a1-0 param 1) (the-as uint #f))
|
|
(send-event-function *target* a1-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(function "snowball" #f (lambda ()
|
|
(with-pp
|
|
(let
|
|
((a1-0
|
|
(new 'stack-no-clear 'event-message-block)
|
|
)
|
|
)
|
|
(set! (-> a1-0 from) pp)
|
|
(set! (-> a1-0 num-params) 2)
|
|
(set! (-> a1-0 message) 'change-mode)
|
|
(set!
|
|
(-> a1-0 param 0)
|
|
(the-as uint 'snowball)
|
|
)
|
|
(set! (-> a1-0 param 1) (the-as uint #f))
|
|
(send-event-function *target* a1-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(flag
|
|
"Slow Frame Rate"
|
|
*slow-frame-rate*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(function "Print Pos" #f (lambda ()
|
|
(let ((v1-0 (target-pos 0)))
|
|
(format
|
|
#t
|
|
"~6,,2m ~6,,2m ~6,,2m~%"
|
|
(-> v1-0 x)
|
|
(-> v1-0 y)
|
|
(-> v1-0 z)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
(function "Save Continue" #f (lambda ()
|
|
(the-as continue-point (if *target*
|
|
(trsq->continue-point
|
|
(->
|
|
*target*
|
|
control
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s5-0 (debug-menu-make-camera-menu arg0))
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Subdiv" (flag
|
|
"Textured"
|
|
0
|
|
dm-subdiv-draw-func
|
|
)
|
|
(flag
|
|
"Outline"
|
|
(the binteger 1)
|
|
dm-subdiv-draw-func
|
|
)
|
|
(flag
|
|
"Gouraud"
|
|
(the binteger 2)
|
|
dm-subdiv-draw-func
|
|
)
|
|
(flag "Hack" (the binteger 3) dm-subdiv-draw-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Ocean Subdiv" (flag
|
|
"Textured"
|
|
0
|
|
dm-ocean-subdiv-draw-func
|
|
)
|
|
(flag
|
|
"Outline"
|
|
(the binteger 1)
|
|
dm-ocean-subdiv-draw-func
|
|
)
|
|
(flag "Gouraud" (the binteger 2) dm-ocean-subdiv-draw-func)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Time of day" (flag
|
|
"7am sunrise"
|
|
0
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"9am morning"
|
|
(the binteger 1)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"12pm noon"
|
|
(the binteger 2)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"3pm afternoon"
|
|
(the binteger 3)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"6pm sunset"
|
|
(the binteger 4)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"7pm twilight"
|
|
(the binteger 5)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"11pm evening"
|
|
(the binteger 6)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"4am green sun"
|
|
(the binteger 7)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"on"
|
|
(the binteger 8)
|
|
dm-time-of-day-func
|
|
)
|
|
(flag
|
|
"Effects"
|
|
*time-of-day-effects*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag "Fast" *time-of-day-fast* dm-time-of-day-func2)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item
|
|
s5-0
|
|
(the-as
|
|
debug-menu-item
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
menu "Sound" (flag
|
|
"Effect Debug"
|
|
*debug-effect-control*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Amb Snd Marks"
|
|
*display-ambient-sound-marks*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Amb Snd Class"
|
|
*ambient-sound-class*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Amb Spheres"
|
|
*execute-ambients*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(flag
|
|
"Sound channels"
|
|
*display-iop-info*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(function "List Sounds" #f (lambda ()
|
|
(list-sounds)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(debug-menu-append-item s5-0 (debug-menu-make-shader-menu arg0))
|
|
(debug-menu-append-item s5-0 (debug-menu-make-instance-menu arg0))
|
|
(debug-menu-append-item s5-0 (debug-menu-make-task-menu arg0))
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; definition for symbol *popup-menu-context*, type debug-menu-context
|
|
(define *popup-menu-context* (new 'debug 'debug-menu-context))
|
|
|
|
;; definition for function popup-menu-context-make-default-menus
|
|
(defun popup-menu-context-make-default-menus ((arg0 debug-menu-context))
|
|
(debug-menu-make-from-template
|
|
arg0
|
|
'(
|
|
main-menu "Popup" (flag
|
|
"Cam 1"
|
|
pad-1
|
|
dm-cam-externalize
|
|
)
|
|
(flag "Target" #f (lambda ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(if *target*
|
|
(stop 'debug)
|
|
(start 'debug (get-or-create-continue! *game-info*))
|
|
)
|
|
)
|
|
*target*
|
|
)
|
|
)
|
|
(flag "Game" #f (lambda ((arg0 int) (arg1 int))
|
|
(when (= arg1 4)
|
|
(let ((v1-3 (-> *game-info* mode)))
|
|
(set! (-> *game-info* mode) (cond
|
|
((= v1-3 'play)
|
|
'debug
|
|
)
|
|
((= v1-3 'debug)
|
|
'play
|
|
)
|
|
(else
|
|
(-> *game-info* mode)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(= (-> *game-info* mode) 'play)
|
|
)
|
|
)
|
|
(function "Clean" #f (lambda ((arg0 int) (arg1 int))
|
|
(if (time-of-day-setup #f)
|
|
(time-of-day-setup #t)
|
|
)
|
|
(set! *display-entity-errors* #f)
|
|
(set! *display-profile* #f)
|
|
(set! *display-actor-marks* #f)
|
|
#f
|
|
)
|
|
)
|
|
(flag
|
|
"Stats"
|
|
*stats-target*
|
|
dm-boolean-toggle-pick-func
|
|
)
|
|
(function "Reset" #f (lambda ()
|
|
(reset-actors 'debug)
|
|
(none)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
arg0
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(debug-menu-context-make-default-menus *debug-menu-context*)
|
|
|
|
;; failed to figure out what this is:
|
|
(popup-menu-context-make-default-menus *popup-menu-context*)
|
|
|
|
;; definition for function menu-respond-to-pause
|
|
(defun menu-respond-to-pause ()
|
|
(case *master-mode*
|
|
(('menu)
|
|
(if (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l3))
|
|
(debug-menu-context-send-msg
|
|
*popup-menu-context*
|
|
(debug-menu-msg activate)
|
|
(debug-menu-dest activation)
|
|
)
|
|
(debug-menu-context-send-msg
|
|
*debug-menu-context*
|
|
(debug-menu-msg activate)
|
|
(debug-menu-dest activation)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(debug-menu-context-send-msg
|
|
*debug-menu-context*
|
|
(debug-menu-msg deactivate)
|
|
(debug-menu-dest activation)
|
|
)
|
|
(debug-menu-context-send-msg
|
|
*popup-menu-context*
|
|
(debug-menu-msg deactivate)
|
|
(debug-menu-dest activation)
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function *menu-hook*
|
|
(defun *menu-hook* ()
|
|
(debug-menus-handler *debug-menu-context*)
|
|
(debug-menus-handler *popup-menu-context*)
|
|
)
|
|
|
|
)
|
|
|
|
|
|
|