mirror of
https://github.com/open-goal/jak-project
synced 2026-09-10 12:25:21 -04:00
d/jx: More files (#4360)
Breaks the 300 file milestone, also includes the majority of mips2c functions carried forward. Some functions need some fixes in the c++ code to mips2c properly, and a small handful of the mips2c functions require manual patching -- all spots were marked with `TODO - fix` that had to be commented out to get things compiling.
This commit is contained in:
Tyler Wilding
+3
-3
@@ -881,9 +881,9 @@ Then, apply the normal parented transform."
|
||||
(blend float)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type) _type_)
|
||||
(joint-mod-ik-method-9 () none)
|
||||
(joint-mod-ik-method-10 () none)
|
||||
(new (symbol type process-drawable int float) _type_)
|
||||
(set-ik-target! (_type_ vector) none)
|
||||
(enable-set! (_type_ symbol) none)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
+1523
File diff suppressed because it is too large
Load Diff
+1
-1
@@ -155,7 +155,7 @@ It is not useful for ollision queries against a specific foreground object, like
|
||||
(:methods
|
||||
(new (symbol type int int) _type_)
|
||||
(collide-cache-method-9 () none)
|
||||
(collide-cache-method-10 () none)
|
||||
(fill-and-probe-using-line-sphere (_type_ collide-query) float)
|
||||
(collide-cache-method-11 () none)
|
||||
(collide-cache-method-12 () none)
|
||||
(collide-cache-method-13 () none)
|
||||
|
||||
+111
@@ -0,0 +1,111 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 9 of type drawable-tree-collide-fragment
|
||||
(defmethod login ((this drawable-tree-collide-fragment))
|
||||
"Initialize the object after it is loaded."
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 10 of type drawable-tree-collide-fragment
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod draw ((this drawable-tree-collide-fragment))
|
||||
"Draw the drawable, and typically its children.
|
||||
This usually means adding stuff to a list to be drawn later, rather than expensive drawing here."
|
||||
(when *display-render-collision*
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(draw (-> this data s5-0))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 15 of type drawable-tree-collide-fragment
|
||||
(defmethod unpack-vis ((this drawable-tree-collide-fragment) (arg0 (pointer int8)) (arg1 (pointer int8)))
|
||||
arg1
|
||||
)
|
||||
|
||||
;; definition for method 8 of type collide-fragment
|
||||
;; WARN: Return type mismatch int vs collide-fragment.
|
||||
(defmethod mem-usage ((this collide-fragment) (usage memory-usage-block) (flags int))
|
||||
(let ((s5-0 (if (logtest? flags 1)
|
||||
54
|
||||
50
|
||||
)
|
||||
)
|
||||
(s4-0 (-> this mesh))
|
||||
)
|
||||
(set! (-> usage data s5-0 name) "collide-fragment")
|
||||
(+! (-> usage data s5-0 count) 1)
|
||||
(let ((v1-9 (+ (asize-of this) (asize-of s4-0))))
|
||||
(+! (-> usage data s5-0 used) v1-9)
|
||||
(+! (-> usage data s5-0 total) (logand -16 (+ v1-9 15)))
|
||||
)
|
||||
(set! (-> usage data (+ s5-0 1) name) "collision-poly")
|
||||
(+! (-> usage data (+ s5-0 1) count) (-> s4-0 poly-count))
|
||||
(let ((v1-20 (+ (-> s4-0 strip-data-len) (-> s4-0 poly-count))))
|
||||
(+! (-> usage data (+ s5-0 1) used) v1-20)
|
||||
(+! (-> usage data (+ s5-0 1) total) v1-20)
|
||||
)
|
||||
(set! (-> usage data (+ s5-0 2) name) "collision-vertex")
|
||||
(+! (-> usage data (+ s5-0 2) count) (-> s4-0 vertex-count))
|
||||
(let ((v1-29 (* (-> s4-0 vertex-data-qwc) 16)))
|
||||
(+! (-> usage data (+ s5-0 2) used) v1-29)
|
||||
(let ((v0-2 (+ (-> usage data (+ s5-0 2) total) v1-29)))
|
||||
(set! (-> usage data (+ s5-0 2) total) v0-2)
|
||||
(the-as collide-fragment v0-2)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type drawable-inline-array-collide-fragment
|
||||
(defmethod login ((this drawable-inline-array-collide-fragment))
|
||||
"Initialize the object after it is loaded."
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 10 of type collide-fragment
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod draw ((this collide-fragment))
|
||||
"Draw the drawable, and typically its children.
|
||||
This usually means adding stuff to a list to be drawn later, rather than expensive drawing here."
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type drawable-inline-array-collide-fragment
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod draw ((this drawable-inline-array-collide-fragment))
|
||||
"Draw the drawable, and typically its children.
|
||||
This usually means adding stuff to a list to be drawn later, rather than expensive drawing here."
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(let ((s4-0 (-> this data s5-0)))
|
||||
(if (sphere-cull (-> s4-0 bsphere))
|
||||
(draw s4-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 8 of type drawable-inline-array-collide-fragment
|
||||
(defmethod mem-usage ((this drawable-inline-array-collide-fragment) (usage memory-usage-block) (flags int))
|
||||
(set! (-> usage length) (max 1 (-> usage length)))
|
||||
(set! (-> usage data 0 name) "drawable-group")
|
||||
(+! (-> usage data 0 count) 1)
|
||||
(let ((v1-5 32))
|
||||
(+! (-> usage data 0 used) v1-5)
|
||||
(+! (-> usage data 0 total) (logand -16 (+ v1-5 15)))
|
||||
)
|
||||
(dotimes (s3-0 (-> this length))
|
||||
(mem-usage (-> this data s3-0) usage flags)
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+1470
File diff suppressed because it is too large
Load Diff
+477
@@ -0,0 +1,477 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for function creates-new-method?
|
||||
(defun creates-new-method? ((arg0 type) (arg1 int))
|
||||
(let ((v1-1 (-> arg0 parent allocated-length)))
|
||||
(-> arg0 allocated-length)
|
||||
(>= arg1 (the-as int v1-1))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function overrides-parent-method?
|
||||
(defun overrides-parent-method? ((arg0 type) (arg1 int))
|
||||
(!= (-> arg0 method-table arg1) (-> arg0 parent method-table arg1))
|
||||
)
|
||||
|
||||
;; definition for function describe-methods
|
||||
(defun describe-methods ((arg0 type))
|
||||
(let ((s5-0 (-> arg0 allocated-length)))
|
||||
(dotimes (s4-0 (the-as int s5-0))
|
||||
(let ((s3-0 arg0))
|
||||
(format #t "~3d:~%" s4-0)
|
||||
(while (!= s3-0 basic)
|
||||
(cond
|
||||
((creates-new-method? s3-0 s4-0)
|
||||
(format #t " created by ~s.~%" (symbol->string (-> s3-0 symbol)))
|
||||
(set! s3-0 basic)
|
||||
)
|
||||
((overrides-parent-method? s3-0 s4-0)
|
||||
(format #t " overridden by ~s.~%" (symbol->string (-> s3-0 symbol)))
|
||||
(set! s3-0 (-> s3-0 parent))
|
||||
)
|
||||
(else
|
||||
(set! s3-0 (-> s3-0 parent))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
#f
|
||||
)
|
||||
|
||||
;; definition for function indent-to
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun indent-to ((arg0 int))
|
||||
(dotimes (s5-0 arg0)
|
||||
(format #t " ")
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function probe-traverse-draw-node
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun probe-traverse-draw-node ((arg0 draw-node) (arg1 int))
|
||||
(indent-to arg1)
|
||||
(format
|
||||
#t
|
||||
"[~08x] child-count: ~d, flags: ~d, dist: ~f, child: ~a~%"
|
||||
arg0
|
||||
(-> arg0 child-count)
|
||||
(-> arg0 flags)
|
||||
(-> arg0 distance)
|
||||
(-> arg0 child)
|
||||
)
|
||||
(cond
|
||||
((nonzero? (-> arg0 flags))
|
||||
(let ((s4-0 (-> arg0 child)))
|
||||
(dotimes (s3-0 (the-as int (-> arg0 child-count)))
|
||||
(probe-traverse-draw-node (the-as draw-node (+ (the-as uint s4-0) (* s3-0 32))) (+ arg1 1))
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function probe-traverse-inline-array-node
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun probe-traverse-inline-array-node ((arg0 drawable-inline-array-node) (arg1 int))
|
||||
(indent-to arg1)
|
||||
(format #t "[~08x] drawable-inline-array-node: length = ~d~%" arg0 (-> arg0 length))
|
||||
(let ((s4-0 (-> arg0 length)))
|
||||
(dotimes (s3-0 s4-0)
|
||||
(indent-to arg1)
|
||||
(format #t "(~3d) ~a~%" s3-0 (-> arg0 data s3-0))
|
||||
(if (= (-> arg0 data s3-0 type) draw-node)
|
||||
(probe-traverse-draw-node (-> arg0 data s3-0) (+ arg1 1))
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function probe-traverse-collide-fragment
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun probe-traverse-collide-fragment ((arg0 drawable-tree-collide-fragment) (arg1 int))
|
||||
(indent-to arg1)
|
||||
(format #t "[~08x] drawable-tree-collide-fragment: length = ~d~%" arg0 (-> arg0 length))
|
||||
(let ((s4-0 (-> arg0 length)))
|
||||
(dotimes (s3-0 (+ s4-0 -1))
|
||||
(indent-to arg1)
|
||||
(if (= (-> arg0 data s3-0 type) drawable-inline-array-node)
|
||||
(probe-traverse-inline-array-node (the-as drawable-inline-array-node (-> arg0 data s3-0)) (+ arg1 1))
|
||||
(format #t "unknown: ~a~%" (-> arg0 data s3-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition of type collide-probe-stack-elem
|
||||
(deftype collide-probe-stack-elem (structure)
|
||||
((child uint32)
|
||||
(count uint32)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type collide-probe-stack-elem
|
||||
(defmethod inspect ((this collide-probe-stack-elem))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'collide-probe-stack-elem)
|
||||
(format #t "~1Tchild: #x~X~%" (-> this child))
|
||||
(format #t "~1Tcount: ~D~%" (-> this count))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type collide-probe-stack
|
||||
(deftype collide-probe-stack (structure)
|
||||
((data collide-probe-stack-elem 1024 :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type collide-probe-stack
|
||||
(defmethod inspect ((this collide-probe-stack))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'collide-probe-stack)
|
||||
(format #t "~1Tdata[1024] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *collide-probe-stack*, type collide-probe-stack
|
||||
(define *collide-probe-stack* (the-as collide-probe-stack (+ 4192 #x70000000)))
|
||||
|
||||
;; definition for symbol collide-vu0-block, type vu-function
|
||||
(define collide-vu0-block (new 'static 'vu-function :length 90 :qlength 45))
|
||||
|
||||
;; definition for function collide-probe-node
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; definition for function print-out
|
||||
(defun print-out ((arg0 int))
|
||||
(format *stdcon* "~d~%" arg0)
|
||||
)
|
||||
|
||||
;; definition for function collide-probe-instance-tie-collide-frags
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun collide-probe-instance-tie-collide-frags ()
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function collide-probe-instance-tie
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; definition for function collide-probe-collide-fragment-tree-make-list
|
||||
;; ERROR: failed type prop at 6: Could not figure out load: (set! v1 (l.h (+ v1 2)))
|
||||
;; ERROR: Function may read a register that is not set: a2
|
||||
(defun collide-probe-collide-fragment-tree-make-list ((a0-0 drawable-tree-collide-fragment) (a1-0 collide-list))
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v0-1 none)
|
||||
(v1-0 int)
|
||||
(v1-1 drawable)
|
||||
(v1-2 none)
|
||||
(a0-1 drawable)
|
||||
(a3-0 int)
|
||||
(t9-0 (function (inline-array draw-node) int collide-list int))
|
||||
)
|
||||
(cond
|
||||
((begin (set! v1-0 1) (set! a3-0 (-> a0-0 length)) (<.si v1-0 a3-0))
|
||||
(set! v1-1 (-> a0-0 data 0))
|
||||
(set! t9-0 collide-probe-node)
|
||||
(set! a0-1 (+ v1-1 32))
|
||||
(set! v1-2 (the-as none (l.h (+ v1-1 2))))
|
||||
(set! t0-0 (the-as none a1-0))
|
||||
(set! a3-1 (the-as none a2-0))
|
||||
(set! a1-1 (the-as none v1-2))
|
||||
(set! a2-1 (the-as none t0-0))
|
||||
(call!)
|
||||
(set! v1-3 (the-as none v0-0))
|
||||
)
|
||||
(else
|
||||
)
|
||||
)
|
||||
(set! v0-1 (the-as none 0))
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; definition for function collide-probe-instance-tie-tree-make-list
|
||||
;; ERROR: failed type prop at 6: Could not figure out load: (set! v1 (l.h (+ v1 2)))
|
||||
;; WARN: Return type mismatch none vs int.
|
||||
;; ERROR: Function may read a register that is not set: a2
|
||||
(defun collide-probe-instance-tie-tree-make-list ((a0-0 drawable-tree-instance-tie) (a1-0 collide-list))
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v0-1 none)
|
||||
(v0-2 none)
|
||||
(v1-0 int)
|
||||
(v1-2 drawable)
|
||||
(v1-3 none)
|
||||
(v1-5 none)
|
||||
(v1-7 none)
|
||||
(v1-8 none)
|
||||
(a0-1 drawable)
|
||||
(a0-2 none)
|
||||
(a3-0 int)
|
||||
(a3-1 none)
|
||||
(a3-2 none)
|
||||
(a3-3 none)
|
||||
(t9-0 (function object int collide-list int int))
|
||||
(t9-1 none)
|
||||
)
|
||||
(cond
|
||||
((begin (set! v1-0 1) (set! a3-0 (-> a0-0 length)) (<.si v1-0 a3-0))
|
||||
(set! v1-2 (-> a0-0 data 0))
|
||||
(set! t9-0 collide-probe-instance-tie)
|
||||
(set! a0-1 (+ v1-2 32))
|
||||
(set! v1-3 (the-as none (l.h (+ v1-2 2))))
|
||||
(set! t1-0 (the-as none a1-0))
|
||||
(set! a3-1 (the-as none 1))
|
||||
(set! t0-0 (the-as none a2-0))
|
||||
(set! a1-1 (the-as none v1-3))
|
||||
(set! a2-1 (the-as none t1-0))
|
||||
(call!)
|
||||
(set! v1-4 (the-as none v0-0))
|
||||
)
|
||||
((begin (set! v1-5 (the-as none 1)) (set! a3-2 (the-as none (-> a0-0 length))) (= a3-2 v1-5))
|
||||
(set! v1-7 (the-as none (l.wu (+ a0-0 28))))
|
||||
(set! t9-1 (the-as none collide-probe-instance-tie))
|
||||
(set! a0-2 (the-as none (+ v1-7 32)))
|
||||
(set! v1-8 (the-as none (l.h (+ v1-7 2))))
|
||||
(set! t1-1 (the-as none a1-0))
|
||||
(set! a3-3 (the-as none 0))
|
||||
(set! t0-1 (the-as none a2-0))
|
||||
(set! a1-2 (the-as none v1-8))
|
||||
(set! a2-2 (the-as none t1-1))
|
||||
(call!)
|
||||
(set! v1-9 (the-as none v0-1))
|
||||
)
|
||||
)
|
||||
(set! v0-2 (the-as none 0))
|
||||
(ret-value v0-2)
|
||||
)
|
||||
|
||||
;; definition for function collide-upload-vu0
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.d! (+ a0-5 8) 0) at op 17
|
||||
(defun collide-upload-vu0 ()
|
||||
(let ((gp-0 *vu0-dma-list*))
|
||||
(let ((v1-0 gp-0))
|
||||
(set! (-> v1-0 base) (-> v1-0 data))
|
||||
(set! (-> v1-0 end) (the-as pointer (+ (+ (-> v1-0 allocated-length) 28) (the-as int v1-0))))
|
||||
)
|
||||
(dma-buffer-add-vu-function gp-0 collide-vu0-block 0)
|
||||
(let* ((v1-1 gp-0)
|
||||
(a0-5 (-> v1-1 base))
|
||||
)
|
||||
(set! (-> (the-as (pointer int64) a0-5)) #x70000000)
|
||||
(s.d! (+ a0-5 8) 0)
|
||||
(set! (-> v1-1 base) (&+ a0-5 16))
|
||||
)
|
||||
(.sync.l)
|
||||
(dma-buffer-send-chain (the-as dma-bank-source #x10008000) gp-0)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function collide-probe-make-list
|
||||
;; ERROR: failed type prop at 23: Could not figure out load: (set! a1 (l.h (+ v1 2)))
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
;; ERROR: Function may read a register that is not set: a2
|
||||
(defun collide-probe-make-list ((a0-0 level) (a1-0 collide-list))
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v0-1 none)
|
||||
(v0-2 none)
|
||||
(v0-3 none)
|
||||
(v1-0 int)
|
||||
(v1-1 int)
|
||||
(v1-2 int)
|
||||
(v1-3 drawable-tree)
|
||||
(v1-4 drawable)
|
||||
(v1-6 none)
|
||||
(v1-8 none)
|
||||
(v1-9 none)
|
||||
(v1-12 none)
|
||||
(v1-14 int)
|
||||
(a0-1 type)
|
||||
(a0-2 int)
|
||||
(a0-4 drawable)
|
||||
(a0-5 none)
|
||||
(a0-7 none)
|
||||
(a0-8 none)
|
||||
(a0-9 none)
|
||||
(a0-10 none)
|
||||
(a1-1 type)
|
||||
(a1-2 int)
|
||||
(a1-3 none)
|
||||
(a1-4 none)
|
||||
(a1-5 none)
|
||||
(a1-6 none)
|
||||
(a1-7 none)
|
||||
(a1-8 none)
|
||||
(a2-0 none)
|
||||
(a3-0 none)
|
||||
(a3-1 none)
|
||||
(s3-0 int)
|
||||
(s4-0 bsp-header)
|
||||
(s4-1 drawable-tree-array)
|
||||
(t9-0 (function none))
|
||||
(t9-1 (function object int collide-list int int))
|
||||
(t9-2 none)
|
||||
(t9-3 none)
|
||||
)
|
||||
(set! s4-0 (-> a0-0 bsp))
|
||||
(set! v1-0 0)
|
||||
(set! t9-0 collide-upload-vu0)
|
||||
(call!)
|
||||
(set! s4-1 (-> s4-0 drawable-trees))
|
||||
(set! s3-0 0)
|
||||
(while (begin (set! v1-14 (-> s4-1 length)) (<.si s3-0 v1-14))
|
||||
(cond
|
||||
((begin
|
||||
(set! v1-1 (sll s3-0 2))
|
||||
(set! v1-2 (+ v1-1 s4-1))
|
||||
(set! v1-3 (dynamic-array-field-access v1-2 trees PLACEHOLDER))
|
||||
(set! a0-1 drawable-tree-instance-tie)
|
||||
(set! a1-1 (-> v1-3 type))
|
||||
(= a1-1 a0-1)
|
||||
)
|
||||
(cond
|
||||
((begin (set! a2-1 a1-0) (set! t0-0 a2-0) (set! a0-2 1) (set! a1-2 (-> v1-3 length)) (<.si a0-2 a1-2))
|
||||
(set! v1-4 (-> v1-3 data 0))
|
||||
(set! t9-1 collide-probe-instance-tie)
|
||||
(set! a0-4 (+ v1-4 32))
|
||||
(set! a1-3 (the-as none (l.h (+ v1-4 2))))
|
||||
(set! a3-0 (the-as none 1))
|
||||
(call!)
|
||||
(set! v1-5 (the-as none v0-1))
|
||||
)
|
||||
((begin (set! a0-5 (the-as none 1)) (set! a1-4 (the-as none (-> v1-3 length))) (= a1-4 a0-5))
|
||||
(set! v1-6 (the-as none (l.wu (+ v1-3 28))))
|
||||
(set! t9-2 (the-as none collide-probe-instance-tie))
|
||||
(set! a0-7 (the-as none (+ v1-6 32)))
|
||||
(set! a1-5 (the-as none (l.h (+ v1-6 2))))
|
||||
(set! a3-1 (the-as none 0))
|
||||
(call!)
|
||||
(set! v1-7 (the-as none v0-2))
|
||||
)
|
||||
)
|
||||
(set! v1-8 (the-as none 0))
|
||||
)
|
||||
(else
|
||||
(cond
|
||||
((begin
|
||||
(set! a0-8 (the-as none drawable-tree-collide-fragment))
|
||||
(set! a1-6 (the-as none (-> v1-3 type)))
|
||||
(= a1-6 a0-8)
|
||||
)
|
||||
(cond
|
||||
((begin
|
||||
(set! a2-2 (the-as none a1-0))
|
||||
(set! a3-2 (the-as none a2-0))
|
||||
(set! a0-9 (the-as none 1))
|
||||
(set! a1-7 (the-as none (l.h (+ v1-3 2))))
|
||||
(<.si a0-9 a1-7)
|
||||
)
|
||||
(set! v1-9 (the-as none (l.wu (+ v1-3 28))))
|
||||
(set! t9-3 (the-as none collide-probe-node))
|
||||
(set! a0-10 (the-as none (+ v1-9 32)))
|
||||
(set! a1-8 (the-as none (l.h (+ v1-9 2))))
|
||||
(call!)
|
||||
(set! v1-10 (the-as none v0-3))
|
||||
)
|
||||
(else
|
||||
)
|
||||
)
|
||||
(set! v1-12 (the-as none 0))
|
||||
)
|
||||
(else
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! s3-0 (the-as int (+ s3-0 1)))
|
||||
)
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; definition for function distc
|
||||
(defun distc ((arg0 vector) (arg1 vector))
|
||||
(sqrtf (+ (square (- (-> arg0 x) (-> arg1 x))) (square (- (-> arg0 z) (-> arg1 z)))))
|
||||
)
|
||||
|
||||
;; definition for function interpolate
|
||||
(defun interpolate ((arg0 float) (arg1 float) (arg2 float) (arg3 float) (arg4 float))
|
||||
(let ((f0-1 (- arg3 arg1))
|
||||
(f1-2 (- arg4 arg2))
|
||||
(f3-1 (- arg0 arg1))
|
||||
)
|
||||
(+ arg2 (/ (* f3-1 f1-2) f0-1))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function misty-ambush-height
|
||||
(defun misty-ambush-height ((arg0 vector))
|
||||
(let* ((a1-0 (new 'static 'vector :data (new 'static 'array float 4 -808960.0 111656.96 3924992.0 0.0)))
|
||||
(f0-0 (distc arg0 a1-0))
|
||||
)
|
||||
(cond
|
||||
((< f0-0 52019.2)
|
||||
111656.96
|
||||
)
|
||||
((>= 58982.4 f0-0)
|
||||
(interpolate f0-0 52019.2 111656.96 58982.4 116776.96)
|
||||
)
|
||||
((>= 124436.48 f0-0)
|
||||
(interpolate f0-0 58982.4 116776.96 124436.48 114688.0)
|
||||
)
|
||||
((>= 219217.92 f0-0)
|
||||
(interpolate f0-0 124436.48 114688.0 219217.92 113254.4)
|
||||
)
|
||||
(else
|
||||
113254.4
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function misty-ambush-height-probe
|
||||
(defun misty-ambush-height-probe ((arg0 vector) (arg1 float))
|
||||
(let ((f0-0 (misty-ambush-height arg0)))
|
||||
(cond
|
||||
((< f0-0 (-> arg0 y))
|
||||
(/ (- (-> arg0 y) f0-0) arg1)
|
||||
)
|
||||
(else
|
||||
(format 0 "WARNING: ~%height = ~f, pos.y = ~f" (/ f0-0 METER_LENGTH) (/ (-> arg0 y) METER_LENGTH))
|
||||
-1.0
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function pke-collide-test
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun pke-collide-test ()
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+580
@@ -0,0 +1,580 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 10 of type touching-prims-entry-pool
|
||||
(defmethod get-free-node-count ((this touching-prims-entry-pool))
|
||||
(let ((v0-0 0))
|
||||
(let ((v1-0 (-> this head)))
|
||||
(while v1-0
|
||||
(+! v0-0 1)
|
||||
(set! v1-0 (-> v1-0 next))
|
||||
(nop!)
|
||||
(nop!)
|
||||
(nop!)
|
||||
)
|
||||
)
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type touching-prims-entry-pool
|
||||
(defmethod alloc-node ((this touching-prims-entry-pool))
|
||||
(let ((gp-0 (-> this head)))
|
||||
(cond
|
||||
(gp-0
|
||||
(let ((v1-0 (-> gp-0 next)))
|
||||
(set! (-> this head) v1-0)
|
||||
(if v1-0
|
||||
(set! (-> v1-0 prev) #f)
|
||||
)
|
||||
)
|
||||
(set! (-> gp-0 allocated?) #t)
|
||||
(set! (-> gp-0 next) #f)
|
||||
(set! (-> gp-0 prev) #f)
|
||||
)
|
||||
(else
|
||||
(format 0 "ERROR: touching-prims-entry-pool::alloc-node() failed!~%")
|
||||
)
|
||||
)
|
||||
gp-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type touching-prims-entry-pool
|
||||
(defmethod free-node ((this touching-prims-entry-pool) (arg0 touching-prims-entry))
|
||||
(when (-> arg0 allocated?)
|
||||
(set! (-> arg0 allocated?) #f)
|
||||
(let ((v1-1 (-> this head)))
|
||||
(set! (-> arg0 next) v1-1)
|
||||
(set! (-> arg0 prev) #f)
|
||||
(set! (-> this head) arg0)
|
||||
(when v1-1
|
||||
(set! (-> v1-1 prev) arg0)
|
||||
arg0
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type touching-shapes-entry
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod free-touching-prims-list ((this touching-shapes-entry))
|
||||
(when (-> this cshape1)
|
||||
(set! (-> this cshape1) #f)
|
||||
(let ((gp-0 (-> this head)))
|
||||
(when gp-0
|
||||
(set! (-> this head) #f)
|
||||
(let ((s5-0 *touching-prims-entry-pool*))
|
||||
(while gp-0
|
||||
(let ((a1-0 gp-0))
|
||||
(set! gp-0 (-> a1-0 next))
|
||||
(free-node s5-0 a1-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type touching-list
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod free-nodes ((this touching-list))
|
||||
(let ((s5-0 (the-as object (-> this touching-shapes))))
|
||||
(countdown (s4-0 (-> this num-touching-shapes))
|
||||
(free-touching-prims-list (the-as touching-shapes-entry s5-0))
|
||||
(set! s5-0 (&+ (the-as touching-shapes-entry s5-0) 32))
|
||||
)
|
||||
)
|
||||
(set! (-> this num-touching-shapes) 0)
|
||||
(set! (-> this resolve-u) 0)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type touching-list
|
||||
;; WARN: Return type mismatch object vs touching-shapes-entry.
|
||||
(defmethod get-shapes-entry ((this touching-list) (arg0 collide-shape) (arg1 collide-shape))
|
||||
(let ((v0-0 (the-as object (-> this touching-shapes))))
|
||||
(let ((v1-0 (the-as touching-shapes-entry #f)))
|
||||
(countdown (a3-0 (-> this num-touching-shapes))
|
||||
(let ((t0-0 (-> (the-as touching-shapes-entry v0-0) cshape1)))
|
||||
(set! v1-0 (cond
|
||||
(t0-0
|
||||
(if (or (and (= t0-0 arg0) (= (-> (the-as touching-shapes-entry v0-0) cshape2) arg1))
|
||||
(and (= t0-0 arg1) (= (-> (the-as touching-shapes-entry v0-0) cshape2) arg0))
|
||||
)
|
||||
(return (the-as touching-shapes-entry v0-0))
|
||||
)
|
||||
v1-0
|
||||
)
|
||||
(else
|
||||
(the-as touching-shapes-entry v0-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! v0-0 (&+ (the-as touching-shapes-entry v0-0) 32))
|
||||
)
|
||||
(cond
|
||||
(v1-0
|
||||
(set! v0-0 v1-0)
|
||||
)
|
||||
(else
|
||||
(when (>= (-> this num-touching-shapes) 32)
|
||||
(format 0 "ERROR: touching-list::get-shapes-entry() failed!~%")
|
||||
(return (the-as touching-shapes-entry #f))
|
||||
)
|
||||
(+! (-> this num-touching-shapes) 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> (the-as touching-shapes-entry v0-0) cshape1) arg0)
|
||||
(set! (-> (the-as touching-shapes-entry v0-0) cshape2) arg1)
|
||||
(set! (-> (the-as touching-shapes-entry v0-0) head) #f)
|
||||
(set! (-> (the-as touching-shapes-entry v0-0) resolve-u) 1)
|
||||
(set! (-> this resolve-u) 1)
|
||||
(set! (-> (the-as touching-shapes-entry v0-0) handle1) (process->handle (-> arg0 process)))
|
||||
(set! (-> (the-as touching-shapes-entry v0-0) handle2) (process->handle (-> arg1 process)))
|
||||
(the-as touching-shapes-entry v0-0)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type add-prims-touching-work
|
||||
(deftype add-prims-touching-work (structure)
|
||||
((tri1 collide-tri-result)
|
||||
(tri2 collide-tri-result)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type add-prims-touching-work
|
||||
(defmethod inspect ((this add-prims-touching-work))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'add-prims-touching-work)
|
||||
(format #t "~1Ttri1: #<collide-tri-result @ #x~X>~%" (-> this tri1))
|
||||
(format #t "~1Ttri2: #<collide-tri-result @ #x~X>~%" (-> this tri2))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 9 of type touching-list
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; WARN: Function (method 9 touching-list) has a return type of none, but the expression builder found a return statement.
|
||||
(defmethod add-touching-prims ((this touching-list)
|
||||
(arg0 collide-shape-prim)
|
||||
(arg1 collide-shape-prim)
|
||||
(arg2 float)
|
||||
(arg3 collide-tri-result)
|
||||
(arg4 collide-tri-result)
|
||||
)
|
||||
(let ((gp-0 (new 'stack-no-clear 'add-prims-touching-work)))
|
||||
(set! (-> gp-0 tri1) arg3)
|
||||
(set! (-> gp-0 tri2) arg4)
|
||||
(let ((s2-0 (get-shapes-entry this (-> arg0 cshape) (-> arg1 cshape))))
|
||||
(when s2-0
|
||||
(when (= (-> s2-0 cshape1) (-> arg1 cshape))
|
||||
(let ((v1-4 arg0))
|
||||
(set! arg0 arg1)
|
||||
(set! arg1 v1-4)
|
||||
)
|
||||
)
|
||||
(let ((s0-0 (-> s2-0 head)))
|
||||
(while s0-0
|
||||
(when (and (= (-> s0-0 prim1 cprim) arg0) (= (-> s0-0 prim2 cprim) arg1))
|
||||
(when (< arg2 (-> s0-0 u))
|
||||
(-> s0-0 u)
|
||||
(let ((v1-12 (-> s0-0 prim1))
|
||||
(a1-2 (-> gp-0 tri1))
|
||||
)
|
||||
(cond
|
||||
(a1-2
|
||||
(set! (-> v1-12 has-tri?) #t)
|
||||
(mem-copy! (the-as pointer (-> v1-12 tri)) (the-as pointer a1-2) 88)
|
||||
)
|
||||
(else
|
||||
(set! (-> v1-12 has-tri?) #f)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v1-15 (-> s0-0 prim2))
|
||||
(a1-3 (-> gp-0 tri2))
|
||||
)
|
||||
(cond
|
||||
(a1-3
|
||||
(set! (-> v1-15 has-tri?) #t)
|
||||
(mem-copy! (the-as pointer (-> v1-15 tri)) (the-as pointer a1-3) 88)
|
||||
)
|
||||
(else
|
||||
(set! (-> v1-15 has-tri?) #f)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(return 0)
|
||||
)
|
||||
(set! s0-0 (-> s0-0 next))
|
||||
)
|
||||
)
|
||||
(let ((s0-1 (alloc-node *touching-prims-entry-pool*)))
|
||||
(when s0-1
|
||||
(let ((v1-22 (-> s2-0 head)))
|
||||
(set! (-> s0-1 next) v1-22)
|
||||
(set! (-> s0-1 prev) #f)
|
||||
(set! (-> s2-0 head) s0-1)
|
||||
(if v1-22
|
||||
(set! (-> v1-22 prev) s0-1)
|
||||
)
|
||||
)
|
||||
(set! (-> s0-1 u) arg2)
|
||||
(when (>= arg2 0.0)
|
||||
(set! (-> s2-0 resolve-u) 1)
|
||||
(set! (-> this resolve-u) 1)
|
||||
)
|
||||
(let ((v1-26 (-> s0-1 prim1))
|
||||
(a1-4 (-> gp-0 tri1))
|
||||
)
|
||||
(set! (-> v1-26 cprim) arg0)
|
||||
(cond
|
||||
(a1-4
|
||||
(set! (-> v1-26 has-tri?) #t)
|
||||
(mem-copy! (the-as pointer (-> v1-26 tri)) (the-as pointer a1-4) 88)
|
||||
)
|
||||
(else
|
||||
(set! (-> v1-26 has-tri?) #f)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v1-29 (-> s0-1 prim2))
|
||||
(a1-5 (-> gp-0 tri2))
|
||||
)
|
||||
(set! (-> v1-29 cprim) arg1)
|
||||
(cond
|
||||
(a1-5
|
||||
(set! (-> v1-29 has-tri?) #t)
|
||||
(mem-copy! (the-as pointer (-> v1-29 tri)) (the-as pointer a1-5) 88)
|
||||
)
|
||||
(else
|
||||
(set! (-> v1-29 has-tri?) #f)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type touching-list
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod update-from-step-size ((this touching-list) (arg0 float))
|
||||
(when (nonzero? (-> this resolve-u))
|
||||
(set! (-> this resolve-u) 0)
|
||||
(let ((s5-0 (the-as object (-> this touching-shapes))))
|
||||
(countdown (s4-0 (-> this num-touching-shapes))
|
||||
(when (nonzero? (-> (the-as touching-shapes-entry s5-0) resolve-u))
|
||||
(set! (-> (the-as touching-shapes-entry s5-0) resolve-u) 0)
|
||||
(when (-> (the-as touching-shapes-entry s5-0) cshape1)
|
||||
(let ((s3-0 (-> (the-as touching-shapes-entry s5-0) head)))
|
||||
(while s3-0
|
||||
(let ((f0-0 (-> s3-0 u)))
|
||||
(set! s3-0 (cond
|
||||
((>= f0-0 0.0)
|
||||
(cond
|
||||
((>= arg0 f0-0)
|
||||
(set! (-> s3-0 u) -1.0)
|
||||
(set! s3-0 (-> s3-0 next))
|
||||
)
|
||||
(else
|
||||
(let ((a1-1 s3-0))
|
||||
(let ((v1-8 (-> s3-0 next)))
|
||||
(let ((a0-1 (-> s3-0 prev)))
|
||||
(if a0-1
|
||||
(set! (-> a0-1 next) v1-8)
|
||||
(set! (-> (the-as touching-shapes-entry s5-0) head) v1-8)
|
||||
)
|
||||
(if v1-8
|
||||
(set! (-> v1-8 prev) a0-1)
|
||||
)
|
||||
)
|
||||
(set! s3-0 v1-8)
|
||||
)
|
||||
(free-node *touching-prims-entry-pool* a1-1)
|
||||
)
|
||||
)
|
||||
)
|
||||
s3-0
|
||||
)
|
||||
(else
|
||||
(-> s3-0 next)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (not (-> (the-as touching-shapes-entry s5-0) head))
|
||||
(set! (-> (the-as touching-shapes-entry s5-0) cshape1) #f)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! s5-0 (&+ (the-as touching-shapes-entry s5-0) 32))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type touching-list
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod send-events-for-touching-shapes ((this touching-list))
|
||||
(let ((gp-0 (the-as object (-> this touching-shapes))))
|
||||
(countdown (s5-0 (-> this num-touching-shapes))
|
||||
(let ((s3-0 (-> (the-as touching-shapes-entry gp-0) cshape1)))
|
||||
(when s3-0
|
||||
(let ((s4-0 (handle->process (-> (the-as touching-shapes-entry gp-0) handle1)))
|
||||
(s2-0 (handle->process (-> (the-as touching-shapes-entry gp-0) handle2)))
|
||||
)
|
||||
(when (and s4-0 s2-0)
|
||||
(let ((s1-0 (-> (the-as touching-shapes-entry gp-0) cshape2)))
|
||||
(when (< (-> s3-0 event-priority) (-> s1-0 event-priority))
|
||||
(let ((v1-9 s3-0))
|
||||
(set! s3-0 s1-0)
|
||||
(set! s1-0 v1-9)
|
||||
)
|
||||
(let ((v1-11 s4-0))
|
||||
(set! s4-0 s2-0)
|
||||
(set! s2-0 v1-11)
|
||||
)
|
||||
)
|
||||
(let ((v1-13 (-> s3-0 event-self)))
|
||||
(if v1-13
|
||||
(send-event s4-0 v1-13 :from s2-0 gp-0)
|
||||
)
|
||||
)
|
||||
(let ((v1-14 (-> s3-0 event-other)))
|
||||
(if v1-14
|
||||
(send-event s2-0 v1-14 :from s4-0 gp-0)
|
||||
)
|
||||
)
|
||||
(let ((v1-15 (-> s1-0 event-self)))
|
||||
(if v1-15
|
||||
(send-event s2-0 v1-15 :from s4-0 gp-0)
|
||||
)
|
||||
)
|
||||
(let ((v1-16 (-> s1-0 event-other)))
|
||||
(if v1-16
|
||||
(send-event s4-0 v1-16 :from s2-0 gp-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! gp-0 (&+ (the-as touching-shapes-entry gp-0) 32))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type touching-shapes-entry
|
||||
(defmethod prims-touching? ((this touching-shapes-entry) (arg0 collide-shape) (arg1 uint))
|
||||
(cond
|
||||
((= (-> this cshape1) arg0)
|
||||
(let ((v1-1 (-> this head)))
|
||||
(while v1-1
|
||||
(if (logtest? (-> v1-1 prim1 cprim prim-id) arg1)
|
||||
(return v1-1)
|
||||
)
|
||||
(set! v1-1 (-> v1-1 next))
|
||||
)
|
||||
)
|
||||
)
|
||||
((= (-> this cshape2) arg0)
|
||||
(let ((v1-4 (-> this head)))
|
||||
(while v1-4
|
||||
(if (logtest? (-> v1-4 prim2 cprim prim-id) arg1)
|
||||
(return v1-4)
|
||||
)
|
||||
(set! v1-4 (-> v1-4 next))
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(format 0 "ERROR: touching-shapes-entry::prims-touching? : Bogus cshape value!~%")
|
||||
)
|
||||
)
|
||||
(the-as touching-prims-entry #f)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type touching-shapes-entry
|
||||
;; WARN: Return type mismatch touching-prims-entry vs basic.
|
||||
(defmethod prims-touching-action? ((this touching-shapes-entry) (arg0 collide-shape) (arg1 collide-action) (arg2 collide-action))
|
||||
(cond
|
||||
((= (-> this cshape1) arg0)
|
||||
(let ((v1-1 (-> this head)))
|
||||
(while v1-1
|
||||
(let ((a0-1 (-> v1-1 prim1 cprim)))
|
||||
(if (and (logtest? arg1 (-> a0-1 prim-core action)) (not (logtest? arg2 (-> a0-1 prim-core action))))
|
||||
(return (the-as basic v1-1))
|
||||
)
|
||||
)
|
||||
(set! v1-1 (-> v1-1 next))
|
||||
)
|
||||
)
|
||||
)
|
||||
((= (-> this cshape2) arg0)
|
||||
(let ((v1-4 (-> this head)))
|
||||
(while v1-4
|
||||
(let ((a0-5 (-> v1-4 prim2 cprim)))
|
||||
(if (and (logtest? arg1 (-> a0-5 prim-core action)) (not (logtest? arg2 (-> a0-5 prim-core action))))
|
||||
(return (the-as basic v1-4))
|
||||
)
|
||||
)
|
||||
(set! v1-4 (-> v1-4 next))
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(format 0 "ERROR: touching-shapes-entry::prims-touching-action? : Bogus cshape value!~%")
|
||||
)
|
||||
)
|
||||
(the-as basic #f)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type touching-shapes-entry
|
||||
(defmethod get-touched-shape ((this touching-shapes-entry) (arg0 collide-shape))
|
||||
(cond
|
||||
((= (-> this cshape1) arg0)
|
||||
(return (-> this cshape2))
|
||||
)
|
||||
((= (-> this cshape2) arg0)
|
||||
(return (-> this cshape1))
|
||||
)
|
||||
)
|
||||
(the-as collide-shape #f)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type touching-prims-entry
|
||||
(defmethod get-touched-prim ((this touching-prims-entry) (arg0 collide-shape) (arg1 touching-shapes-entry))
|
||||
(cond
|
||||
((= (-> arg1 cshape1) arg0)
|
||||
(return (-> this prim1 cprim))
|
||||
)
|
||||
((= (-> arg1 cshape2) arg0)
|
||||
(return (-> this prim2 cprim))
|
||||
)
|
||||
)
|
||||
(the-as collide-shape-prim #f)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type touching-prims-entry
|
||||
(defmethod get-touched-tri ((this touching-prims-entry) (arg0 collide-shape) (arg1 touching-shapes-entry))
|
||||
(let ((v0-0 (the-as collide-tri-result #f)))
|
||||
(cond
|
||||
((not this)
|
||||
)
|
||||
((= (-> arg1 cshape1) arg0)
|
||||
(let ((v1-4 (-> this prim1)))
|
||||
(if (-> v1-4 has-tri?)
|
||||
(set! v0-0 (-> v1-4 tri))
|
||||
)
|
||||
)
|
||||
)
|
||||
((= (-> arg1 cshape2) arg0)
|
||||
(let ((v1-7 (-> this prim2)))
|
||||
(if (-> v1-7 has-tri?)
|
||||
(set! v0-0 (-> v1-7 tri))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type touching-prims-entry
|
||||
(defmethod touching-prims-entry-method-9 ((this touching-prims-entry) (arg0 vector))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let* ((s4-0 (-> this prim1 cprim))
|
||||
(v1-0 (-> this prim2 cprim))
|
||||
(gp-1
|
||||
(vector-! (new 'stack-no-clear 'vector) (-> v1-0 prim-core world-sphere) (-> s4-0 prim-core world-sphere))
|
||||
)
|
||||
)
|
||||
(let ((f1-2 (- (- (vector-length gp-1) (-> v1-0 prim-core world-sphere w)) (-> s4-0 prim-core world-sphere w))))
|
||||
(vector-normalize! gp-1 (+ (-> s4-0 prim-core world-sphere w) (/ f1-2 2)))
|
||||
)
|
||||
(let ((v1-2 arg0))
|
||||
(let ((a0-5 (-> s4-0 prim-core)))
|
||||
(.lvf vf4 (&-> gp-1 quad))
|
||||
(.lvf vf5 (&-> a0-5 world-sphere quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> v1-2 quad) vf6)
|
||||
)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type touching-prims-entry
|
||||
(defmethod get-middle-of-bsphere-overlap ((this touching-prims-entry) (arg0 vector))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-0 (-> this prim1 cprim))
|
||||
(a2-0 (-> this prim2 cprim))
|
||||
(a0-1 arg0)
|
||||
)
|
||||
(let ((a2-1 (-> a2-0 prim-core))
|
||||
(v1-1 (-> v1-0 prim-core))
|
||||
)
|
||||
(.lvf vf4 (&-> a2-1 world-sphere quad))
|
||||
(.lvf vf5 (&-> v1-1 world-sphere quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a0-1 quad) vf6)
|
||||
)
|
||||
(vector-float*! arg0 arg0 0.5)
|
||||
arg0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function get-intersect-point
|
||||
;; INFO: Used lq/sq
|
||||
(defun get-intersect-point ((arg0 vector) (arg1 touching-prims-entry) (arg2 collide-shape) (arg3 touching-shapes-entry))
|
||||
(when arg1
|
||||
(let ((a0-2 (get-touched-tri arg1 arg2 arg3)))
|
||||
(if a0-2
|
||||
(set! (-> arg0 quad) (-> a0-2 intersect quad))
|
||||
(touching-prims-entry-method-9 arg1 arg0)
|
||||
)
|
||||
)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+23
@@ -0,0 +1,23 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *collide-vif0-init*, type (array uint32)
|
||||
(define *collide-vif0-init* (new 'static 'boxed-array :type uint32
|
||||
#x30000000
|
||||
#x4d000000
|
||||
#x4d000000
|
||||
#x4d000000
|
||||
#x3f800000
|
||||
#x5000001
|
||||
#x20000000
|
||||
#x40404040
|
||||
#x1000404
|
||||
#x0
|
||||
#x0
|
||||
#x0
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+201
@@ -0,0 +1,201 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for function drawable-sphere-box-intersect?
|
||||
;; INFO: Used lq/sq
|
||||
(defun drawable-sphere-box-intersect? ((arg0 drawable) (arg1 bounding-box4w))
|
||||
(local-vars (v1-1 uint128) (v1-2 uint128) (v1-3 uint128) (a0-1 uint128) (a1-2 uint128) (a2-0 uint128))
|
||||
(rlet ((vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
(vf3 :class vf)
|
||||
(vf4 :class vf)
|
||||
)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.lvf vf1 (&-> arg0 bsphere quad))
|
||||
(.add.w.vf.xyz vf2 vf1 vf1)
|
||||
(let ((v1-0 (-> arg1 min quad)))
|
||||
(.sub.w.vf.xyz vf1 vf1 vf1)
|
||||
(let ((a1-1 (-> arg1 max quad)))
|
||||
(.ftoi.vf vf4 vf2)
|
||||
(nop!)
|
||||
(.ftoi.vf vf3 vf1)
|
||||
(nop!)
|
||||
(.mov a0-1 vf4)
|
||||
(nop!)
|
||||
(.mov a2-0 vf3)
|
||||
(nop!)
|
||||
(.pcgtw a1-2 a2-0 a1-1)
|
||||
)
|
||||
(nop!)
|
||||
(.pcgtw v1-1 v1-0 a0-1)
|
||||
)
|
||||
(nop!)
|
||||
(.por v1-2 a1-2 v1-1)
|
||||
(nop!)
|
||||
(.ppach v1-3 (the-as uint128 0) v1-2)
|
||||
(nop!)
|
||||
(let ((v1-4 (shl (the-as int v1-3) 16)))
|
||||
(nop!)
|
||||
(zero? v1-4)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function instance-sphere-box-intersect?
|
||||
;; INFO: Used lq/sq
|
||||
(defun instance-sphere-box-intersect? ((arg0 drawable) (arg1 instance-tie) (arg2 bounding-box4w))
|
||||
(local-vars
|
||||
(v1-3 uint128)
|
||||
(v1-4 uint128)
|
||||
(v1-5 uint128)
|
||||
(a0-2 uint128)
|
||||
(a1-2 uint128)
|
||||
(a2-1 uint128)
|
||||
(a3-1 uint128)
|
||||
(a3-3 uint128)
|
||||
(a3-4 uint128)
|
||||
(t0-1 uint128)
|
||||
(t0-2 uint128)
|
||||
(t1-0 uint128)
|
||||
(t2-1 uint128)
|
||||
(t2-2 uint128)
|
||||
)
|
||||
(rlet ((acc :class vf)
|
||||
(vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf10 :class vf)
|
||||
(vf2 :class vf)
|
||||
(vf3 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
(vf7 :class vf)
|
||||
(vf8 :class vf)
|
||||
(vf9 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(nop!)
|
||||
(let ((v1-0 (-> arg1 max-scale)))
|
||||
(nop!)
|
||||
(let ((a3-0 (the-as uint128 (-> arg1 origin long 3))))
|
||||
(nop!)
|
||||
(let ((t2-0 (the-as uint128 (-> arg1 origin long 0))))
|
||||
(.pextlh a3-1 a3-0 0)
|
||||
(let ((t0-0 (the-as uint128 (-> arg1 origin long 1))))
|
||||
(.pw.sra t1-0 a3-1 10)
|
||||
(let ((a3-2 (the-as uint128 (-> arg1 origin long 2))))
|
||||
(.pextlh t2-1 t2-0 0)
|
||||
(nop!)
|
||||
(.pw.sra t2-2 t2-1 16)
|
||||
(nop!)
|
||||
(.pextlh t0-1 t0-0 0)
|
||||
(.mov vf8 t1-0)
|
||||
(.pw.sra t0-2 t0-1 16)
|
||||
(.mov vf5 t2-2)
|
||||
(.pextlh a3-3 a3-2 0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(.mov vf6 t0-2)
|
||||
(.pw.sra a3-4 a3-3 16)
|
||||
(.lvf vf9 (&-> arg1 bsphere quad))
|
||||
(nop!)
|
||||
(.mov vf7 a3-4)
|
||||
(nop!)
|
||||
(.mov vf10 v1-0)
|
||||
)
|
||||
(.itof.vf vf8 vf8)
|
||||
(nop!)
|
||||
(vitof12.xyzw vf5 vf5)
|
||||
(nop!)
|
||||
(vitof12.xyzw vf6 vf6)
|
||||
(nop!)
|
||||
(vitof12.xyzw vf7 vf7)
|
||||
(nop!)
|
||||
(.add.vf.xyz vf8 vf8 vf9)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.lvf vf9 (&-> arg0 bsphere quad))
|
||||
(vitof12.xyzw vf10 vf10)
|
||||
(nop!)
|
||||
(.mul.w.vf.x vf10 vf10 vf9)
|
||||
(nop!)
|
||||
(.mul.x.vf acc vf5 vf9)
|
||||
(nop!)
|
||||
(.add.mul.y.vf acc vf6 vf9 acc)
|
||||
(let ((v1-2 (-> arg2 min quad)))
|
||||
(.add.mul.z.vf acc vf7 vf9 acc)
|
||||
(let ((a1-1 (-> arg2 max quad)))
|
||||
(.add.mul.w.vf vf1 vf8 vf0 acc)
|
||||
(nop!)
|
||||
(.add.x.vf.xyz vf2 vf1 vf10)
|
||||
(nop!)
|
||||
(.sub.x.vf.xyz vf1 vf1 vf10)
|
||||
(nop!)
|
||||
(.ftoi.vf vf4 vf2)
|
||||
(nop!)
|
||||
(.ftoi.vf vf3 vf1)
|
||||
(nop!)
|
||||
(.mov a0-2 vf4)
|
||||
(nop!)
|
||||
(.mov a2-1 vf3)
|
||||
(nop!)
|
||||
(.pcgtw a1-2 a2-1 a1-1)
|
||||
)
|
||||
(nop!)
|
||||
(.pcgtw v1-3 v1-2 a0-2)
|
||||
)
|
||||
(nop!)
|
||||
(.por v1-4 a1-2 v1-3)
|
||||
(nop!)
|
||||
(.ppach v1-5 (the-as uint128 0) v1-4)
|
||||
(nop!)
|
||||
(let ((v1-6 (shl (the-as int v1-5) 16)))
|
||||
(nop!)
|
||||
(zero? v1-6)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function instance-tfragment-add-debug-sphere
|
||||
;; INFO: Used lq/sq
|
||||
(defun instance-tfragment-add-debug-sphere ((arg0 drawable) (arg1 instance-tie))
|
||||
(local-vars (v1-1 uint128) (v1-2 uint128) (a3-0 float))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf10 :class vf)
|
||||
(vf11 :class vf)
|
||||
(vf12 :class vf)
|
||||
(vf9 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(nop!)
|
||||
(let ((v1-0 (the-as uint128 (-> arg1 origin long 3))))
|
||||
(.pextlh v1-1 v1-0 0)
|
||||
)
|
||||
(.lvf vf9 (&-> arg0 bsphere quad))
|
||||
(.pw.sra v1-2 v1-1 10)
|
||||
(.lvf vf10 (&-> arg1 bsphere quad))
|
||||
(nop!)
|
||||
(.mov vf12 v1-2)
|
||||
(.itof.vf vf12 vf12)
|
||||
(nop!)
|
||||
(.add.vf.xyz vf10 vf10 vf12)
|
||||
(nop!)
|
||||
(.add.vf.xyz vf9 vf9 vf10)
|
||||
(nop!)
|
||||
(.add.w.vf.x vf11 vf0 vf9)
|
||||
(nop!)
|
||||
(.mov a3-0 vf11)
|
||||
(nop!)
|
||||
(let ((a2-0 (new-stack-vector0)))
|
||||
(.svf (&-> a2-0 quad) vf9)
|
||||
(add-debug-sphere #t (bucket-id bucket793) a2-0 a3-0 (new 'static 'rgba :r #x80 :g #x80 :b #x80 :a #x80))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+11
-7
@@ -93,7 +93,7 @@ These are owned by the thing submitting to prim, not the prim renderer itself."
|
||||
(num-verts uint16)
|
||||
(allocated-num-verts uint16)
|
||||
(last-tex-id uint32)
|
||||
(data prim-vertex :dynamic)
|
||||
(data prim-vertex :inline :dynamic)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type int texture-id string) _type_)
|
||||
@@ -164,17 +164,17 @@ These are owned by the thing submitting to prim, not the prim renderer itself."
|
||||
(set! (-> s5-0 texture-index) 4)
|
||||
(let ((f0-1 (/ 1.0 (the float (/ (+ arg0 -1) 2)))))
|
||||
(dotimes (v1-22 arg0)
|
||||
(let ((a0-6 (&+ (-> s5-0 data) (* v1-22 32))))
|
||||
(set! (-> a0-6 0) (the-as prim-vertex (* (the float (/ v1-22 2)) f0-1)))
|
||||
(set! (-> a0-6 1) (the-as prim-vertex (the float (logand v1-22 1))))
|
||||
(set! (-> a0-6 2) (the-as prim-vertex 0.0))
|
||||
(set! (-> a0-6 3) (the-as prim-vertex 0.0))
|
||||
(let ((a0-6 (-> s5-0 data v1-22)))
|
||||
(set! (-> a0-6 stq x) (* (the float (/ v1-22 2)) f0-1))
|
||||
(set! (-> a0-6 stq y) (the float (logand v1-22 1)))
|
||||
(set! (-> a0-6 stq z) 0.0)
|
||||
(set! (-> a0-6 col) (the-as rgba 0.0))
|
||||
)
|
||||
(set! (-> (the-as (inline-array prim-vertex) (+ (the-as uint s5-0) (* v1-22 32))) 3 stq z)
|
||||
(the-as float (the-as uint #x80808080))
|
||||
)
|
||||
(set-vector!
|
||||
(the-as vector (+ (the-as uint (the-as vector (&-> s5-0 data 4))) (* v1-22 32)))
|
||||
(the-as vector (+ (the-as uint (the-as vector (-> s5-0 data 0 pos))) (* v1-22 32)))
|
||||
(* 4096.0 (the float (/ v1-22 2)))
|
||||
(* 4096.0 (the float (logand v1-22 1)))
|
||||
0.0
|
||||
@@ -257,3 +257,7 @@ These are owned by the thing submitting to prim, not the prim renderer itself."
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+347
@@ -0,0 +1,347 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type water-control
|
||||
(deftype water-control (basic)
|
||||
((flags water-flag)
|
||||
(process target)
|
||||
(joint-index int32)
|
||||
(top-y-offset float)
|
||||
(attack-id uint32)
|
||||
(enter-water-time uint64)
|
||||
(wade-time uint64)
|
||||
(on-water-time uint64)
|
||||
(enter-swim-time uint64)
|
||||
(swim-time uint64)
|
||||
(base-height meters)
|
||||
(wade-height meters)
|
||||
(swim-height meters)
|
||||
(surface-height meters)
|
||||
(bottom-height meters)
|
||||
(collide-height meters)
|
||||
(height meters)
|
||||
(height-offset float 4)
|
||||
(base-ocean-offset meters :overlay-at (-> height-offset 0))
|
||||
(real-ocean-offset meters :overlay-at (-> height-offset 0))
|
||||
(ocean-offset meters :overlay-at (-> height-offset 1))
|
||||
(bob-offset meters :overlay-at (-> height-offset 2))
|
||||
(align-offset meters :overlay-at (-> height-offset 3))
|
||||
(swim-depth meters :offset 108)
|
||||
(bob smush-control :inline)
|
||||
(ripple uint64)
|
||||
(ripple-size meters)
|
||||
(wake-size meters)
|
||||
(bottom vector 2 :inline)
|
||||
(top vector 2 :inline)
|
||||
(enter-water-pos vector :inline)
|
||||
(drip-old-pos vector :inline)
|
||||
(drip-joint-index int32)
|
||||
(drip-wetness float)
|
||||
(drip-time uint64)
|
||||
(drip-speed float)
|
||||
(drip-height meters)
|
||||
(drip-mult float)
|
||||
(distort-time uint64)
|
||||
(enter-water-sound uint16)
|
||||
(normal vector :inline)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type process int float float float) _type_)
|
||||
(water-control-method-9 () none)
|
||||
(water-control-method-10 () none)
|
||||
(water-control-method-11 () none)
|
||||
(distance-from-surface (_type_) float)
|
||||
(water-control-method-13 () none)
|
||||
(display-water-marks? (_type_) symbol)
|
||||
(water-control-method-15 () none)
|
||||
(water-control-method-16 () none)
|
||||
(water-control-method-17 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type water-control
|
||||
(defmethod inspect ((this water-control))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-40)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tflags: #x~X : (water-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand (water-flag bouncing) s5-0) (water-flag bouncing))
|
||||
(format #t "active ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag tar)) (water-flag tar))
|
||||
(format #t "deadly ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag swim-ground)) (water-flag swim-ground))
|
||||
(format #t "lava ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag use-water-anim)) (water-flag use-water-anim))
|
||||
(format #t "swamp ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag deadly)) (water-flag deadly))
|
||||
(format #t "dark-eco ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag under-water)) (water-flag under-water))
|
||||
(format #t "part-water ")
|
||||
)
|
||||
(if (= (logand (water-flag head-under-water) s5-0) (water-flag head-under-water))
|
||||
(format #t "over-water ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag can-ground)) (water-flag can-ground))
|
||||
(format #t "use-ocean ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag no-grab-sound)) (water-flag no-grab-sound))
|
||||
(format #t "flow ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag flow)) (water-flag flow))
|
||||
(format #t "part-rings ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag swamp)) (water-flag swamp))
|
||||
(format #t "part-drip ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag lava)) (water-flag lava))
|
||||
(format #t "part-splash ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag use-ocean)) (water-flag use-ocean))
|
||||
(format #t "tar ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag can-wade)) (water-flag can-wade))
|
||||
(format #t "icy ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag can-swim)) (water-flag can-swim))
|
||||
(format #t "mud ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag mud)) (water-flag mud))
|
||||
(format #t "use-water-anim ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag dark-eco)) (water-flag dark-eco))
|
||||
(format #t "touch-water ")
|
||||
)
|
||||
(if (= (logand s5-0 (water-flag active)) (water-flag active))
|
||||
(format #t "puddle ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tprocess: ~A~%" (-> this process))
|
||||
(format #t "~1Tjoint-index: ~D~%" (-> this joint-index))
|
||||
(format #t "~1Ttop-y-offset: ~f~%" (-> this top-y-offset))
|
||||
(format #t "~1Tattack-id: ~D~%" (-> this attack-id))
|
||||
(format #t "~1Tenter-water-time: ~D~%" (-> this enter-water-time))
|
||||
(format #t "~1Twade-time: ~D~%" (-> this wade-time))
|
||||
(format #t "~1Ton-water-time: ~D~%" (-> this on-water-time))
|
||||
(format #t "~1Tenter-swim-time: ~D~%" (-> this enter-swim-time))
|
||||
(format #t "~1Tswim-time: ~D~%" (-> this swim-time))
|
||||
(format #t "~1Tbase-height: (meters ~m)~%" (-> this base-height))
|
||||
(format #t "~1Twade-height: (meters ~m)~%" (-> this wade-height))
|
||||
(format #t "~1Tswim-height: (meters ~m)~%" (-> this swim-height))
|
||||
(format #t "~1Tsurface-height: (meters ~m)~%" (-> this surface-height))
|
||||
(format #t "~1Tbottom-height: (meters ~m)~%" (-> this bottom-height))
|
||||
(format #t "~1Tcollide-height: (meters ~m)~%" (-> this collide-height))
|
||||
(format #t "~1Theight: (meters ~m)~%" (-> this height))
|
||||
(format #t "~1Theight-offset[4] @ #x~X~%" (-> this height-offset))
|
||||
(format #t "~1Tbase-ocean-offset: (meters ~m)~%" (-> this base-ocean-offset))
|
||||
(format #t "~1Treal-ocean-offset: (meters ~m)~%" (-> this base-ocean-offset))
|
||||
(format #t "~1Tocean-offset: (meters ~m)~%" (-> this ocean-offset))
|
||||
(format #t "~1Tbob-offset: (meters ~m)~%" (-> this bob-offset))
|
||||
(format #t "~1Talign-offset: (meters ~m)~%" (-> this align-offset))
|
||||
(format #t "~1Tswim-depth: (meters ~m)~%" (-> this swim-depth))
|
||||
(format #t "~1Tbob: #<smush-control @ #x~X>~%" (-> this bob))
|
||||
(format #t "~1Tripple: ~D~%" (-> this ripple))
|
||||
(format #t "~1Tripple-size: (meters ~m)~%" (-> this ripple-size))
|
||||
(format #t "~1Twake-size: (meters ~m)~%" (-> this wake-size))
|
||||
(format #t "~1Tbottom[2] @ #x~X~%" (-> this bottom))
|
||||
(format #t "~1Ttop[2] @ #x~X~%" (-> this top))
|
||||
(format #t "~1Tenter-water-pos: ~`vector`P~%" (-> this enter-water-pos))
|
||||
(format #t "~1Tdrip-old-pos: ~`vector`P~%" (-> this drip-old-pos))
|
||||
(format #t "~1Tdrip-joint-index: ~D~%" (-> this drip-joint-index))
|
||||
(format #t "~1Tdrip-wetness: ~f~%" (-> this drip-wetness))
|
||||
(format #t "~1Tdrip-time: ~D~%" (-> this drip-time))
|
||||
(format #t "~1Tdrip-speed: ~f~%" (-> this drip-speed))
|
||||
(format #t "~1Tdrip-height: (meters ~m)~%" (-> this drip-height))
|
||||
(format #t "~1Tdrip-mult: ~f~%" (-> this drip-mult))
|
||||
(format #t "~1Tdistort-time: ~D~%" (-> this distort-time))
|
||||
(format #t "~1Tenter-water-sound: ~D~%" (-> this enter-water-sound))
|
||||
(format #t "~1Tnormal: #<vector @ #x~X>~%" (-> this normal))
|
||||
(label cfg-40)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 14 of type water-control
|
||||
(defmethod display-water-marks? ((this water-control))
|
||||
*display-water-marks*
|
||||
)
|
||||
|
||||
;; definition for method 0 of type water-control
|
||||
(defmethod new water-control ((allocation symbol) (type-to-make type) (arg0 process) (arg1 int) (arg2 float) (arg3 float) (arg4 float))
|
||||
(let ((v0-0 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
|
||||
(set! (-> v0-0 process) (the-as target arg0))
|
||||
(set! (-> v0-0 joint-index) arg1)
|
||||
(set! (-> v0-0 wade-height) arg4)
|
||||
(set! (-> v0-0 swim-height) arg3)
|
||||
(set! (-> v0-0 bottom-height) 32768.0)
|
||||
(set! (-> v0-0 ripple-size) 1638.4)
|
||||
(set! (-> v0-0 wake-size) 3072.0)
|
||||
(set! (-> v0-0 ripple) (the-as uint #f))
|
||||
(set! (-> v0-0 drip-mult) 1.0)
|
||||
(set! (-> v0-0 top-y-offset) arg2)
|
||||
(let* ((v1-6 *game-info*)
|
||||
(a0-2 (+ (-> v1-6 attack-id) 1))
|
||||
)
|
||||
(set! (-> v1-6 attack-id) a0-2)
|
||||
(set! (-> v0-0 attack-id) a0-2)
|
||||
)
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type water-control
|
||||
(defmethod distance-from-surface ((this water-control))
|
||||
(- (-> this top 0 y) (-> this height))
|
||||
)
|
||||
|
||||
;; definition of type water-vol
|
||||
(deftype water-vol (process-hidden)
|
||||
()
|
||||
)
|
||||
|
||||
;; definition for method 3 of type water-vol
|
||||
(defmethod inspect ((this water-vol))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-62)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tname: ~A~%" (-> this name))
|
||||
(format #t "~1Tmask: #x~X : (process-mask " (-> this mask))
|
||||
(let ((s5-0 (-> this mask)))
|
||||
(if (= (logand s5-0 (process-mask process-tree)) (process-mask process-tree))
|
||||
(format #t "process-tree ")
|
||||
)
|
||||
(if (= (logand (process-mask network) s5-0) (process-mask network))
|
||||
(format #t "network ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask target)) (process-mask target))
|
||||
(format #t "target ")
|
||||
)
|
||||
(if (= (logand (process-mask collectable) s5-0) (process-mask collectable))
|
||||
(format #t "collectable ")
|
||||
)
|
||||
(if (= (logand (process-mask projectile) s5-0) (process-mask projectile))
|
||||
(format #t "projectile ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask sleep-code)) (process-mask sleep-code))
|
||||
(format #t "sleep-code ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask actor-pause)) (process-mask actor-pause))
|
||||
(format #t "actor-pause ")
|
||||
)
|
||||
(if (= (logand (process-mask bot) s5-0) (process-mask bot))
|
||||
(format #t "bot ")
|
||||
)
|
||||
(if (= (logand (process-mask vehicle) s5-0) (process-mask vehicle))
|
||||
(format #t "vehicle ")
|
||||
)
|
||||
(if (= (logand (process-mask enemy) s5-0) (process-mask enemy))
|
||||
(format #t "enemy ")
|
||||
)
|
||||
(if (= (logand (process-mask entity) s5-0) (process-mask entity))
|
||||
(format #t "entity ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask heap-shrunk)) (process-mask heap-shrunk))
|
||||
(format #t "heap-shrunk ")
|
||||
)
|
||||
(if (= (logand (process-mask sidekick) s5-0) (process-mask sidekick))
|
||||
(format #t "sidekick ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask going)) (process-mask going))
|
||||
(format #t "going ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask execute)) (process-mask execute))
|
||||
(format #t "execute ")
|
||||
)
|
||||
(if (= (logand (process-mask death) s5-0) (process-mask death))
|
||||
(format #t "death ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask no-kill)) (process-mask no-kill))
|
||||
(format #t "no-kill ")
|
||||
)
|
||||
(if (= (logand (process-mask platform) s5-0) (process-mask platform))
|
||||
(format #t "platform ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask freeze)) (process-mask freeze))
|
||||
(format #t "freeze ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask sleep)) (process-mask sleep))
|
||||
(format #t "sleep ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask progress)) (process-mask progress))
|
||||
(format #t "progress ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask menu)) (process-mask menu))
|
||||
(format #t "menu ")
|
||||
)
|
||||
(if (= (logand (process-mask camera) s5-0) (process-mask camera))
|
||||
(format #t "camera ")
|
||||
)
|
||||
(if (= (logand (process-mask ambient) s5-0) (process-mask ambient))
|
||||
(format #t "ambient ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask dark-effect)) (process-mask dark-effect))
|
||||
(format #t "dark-effect ")
|
||||
)
|
||||
(if (= (logand (process-mask crate) s5-0) (process-mask crate))
|
||||
(format #t "crate ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask kernel-run)) (process-mask kernel-run))
|
||||
(format #t "kernel-run ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask movie)) (process-mask movie))
|
||||
(format #t "movie ")
|
||||
)
|
||||
(if (= (logand s5-0 (process-mask pause)) (process-mask pause))
|
||||
(format #t "pause ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tclock: ~A~%" (-> this clock))
|
||||
(format #t "~1Tview: ~A~%" (-> this view))
|
||||
(format #t "~1Tparent: #x~X~%" (-> this parent))
|
||||
(format #t "~1Tbrother: #x~X~%" (-> this brother))
|
||||
(format #t "~1Tchild: #x~X~%" (-> this child))
|
||||
(format #t "~1Tppointer: #x~X~%" (-> this ppointer))
|
||||
(format #t "~1Tself: ~A~%" (-> this self))
|
||||
(format #t "~1Tprofile-ticks: ~D~%" (-> this profile-ticks))
|
||||
(format #t "~1Tpool: ~A~%" (-> this pool))
|
||||
(format #t "~1Tstatus: ~A~%" (-> this status))
|
||||
(format #t "~1Tpid: ~D~%" (-> this pid))
|
||||
(format #t "~1Tmain-thread: ~A~%" (-> this main-thread))
|
||||
(format #t "~1Ttop-thread: ~A~%" (-> this top-thread))
|
||||
(format #t "~1Tentity: ~A~%" (-> this entity))
|
||||
(format #t "~1Tlevel: ~A~%" (-> this level))
|
||||
(format #t "~1Tstate: ~A~%" (-> this state))
|
||||
(format #t "~1Tprev-state: ~A~%" (-> this prev-state))
|
||||
(format #t "~1Tnext-state: ~A~%" (-> this next-state))
|
||||
(format #t "~1Tstate-stack: ~A~%" (-> this state-stack))
|
||||
(format #t "~1Ttrans-hook: ~A~%" (-> this trans-hook))
|
||||
(format #t "~1Tpost-hook: ~A~%" (-> this post-hook))
|
||||
(format #t "~1Tevent-hook: ~A~%" (-> this event-hook))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Theap-base: #x~X~%" (-> this heap-base))
|
||||
(format #t "~1Theap-top: #x~X~%" (-> this heap-top))
|
||||
(format #t "~1Theap-cur: #x~X~%" (-> this heap-cur))
|
||||
(format #t "~1Tstack-frame-top: ~A~%" (-> this stack-frame-top))
|
||||
(format #t "~1Theap: #<kheap @ #x~X>~%" (&-> this heap-base))
|
||||
(format #t "~1Tconnection-list: ~`connectable`P~%" (-> this connection-list))
|
||||
(format #t "~1Tstack[0] @ #x~X~%" (-> this stack))
|
||||
(label cfg-62)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+2327
File diff suppressed because it is too large
Load Diff
+4
@@ -721,3 +721,7 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
@@ -941,3 +941,7 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1623
File diff suppressed because it is too large
Load Diff
+467
@@ -0,0 +1,467 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; this file is debug only
|
||||
(declare-file (debug))
|
||||
|
||||
;; definition of type vector-array
|
||||
(deftype vector-array (inline-array-class)
|
||||
((data vector :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type vector-array
|
||||
(defmethod inspect ((this vector-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> vector-array heap-base) (the-as uint 16))
|
||||
|
||||
;; definition of type int16-array
|
||||
(deftype int16-array (inline-array-class)
|
||||
((data int16 :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type int16-array
|
||||
(defmethod inspect ((this int16-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> int16-array heap-base) (the-as uint 2))
|
||||
|
||||
;; definition of type nav-mesh-poly
|
||||
(deftype nav-mesh-poly (structure)
|
||||
((poly-id uint32)
|
||||
(flags nav-mesh-poly-flag)
|
||||
(index int16-array)
|
||||
(insert-pos uint32)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type) _type_)
|
||||
(init-fields! (_type_) none)
|
||||
(nav-mesh-poly-method-10 () none)
|
||||
(nav-mesh-poly-method-11 () none)
|
||||
(nav-mesh-poly-method-12 () none)
|
||||
(nav-mesh-poly-method-13 () none)
|
||||
(nav-mesh-poly-method-14 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-poly
|
||||
(defmethod inspect ((this nav-mesh-poly))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-mesh-poly)
|
||||
(format #t "~1Tpoly-id: ~D~%" (-> this poly-id))
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(format #t "~1Tindex: ~A~%" (-> this index))
|
||||
(format #t "~1Tinsert-pos: ~D~%" (-> this insert-pos))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-poly-array
|
||||
(deftype nav-mesh-poly-array (inline-array-class)
|
||||
((data nav-mesh-poly :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-poly-array
|
||||
(defmethod inspect ((this nav-mesh-poly-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> nav-mesh-poly-array heap-base) (the-as uint 16))
|
||||
|
||||
;; definition for method 9 of type nav-mesh-poly
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod init-fields! ((this nav-mesh-poly))
|
||||
(set! (-> this index) (new 'debug 'int16-array 512))
|
||||
(set! (-> this index length) 0)
|
||||
(set! (-> this insert-pos) (the-as uint 0))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 0 of type nav-mesh-poly
|
||||
;; WARN: Return type mismatch object vs nav-mesh-poly.
|
||||
(defmethod new nav-mesh-poly ((allocation symbol) (type-to-make type))
|
||||
(let ((t9-0 (method-of-type structure new))
|
||||
(v1-1 type-to-make)
|
||||
)
|
||||
(-> type-to-make size)
|
||||
(let ((gp-0 (the-as object (t9-0 allocation v1-1))))
|
||||
(when (zero? (the-as structure gp-0))
|
||||
(set! gp-0 0)
|
||||
(goto cfg-4)
|
||||
)
|
||||
((method-of-type nav-mesh-poly init-fields!) (the-as nav-mesh-poly gp-0))
|
||||
(label cfg-4)
|
||||
(the-as nav-mesh-poly gp-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-tri-quad
|
||||
(deftype nav-mesh-tri-quad (structure)
|
||||
((indices uint32 4)
|
||||
(poly uint32)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-tri-quad
|
||||
(defmethod inspect ((this nav-mesh-tri-quad))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-mesh-tri-quad)
|
||||
(format #t "~1Tindices[4] @ #x~X~%" (-> this indices))
|
||||
(format #t "~1Tpoly: ~D~%" (-> this poly))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-tri-quad-array
|
||||
(deftype nav-mesh-tri-quad-array (inline-array-class)
|
||||
((data nav-mesh-tri-quad :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-tri-quad-array
|
||||
(defmethod inspect ((this nav-mesh-tri-quad-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> nav-mesh-tri-quad-array heap-base) (the-as uint 32))
|
||||
|
||||
;; definition of type nav-mesh-editable
|
||||
(deftype nav-mesh-editable (structure)
|
||||
((flags nav-mesh-editable-flag)
|
||||
(verts vector-array)
|
||||
(tris nav-mesh-tri-quad-array)
|
||||
(quads nav-mesh-tri-quad-array)
|
||||
(navmesh-id uint32)
|
||||
(idx uint32)
|
||||
(level-name symbol)
|
||||
(level-id uint32)
|
||||
(polys nav-mesh-poly-array)
|
||||
(selected-poly uint32)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type) _type_)
|
||||
(init-fields! (_type_) none)
|
||||
(nav-mesh-editable-method-10 () none)
|
||||
(nav-mesh-editable-method-11 () none)
|
||||
(nav-mesh-editable-method-12 () none)
|
||||
(nav-mesh-editable-method-13 () none)
|
||||
(nav-mesh-editable-method-14 () none)
|
||||
(nav-mesh-editable-method-15 () none)
|
||||
(nav-mesh-editable-method-16 () none)
|
||||
(nav-mesh-editable-method-17 () none)
|
||||
(nav-mesh-editable-method-18 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-editable
|
||||
(defmethod inspect ((this nav-mesh-editable))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-mesh-editable)
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(format #t "~1Tverts: ~A~%" (-> this verts))
|
||||
(format #t "~1Ttris: ~A~%" (-> this tris))
|
||||
(format #t "~1Tquads: ~A~%" (-> this quads))
|
||||
(format #t "~1Tnavmesh-id: ~D~%" (-> this navmesh-id))
|
||||
(format #t "~1Tidx: ~D~%" (-> this idx))
|
||||
(format #t "~1Tlevel-name: ~A~%" (-> this level-name))
|
||||
(format #t "~1Tlevel-id: ~D~%" (-> this level-id))
|
||||
(format #t "~1Tpolys: ~A~%" (-> this polys))
|
||||
(format #t "~1Tselected-poly: ~D~%" (-> this selected-poly))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-editable-array
|
||||
(deftype nav-mesh-editable-array (inline-array-class)
|
||||
((data nav-mesh-editable :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-editable-array
|
||||
(defmethod inspect ((this nav-mesh-editable-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> nav-mesh-editable-array heap-base) (the-as uint 48))
|
||||
|
||||
;; definition for method 9 of type nav-mesh-editable
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod init-fields! ((this nav-mesh-editable))
|
||||
(set! (-> this verts) (new 'debug 'vector-array 1024))
|
||||
(set! (-> this verts length) 0)
|
||||
(set! (-> this tris) (new 'debug 'nav-mesh-tri-quad-array 512))
|
||||
(set! (-> this tris length) 0)
|
||||
(set! (-> this quads) (new 'debug 'nav-mesh-tri-quad-array 512))
|
||||
(set! (-> this quads length) 0)
|
||||
(set! (-> this polys) (new 'debug 'nav-mesh-poly-array 92))
|
||||
(dotimes (s5-0 (-> this polys length))
|
||||
(init-fields! (-> this polys data s5-0))
|
||||
(set! (-> this polys data s5-0 poly-id) (the-as uint s5-0))
|
||||
)
|
||||
(set! (-> this navmesh-id) (the-as uint 0))
|
||||
(logior! (-> this flags) (nav-mesh-editable-flag nmef0))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 0 of type nav-mesh-editable
|
||||
;; WARN: Return type mismatch object vs nav-mesh-editable.
|
||||
(defmethod new nav-mesh-editable ((allocation symbol) (type-to-make type))
|
||||
(let ((t9-0 (method-of-type structure new))
|
||||
(v1-1 type-to-make)
|
||||
)
|
||||
(-> type-to-make size)
|
||||
(let ((gp-0 (the-as object (t9-0 allocation v1-1))))
|
||||
(when (zero? (the-as structure gp-0))
|
||||
(set! gp-0 0)
|
||||
(goto cfg-4)
|
||||
)
|
||||
((method-of-type nav-mesh-editable init-fields!) (the-as nav-mesh-editable gp-0))
|
||||
(label cfg-4)
|
||||
(the-as nav-mesh-editable gp-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-editor-undo
|
||||
(deftype nav-mesh-editor-undo (structure)
|
||||
((current-nav-mesh nav-mesh-editable)
|
||||
(selected-poly uint32)
|
||||
(index int16-array)
|
||||
(insert-pos uint32)
|
||||
(verts vector-array)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type) _type_)
|
||||
(init-fields! (_type_) none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-editor-undo
|
||||
(defmethod inspect ((this nav-mesh-editor-undo))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-mesh-editor-undo)
|
||||
(format #t "~1Tcurrent-nav-mesh: #<nav-mesh-editable @ #x~X>~%" (-> this current-nav-mesh))
|
||||
(format #t "~1Tselected-poly: ~D~%" (-> this selected-poly))
|
||||
(format #t "~1Tindex: ~A~%" (-> this index))
|
||||
(format #t "~1Tinsert-pos: ~D~%" (-> this insert-pos))
|
||||
(format #t "~1Tverts: ~A~%" (-> this verts))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-editor-undo-array
|
||||
(deftype nav-mesh-editor-undo-array (inline-array-class)
|
||||
((data nav-mesh-editor-undo :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-editor-undo-array
|
||||
(defmethod inspect ((this nav-mesh-editor-undo-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> nav-mesh-editor-undo-array heap-base) (the-as uint 32))
|
||||
|
||||
;; definition for method 9 of type nav-mesh-editor-undo
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod init-fields! ((this nav-mesh-editor-undo))
|
||||
(set! (-> this index) (new 'debug 'int16-array 2048))
|
||||
(set! (-> this verts) (new 'debug 'vector-array 1024))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 0 of type nav-mesh-editor-undo
|
||||
;; WARN: Return type mismatch object vs nav-mesh-editor-undo.
|
||||
(defmethod new nav-mesh-editor-undo ((allocation symbol) (type-to-make type))
|
||||
(let ((t9-0 (method-of-type structure new))
|
||||
(v1-1 type-to-make)
|
||||
)
|
||||
(-> type-to-make size)
|
||||
(let ((gp-0 (the-as object (t9-0 allocation v1-1))))
|
||||
(when (zero? (the-as structure gp-0))
|
||||
(set! gp-0 0)
|
||||
(goto cfg-4)
|
||||
)
|
||||
((method-of-type nav-mesh-editor-undo init-fields!) (the-as nav-mesh-editor-undo gp-0))
|
||||
(label cfg-4)
|
||||
(the-as nav-mesh-editor-undo gp-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type nav-mesh-editor
|
||||
(deftype nav-mesh-editor (process-drawable)
|
||||
((close-menu-time uint64)
|
||||
(external-cam-mode symbol)
|
||||
(mouse-pressed uint64)
|
||||
(mouse-screen-pos vector :inline)
|
||||
(mouse-pos vector :inline)
|
||||
(mouse-end vector :inline)
|
||||
(mouse-hit vector :inline)
|
||||
(mouse-hit-pick vector :inline)
|
||||
(mouse-snap vector :inline)
|
||||
(mouse-normal vector :inline)
|
||||
(mouse-collide basic)
|
||||
(mouse-tumble-dist float)
|
||||
(mouse-tumble vector :inline)
|
||||
(manipulator-pos vector :inline)
|
||||
(manipulator-back-pos vector :inline)
|
||||
(lock-action basic)
|
||||
(mouse-action uint32)
|
||||
(mouse-action-pos-ref vector :inline)
|
||||
(nav-meshes nav-mesh-editable-array)
|
||||
(current-nav-mesh nav-mesh-editable)
|
||||
(manipulator manipulator :inline)
|
||||
(level-name string)
|
||||
(level-id uint32)
|
||||
(undo-min uint32)
|
||||
(undo-id uint32)
|
||||
(undo-max uint32)
|
||||
(undos nav-mesh-editor-undo-array)
|
||||
(hide-unselected symbol)
|
||||
(allow-snap symbol)
|
||||
)
|
||||
(:methods
|
||||
(nav-mesh-editor-method-50 () none)
|
||||
(nav-mesh-editor-method-51 () none)
|
||||
(nav-mesh-editor-method-52 () none)
|
||||
(nav-mesh-editor-method-53 () none)
|
||||
(nav-mesh-editor-method-54 () none)
|
||||
(nav-mesh-editor-method-55 () none)
|
||||
(nav-mesh-editor-method-56 () none)
|
||||
(nav-mesh-editor-method-57 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-mesh-editor
|
||||
(defmethod inspect ((this nav-mesh-editor))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process-drawable inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Tclose-menu-time: ~D~%" (-> this close-menu-time))
|
||||
(format #t "~2Texternal-cam-mode: ~A~%" (-> this external-cam-mode))
|
||||
(format #t "~2Tmouse-pressed: ~D~%" (-> this mouse-pressed))
|
||||
(format #t "~2Tmouse-screen-pos: #<vector @ #x~X>~%" (-> this mouse-screen-pos))
|
||||
(format #t "~2Tmouse-pos: #<vector @ #x~X>~%" (-> this mouse-pos))
|
||||
(format #t "~2Tmouse-end: #<vector @ #x~X>~%" (-> this mouse-end))
|
||||
(format #t "~2Tmouse-hit: #<vector @ #x~X>~%" (-> this mouse-hit))
|
||||
(format #t "~2Tmouse-hit-pick: #<vector @ #x~X>~%" (-> this mouse-hit-pick))
|
||||
(format #t "~2Tmouse-snap: #<vector @ #x~X>~%" (-> this mouse-snap))
|
||||
(format #t "~2Tmouse-normal: #<vector @ #x~X>~%" (-> this mouse-normal))
|
||||
(format #t "~2Tmouse-collide: ~A~%" (-> this mouse-collide))
|
||||
(format #t "~2Tmouse-tumble-dist: ~f~%" (-> this mouse-tumble-dist))
|
||||
(format #t "~2Tmouse-tumble: #<vector @ #x~X>~%" (-> this mouse-tumble))
|
||||
(format #t "~2Tmanipulator-pos: #<vector @ #x~X>~%" (-> this manipulator-pos))
|
||||
(format #t "~2Tmanipulator-back-pos: #<vector @ #x~X>~%" (-> this manipulator-back-pos))
|
||||
(format #t "~2Tlock-action: ~A~%" (-> this lock-action))
|
||||
(format #t "~2Tmouse-action: ~D~%" (-> this mouse-action))
|
||||
(format #t "~2Tmouse-action-pos-ref: #<vector @ #x~X>~%" (-> this mouse-action-pos-ref))
|
||||
(format #t "~2Tnav-meshes: ~A~%" (-> this nav-meshes))
|
||||
(format #t "~2Tcurrent-nav-mesh: #<nav-mesh-editable @ #x~X>~%" (-> this current-nav-mesh))
|
||||
(format #t "~2Tmanipulator: #<manipulator @ #x~X>~%" (-> this manipulator))
|
||||
(format #t "~2Tlevel-name: ~A~%" (-> this level-name))
|
||||
(format #t "~2Tlevel-id: ~D~%" (-> this level-id))
|
||||
(format #t "~2Tundo-min: ~D~%" (-> this undo-min))
|
||||
(format #t "~2Tundo-id: ~D~%" (-> this undo-id))
|
||||
(format #t "~2Tundo-max: ~D~%" (-> this undo-max))
|
||||
(format #t "~2Tundos: ~A~%" (-> this undos))
|
||||
(format #t "~2Thide-unselected: ~A~%" (-> this hide-unselected))
|
||||
(format #t "~2Tallow-snap: ~A~%" (-> this allow-snap))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *nav-mesh-editor*, type (pointer nav-mesh-editor)
|
||||
(define *nav-mesh-editor* (the-as (pointer nav-mesh-editor) #f))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+670
@@ -0,0 +1,670 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for function dma-sync-hang
|
||||
;; ERROR: failed type prop at 0: Could not figure out load: (set! v1 (l.w a0))
|
||||
(defun dma-sync-hang ((a0-0 dma-bank))
|
||||
(local-vars (v0-0 none) (v1-0 none) (v1-1 none))
|
||||
(until (begin
|
||||
(set! v1-0 (the-as none (l.w a0-0)))
|
||||
(set! v1-1 (the-as none (logand v1-0 256)))
|
||||
(nop!)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(zero? v1-1)
|
||||
)
|
||||
(empty)
|
||||
)
|
||||
(set! v0-0 (the-as none 0))
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; definition for function dma-sync-crash
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun dma-sync-crash ((arg0 dma-bank))
|
||||
(let ((v1-0 #x4c4b40))
|
||||
(while (nonzero? (-> arg0 chcr str))
|
||||
(cond
|
||||
((zero? v1-0)
|
||||
(crash!)
|
||||
0
|
||||
)
|
||||
(else
|
||||
(+! v1-0 -1)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun dma-send ((arg0 dma-bank) (arg1 uint) (arg2 uint))
|
||||
(dma-sync (the-as pointer arg0) 0 0)
|
||||
(flush-cache 0)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 madr) (logior (logand #xfffffff arg1) (if (= (logand #x70000000 arg1) #x70000000)
|
||||
(shl #x8000 16)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 qwc) arg2)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 chcr) (new 'static 'dma-chcr :str #x1))
|
||||
(.sync.l)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-chain
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun dma-send-chain ((arg0 dma-bank-source) (arg1 uint))
|
||||
(dma-sync (the-as pointer arg0) 0 0)
|
||||
(flush-cache 0)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 qwc) (the-as uint 0))
|
||||
(set! (-> arg0 tadr) (logior (logand #xfffffff arg1) (if (= (logand #x70000000 arg1) #x70000000)
|
||||
(shl #x8000 16)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 chcr) (new 'static 'dma-chcr :dir #x1 :mod #x1 :tte #x1 :str #x1))
|
||||
(.sync.l)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-chain-no-tte
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun dma-send-chain-no-tte ((arg0 dma-bank-source) (arg1 uint))
|
||||
(dma-sync (the-as pointer arg0) 0 0)
|
||||
(flush-cache 0)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 qwc) (the-as uint 0))
|
||||
(set! (-> arg0 tadr) (logior (logand #xfffffff arg1) (if (= (logand #x70000000 arg1) #x70000000)
|
||||
(shl #x8000 16)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 chcr) (new 'static 'dma-chcr :dir #x1 :mod #x1 :str #x1))
|
||||
(.sync.l)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-chain-no-flush
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun dma-send-chain-no-flush ((arg0 dma-bank-source) (arg1 uint))
|
||||
(dma-sync (the-as pointer arg0) 0 0)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 qwc) (the-as uint 0))
|
||||
(set! (-> arg0 tadr) (logior (logand #xfffffff arg1) (if (= (logand #x70000000 arg1) #x70000000)
|
||||
(shl #x8000 16)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
(.sync.l)
|
||||
(set! (-> arg0 chcr) (new 'static 'dma-chcr :dir #x1 :mod #x1 :tte #x1 :str #x1))
|
||||
(.sync.l)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-to-spr
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 16) v1-1) at op 16
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 128) v1-3) at op 19
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 32) arg2) at op 20
|
||||
;; ERROR: Failed store: (s.w! s5-0 v1-4) at op 23
|
||||
(defun dma-send-to-spr ((arg0 uint) (arg1 uint) (arg2 uint) (arg3 symbol))
|
||||
(let ((s5-0 #x1000d400))
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
(flush-cache 0)
|
||||
(.sync.l)
|
||||
(let ((v1-1 (logand #xfffffff arg1)))
|
||||
(s.w! (+ s5-0 16) v1-1)
|
||||
)
|
||||
(let ((v1-3 (logand #xfffffff arg0)))
|
||||
(s.w! (+ s5-0 128) v1-3)
|
||||
)
|
||||
(s.w! (+ s5-0 32) arg2)
|
||||
(.sync.l)
|
||||
(let ((v1-4 256))
|
||||
(s.w! s5-0 v1-4)
|
||||
)
|
||||
(.sync.l)
|
||||
(if arg3
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-to-spr-no-flush
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 16) v1-1) at op 13
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 128) v1-3) at op 16
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 32) arg2) at op 17
|
||||
;; ERROR: Failed store: (s.w! s5-0 v1-4) at op 20
|
||||
(defun dma-send-to-spr-no-flush ((arg0 uint) (arg1 uint) (arg2 uint) (arg3 symbol))
|
||||
(let ((s5-0 #x1000d400))
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
(.sync.l)
|
||||
(let ((v1-1 (logand #xfffffff arg1)))
|
||||
(s.w! (+ s5-0 16) v1-1)
|
||||
)
|
||||
(let ((v1-3 (logand #xfffffff arg0)))
|
||||
(s.w! (+ s5-0 128) v1-3)
|
||||
)
|
||||
(s.w! (+ s5-0 32) arg2)
|
||||
(.sync.l)
|
||||
(let ((v1-4 256))
|
||||
(s.w! s5-0 v1-4)
|
||||
)
|
||||
(.sync.l)
|
||||
(if arg3
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-from-spr
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 16) v1-1) at op 16
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 128) v1-3) at op 19
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 32) arg2) at op 20
|
||||
;; ERROR: Failed store: (s.w! s5-0 v1-4) at op 23
|
||||
(defun dma-send-from-spr ((arg0 uint) (arg1 uint) (arg2 uint) (arg3 symbol))
|
||||
(let ((s5-0 #x1000d000))
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
(flush-cache 0)
|
||||
(.sync.l)
|
||||
(let ((v1-1 (logand #xfffffff arg0)))
|
||||
(s.w! (+ s5-0 16) v1-1)
|
||||
)
|
||||
(let ((v1-3 (logand #xfffffff arg1)))
|
||||
(s.w! (+ s5-0 128) v1-3)
|
||||
)
|
||||
(s.w! (+ s5-0 32) arg2)
|
||||
(.sync.l)
|
||||
(let ((v1-4 256))
|
||||
(s.w! s5-0 v1-4)
|
||||
)
|
||||
(.sync.l)
|
||||
(if arg3
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-send-from-spr-no-flush
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 16) v1-1) at op 13
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 128) v1-3) at op 16
|
||||
;; ERROR: Failed store: (s.w! (+ s5-0 32) arg2) at op 17
|
||||
;; ERROR: Failed store: (s.w! s5-0 v1-4) at op 20
|
||||
(defun dma-send-from-spr-no-flush ((arg0 uint) (arg1 uint) (arg2 uint) (arg3 symbol))
|
||||
(let ((s5-0 #x1000d000))
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
(.sync.l)
|
||||
(let ((v1-1 (logand #xfffffff arg0)))
|
||||
(s.w! (+ s5-0 16) v1-1)
|
||||
)
|
||||
(let ((v1-3 (logand #xfffffff arg1)))
|
||||
(s.w! (+ s5-0 128) v1-3)
|
||||
)
|
||||
(s.w! (+ s5-0 32) arg2)
|
||||
(.sync.l)
|
||||
(let ((v1-4 256))
|
||||
(s.w! s5-0 v1-4)
|
||||
)
|
||||
(.sync.l)
|
||||
(if arg3
|
||||
(dma-sync (the-as pointer s5-0) 0 0)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dma-initialize
|
||||
;; ERROR: failed type prop at 1: Could not figure out load: (set! v1 (l.wu (+ v1 32)))
|
||||
(defun dma-initialize ()
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v1-0 int)
|
||||
(v1-1 none)
|
||||
(v1-2 none)
|
||||
(v1-3 none)
|
||||
(v1-4 none)
|
||||
(v1-5 none)
|
||||
(v1-6 none)
|
||||
(v1-7 none)
|
||||
(a0-0 none)
|
||||
(a0-1 none)
|
||||
(a0-2 none)
|
||||
(a0-3 none)
|
||||
)
|
||||
(set! v1-0 #x10003800)
|
||||
(set! v1-1 (the-as none (l.wu (+ v1-0 32))))
|
||||
(set! a0-0 (the-as none -3))
|
||||
(set! v1-2 (the-as none (logand v1-1 a0-0)))
|
||||
(set! v1-3 (the-as none (logior v1-2 2)))
|
||||
(set! a0-1 (the-as none #x10003800))
|
||||
(s.w! (+ a0-1 32) v1-3)
|
||||
(set! v1-4 (the-as none #x10003c00))
|
||||
(set! v1-5 (the-as none (l.wu (+ v1-4 32))))
|
||||
(set! a0-2 (the-as none -3))
|
||||
(set! v1-6 (the-as none (logand v1-5 a0-2)))
|
||||
(set! v1-7 (the-as none (logior v1-6 2)))
|
||||
(set! a0-3 (the-as none #x10003c00))
|
||||
(s.w! (+ a0-3 32) v1-7)
|
||||
(set! v0-0 (the-as none 0))
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; definition for function clear-vu0-mem
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! a2-1 a1-0) at op 6
|
||||
(defun clear-vu0-mem ()
|
||||
(let ((v1-0 #x11004000))
|
||||
(dotimes (a0-0 1024)
|
||||
(let ((a1-0 (the-as uint #xabadbeef))
|
||||
(a2-1 (+ v1-0 (* a0-0 4)))
|
||||
)
|
||||
(s.w! a2-1 a1-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function clear-vu1-mem
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! a2-1 a1-0) at op 6
|
||||
(defun clear-vu1-mem ()
|
||||
(let ((v1-0 #x1100c000))
|
||||
(dotimes (a0-0 4096)
|
||||
(let ((a1-0 (the-as uint #xabadbeef))
|
||||
(a2-1 (+ v1-0 (* a0-0 4)))
|
||||
)
|
||||
(s.w! a2-1 a1-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function dump-vu1-mem
|
||||
;; ERROR: failed type prop at 10: Could not figure out load: (set! a3 (l.wu v1))
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun dump-vu1-mem ()
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v0-1 none)
|
||||
(v0-2 int)
|
||||
(v1-0 int)
|
||||
(v1-1 int)
|
||||
(v1-2 int)
|
||||
(v1-3 none)
|
||||
(v1-4 none)
|
||||
(v1-5 none)
|
||||
(v1-6 none)
|
||||
(v1-7 none)
|
||||
(v1-8 none)
|
||||
(v1-9 none)
|
||||
(v1-10 none)
|
||||
(v1-11 none)
|
||||
(v1-12 none)
|
||||
(v1-13 none)
|
||||
(v1-14 none)
|
||||
(v1-15 none)
|
||||
(v1-16 none)
|
||||
(v1-17 none)
|
||||
(v1-18 none)
|
||||
(v1-19 none)
|
||||
(v1-20 none)
|
||||
(v1-21 none)
|
||||
(v1-22 none)
|
||||
(v1-23 none)
|
||||
(v1-24 none)
|
||||
(v1-25 none)
|
||||
(v1-26 none)
|
||||
(v1-27 none)
|
||||
(v1-28 none)
|
||||
(v1-29 none)
|
||||
(a0-0 int)
|
||||
(a0-1 none)
|
||||
(a1-0 string)
|
||||
(a1-1 none)
|
||||
(a2-1 none)
|
||||
(a3-0 none)
|
||||
(a3-1 none)
|
||||
(t0-0 none)
|
||||
(t0-1 none)
|
||||
(t1-0 none)
|
||||
(t1-1 none)
|
||||
(t2-0 none)
|
||||
(s5-0 int)
|
||||
(t9-0 (function _varargs_ object))
|
||||
(t9-1 none)
|
||||
(gp-0 int)
|
||||
)
|
||||
(set! gp-0 #x1100c000)
|
||||
(set! s5-0 0)
|
||||
(while (<.si s5-0 1024)
|
||||
(set! t9-0 format)
|
||||
(set! a0-0 0)
|
||||
(set! a1-0 L56)
|
||||
(set! a2-0 s5-0)
|
||||
(set! v1-0 (sll s5-0 2))
|
||||
(set! v1-1 (sll v1-0 2))
|
||||
(set! v1-2 (+ gp-0 v1-1))
|
||||
(set! a3-0 (the-as none (l.wu v1-2)))
|
||||
(set! v1-3 (the-as none (sll s5-0 2)))
|
||||
(set! v1-4 (the-as none (+ v1-3 1)))
|
||||
(set! v1-5 (the-as none (sll v1-4 2)))
|
||||
(set! v1-6 (the-as none (+ gp-0 v1-5)))
|
||||
(set! t0-0 (the-as none (l.wu v1-6)))
|
||||
(set! v1-7 (the-as none (sll s5-0 2)))
|
||||
(set! v1-8 (the-as none (+ v1-7 2)))
|
||||
(set! v1-9 (the-as none (sll v1-8 2)))
|
||||
(set! v1-10 (the-as none (+ gp-0 v1-9)))
|
||||
(set! t1-0 (the-as none (l.wu v1-10)))
|
||||
(set! v1-11 (the-as none (sll s5-0 2)))
|
||||
(set! v1-12 (the-as none (+ v1-11 3)))
|
||||
(set! v1-13 (the-as none (sll v1-12 2)))
|
||||
(set! v1-14 (the-as none (+ gp-0 v1-13)))
|
||||
(set! t2-0 (the-as none (l.wu v1-14)))
|
||||
(call!)
|
||||
(set! t9-1 (the-as none format))
|
||||
(set! a0-1 (the-as none 0))
|
||||
(set! a1-1 (the-as none L55))
|
||||
(set! v1-15 (the-as none (sll s5-0 2)))
|
||||
(set! v1-16 (the-as none (sll v1-15 2)))
|
||||
(set! v1-17 (the-as none (+ gp-0 v1-16)))
|
||||
(set! a2-1 (the-as none (l.wu v1-17)))
|
||||
(set! v1-18 (the-as none (sll s5-0 2)))
|
||||
(set! v1-19 (the-as none (+ v1-18 1)))
|
||||
(set! v1-20 (the-as none (sll v1-19 2)))
|
||||
(set! v1-21 (the-as none (+ gp-0 v1-20)))
|
||||
(set! a3-1 (the-as none (l.wu v1-21)))
|
||||
(set! v1-22 (the-as none (sll s5-0 2)))
|
||||
(set! v1-23 (the-as none (+ v1-22 2)))
|
||||
(set! v1-24 (the-as none (sll v1-23 2)))
|
||||
(set! v1-25 (the-as none (+ gp-0 v1-24)))
|
||||
(set! t0-1 (the-as none (l.wu v1-25)))
|
||||
(set! v1-26 (the-as none (sll s5-0 2)))
|
||||
(set! v1-27 (the-as none (+ v1-26 3)))
|
||||
(set! v1-28 (the-as none (sll v1-27 2)))
|
||||
(set! v1-29 (the-as none (+ gp-0 v1-28)))
|
||||
(set! t1-1 (the-as none (l.wu v1-29)))
|
||||
(call!)
|
||||
(set! s5-0 (the-as int (+ s5-0 1)))
|
||||
)
|
||||
(set! v0-2 0)
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; definition for function dump-vu1-range
|
||||
;; ERROR: failed type prop at 13: Could not figure out load: (set! a3 (l.wu v1))
|
||||
;; WARN: Return type mismatch int vs symbol.
|
||||
(defun dump-vu1-range ((a0-0 uint) (a1-0 uint))
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v0-1 none)
|
||||
(v0-2 int)
|
||||
(v1-0 uint)
|
||||
(v1-1 uint)
|
||||
(v1-2 uint)
|
||||
(v1-3 none)
|
||||
(v1-4 none)
|
||||
(v1-5 none)
|
||||
(v1-6 none)
|
||||
(v1-7 none)
|
||||
(v1-8 none)
|
||||
(v1-9 none)
|
||||
(v1-10 none)
|
||||
(v1-11 none)
|
||||
(v1-12 none)
|
||||
(v1-13 none)
|
||||
(v1-14 none)
|
||||
(v1-15 none)
|
||||
(v1-16 none)
|
||||
(v1-17 none)
|
||||
(v1-18 none)
|
||||
(v1-19 none)
|
||||
(v1-20 none)
|
||||
(v1-21 none)
|
||||
(v1-22 none)
|
||||
(v1-23 none)
|
||||
(v1-24 none)
|
||||
(v1-25 none)
|
||||
(v1-26 none)
|
||||
(v1-27 none)
|
||||
(v1-28 none)
|
||||
(v1-29 none)
|
||||
(a0-1 int)
|
||||
(a0-2 none)
|
||||
(a1-1 string)
|
||||
(a1-2 none)
|
||||
(a2-1 none)
|
||||
(a3-0 none)
|
||||
(a3-1 none)
|
||||
(t0-0 none)
|
||||
(t0-1 none)
|
||||
(t1-0 none)
|
||||
(t1-1 none)
|
||||
(t2-0 none)
|
||||
(s2-0 uint)
|
||||
(s3-0 int)
|
||||
(s4-0 int)
|
||||
(t9-0 (function _varargs_ object))
|
||||
(t9-1 none)
|
||||
)
|
||||
(set! s4-0 #x1100c000)
|
||||
(set! s3-0 0)
|
||||
(while (<.si s3-0 a1-0)
|
||||
(set! s2-0 (+ s3-0 a0-0))
|
||||
(set! t9-0 format)
|
||||
(set! a0-1 0)
|
||||
(set! a1-1 L54)
|
||||
(set! a2-0 s2-0)
|
||||
(set! v1-0 (sll s2-0 2))
|
||||
(set! v1-1 (sll v1-0 2))
|
||||
(set! v1-2 (+ s4-0 v1-1))
|
||||
(set! a3-0 (the-as none (l.wu v1-2)))
|
||||
(set! v1-3 (the-as none (sll s2-0 2)))
|
||||
(set! v1-4 (the-as none (+ v1-3 1)))
|
||||
(set! v1-5 (the-as none (sll v1-4 2)))
|
||||
(set! v1-6 (the-as none (+ s4-0 v1-5)))
|
||||
(set! t0-0 (the-as none (l.wu v1-6)))
|
||||
(set! v1-7 (the-as none (sll s2-0 2)))
|
||||
(set! v1-8 (the-as none (+ v1-7 2)))
|
||||
(set! v1-9 (the-as none (sll v1-8 2)))
|
||||
(set! v1-10 (the-as none (+ s4-0 v1-9)))
|
||||
(set! t1-0 (the-as none (l.wu v1-10)))
|
||||
(set! v1-11 (the-as none (sll s2-0 2)))
|
||||
(set! v1-12 (the-as none (+ v1-11 3)))
|
||||
(set! v1-13 (the-as none (sll v1-12 2)))
|
||||
(set! v1-14 (the-as none (+ s4-0 v1-13)))
|
||||
(set! t2-0 (the-as none (l.wu v1-14)))
|
||||
(call!)
|
||||
(set! t9-1 (the-as none format))
|
||||
(set! a0-2 (the-as none 0))
|
||||
(set! a1-2 (the-as none L55))
|
||||
(set! v1-15 (the-as none (sll s2-0 2)))
|
||||
(set! v1-16 (the-as none (sll v1-15 2)))
|
||||
(set! v1-17 (the-as none (+ s4-0 v1-16)))
|
||||
(set! a2-1 (the-as none (l.wu v1-17)))
|
||||
(set! v1-18 (the-as none (sll s2-0 2)))
|
||||
(set! v1-19 (the-as none (+ v1-18 1)))
|
||||
(set! v1-20 (the-as none (sll v1-19 2)))
|
||||
(set! v1-21 (the-as none (+ s4-0 v1-20)))
|
||||
(set! a3-1 (the-as none (l.wu v1-21)))
|
||||
(set! v1-22 (the-as none (sll s2-0 2)))
|
||||
(set! v1-23 (the-as none (+ v1-22 2)))
|
||||
(set! v1-24 (the-as none (sll v1-23 2)))
|
||||
(set! v1-25 (the-as none (+ s4-0 v1-24)))
|
||||
(set! t0-1 (the-as none (l.wu v1-25)))
|
||||
(set! v1-26 (the-as none (sll s2-0 2)))
|
||||
(set! v1-27 (the-as none (+ v1-26 3)))
|
||||
(set! v1-28 (the-as none (sll v1-27 2)))
|
||||
(set! v1-29 (the-as none (+ s4-0 v1-28)))
|
||||
(set! t1-1 (the-as none (l.wu v1-29)))
|
||||
(call!)
|
||||
(set! v1-30 (the-as none v0-1))
|
||||
(set! s3-0 (the-as int (+ s3-0 1)))
|
||||
)
|
||||
(set! v0-2 0)
|
||||
(ret-value v0-2)
|
||||
)
|
||||
|
||||
;; definition for function reset-vif1-path
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun reset-vif1-path ()
|
||||
(format 0 "~`dma-bank-vif`I~`vif-bank`I" #x10009000 #x10003c00)
|
||||
(reset-path)
|
||||
(set-graphics-mode)
|
||||
(format 0 "gkernel: vif1 path reset!~%")
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function ultimate-memcpy
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; ERROR: Failed store: (s.w! (+ s4-0 16) arg1) at op 26
|
||||
;; ERROR: Failed store: (s.w! (+ s4-0 128) 0) at op 27
|
||||
;; ERROR: Failed store: (s.w! (+ s4-0 32) s1-0) at op 28
|
||||
;; ERROR: Failed store: (s.w! s4-0 v1-3) at op 31
|
||||
;; ERROR: Failed store: (s.w! (+ s3-0 16) arg0) at op 40
|
||||
;; ERROR: Failed store: (s.w! (+ s3-0 128) 0) at op 41
|
||||
;; ERROR: Failed store: (s.w! (+ s3-0 32) s1-0) at op 42
|
||||
;; ERROR: Failed store: (s.w! s3-0 v1-5) at op 45
|
||||
(defun ultimate-memcpy ((arg0 pointer) (arg1 pointer) (arg2 uint))
|
||||
(let ((s4-0 #x1000d400)
|
||||
(s3-0 #x1000d000)
|
||||
(s2-0 (shr arg2 4))
|
||||
)
|
||||
(flush-cache 0)
|
||||
(dma-sync (the-as pointer s4-0) 0 0)
|
||||
(dma-sync (the-as pointer s3-0) 0 0)
|
||||
(while (> s2-0 0)
|
||||
(let ((s1-0 (the-as int s2-0)))
|
||||
(if (< (the-as uint 1024) (the-as uint s1-0))
|
||||
(set! s1-0 1024)
|
||||
)
|
||||
(set! s2-0 (- s2-0 (the-as uint s1-0)))
|
||||
(.sync.l)
|
||||
(s.w! (+ s4-0 16) arg1)
|
||||
(s.w! (+ s4-0 128) 0)
|
||||
(s.w! (+ s4-0 32) s1-0)
|
||||
(.sync.l)
|
||||
(let ((v1-3 256))
|
||||
(s.w! s4-0 v1-3)
|
||||
)
|
||||
(.sync.l)
|
||||
(dma-sync (the-as pointer s4-0) 0 0)
|
||||
(&+! arg1 (* s1-0 16))
|
||||
(s.w! (+ s3-0 16) arg0)
|
||||
(s.w! (+ s3-0 128) 0)
|
||||
(s.w! (+ s3-0 32) s1-0)
|
||||
(.sync.l)
|
||||
(let ((v1-5 256))
|
||||
(s.w! s3-0 v1-5)
|
||||
)
|
||||
(.sync.l)
|
||||
(dma-sync (the-as pointer s3-0) 0 0)
|
||||
(&+! arg0 (* s1-0 16))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function symlink2
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; definition for function symlink3
|
||||
;; ERROR: failed type prop at 1: Couldn't figure out integer subtract: (- a1 #f) (<uninitialized> and '#f)
|
||||
|
||||
;; ERROR: Function may read a register that is not set: a0
|
||||
;; ERROR: Function may read a register that is not set: a1
|
||||
;; ERROR: Function may read a register that is not set: a2
|
||||
;; ERROR: Function may read a register that is not set: ra
|
||||
;; ERROR: Unsupported inline assembly instruction kind - [sll a3, a3, 16]
|
||||
;; ERROR: Unsupported inline assembly instruction kind - [jr ra]
|
||||
(defun symlink3 ()
|
||||
(local-vars
|
||||
(v0-0 none)
|
||||
(v1-0 none)
|
||||
(a0-0 none)
|
||||
(a1-0 none)
|
||||
(a2-0 none)
|
||||
(a3-0 int)
|
||||
(a3-1 none)
|
||||
(t0-0 none)
|
||||
(t1-0 none)
|
||||
(t3-0 none)
|
||||
(t3-1 none)
|
||||
(t3-2 none)
|
||||
(t4-0 none)
|
||||
(t4-1 none)
|
||||
(t4-2 none)
|
||||
(t4-3 none)
|
||||
(t4-4 none)
|
||||
(ra-0 none)
|
||||
)
|
||||
(set! a3-0 #xffff)
|
||||
(set! v1-0 (the-as none (- a1-0 #f)))
|
||||
(.sll a3-1 a3-0 16)
|
||||
(set! t0-0 (the-as none 1020))
|
||||
(set! t1-0 (the-as none (logior a3-1 #xffff)))
|
||||
(until (begin (label cfg-5) (zero? t4-2))
|
||||
(label cfg-1)
|
||||
(set! t4-0 (the-as none (l.bu a2-0)))
|
||||
(set! a2-0 (the-as none (+ a2-0 1)))
|
||||
(set! t4-1 (the-as none (sll t4-0 2)))
|
||||
(nop!)
|
||||
((b! (= t4-1 t0-0) L2 (set! a0-0 (+ a0-0 t4-1))) (set! a0-0 (the-as none (+ a0-0 t4-1))))
|
||||
(set! t3-0 (the-as none (l.w a0-0)))
|
||||
(set! t4-2 (the-as none (l.bu a2-0)))
|
||||
(bl! (= t3-0 t1-0) L3 (no-delay!))
|
||||
(s.w! a0-0 a1-0)
|
||||
(set! t4-3 (the-as none (+ t3-0 v1-0)))
|
||||
(set! t3-1 (the-as none (logand t3-0 a3-1)))
|
||||
(set! t4-4 (the-as none (logand t4-3 #xffff)))
|
||||
(nop!)
|
||||
(set! t3-2 (the-as none (logior t3-1 t4-4)))
|
||||
(set! t4-2 (the-as none (l.bu a2-0)))
|
||||
(s.w! a0-0 t3-2)
|
||||
(nop!)
|
||||
)
|
||||
(.jr ra-0)
|
||||
(set! v0-0 (the-as none (+ a2-0 1)))
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(dma-initialize)
|
||||
|
||||
|
||||
|
||||
|
||||
+64
@@ -0,0 +1,64 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 16 of type draw-node
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod collect-regions ((this draw-node) (arg0 sphere) (arg1 int) (arg2 region-prim-list))
|
||||
"Fill the region-prim-list with regions that intersect the sphere."
|
||||
(dotimes (s2-0 arg1)
|
||||
(if (spheres-overlap? arg0 (the-as sphere (-> this bsphere)))
|
||||
(collect-regions (-> this child) arg0 (the-as int (-> this child-count)) arg2)
|
||||
)
|
||||
(&+! this 32)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type drawable-inline-array-node
|
||||
(defmethod inspect ((this drawable-inline-array-node))
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~Tlength: ~D~%" (-> this length))
|
||||
(format #t "~Tdata[~D]: @ #x~X~%" (-> this length) (-> this data))
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(format #t "~T [~D] ~A~%" s5-0 (-> this data s5-0))
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 8 of type drawable-inline-array-node
|
||||
(defmethod mem-usage ((this drawable-inline-array-node) (usage memory-usage-block) (flags int))
|
||||
(set! (-> usage length) (max 64 (-> usage length)))
|
||||
(set! (-> usage data 63 name) "draw-node")
|
||||
(+! (-> usage data 63 count) (-> this length))
|
||||
(let ((v1-6 (asize-of this)))
|
||||
(+! (-> usage data 63 used) v1-6)
|
||||
(+! (-> usage data 63 total) (logand -16 (+ v1-6 15)))
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 5 of type drawable-inline-array-node
|
||||
;; WARN: Return type mismatch uint vs int.
|
||||
(defmethod asize-of ((this drawable-inline-array-node))
|
||||
(the-as int (+ (-> drawable-inline-array-node size) (* (+ (-> this length) -1) 32)))
|
||||
)
|
||||
|
||||
;; definition for method 16 of type drawable-inline-array-node
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod collect-regions ((this drawable-inline-array-node) (arg0 sphere) (arg1 int) (arg2 region-prim-list))
|
||||
"Fill the region-prim-list with regions that intersect the sphere."
|
||||
(collect-regions (the-as draw-node (-> this data)) arg0 (-> this length) arg2)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function draw-node-cull
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+115
@@ -0,0 +1,115 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 0 of type drawable-group
|
||||
(defmethod new drawable-group ((allocation symbol) (type-to-make type) (arg0 int))
|
||||
(let ((v0-0 (object-new allocation type-to-make (the-as int (+ (-> type-to-make size) (* arg0 4))))))
|
||||
(set! (-> v0-0 length) arg0)
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 2 of type drawable-group
|
||||
(defmethod print ((this drawable-group))
|
||||
(format #t "#<~A @ #x~X [~D]" (-> this type) this (-> this length))
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(format #t " ~A" (-> this data s5-0))
|
||||
)
|
||||
(format #t ">")
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 4 of type drawable-group
|
||||
(defmethod length ((this drawable-group))
|
||||
(-> this length)
|
||||
)
|
||||
|
||||
;; definition for method 5 of type drawable-group
|
||||
;; WARN: Return type mismatch uint vs int.
|
||||
(defmethod asize-of ((this drawable-group))
|
||||
(the-as int (+ (-> drawable-group size) (* (-> this length) 4)))
|
||||
)
|
||||
|
||||
;; definition for method 8 of type drawable-group
|
||||
(defmethod mem-usage ((this drawable-group) (usage memory-usage-block) (flags int))
|
||||
(set! (-> usage length) (max 1 (-> usage length)))
|
||||
(set! (-> usage data 0 name) "drawable-group")
|
||||
(+! (-> usage data 0 count) 1)
|
||||
(let ((v1-6 (asize-of this)))
|
||||
(+! (-> usage data 0 used) v1-6)
|
||||
(+! (-> usage data 0 total) (logand -16 (+ v1-6 15)))
|
||||
)
|
||||
(dotimes (s3-0 (-> this length))
|
||||
(mem-usage (-> this data s3-0) usage flags)
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 9 of type drawable-group
|
||||
(defmethod login ((this drawable-group))
|
||||
"Initialize the object after it is loaded."
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(login (-> this data s5-0))
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 10 of type drawable-group
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod draw ((this drawable-group))
|
||||
"Draw the drawable, and typically its children.
|
||||
This usually means adding stuff to a list to be drawn later, rather than expensive drawing here."
|
||||
(when (vis-cull (-> this id))
|
||||
(when (sphere-cull (-> this bsphere))
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(draw (-> this data s5-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type drawable-group
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod collect-stats ((this drawable-group))
|
||||
"Collect triangle/perf statistics for rendering.
|
||||
This is only called when viewing stats.
|
||||
The vis-bits and culling registers are loaded during this time."
|
||||
(when (vis-cull (-> this id))
|
||||
(when (sphere-cull (-> this bsphere))
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(collect-stats (-> this data s5-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type drawable-group
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod debug-draw ((this drawable-group))
|
||||
"Debug-draw a drawable and its children. Typically uses the debug-draw functions."
|
||||
(when (vis-cull (-> this id))
|
||||
(when (sphere-cull (-> this bsphere))
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(debug-draw (-> this data s5-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 15 of type drawable-group
|
||||
(defmethod unpack-vis ((this drawable-group) (arg0 (pointer int8)) (arg1 (pointer int8)))
|
||||
(dotimes (s4-0 (-> this length))
|
||||
(set! arg1 (unpack-vis (-> this data s4-0) arg0 arg1))
|
||||
)
|
||||
arg1
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+44
@@ -0,0 +1,44 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 4 of type drawable-inline-array
|
||||
(defmethod length ((this drawable-inline-array))
|
||||
(-> this length)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type drawable-inline-array
|
||||
(defmethod login ((this drawable-inline-array))
|
||||
"Initialize the object after it is loaded."
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 10 of type drawable-inline-array
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod draw ((this drawable-inline-array))
|
||||
"Draw the drawable, and typically its children.
|
||||
This usually means adding stuff to a list to be drawn later, rather than expensive drawing here."
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type drawable-inline-array
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod collect-stats ((this drawable-inline-array))
|
||||
"Collect triangle/perf statistics for rendering.
|
||||
This is only called when viewing stats.
|
||||
The vis-bits and culling registers are loaded during this time."
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type drawable-inline-array
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod debug-draw ((this drawable-inline-array))
|
||||
"Debug-draw a drawable and its children. Typically uses the debug-draw functions."
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+101
@@ -0,0 +1,101 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 10 of type drawable-tree-array
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod draw ((this drawable-tree-array))
|
||||
"Draw the drawable, and typically its children.
|
||||
This usually means adding stuff to a list to be drawn later, rather than expensive drawing here."
|
||||
(case (-> *level* draw-level *draw-index* display?)
|
||||
(('special #f)
|
||||
)
|
||||
(else
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(draw (-> this trees s5-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type drawable-tree-array
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod collect-stats ((this drawable-tree-array))
|
||||
"Collect triangle/perf statistics for rendering.
|
||||
This is only called when viewing stats.
|
||||
The vis-bits and culling registers are loaded during this time."
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(collect-stats (-> this trees s5-0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type drawable-tree-array
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod debug-draw ((this drawable-tree-array))
|
||||
"Debug-draw a drawable and its children. Typically uses the debug-draw functions."
|
||||
(dotimes (s5-0 (-> this length))
|
||||
(debug-draw (-> this trees s5-0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 15 of type drawable-tree
|
||||
(defmethod unpack-vis ((this drawable-tree) (arg0 (pointer int8)) (arg1 (pointer int8)))
|
||||
(local-vars (t5-1 uint))
|
||||
(let* ((v1-0 (the-as drawable-inline-array-node (-> this data 0)))
|
||||
(a3-1 (/ (-> v1-0 data 0 id) 8))
|
||||
(t0-0 (-> v1-0 length))
|
||||
(v1-1 (&+ arg0 a3-1))
|
||||
(a3-3 (/ (+ t0-0 7) 8))
|
||||
)
|
||||
(dotimes (t0-1 a3-3)
|
||||
(let ((t1-0 (-> arg1 0)))
|
||||
(set! arg1 (&-> arg1 1))
|
||||
(set! (-> v1-1 0) t1-0)
|
||||
)
|
||||
(set! v1-1 (&-> v1-1 1))
|
||||
)
|
||||
)
|
||||
(let ((v1-5 (+ (-> this length) -1)))
|
||||
(when (nonzero? v1-5)
|
||||
(dotimes (a3-5 v1-5)
|
||||
(let* ((t0-4 (-> this data a3-5))
|
||||
(t2-0 (the-as drawable-inline-array-node (-> this data (+ a3-5 1))))
|
||||
(t1-5 (/ (-> (the-as drawable-inline-array-node t0-4) data 0 id) 8))
|
||||
(t2-2 (/ (-> t2-0 data 0 id) 8))
|
||||
(t0-5 (-> (the-as drawable-inline-array-node t0-4) length))
|
||||
(t1-6 (&+ arg0 t1-5))
|
||||
(t2-3 (the-as object (&+ arg0 t2-2)))
|
||||
)
|
||||
(loop
|
||||
(let ((t3-0 (-> t1-6 0)))
|
||||
(set! t1-6 (&-> t1-6 1))
|
||||
(let ((t4-0 128))
|
||||
(label cfg-7)
|
||||
(b! (not (logtest? t3-0 t4-0)) cfg-9 :delay (set! t5-1 (the-as uint (-> arg1 0))))
|
||||
(set! arg1 (&-> arg1 1))
|
||||
(set! (-> (the-as (pointer int8) t2-3) 0) (the-as int t5-1))
|
||||
(label cfg-9)
|
||||
(+! t0-5 -1)
|
||||
(b! (zero? t0-5) cfg-12 :delay (shift-arith-right-32 t4-0 t4-0 1))
|
||||
(b! (nonzero? (the-as uint t4-0)) cfg-7 :delay (set! t2-3 (&-> (the-as (pointer int8) t2-3) 1)))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(label cfg-12)
|
||||
(nop!)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
arg1
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+408
@@ -0,0 +1,408 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for function entity-actor-lookup
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch entity vs entity-actor.
|
||||
(defun entity-actor-lookup ((arg0 res-lump) (arg1 symbol) (arg2 int))
|
||||
(let* ((sv-16 (new 'static 'res-tag))
|
||||
(v1-1 (res-lump-data arg0 arg1 pointer :tag-ptr (& sv-16)))
|
||||
)
|
||||
(the-as
|
||||
entity-actor
|
||||
(when (and v1-1 (< arg2 (the-as int (-> sv-16 elt-count))))
|
||||
(if (= (-> sv-16 elt-type) string)
|
||||
(entity-by-name (the-as string (-> (the-as (pointer uint32) (&+ v1-1 (* arg2 4))))))
|
||||
(entity-by-aid (-> (the-as (pointer uint32) (&+ v1-1 (* arg2 4)))))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function entity-actor-count
|
||||
;; WARN: Check prologue - tricky store of r0
|
||||
;; INFO: Used lq/sq
|
||||
(defun entity-actor-count ((arg0 res-lump) (arg1 symbol))
|
||||
(let ((sv-16 (new 'static 'res-tag)))
|
||||
(if (res-lump-data arg0 arg1 pointer :tag-ptr (& sv-16))
|
||||
(the-as int (-> sv-16 elt-count))
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type actor-link-info
|
||||
(deftype actor-link-info (basic)
|
||||
"A linked list of actors.
|
||||
|
||||
Actors allocate this on their process heap if they have a
|
||||
`next-actor` or `prev-actor` defined in their lump
|
||||
and use it for entity lookups."
|
||||
((process process)
|
||||
(next entity-actor)
|
||||
(prev entity-actor)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type process symbol) _type_)
|
||||
(get-matching-actor-type-mask (_type_ type) int)
|
||||
(actor-count-before (_type_) int)
|
||||
(link-to-next-and-prev-actor (_type_) actor-link-info)
|
||||
(get-next (_type_) entity-actor)
|
||||
(get-prev (_type_) entity-actor)
|
||||
(get-next-process (_type_) process)
|
||||
(get-prev-process (_type_) process)
|
||||
(apply-function-forward (_type_ (function entity-actor object object) object) int)
|
||||
(apply-function-reverse (_type_ (function entity-actor object object) object) int)
|
||||
(apply-all (_type_ (function entity-actor object object) object) int)
|
||||
(send-to-all (_type_ symbol) none)
|
||||
(send-to-all-after (_type_ symbol) object)
|
||||
(send-to-all-before (_type_ symbol) object)
|
||||
(send-to-next-and-prev (_type_ symbol) none)
|
||||
(send-to-next (_type_ symbol) none)
|
||||
(send-to-prev (_type_ symbol) none)
|
||||
(actor-count (_type_) int)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type actor-link-info
|
||||
(defmethod inspect ((this actor-link-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tprocess: ~A~%" (-> this process))
|
||||
(format #t "~1Tnext: ~A~%" (-> this next))
|
||||
(format #t "~1Tprev: ~A~%" (-> this prev))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 27 of type entity-actor
|
||||
(defmethod next-actor ((this entity-actor))
|
||||
(entity-actor-lookup this 'next-actor 0)
|
||||
)
|
||||
|
||||
;; definition for method 28 of type entity-actor
|
||||
(defmethod prev-actor ((this entity-actor))
|
||||
(entity-actor-lookup this 'prev-actor 0)
|
||||
)
|
||||
|
||||
;; definition for method 0 of type actor-link-info
|
||||
(defmethod new actor-link-info ((allocation symbol) (type-to-make type) (arg0 process) (arg1 symbol))
|
||||
(let* ((a0-1 (-> arg0 entity))
|
||||
(s4-0 (entity-actor-lookup a0-1 'next-actor 0))
|
||||
(a0-2 (-> arg0 entity))
|
||||
(s3-0 (entity-actor-lookup a0-2 'prev-actor 0))
|
||||
)
|
||||
(when (or (not arg1) s4-0 s3-0)
|
||||
(let ((v0-2 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
|
||||
(set! (-> v0-2 process) arg0)
|
||||
(set! (-> v0-2 next) s4-0)
|
||||
(set! (-> v0-2 prev) s3-0)
|
||||
v0-2
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type actor-link-info
|
||||
(defmethod get-next ((this actor-link-info))
|
||||
(-> this next)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type actor-link-info
|
||||
(defmethod get-prev ((this actor-link-info))
|
||||
(-> this prev)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type actor-link-info
|
||||
;; WARN: Return type mismatch basic vs process.
|
||||
(defmethod get-next-process ((this actor-link-info))
|
||||
(the-as process (and (-> this next) (-> this next extra process)))
|
||||
)
|
||||
|
||||
;; definition for method 15 of type actor-link-info
|
||||
;; WARN: Return type mismatch basic vs process.
|
||||
(defmethod get-prev-process ((this actor-link-info))
|
||||
(the-as process (and (-> this prev) (-> this prev extra process)))
|
||||
)
|
||||
|
||||
;; definition for method 11 of type actor-link-info
|
||||
(defmethod link-to-next-and-prev-actor ((this actor-link-info))
|
||||
(let ((a0-1 (-> this process entity)))
|
||||
(set! (-> this next) (entity-actor-lookup a0-1 'next-actor 0))
|
||||
)
|
||||
(let ((a0-2 (-> this process entity)))
|
||||
(set! (-> this prev) (entity-actor-lookup a0-2 'prev-actor 0))
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 16 of type actor-link-info
|
||||
(defmethod apply-function-forward ((this actor-link-info) (arg0 (function entity-actor object object)) (arg1 object))
|
||||
(let ((s3-0 (-> this next)))
|
||||
(while s3-0
|
||||
(if (arg0 s3-0 arg1)
|
||||
(return (the-as int #f))
|
||||
)
|
||||
(set! s3-0 (entity-actor-lookup s3-0 'next-actor 0))
|
||||
)
|
||||
)
|
||||
0
|
||||
)
|
||||
|
||||
;; definition for method 17 of type actor-link-info
|
||||
(defmethod apply-function-reverse ((this actor-link-info) (arg0 (function entity-actor object object)) (arg1 object))
|
||||
(let ((s3-0 (-> this prev)))
|
||||
(while s3-0
|
||||
(if (arg0 s3-0 arg1)
|
||||
(return (the-as int #f))
|
||||
)
|
||||
(set! s3-0 (entity-actor-lookup s3-0 'prev-actor 0))
|
||||
)
|
||||
)
|
||||
0
|
||||
)
|
||||
|
||||
;; definition for method 18 of type actor-link-info
|
||||
(defmethod apply-all ((this actor-link-info) (arg0 (function entity-actor object object)) (arg1 object))
|
||||
(let ((s4-0 (-> this process entity)))
|
||||
(while (let ((a0-2 s4-0))
|
||||
(entity-actor-lookup a0-2 'prev-actor 0)
|
||||
)
|
||||
(set! s4-0 (entity-actor-lookup s4-0 'prev-actor 0))
|
||||
)
|
||||
(while s4-0
|
||||
(if (arg0 s4-0 arg1)
|
||||
(return (the-as int #f))
|
||||
)
|
||||
(let ((a0-4 s4-0))
|
||||
(set! s4-0 (entity-actor-lookup a0-4 'next-actor 0))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
)
|
||||
|
||||
;; definition for method 20 of type actor-link-info
|
||||
(defmethod send-to-all-after ((this actor-link-info) (arg0 symbol))
|
||||
(with-pp
|
||||
(let ((s4-0 (-> this next))
|
||||
(s5-0 (the-as object #f))
|
||||
)
|
||||
(while s4-0
|
||||
(let ((a0-1 (-> s4-0 extra process)))
|
||||
(when a0-1
|
||||
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
||||
(set! (-> a1-1 from) (process->ppointer pp))
|
||||
(set! (-> a1-1 num-params) 0)
|
||||
(set! (-> a1-1 message) arg0)
|
||||
(set! s5-0 (or (send-event-function a0-1 a1-1) s5-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! s4-0 (entity-actor-lookup s4-0 'next-actor 0))
|
||||
)
|
||||
s5-0
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 21 of type actor-link-info
|
||||
(defmethod send-to-all-before ((this actor-link-info) (arg0 symbol))
|
||||
(with-pp
|
||||
(let ((s4-0 (-> this prev))
|
||||
(s5-0 (the-as object #f))
|
||||
)
|
||||
(while s4-0
|
||||
(let ((a0-1 (-> s4-0 extra process)))
|
||||
(when a0-1
|
||||
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
||||
(set! (-> a1-1 from) (process->ppointer pp))
|
||||
(set! (-> a1-1 num-params) 0)
|
||||
(set! (-> a1-1 message) arg0)
|
||||
(set! s5-0 (or (send-event-function a0-1 a1-1) s5-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! s4-0 (entity-actor-lookup s4-0 'prev-actor 0))
|
||||
)
|
||||
s5-0
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 23 of type actor-link-info
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defmethod send-to-next ((this actor-link-info) (arg0 symbol))
|
||||
(let ((a0-1 (-> this next)))
|
||||
(when a0-1
|
||||
(let ((a0-2 (-> a0-1 extra process)))
|
||||
(if a0-2
|
||||
(send-event a0-2 arg0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 24 of type actor-link-info
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defmethod send-to-prev ((this actor-link-info) (arg0 symbol))
|
||||
(let ((a0-1 (-> this prev)))
|
||||
(when a0-1
|
||||
(let ((a0-2 (-> a0-1 extra process)))
|
||||
(if a0-2
|
||||
(send-event a0-2 arg0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 22 of type actor-link-info
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defmethod send-to-next-and-prev ((this actor-link-info) (arg0 symbol))
|
||||
(send-to-next this arg0)
|
||||
(send-to-prev this arg0)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 19 of type actor-link-info
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defmethod send-to-all ((this actor-link-info) (arg0 symbol))
|
||||
(send-to-all-after this arg0)
|
||||
(send-to-all-before this arg0)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 25 of type actor-link-info
|
||||
(defmethod actor-count ((this actor-link-info))
|
||||
(let ((s5-0 (-> this process entity))
|
||||
(gp-0 0)
|
||||
)
|
||||
(while (let ((a0-2 s5-0))
|
||||
(entity-actor-lookup a0-2 'prev-actor 0)
|
||||
)
|
||||
(set! s5-0 (entity-actor-lookup s5-0 'prev-actor 0))
|
||||
)
|
||||
(while s5-0
|
||||
(+! gp-0 1)
|
||||
(let ((a0-3 s5-0))
|
||||
(set! s5-0 (entity-actor-lookup a0-3 'next-actor 0))
|
||||
)
|
||||
)
|
||||
gp-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type actor-link-info
|
||||
(defmethod get-matching-actor-type-mask ((this actor-link-info) (arg0 type))
|
||||
(let ((s3-0 (-> this process entity))
|
||||
(s5-0 0)
|
||||
)
|
||||
(let ((s4-0 1))
|
||||
(while (let ((a0-2 s3-0))
|
||||
(entity-actor-lookup a0-2 'prev-actor 0)
|
||||
)
|
||||
(set! s3-0 (entity-actor-lookup s3-0 'prev-actor 0))
|
||||
)
|
||||
(while s3-0
|
||||
(if (= (-> s3-0 etype) arg0)
|
||||
(set! s5-0 (logior s5-0 s4-0))
|
||||
)
|
||||
(let ((a0-3 s3-0))
|
||||
(set! s3-0 (entity-actor-lookup a0-3 'next-actor 0))
|
||||
)
|
||||
(set! s4-0 (* s4-0 2))
|
||||
)
|
||||
)
|
||||
s5-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type actor-link-info
|
||||
(defmethod actor-count-before ((this actor-link-info))
|
||||
(let* ((s5-0 (-> this process entity))
|
||||
(s4-0 s5-0)
|
||||
(gp-0 0)
|
||||
)
|
||||
(while (let ((a0-2 s4-0))
|
||||
(entity-actor-lookup a0-2 'prev-actor 0)
|
||||
)
|
||||
(set! s4-0 (entity-actor-lookup s4-0 'prev-actor 0))
|
||||
)
|
||||
(while (!= s4-0 s5-0)
|
||||
(+! gp-0 1)
|
||||
(let ((a0-3 s4-0))
|
||||
(set! s4-0 (entity-actor-lookup a0-3 'next-actor 0))
|
||||
)
|
||||
)
|
||||
gp-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function actor-link-subtask-complete-hook
|
||||
(defun actor-link-subtask-complete-hook ((arg0 entity-actor) (arg1 (pointer symbol)))
|
||||
(cond
|
||||
((logtest? (-> arg0 extra perm status) (entity-perm-status subtask-complete))
|
||||
(set! (-> arg1 0) #t)
|
||||
#f
|
||||
)
|
||||
(else
|
||||
(set! (-> arg1 0) #f)
|
||||
#t
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function actor-link-subtask-incomplete-count-hook
|
||||
(defun actor-link-subtask-incomplete-count-hook ((arg0 entity-actor) (arg1 (pointer uint64)))
|
||||
(cond
|
||||
((logtest? (-> arg0 extra perm status) (entity-perm-status subtask-complete))
|
||||
#f
|
||||
)
|
||||
(else
|
||||
(+! (-> arg1 0) 1)
|
||||
#f
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function actor-link-dead-hook
|
||||
(defun actor-link-dead-hook ((arg0 entity-actor) (arg1 (pointer symbol)))
|
||||
(cond
|
||||
((logtest? (-> arg0 extra perm status) (entity-perm-status dead))
|
||||
(set! (-> arg1 0) #t)
|
||||
#f
|
||||
)
|
||||
(else
|
||||
(set! (-> arg1 0) #f)
|
||||
#t
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function alt-actor-list-subtask-incomplete-count
|
||||
(defun alt-actor-list-subtask-incomplete-count ((arg0 process-drawable))
|
||||
(let ((s4-0 (entity-actor-count (-> arg0 entity) 'alt-actor))
|
||||
(gp-0 0)
|
||||
)
|
||||
(dotimes (s3-0 s4-0)
|
||||
(let ((a0-3 (entity-actor-lookup (-> arg0 entity) 'alt-actor s3-0)))
|
||||
(if (or (not a0-3) (not (logtest? (-> a0-3 extra perm status) (entity-perm-status subtask-complete))))
|
||||
(+! gp-0 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
gp-0
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+6
-2
@@ -262,9 +262,9 @@ that gets accessed by the accompanying process."
|
||||
;; definition of type entity-actor
|
||||
(deftype entity-actor (entity)
|
||||
"Child class of [[entity]] used to spawn [[process-drawable]] actors."
|
||||
((etype type :offset 56)
|
||||
((etype type :offset 60)
|
||||
(task game-task)
|
||||
(kill-mask task-mask :overlay-at unknown)
|
||||
(kill-mask task-mask :offset 56)
|
||||
(vis-id int16)
|
||||
(quat quaternion :inline)
|
||||
)
|
||||
@@ -371,3 +371,7 @@ that gets accessed by the accompanying process."
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+54
@@ -0,0 +1,54 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *entity-info*, type (array entity-info)
|
||||
(define *entity-info*
|
||||
(new 'static 'boxed-array :type entity-info
|
||||
(new 'static 'entity-info
|
||||
:ptype (type-ref bubbles-path :method-count 56)
|
||||
:pool '*16k-dead-pool*
|
||||
:heap-size #x8000
|
||||
)
|
||||
(new 'static 'entity-info :ptype 'veger-npc :pool '*16k-dead-pool* :heap-size #x10000)
|
||||
(new 'static 'entity-info :ptype 'seem-npc :pool '*16k-dead-pool* :heap-size #x20000)
|
||||
(new 'static 'entity-info :ptype 'kleever-npc :pool '*16k-dead-pool* :heap-size #x18000)
|
||||
(new 'static 'entity-info :ptype 'damus-npc :pool '*16k-dead-pool* :heap-size #x10000)
|
||||
(new 'static 'entity-info
|
||||
:ptype (type-ref nav-graph :method-count 45)
|
||||
:pool '*16k-dead-pool*
|
||||
:heap-size #x4000
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function entity-info-lookup
|
||||
;; WARN: Return type mismatch basic vs entity-info.
|
||||
(defun entity-info-lookup ((arg0 type))
|
||||
(the-as entity-info (cond
|
||||
((nonzero? (-> arg0 method-table 13))
|
||||
(-> arg0 method-table 13)
|
||||
)
|
||||
(else
|
||||
(let ((v1-1 *entity-info*))
|
||||
(dotimes (a1-0 (-> v1-1 length))
|
||||
(let ((a2-3 (-> v1-1 a1-0 ptype)))
|
||||
(when (if (logtest? (the-as int a2-3) 1)
|
||||
(= (-> arg0 symbol) a2-3)
|
||||
(= arg0 a2-3)
|
||||
)
|
||||
(set! (-> arg0 method-table 13) (the-as function (-> v1-1 a1-0)))
|
||||
(return (the-as entity-info (-> v1-1 a1-0)))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 method-table 13) #f)
|
||||
(the-as basic #f)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+4
@@ -920,3 +920,7 @@
|
||||
|
||||
;; definition for symbol *res-static-buf*, type pointer
|
||||
(define *res-static-buf* (malloc 'global 128))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+607
@@ -0,0 +1,607 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type game-bank
|
||||
(deftype game-bank (basic)
|
||||
((life-max-default float)
|
||||
(life-start-default float)
|
||||
(life-single-inc float)
|
||||
(money-task-inc float)
|
||||
(money-oracle-inc float)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type game-bank
|
||||
(defmethod inspect ((this game-bank))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlife-max-default: ~f~%" (-> this life-max-default))
|
||||
(format #t "~1Tlife-start-default: ~f~%" (-> this life-start-default))
|
||||
(format #t "~1Tlife-single-inc: ~f~%" (-> this life-single-inc))
|
||||
(format #t "~1Tmoney-task-inc: ~f~%" (-> this money-task-inc))
|
||||
(format #t "~1Tmoney-oracle-inc: ~f~%" (-> this money-oracle-inc))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *GAME-bank*, type game-bank
|
||||
(define *GAME-bank* (new 'static 'game-bank
|
||||
:life-max-default 99.0
|
||||
:life-start-default 5.0
|
||||
:life-single-inc 1.0
|
||||
:money-task-inc 90.0
|
||||
:money-oracle-inc 120.0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type actor-id
|
||||
(deftype actor-id (uint32)
|
||||
()
|
||||
)
|
||||
|
||||
;; definition of type highscore-info
|
||||
(deftype highscore-info (structure)
|
||||
((flags highscore-flags)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type highscore-info
|
||||
(defmethod inspect ((this highscore-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'highscore-info)
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type level-buffer-state
|
||||
(deftype level-buffer-state (structure)
|
||||
((name symbol)
|
||||
(display? symbol)
|
||||
(force-vis? symbol)
|
||||
(force-inside? symbol)
|
||||
(slot int32)
|
||||
(force-reload basic)
|
||||
)
|
||||
:allow-misaligned
|
||||
)
|
||||
|
||||
;; definition for method 3 of type level-buffer-state
|
||||
(defmethod inspect ((this level-buffer-state))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'level-buffer-state)
|
||||
(format #t "~1Tname: ~A~%" (-> this name))
|
||||
(format #t "~1Tdisplay?: ~A~%" (-> this display?))
|
||||
(format #t "~1Tforce-vis?: ~A~%" (-> this force-vis?))
|
||||
(format #t "~1Tforce-inside?: ~A~%" (-> this force-inside?))
|
||||
(format #t "~1Tslot: ~D~%" (-> this slot))
|
||||
(format #t "~1Tforce-reload: ~A~%" (-> this force-reload))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type level-buffer-state-small
|
||||
(deftype level-buffer-state-small (structure)
|
||||
((name symbol)
|
||||
(display? symbol)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type level-buffer-state-small
|
||||
(defmethod inspect ((this level-buffer-state-small))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'level-buffer-state-small)
|
||||
(format #t "~1Tname: ~A~%" (-> this name))
|
||||
(format #t "~1Tdisplay?: ~A~%" (-> this display?))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type level-buffer-state-split
|
||||
(deftype level-buffer-state-split (structure)
|
||||
((name basic)
|
||||
(display? symbol 2)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type level-buffer-state-split
|
||||
(defmethod inspect ((this level-buffer-state-split))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'level-buffer-state-split)
|
||||
(format #t "~1Tname: ~A~%" (-> this name))
|
||||
(format #t "~1Tdisplay?[2] @ #x~X~%" (-> this display?))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type load-state
|
||||
(deftype load-state (basic)
|
||||
((want level-buffer-state 18 :inline)
|
||||
(want-exp level-buffer-state 18 :inline)
|
||||
(want-split level-buffer-state-split 18 :inline)
|
||||
(target level-buffer-state 18 :inline)
|
||||
(want-sound sound-bank-state 7 :inline)
|
||||
(target-sound sound-bank-state 7 :inline)
|
||||
(vis-nick symbol)
|
||||
(command-list pair)
|
||||
(object-name string 256)
|
||||
(object-status basic 256)
|
||||
(update-callback (function load-state object))
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type) _type_)
|
||||
(load-state-method-9 () none)
|
||||
(load-state-method-10 () none)
|
||||
(load-state-method-11 () none)
|
||||
(load-state-method-12 () none)
|
||||
(load-state-method-13 () none)
|
||||
(load-state-method-14 () none)
|
||||
(load-state-method-15 () none)
|
||||
(load-state-method-16 () none)
|
||||
(load-state-method-17 () none)
|
||||
(load-state-method-18 () none)
|
||||
(load-state-method-19 () none)
|
||||
(load-state-method-20 () none)
|
||||
(load-state-method-21 () none)
|
||||
(load-state-method-22 () none)
|
||||
(load-state-method-23 () none)
|
||||
(load-state-method-24 () none)
|
||||
(load-state-method-25 () none)
|
||||
(load-state-method-26 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type load-state
|
||||
(defmethod inspect ((this load-state))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-22)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Twant[18] @ #x~X~%" (-> this want))
|
||||
(dotimes (s5-0 18)
|
||||
(format #t "~T [~D]~1Twant: ~`level-buffer-state`P~%" s5-0 (-> this want s5-0))
|
||||
)
|
||||
(format #t "~1Twant-exp[18] @ #x~X~%" (-> this want-exp))
|
||||
(dotimes (s5-1 18)
|
||||
(format #t "~T [~D]~1Twant-exp: ~`level-buffer-state`P~%" s5-1 (-> this want-exp s5-1))
|
||||
)
|
||||
(format #t "~1Twant-split[18] @ #x~X~%" (-> this want-split))
|
||||
(dotimes (s5-2 18)
|
||||
(format #t "~T [~D]~1Twant-split: ~`level-buffer-state-split`P~%" s5-2 (-> this want-split s5-2))
|
||||
)
|
||||
(format #t "~1Ttarget[18] @ #x~X~%" (-> this target))
|
||||
(dotimes (s5-3 18)
|
||||
(format #t "~T [~D]~1Ttarget: ~`level-buffer-state`P~%" s5-3 (-> this target s5-3))
|
||||
)
|
||||
(format #t "~1Twant-sound[7] @ #x~X~%" (-> this want-sound))
|
||||
(dotimes (s5-4 7)
|
||||
(format #t "~T [~D]~1Twant-sound: ~`sound-bank-state`P~%" s5-4 (-> this want-sound s5-4))
|
||||
)
|
||||
(format #t "~1Ttarget-sound[7] @ #x~X~%" (-> this target-sound))
|
||||
(dotimes (s5-5 7)
|
||||
(format #t "~T [~D]~1Ttarget-sound: ~`sound-bank-state`P~%" s5-5 (-> this target-sound s5-5))
|
||||
)
|
||||
(format #t "~1Tvis-nick: ~A~%" (-> this vis-nick))
|
||||
(format #t "~1Tcommand-list: ~A~%" (-> this command-list))
|
||||
(format #t "~1Tobject-name[256] @ #x~X~%" (-> this object-name))
|
||||
(format #t "~1Tobject-status[256] @ #x~X~%" (-> this object-status))
|
||||
(format #t "~1Tupdate-callback: ~A~%" (-> this update-callback))
|
||||
(label cfg-22)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 0 of type load-state
|
||||
;; WARN: Return type mismatch none vs load-state.
|
||||
(defmethod new load-state ((allocation symbol) (type-to-make type))
|
||||
(let ((a0-1 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
|
||||
(set! (-> a0-1 update-callback) #f)
|
||||
(the-as load-state ((method-of-object a0-1 load-state-method-9)))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type continue-point
|
||||
(deftype continue-point (basic)
|
||||
((name string)
|
||||
(level symbol)
|
||||
(flags continue-flags)
|
||||
(trans vector :inline)
|
||||
(velocity vector :inline)
|
||||
(camera-trans vector :inline)
|
||||
(quat vector4h :inline)
|
||||
(camera-rot int16 9)
|
||||
(on-goto object)
|
||||
(vis-nick symbol)
|
||||
(vehicle-type uint8)
|
||||
(want-count int8)
|
||||
(want (inline-array level-buffer-state-small))
|
||||
(want-sound symbol 1)
|
||||
)
|
||||
(:methods
|
||||
(continue-point-method-9 () none)
|
||||
(continue-point-method-10 () none)
|
||||
(continue-point-method-11 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type continue-point
|
||||
(defmethod inspect ((this continue-point))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-10)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tname: ~A~%" (-> this name))
|
||||
(format #t "~1Tlevel: ~A~%" (-> this level))
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
|
||||
(format #t "~1Tvelocity: ~`vector`P~%" (-> this velocity))
|
||||
(format #t "~1Tcamera-trans: ~`vector`P~%" (-> this camera-trans))
|
||||
(format #t "~1Tquat: #<vector4h @ #x~X>~%" (-> this quat))
|
||||
(format #t "~1Tcamera-rot[9] @ #x~X~%" (-> this camera-rot))
|
||||
(format #t "~1Ton-goto: ~A~%" (-> this on-goto))
|
||||
(format #t "~1Tvis-nick: ~A~%" (-> this vis-nick))
|
||||
(format #t "~1Tvehicle-type: ~D~%" (-> this vehicle-type))
|
||||
(format #t "~1Twant-count: ~D~%" (-> this want-count))
|
||||
(format #t "~1Twant: #x~X~%" (-> this want))
|
||||
(dotimes (s5-0 (-> this want-count))
|
||||
(format #t "~T [~D]~1Twant: ~`level-buffer-state-small`P~%" s5-0 (-> this want s5-0))
|
||||
)
|
||||
(format #t "~1Twant-sound[1] @ #x~X~%" (-> this want-sound))
|
||||
(dotimes (s5-1 1)
|
||||
(format #t "~T [~D]~1Twant-sound: ~`symbol`P~%" s5-1 (-> this want-sound s5-1))
|
||||
)
|
||||
(label cfg-10)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type game-info-player
|
||||
(deftype game-info-player (structure)
|
||||
((current-continue continue-point)
|
||||
(last-continue continue-point)
|
||||
(vehicle handle)
|
||||
(cash float)
|
||||
(camera-inside-view symbol)
|
||||
(last-selected-vehicle uint8)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type game-info-player
|
||||
(defmethod inspect ((this game-info-player))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'game-info-player)
|
||||
(format #t "~1Tcurrent-continue: ~A~%" (-> this current-continue))
|
||||
(format #t "~1Tlast-continue: ~A~%" (-> this last-continue))
|
||||
(format #t "~1Tvehicle: ~D~%" (-> this vehicle))
|
||||
(format #t "~1Tcash: ~f~%" (-> this cash))
|
||||
(format #t "~1Tcamera-inside-view: ~A~%" (-> this camera-inside-view))
|
||||
(format #t "~1Tlast-selected-vehicle: ~D~%" (-> this last-selected-vehicle))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *static-continues*, type (array continue-point)
|
||||
(define *static-continues*
|
||||
(new 'static 'boxed-array :type continue-point
|
||||
(new 'static 'continue-point :want (new 'static 'inline-array level-buffer-state-small 16
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
)
|
||||
)
|
||||
(new 'static 'continue-point :want (new 'static 'inline-array level-buffer-state-small 16
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
(new 'static 'level-buffer-state-small)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function continue-point-copy!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun continue-point-copy! ((arg0 continue-point) (arg1 continue-point))
|
||||
(let ((s4-0 (-> arg0 want)))
|
||||
(mem-copy! (&-> arg0 type) (&-> arg1 type) 112)
|
||||
(set! (-> arg0 want) s4-0)
|
||||
)
|
||||
(mem-copy! (the-as pointer (-> arg0 want)) (the-as pointer (-> arg1 want)) 128)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition of type game-info
|
||||
(deftype game-info (basic)
|
||||
((mode symbol)
|
||||
(save-name string)
|
||||
(player-info game-info-player 2 :inline)
|
||||
(car-info car-info-array :inline)
|
||||
(features uint64)
|
||||
(debug-features uint64)
|
||||
(old-features uint64)
|
||||
(items uint64)
|
||||
(debug-items uint64)
|
||||
(old-items uint64)
|
||||
(secrets uint64)
|
||||
(purchase-secrets uint64)
|
||||
(vehicles uint64)
|
||||
(debug-vehicles uint64)
|
||||
(old-vehicles uint64)
|
||||
(health-bar float)
|
||||
(health-bar-owner uint64)
|
||||
(attack-id uint32)
|
||||
(perm-list entity-perm-array)
|
||||
(game-info-pad1 int32 3)
|
||||
(task-node-commands (array game-task-node-command))
|
||||
(task-counter uint32)
|
||||
(game-info-pad2 int32 1)
|
||||
(level-opened uint8 32)
|
||||
(total-deaths int32)
|
||||
(continue-deaths int32)
|
||||
(task-deaths int32)
|
||||
(total-trys int32)
|
||||
(game-start-time uint64)
|
||||
(continue-time uint64)
|
||||
(death-time uint64)
|
||||
(hit-time uint64)
|
||||
(task-pickup-time uint64)
|
||||
(stop-watch-start uint64)
|
||||
(stop-watch-stop uint64)
|
||||
(blackout-time uint64)
|
||||
(letterbox-time uint64)
|
||||
(hint-play-time uint64)
|
||||
(display-text-time uint64)
|
||||
(display-text-handle uint64)
|
||||
(death-movie-tick int32)
|
||||
(want-auto-save symbol)
|
||||
(auto-save-proc uint64)
|
||||
(auto-save-status mc-status-code)
|
||||
(auto-save-card int32)
|
||||
(auto-save-which int32)
|
||||
(auto-save-count int32)
|
||||
(pov-camera-handle uint64)
|
||||
(other-camera-handle uint64)
|
||||
(controller handle 2)
|
||||
(bot-health float 3)
|
||||
(demo-state uint32)
|
||||
(distance float)
|
||||
(kiosk-timeout uint64)
|
||||
(pause-start-time uint64)
|
||||
(game-score (array float))
|
||||
(goal float)
|
||||
(miss float)
|
||||
(miss-max float)
|
||||
(health-bar-vehicle float)
|
||||
(pause-menu uint64)
|
||||
(current-vehicle uint8)
|
||||
(collision-damage-multiplier float)
|
||||
(traction-multiplier float)
|
||||
(turbo-factor float)
|
||||
(turbo-disabled int8)
|
||||
(turbo-last-disabled int32)
|
||||
(fragile-vehicle basic)
|
||||
(music-data uint32 4)
|
||||
(music-info uint32 :overlay-at (-> music-data 0))
|
||||
(playing-grand-prix? symbol :overlay-at (-> music-data 3))
|
||||
(grand-prix-index uint32)
|
||||
(collision-vs-rbody-damage-multiplier float)
|
||||
(global-speed-factor float)
|
||||
(this-race-grand-prix-score uint32 23)
|
||||
(cumulative-grand-prix-score uint32 23)
|
||||
(driver-info uint64)
|
||||
(driver-unlock uint32 :overlay-at driver-info)
|
||||
(driver-award uint32 :offset 1700)
|
||||
)
|
||||
(:methods
|
||||
(game-info-method-9 () none)
|
||||
(game-info-method-10 () none)
|
||||
(game-info-method-11 () none)
|
||||
(game-info-method-12 () none)
|
||||
(game-info-method-13 () none)
|
||||
(game-info-method-14 () none)
|
||||
(game-info-method-15 () none)
|
||||
(game-info-method-16 () none)
|
||||
(debug-inspect (_type_ symbol) _type_)
|
||||
(game-info-method-18 () none)
|
||||
(game-info-method-19 () none)
|
||||
(game-info-method-20 () none)
|
||||
(game-info-method-21 () none)
|
||||
(game-info-method-22 () none)
|
||||
(game-info-method-23 () none)
|
||||
(game-info-method-24 () none)
|
||||
(game-info-method-25 () none)
|
||||
(get-next-attack-id! (_type_) uint)
|
||||
(game-info-method-27 () none)
|
||||
(game-info-method-28 () none)
|
||||
(game-info-method-29 () none)
|
||||
(game-info-method-30 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type game-info
|
||||
(defmethod inspect ((this game-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tmode: ~A~%" (-> this mode))
|
||||
(format #t "~1Tsave-name: ~A~%" (-> this save-name))
|
||||
(format #t "~1Tplayer-info[2] @ #x~X~%" (-> this player-info))
|
||||
(format #t "~1Tcar-info: #<car-info-array @ #x~X>~%" (-> this car-info))
|
||||
(format #t "~1Tfeatures: ~D~%" (-> this features))
|
||||
(format #t "~1Tdebug-features: ~D~%" (-> this debug-features))
|
||||
(format #t "~1Told-features: ~D~%" (-> this old-features))
|
||||
(format #t "~1Titems: ~D~%" (-> this items))
|
||||
(format #t "~1Tdebug-items: ~D~%" (-> this debug-items))
|
||||
(format #t "~1Told-items: ~D~%" (-> this old-items))
|
||||
(format #t "~1Tsecrets: ~D~%" (-> this secrets))
|
||||
(format #t "~1Tpurchase-secrets: ~D~%" (-> this purchase-secrets))
|
||||
(format #t "~1Tvehicles: ~D~%" (-> this vehicles))
|
||||
(format #t "~1Tdebug-vehicles: ~D~%" (-> this debug-vehicles))
|
||||
(format #t "~1Told-vehicles: ~D~%" (-> this old-vehicles))
|
||||
(format #t "~1Thealth-bar: ~f~%" (-> this health-bar))
|
||||
(format #t "~1Thealth-bar-owner: ~D~%" (-> this health-bar-owner))
|
||||
(format #t "~1Tattack-id: ~D~%" (-> this attack-id))
|
||||
(format #t "~1Tperm-list: ~A~%" (-> this perm-list))
|
||||
(format #t "~1Ttask-node-commands: ~A~%" (-> this task-node-commands))
|
||||
(format #t "~1Ttask-counter: ~D~%" (-> this task-counter))
|
||||
(format #t "~1Tlevel-opened[32] @ #x~X~%" (-> this level-opened))
|
||||
(format #t "~1Ttotal-deaths: ~D~%" (-> this total-deaths))
|
||||
(format #t "~1Tcontinue-deaths: ~D~%" (-> this continue-deaths))
|
||||
(format #t "~1Ttask-deaths: ~D~%" (-> this task-deaths))
|
||||
(format #t "~1Ttotal-trys: ~D~%" (-> this total-trys))
|
||||
(format #t "~1Tgame-start-time: ~D~%" (-> this game-start-time))
|
||||
(format #t "~1Tcontinue-time: ~D~%" (-> this continue-time))
|
||||
(format #t "~1Tdeath-time: ~D~%" (-> this death-time))
|
||||
(format #t "~1Thit-time: ~D~%" (-> this hit-time))
|
||||
(format #t "~1Ttask-pickup-time: ~D~%" (-> this task-pickup-time))
|
||||
(format #t "~1Tstop-watch-start: ~D~%" (-> this stop-watch-start))
|
||||
(format #t "~1Tstop-watch-stop: ~D~%" (-> this stop-watch-stop))
|
||||
(format #t "~1Tblackout-time: ~D~%" (-> this blackout-time))
|
||||
(format #t "~1Tletterbox-time: ~D~%" (-> this letterbox-time))
|
||||
(format #t "~1Thint-play-time: ~D~%" (-> this hint-play-time))
|
||||
(format #t "~1Tdisplay-text-time: ~D~%" (-> this display-text-time))
|
||||
(format #t "~1Tdisplay-text-handle: ~D~%" (-> this display-text-handle))
|
||||
(format #t "~1Tdeath-movie-tick: ~D~%" (-> this death-movie-tick))
|
||||
(format #t "~1Twant-auto-save: ~A~%" (-> this want-auto-save))
|
||||
(format #t "~1Tauto-save-proc: ~D~%" (-> this auto-save-proc))
|
||||
(format #t "~1Tauto-save-status: ~D~%" (-> this auto-save-status))
|
||||
(format #t "~1Tauto-save-card: ~D~%" (-> this auto-save-card))
|
||||
(format #t "~1Tauto-save-which: ~D~%" (-> this auto-save-which))
|
||||
(format #t "~1Tauto-save-count: ~D~%" (-> this auto-save-count))
|
||||
(format #t "~1Tpov-camera-handle: ~D~%" (-> this pov-camera-handle))
|
||||
(format #t "~1Tother-camera-handle: ~D~%" (-> this other-camera-handle))
|
||||
(format #t "~1Tcontroller[2] @ #x~X~%" (-> this controller))
|
||||
(format #t "~1Tbot-health[3] @ #x~X~%" (-> this bot-health))
|
||||
(format #t "~1Tdemo-state: ~D~%" (-> this demo-state))
|
||||
(format #t "~1Tdistance: ~f~%" (-> this distance))
|
||||
(format #t "~1Tkiosk-timeout: ~D~%" (-> this kiosk-timeout))
|
||||
(format #t "~1Tpause-start-time: ~D~%" (-> this pause-start-time))
|
||||
(format #t "~1Tgame-score: ~A~%" (-> this game-score))
|
||||
(format #t "~1Tgoal: ~f~%" (-> this goal))
|
||||
(format #t "~1Tmiss: ~f~%" (-> this miss))
|
||||
(format #t "~1Tmiss-max: ~f~%" (-> this miss-max))
|
||||
(format #t "~1Thealth-bar-vehicle: ~f~%" (-> this health-bar-vehicle))
|
||||
(format #t "~1Tpause-menu: ~D~%" (-> this pause-menu))
|
||||
(format #t "~1Tcurrent-vehicle: ~D~%" (-> this current-vehicle))
|
||||
(format #t "~1Tcollision-damage-multiplier: ~f~%" (-> this collision-damage-multiplier))
|
||||
(format #t "~1Ttraction-multiplier: ~f~%" (-> this traction-multiplier))
|
||||
(format #t "~1Tturbo-factor: ~f~%" (-> this turbo-factor))
|
||||
(format #t "~1Tturbo-disabled: ~D~%" (-> this turbo-disabled))
|
||||
(format #t "~1Tturbo-last-disabled: ~D~%" (-> this turbo-last-disabled))
|
||||
(format #t "~1Tfragile-vehicle: ~A~%" (-> this fragile-vehicle))
|
||||
(format #t "~1Tmusic-data[4] @ #x~X~%" (-> this music-data))
|
||||
(format #t "~1Tmusic-info: ~D~%" (-> this music-info))
|
||||
(format #t "~1Tplaying-grand-prix?: #<grand-prix @ #x~X>~%" (-> this playing-grand-prix?))
|
||||
(format #t "~1Tgrand-prix-index: ~D~%" (-> this grand-prix-index))
|
||||
(format #t "~1Tcollision-vs-rbody-damage-multiplier: ~f~%" (-> this collision-vs-rbody-damage-multiplier))
|
||||
(format #t "~1Tglobal-speed-factor: ~f~%" (-> this global-speed-factor))
|
||||
(format #t "~1Tthis-race-grand-prix-score[23] @ #x~X~%" (-> this this-race-grand-prix-score))
|
||||
(format #t "~1Tcumulative-grand-prix-score[23] @ #x~X~%" (-> this cumulative-grand-prix-score))
|
||||
(format #t "~1Tdriver-info: ~D~%" (-> this driver-info))
|
||||
(format #t "~1Tdriver-info2[2] @ #x~X~%" (&-> this driver-info))
|
||||
(format #t "~1Tdriver-unlock: ~D~%" (-> this driver-unlock))
|
||||
(format #t "~1Tdriver-award: ~D~%" (-> this driver-award))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 26 of type game-info
|
||||
(defmethod get-next-attack-id! ((this game-info))
|
||||
(let ((v0-0 (+ (-> this attack-id) 1)))
|
||||
(set! (-> this attack-id) v0-0)
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(when (or (not *game-info*) (zero? *game-info*))
|
||||
(let ((gp-0 (new 'static 'game-info :mode 'debug :turbo-disabled -1)))
|
||||
(set! (-> gp-0 save-name) (new 'global 'string 32 (the-as string #f)))
|
||||
(set! (-> gp-0 driver-unlock) (the-as uint -1))
|
||||
(dotimes (v1-19 2)
|
||||
(set! (-> gp-0 player-info v1-19 current-continue) #f)
|
||||
(set! (-> gp-0 player-info v1-19 last-continue) #f)
|
||||
)
|
||||
(set! (-> gp-0 driver-unlock) (the-as uint -1))
|
||||
(set! *game-info* gp-0)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for symbol *use-menu2*, type symbol
|
||||
(define *use-menu2* #t)
|
||||
|
||||
;; definition for symbol *lobby-adv-selected-cup*, type int
|
||||
(define *lobby-adv-selected-cup* 0)
|
||||
|
||||
;; definition for symbol *lobby-adv-selected-map*, type int
|
||||
(define *lobby-adv-selected-map* 0)
|
||||
|
||||
;; definition for symbol *lobby-adv-selected-venue*, type symbol
|
||||
(define *lobby-adv-selected-venue* #f)
|
||||
|
||||
;; definition for symbol *lobby-adv-selected-level*, type symbol
|
||||
(define *lobby-adv-selected-level* #f)
|
||||
|
||||
;; definition for symbol *lobby-adv-previous-score*, type int
|
||||
(define *lobby-adv-previous-score* 0)
|
||||
|
||||
;; definition for symbol *lobby-adv-cup*, type int
|
||||
(define *lobby-adv-cup* -1)
|
||||
|
||||
;; definition for symbol *lobby-adv-selected-task*, type int
|
||||
(define *lobby-adv-selected-task* 0)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -342,7 +342,7 @@
|
||||
(define *race-record-path* #f)
|
||||
|
||||
;; definition for symbol *select-race*, type race-selection
|
||||
(define *select-race* (race-selection desrally-record))
|
||||
(define *select-race* (race-selection eightb-start))
|
||||
|
||||
;; definition for symbol *select-race-path*, type int
|
||||
(define *select-race-path* 0)
|
||||
|
||||
+13
-7
@@ -116,11 +116,11 @@
|
||||
(death-info resetter-spec)
|
||||
(quit-info resetter-spec)
|
||||
(extra-bank-count uint32)
|
||||
(extra-bank pair 3)
|
||||
(extra-bank pair 3)
|
||||
(borrow-count uint32)
|
||||
(borrow pair 3)
|
||||
(borrow pair 3)
|
||||
(exclusive-task-count uint32)
|
||||
(exclusive-task int32 3)
|
||||
(exclusive-task int32 3)
|
||||
(level-trans-time int32)
|
||||
(unknown-usd-19 int32)
|
||||
(unknown-usd-20 int32)
|
||||
@@ -139,12 +139,14 @@
|
||||
(unknown-usd-31 int32)
|
||||
(unknown-usd-32 int32)
|
||||
(borrow-city-count uint32)
|
||||
(borrow-city pair 3)
|
||||
(unknown-usd-33 int32 28)
|
||||
(borrow-city pair 3)
|
||||
(unknown-usd-33 int32 28)
|
||||
(audio-language uint8)
|
||||
(unknown-usd-34 int32 11)
|
||||
(unknown-usd-34 int32 11)
|
||||
(special-volume float)
|
||||
(unknown-usd-35 int32 17)
|
||||
(unknown-usd-35 int32 17)
|
||||
(unknown-uint32-1 uint32 :overlay-at (-> unknown-usd-35 11))
|
||||
(unknown-float float :overlay-at (-> unknown-usd-35 13))
|
||||
)
|
||||
(:methods
|
||||
(user-setting-data-method-9 () none)
|
||||
@@ -745,3 +747,7 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
@@ -373,3 +373,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
@@ -353,3 +353,7 @@ These path-controls are typically allocated on a process heap."
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+145
@@ -0,0 +1,145 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type plane-volume
|
||||
(deftype plane-volume (structure)
|
||||
((volume-type symbol)
|
||||
(point-count int16)
|
||||
(normal-count int16)
|
||||
(first-point (pointer vector))
|
||||
(first-normal (pointer vector))
|
||||
(num-planes int32)
|
||||
(plane (inline-array plane))
|
||||
)
|
||||
:pack-me
|
||||
(:methods
|
||||
(plane-volume-method-9 (_type_ symbol vector-array vector-array) plane-volume)
|
||||
(debug-draw (_type_) none)
|
||||
(point-in-vol? (_type_ vector float) symbol)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type plane-volume
|
||||
(defmethod inspect ((this plane-volume))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'plane-volume)
|
||||
(format #t "~1Tvolume-type: ~A~%" (-> this volume-type))
|
||||
(format #t "~1Tpoint-count: ~D~%" (-> this point-count))
|
||||
(format #t "~1Tnormal-count: ~D~%" (-> this normal-count))
|
||||
(format #t "~1Tfirst-point: #<vector @ #x~X>~%" (-> this first-point))
|
||||
(format #t "~1Tfirst-normal: #<vector @ #x~X>~%" (-> this first-normal))
|
||||
(format #t "~1Tnum-planes: ~D~%" (-> this num-planes))
|
||||
(format #t "~1Tplane: #x~X~%" (-> this plane))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type vol-control
|
||||
(deftype vol-control (basic)
|
||||
((flags vol-flags)
|
||||
(process process-drawable)
|
||||
(pos-vol-count int32)
|
||||
(pos-vol plane-volume 32 :inline)
|
||||
(neg-vol-count int32)
|
||||
(neg-vol plane-volume 32 :inline)
|
||||
(debug-point vector-array)
|
||||
(debug-normal vector-array)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type process-drawable) _type_)
|
||||
(debug-draw (_type_) none)
|
||||
(vol-control-method-10 (_type_ plane) symbol)
|
||||
(should-display? (_type_) symbol)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type vol-control
|
||||
(defmethod inspect ((this vol-control))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tflags: #x~X~%" (-> this flags))
|
||||
(format #t "~1Tprocess: ~A~%" (-> this process))
|
||||
(format #t "~1Tpos-vol-count: ~D~%" (-> this pos-vol-count))
|
||||
(format #t "~1Tpos-vol[32] @ #x~X~%" (-> this pos-vol))
|
||||
(format #t "~1Tneg-vol-count: ~D~%" (-> this neg-vol-count))
|
||||
(format #t "~1Tneg-vol[32] @ #x~X~%" (-> this neg-vol))
|
||||
(format #t "~1Tdebug-point: ~A~%" (-> this debug-point))
|
||||
(format #t "~1Tdebug-normal: ~A~%" (-> this debug-normal))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 0 of type vol-control
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch object vs vol-control.
|
||||
(defmethod new vol-control ((allocation symbol) (type-to-make type) (arg0 process-drawable))
|
||||
(let ((gp-0 (the-as object (object-new allocation type-to-make (the-as int (-> type-to-make size))))))
|
||||
(when (zero? (the-as vol-control gp-0))
|
||||
(go process-drawable-art-error "memory")
|
||||
(set! gp-0 0)
|
||||
(goto cfg-13)
|
||||
)
|
||||
(set! (-> (the-as vol-control gp-0) process) arg0)
|
||||
(let* ((s5-1 (-> (the-as vol-control gp-0) process entity))
|
||||
(s4-0 (-> ((method-of-type res-lump lookup-tag-idx) s5-1 'vol 'base -1000000000.0) lo))
|
||||
)
|
||||
(when (>= (the-as int s4-0) 0)
|
||||
(let ((s3-0 (the-as int s4-0))
|
||||
(s2-0 (-> s5-1 tag s4-0))
|
||||
)
|
||||
0
|
||||
(while (= (-> s2-0 name) (-> s5-1 tag s4-0 name))
|
||||
(let ((v1-12 (make-property-data s5-1 0.0 (the-as res-tag-pair s3-0) (the-as pointer #f)))
|
||||
(a0-8 (-> (the-as vol-control gp-0) pos-vol (-> (the-as vol-control gp-0) pos-vol-count)))
|
||||
)
|
||||
(set! (-> a0-8 num-planes) (the-as int (-> s2-0 elt-count)))
|
||||
(set! (-> a0-8 plane) (the-as (inline-array plane) v1-12))
|
||||
)
|
||||
(+! (-> (the-as vol-control gp-0) pos-vol-count) 1)
|
||||
(+! s3-0 1)
|
||||
(set! s2-0 (-> s5-1 tag s3-0))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let* ((s5-2 (-> (the-as vol-control gp-0) process entity))
|
||||
(s4-1 (-> ((method-of-type res-lump lookup-tag-idx) s5-2 'cutoutvol 'base -1000000000.0) lo))
|
||||
)
|
||||
(when (>= (the-as int s4-1) 0)
|
||||
(let ((s3-1 (the-as int s4-1))
|
||||
(s2-1 (-> s5-2 tag s4-1))
|
||||
)
|
||||
0
|
||||
(while (= (-> s2-1 name) (-> s5-2 tag s4-1 name))
|
||||
(let ((v1-31 (make-property-data s5-2 0.0 (the-as res-tag-pair s3-1) (the-as pointer #f)))
|
||||
(a0-19 (-> (the-as vol-control gp-0) neg-vol (-> (the-as vol-control gp-0) neg-vol-count)))
|
||||
)
|
||||
(set! (-> a0-19 num-planes) (the-as int (-> s2-1 elt-count)))
|
||||
(set! (-> a0-19 plane) (the-as (inline-array plane) v1-31))
|
||||
)
|
||||
(+! (-> (the-as vol-control gp-0) neg-vol-count) 1)
|
||||
(+! s3-1 1)
|
||||
(set! s2-1 (-> s5-2 tag s3-1))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(label cfg-13)
|
||||
(the-as vol-control gp-0)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type vol-control
|
||||
(defmethod should-display? ((this vol-control))
|
||||
(and *display-vol-marks* (logtest? (-> this flags) (vol-flags display?)))
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+292
@@ -0,0 +1,292 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for function plane-volume-intersect-dist
|
||||
(defun plane-volume-intersect-dist ((arg0 vector) (arg1 vector) (arg2 vector))
|
||||
(let ((f0-1 (vector-dot arg1 arg0))
|
||||
(f1-1 (vector-dot arg2 arg0))
|
||||
)
|
||||
(if (< 0.00001 (fabs f1-1))
|
||||
(/ (- (-> arg0 w) f0-1) f1-1)
|
||||
409600000.0
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type plane-volume
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod plane-volume-method-9 ((this plane-volume) (arg0 symbol) (arg1 vector-array) (arg2 vector-array))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(set! (-> this volume-type) arg0)
|
||||
(set! (-> this point-count) 0)
|
||||
(set! (-> this first-point) (the-as (pointer vector) (-> arg1 data (-> arg1 length))))
|
||||
(set! (-> this normal-count) 0)
|
||||
(set! (-> this first-normal) (the-as (pointer vector) (-> arg2 data (-> arg2 length))))
|
||||
(dotimes (s3-0 (-> this num-planes))
|
||||
(let ((sv-176 (new 'stack-no-clear 'vector)))
|
||||
(set! (-> sv-176 quad) (the-as uint128 0))
|
||||
(let ((sv-192 (new 'stack-no-clear 'vector)))
|
||||
(set! (-> sv-192 quad) (the-as uint128 0))
|
||||
(let ((sv-208 (new 'stack-no-clear 'vector)))
|
||||
(set! (-> sv-208 quad) (the-as uint128 0))
|
||||
(let ((sv-224 (new 'stack-no-clear 'vector)))
|
||||
(set! (-> sv-224 quad) (the-as uint128 0))
|
||||
0.0
|
||||
0.0
|
||||
0.0
|
||||
(set! (-> (new 'stack-no-clear 'vector) quad) (the-as uint128 0))
|
||||
(let ((s1-0 (new-stack-vector0))
|
||||
(s0-0 0)
|
||||
(s2-0 (-> this plane))
|
||||
)
|
||||
(let ((sv-240 0))
|
||||
(while (< sv-240 (-> this num-planes))
|
||||
(when (!= s3-0 sv-240)
|
||||
(vector-float*! sv-176 (the-as vector (-> s2-0 sv-240)) (-> s2-0 sv-240 w))
|
||||
(vector-cross! sv-192 (the-as vector (-> s2-0 sv-240)) (the-as vector (-> s2-0 s3-0)))
|
||||
(vector-normalize! sv-192 1.0)
|
||||
(vector-cross! sv-208 sv-192 (the-as vector (-> s2-0 sv-240)))
|
||||
(vector-normalize! sv-208 1.0)
|
||||
(let ((f0-4 (plane-volume-intersect-dist (-> s2-0 s3-0) sv-176 sv-208)))
|
||||
(when (!= f0-4 409600000.0)
|
||||
(vector+float*! sv-224 sv-176 sv-208 f0-4)
|
||||
(let ((sv-144 (new-stack-vector0))
|
||||
(sv-148 (the-as float 0.0))
|
||||
(sv-152 0)
|
||||
)
|
||||
(let ((sv-160 (new-stack-vector0)))
|
||||
(set! (-> sv-144 quad) (-> sv-224 quad))
|
||||
(let ((sv-256 0))
|
||||
(while (< sv-256 (-> this num-planes))
|
||||
(when (and (!= sv-256 s3-0) (!= sv-256 sv-240))
|
||||
(let ((f0-6 (plane-volume-intersect-dist (-> s2-0 sv-256) sv-144 sv-192)))
|
||||
(cond
|
||||
((= f0-6 409600000.0)
|
||||
)
|
||||
((zero? sv-152)
|
||||
(vector+float*! sv-144 sv-144 sv-192 f0-6)
|
||||
(set! (-> sv-160 quad) (-> s2-0 sv-256 quad))
|
||||
(set! sv-148 (the-as float 8192000.0))
|
||||
(set! sv-152 1)
|
||||
)
|
||||
((begin (vector-float*! sv-224 sv-192 f0-6) (>= (vector-dot sv-224 sv-160) 0.0))
|
||||
)
|
||||
((>= (vector-dot sv-224 (the-as vector (-> s2-0 sv-256))) 0.0)
|
||||
(when (< (fabs f0-6) (fabs sv-148))
|
||||
(set! sv-148 f0-6)
|
||||
(+! sv-152 1)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(vector+float*! sv-144 sv-144 sv-192 f0-6)
|
||||
(set! (-> sv-160 quad) (-> s2-0 sv-256 quad))
|
||||
(+! sv-152 1)
|
||||
(set! sv-148 (cond
|
||||
((< (fabs f0-6) (fabs sv-148))
|
||||
(set! sv-148 (- sv-148 f0-6))
|
||||
sv-148
|
||||
)
|
||||
(else
|
||||
(the-as float 0.0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(+! sv-256 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((zero? sv-152)
|
||||
)
|
||||
((= sv-148 0.0)
|
||||
)
|
||||
(else
|
||||
(dotimes (v1-75 (-> this num-planes))
|
||||
(when (and (!= v1-75 s3-0) (!= v1-75 sv-240))
|
||||
(if (< 4096.0 (- (vector-dot sv-144 (the-as vector (-> s2-0 v1-75))) (-> s2-0 v1-75 w)))
|
||||
(goto cfg-42)
|
||||
)
|
||||
)
|
||||
)
|
||||
(vector+float*! sv-224 sv-144 sv-192 sv-148)
|
||||
(cond
|
||||
((< (-> arg1 allocated-length) (+ (-> arg1 length) 2))
|
||||
(format 0 "ERROR <AG>: vol-control #x~X out of volume points~%" this)
|
||||
)
|
||||
(else
|
||||
(set! (-> arg1 data (-> arg1 length) quad) (-> sv-144 quad))
|
||||
(set! (-> arg1 data (+ (-> arg1 length) 1) quad) (-> sv-224 quad))
|
||||
(+! (-> arg1 length) 2)
|
||||
(+! (-> this point-count) 2)
|
||||
)
|
||||
)
|
||||
(let ((a1-20 s1-0))
|
||||
(let ((a0-51 sv-144))
|
||||
(.lvf vf4 (&-> s1-0 quad))
|
||||
(.lvf vf5 (&-> a0-51 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a1-20 quad) vf6)
|
||||
)
|
||||
(let ((a1-21 s1-0))
|
||||
(let ((a0-52 sv-224))
|
||||
(.lvf vf4 (&-> s1-0 quad))
|
||||
(.lvf vf5 (&-> a0-52 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a1-21 quad) vf6)
|
||||
)
|
||||
(+! s0-0 2)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(label cfg-42)
|
||||
(+! sv-240 1)
|
||||
)
|
||||
)
|
||||
(when (nonzero? s0-0)
|
||||
(vector-float*! s1-0 s1-0 (/ 1.0 (the float s0-0)))
|
||||
(cond
|
||||
((< (-> arg2 allocated-length) (+ (-> arg2 length) 2))
|
||||
(format 0 "ERROR <AG>: vol-control #x~X out of volume normals~%" this)
|
||||
)
|
||||
(else
|
||||
(set! (-> arg2 data (-> arg2 length) quad) (-> s1-0 quad))
|
||||
(set! (-> arg2 data (+ (-> arg2 length) 1) quad) (-> s2-0 s3-0 quad))
|
||||
(+! (-> arg2 length) 2)
|
||||
(set! (-> this normal-count) (+ (-> this normal-count) 2))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
this
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type plane-volume
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod debug-draw ((this plane-volume))
|
||||
(let* ((v1-0 (-> this volume-type))
|
||||
(s5-0 (cond
|
||||
((= v1-0 'vol)
|
||||
(the-as uint #x8000c000)
|
||||
)
|
||||
((= v1-0 'pvol)
|
||||
(the-as uint #x80808080)
|
||||
)
|
||||
(else
|
||||
(the-as uint #x800000c0)
|
||||
)
|
||||
)
|
||||
)
|
||||
(s4-0 (-> this first-point))
|
||||
)
|
||||
(dotimes (s3-0 (/ (-> this point-count) 2))
|
||||
(add-debug-line
|
||||
#t
|
||||
(bucket-id bucket785)
|
||||
(the-as vector s4-0)
|
||||
(the-as vector (&-> s4-0 4))
|
||||
(the-as rgba s5-0)
|
||||
#f
|
||||
(the-as rgba -1)
|
||||
)
|
||||
(set! s4-0 (&-> s4-0 8))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type plane-volume
|
||||
(defmethod point-in-vol? ((this plane-volume) (arg0 vector) (arg1 float))
|
||||
(dotimes (v1-0 (-> this num-planes))
|
||||
(if (< arg1 (- (vector-dot arg0 (the-as vector (-> this plane v1-0))) (-> this plane v1-0 w)))
|
||||
(return #f)
|
||||
)
|
||||
)
|
||||
#t
|
||||
)
|
||||
|
||||
;; definition for method 9 of type vol-control
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod debug-draw ((this vol-control))
|
||||
(with-pp
|
||||
(let ((a0-1 this))
|
||||
(when (and (and *display-vol-marks* (logtest? (-> a0-1 flags) (vol-flags display?)))
|
||||
(logtest? (-> this flags) (vol-flags vol-flags-1))
|
||||
)
|
||||
(when (zero? (-> this debug-point))
|
||||
(let ((s5-0 pp))
|
||||
(set! pp (-> this process))
|
||||
(let ((s4-0 0))
|
||||
(dotimes (v1-8 (-> this pos-vol-count))
|
||||
(+! s4-0 (-> this pos-vol v1-8 num-planes))
|
||||
)
|
||||
(dotimes (v1-11 (-> this neg-vol-count))
|
||||
(+! s4-0 (-> this neg-vol v1-11 num-planes))
|
||||
)
|
||||
(set! (-> this debug-point) (new 'debug 'vector-array (* 10 s4-0)))
|
||||
(set! (-> this debug-normal) (new 'debug 'vector-array (* 10 s4-0)))
|
||||
)
|
||||
(set! pp s5-0)
|
||||
)
|
||||
(set! (-> this debug-point length) 0)
|
||||
(set! (-> this debug-normal length) 0)
|
||||
(dotimes (s5-1 (-> this pos-vol-count))
|
||||
(plane-volume-method-9 (-> this pos-vol s5-1) 'vol (-> this debug-point) (-> this debug-normal))
|
||||
)
|
||||
(dotimes (s5-2 (-> this neg-vol-count))
|
||||
(plane-volume-method-9 (-> this neg-vol s5-2) 'vol (-> this debug-point) (-> this debug-normal))
|
||||
)
|
||||
)
|
||||
(dotimes (s5-3 (-> this pos-vol-count))
|
||||
(debug-draw (-> this pos-vol s5-3))
|
||||
)
|
||||
(dotimes (s5-4 (-> this neg-vol-count))
|
||||
(debug-draw (-> this neg-vol s5-4))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type vol-control
|
||||
(defmethod vol-control-method-10 ((this vol-control) (arg0 plane))
|
||||
(dotimes (s4-0 (-> this neg-vol-count))
|
||||
(if (point-in-vol? (-> this neg-vol s4-0) arg0 0.0)
|
||||
(return #f)
|
||||
)
|
||||
)
|
||||
(dotimes (s4-1 (-> this pos-vol-count))
|
||||
(if (point-in-vol? (-> this pos-vol s4-1) arg0 0.0)
|
||||
(return #t)
|
||||
)
|
||||
)
|
||||
#f
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+380
@@ -0,0 +1,380 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *merc-global-stats*, type merc-global-stats
|
||||
(define *merc-global-stats* (new 'global 'merc-global-stats))
|
||||
|
||||
;; definition for function clear-tr-stat
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun clear-tr-stat ((arg0 tr-stat))
|
||||
"Reset all statistics to 0."
|
||||
(set! (-> arg0 groups) (the-as uint 0))
|
||||
(set! (-> arg0 fragments) (the-as uint 0))
|
||||
(set! (-> arg0 tris) (the-as uint 0))
|
||||
(set! (-> arg0 dverts) (the-as uint 0))
|
||||
(set! (-> arg0 instances) (the-as uint 0))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol *stat-string-tfrag*, type string
|
||||
(define *stat-string-tfrag* (new 'global 'string 128 (the-as string #f)))
|
||||
|
||||
;; definition for symbol *stat-string-tfrag-scissor*, type string
|
||||
(define *stat-string-tfrag-scissor* (new 'global 'string 128 (the-as string #f)))
|
||||
|
||||
;; definition for symbol *stat-string-total*, type string
|
||||
(define *stat-string-total* (new 'global 'string 128 (the-as string #f)))
|
||||
|
||||
;; definition (debug) for function print-tr-stat
|
||||
;; WARN: Return type mismatch uint vs none.
|
||||
(defun-debug print-tr-stat ((arg0 tr-stat) (arg1 string) (arg2 string))
|
||||
"Print a single tr-stat to the screen."
|
||||
(clear arg2)
|
||||
(when (nonzero? (+ (-> arg0 groups) (-> arg0 fragments) (-> arg0 tris) (-> arg0 dverts) (-> arg0 instances)))
|
||||
(format arg2 "~0k~4d ~5d ~6d ~6d" (-> arg0 groups) (-> arg0 fragments) (-> arg0 tris) (-> arg0 dverts))
|
||||
(format
|
||||
arg2
|
||||
"~0k ~7f ~5d ~s"
|
||||
(/ (* 2.0 (the float (-> arg0 tris))) (the float (- (-> arg0 dverts) (-> arg0 tris))))
|
||||
(-> arg0 instances)
|
||||
arg1
|
||||
)
|
||||
(format *stdcon* "~S~%" arg2)
|
||||
(+! (-> *terrain-stats* total groups) (-> arg0 groups))
|
||||
(+! (-> *terrain-stats* total fragments) (-> arg0 fragments))
|
||||
(+! (-> *terrain-stats* total tris) (-> arg0 tris))
|
||||
(+! (-> *terrain-stats* total dverts) (-> arg0 dverts))
|
||||
(+! (-> *terrain-stats* total instances) (-> arg0 instances))
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition (debug) for function print-terrain-stats
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun-debug print-terrain-stats ()
|
||||
"Print all tr-stats for renderers to the screen."
|
||||
(format *stdcon* "~0k~%grps frags tris dverts strip insts~%")
|
||||
(print-tr-stat (-> *terrain-stats* pris) "pris" *temp-string*)
|
||||
(print-tr-stat (-> *merc-global-stats* merc) "merc" *temp-string*)
|
||||
(print-tr-stat (-> *merc-global-stats* emerc) "emerc" *temp-string*)
|
||||
(print-tr-stat (-> *merc-global-stats* mercneric) "mercneric" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-generic) "tie-generic" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-vanish) "tie-vanish" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie) "tie" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-scissor) "tie-scissor" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-envmap) "tie-envmap" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-envmap-scissor) "tie-envmap-scissor" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-trans) "tie-trans" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-scissor-trans) "tie-scissor-trans" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-envmap-trans) "tie-envmap-trans" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-envmap-scissor-trans) "tie-envmap-scissor-trans" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-water) "tie-water" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-scissor-water) "tie-scissor-water" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-envmap-water) "tie-envmap-water" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tie-envmap-scissor-water) "tie-envmap-scissor-water" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* shrub-near) "shrub-near" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* shrub) "shrub" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tfrag-scissor) "tfrag-scissor" *stat-string-tfrag-scissor*)
|
||||
(print-tr-stat (-> *terrain-stats* tfrag) "tfrag" *stat-string-tfrag*)
|
||||
(print-tr-stat (-> *terrain-stats* tfrag-trans) "tfrag-trans" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tfrag-scissor-trans) "tfrag-scissor-trans" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tfrag-water) "tfrag-water" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* tfrag-scissor-water) "tfrag-scissor-water" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* trans-pris) "trans-pris" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* billboard) "billboard" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* trans-shrub) "trans-shrub" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* ocean-mid) "ocean-mid" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* ocean-near) "ocean-near" *temp-string*)
|
||||
(print-tr-stat (-> *terrain-stats* shadow) "shadow" *temp-string*)
|
||||
(format *stdcon* "~0k---------------------------------------------------------------~%")
|
||||
(print-tr-stat (-> *terrain-stats* total) "total" *stat-string-total*)
|
||||
(clear-tr-stat (-> *terrain-stats* pris))
|
||||
(clear-tr-stat (-> *merc-global-stats* merc))
|
||||
(clear-tr-stat (-> *merc-global-stats* emerc))
|
||||
(clear-tr-stat (-> *merc-global-stats* mercneric))
|
||||
(clear-tr-stat (-> *terrain-stats* shrub-near))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-generic))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-vanish))
|
||||
(clear-tr-stat (-> *terrain-stats* tie))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-scissor))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-envmap))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-envmap-scissor))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-trans))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-scissor-trans))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-envmap-trans))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-envmap-scissor-trans))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-water))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-scissor-water))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-envmap-water))
|
||||
(clear-tr-stat (-> *terrain-stats* tie-envmap-scissor-water))
|
||||
(clear-tr-stat (-> *terrain-stats* shrub))
|
||||
(clear-tr-stat (-> *terrain-stats* tfrag-scissor))
|
||||
(clear-tr-stat (-> *terrain-stats* tfrag))
|
||||
(clear-tr-stat (-> *terrain-stats* tfrag-trans))
|
||||
(clear-tr-stat (-> *terrain-stats* tfrag-scissor-trans))
|
||||
(clear-tr-stat (-> *terrain-stats* tfrag-water))
|
||||
(clear-tr-stat (-> *terrain-stats* tfrag-scissor-water))
|
||||
(clear-tr-stat (-> *terrain-stats* trans-pris))
|
||||
(clear-tr-stat (-> *terrain-stats* billboard))
|
||||
(clear-tr-stat (-> *terrain-stats* trans-shrub))
|
||||
(clear-tr-stat (-> *terrain-stats* ocean-mid))
|
||||
(clear-tr-stat (-> *terrain-stats* ocean-near))
|
||||
(clear-tr-stat (-> *terrain-stats* shadow))
|
||||
(clear-tr-stat (-> *terrain-stats* total))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function update-subdivide-settings!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun update-subdivide-settings! ((arg0 subdivide-settings) (arg1 math-camera) (arg2 int))
|
||||
"Update the subdivide settings from the far/close settings
|
||||
This caches the settings in subdivide-settings itself,
|
||||
as well as in tfrag-work, used by EE tfrag code."
|
||||
(set! (-> arg0 meters 0) (-> arg0 far arg2))
|
||||
(set! (-> arg0 meters 4) (-> arg0 close arg2))
|
||||
(let ((f0-3 (* 0.14285715 (- (-> arg0 meters 0) (-> arg0 meters 4)))))
|
||||
(set! (-> arg0 meters 3) (+ (-> arg0 meters 4) (/ f0-3 2)))
|
||||
(set! (-> arg0 meters 2) (+ (-> arg0 meters 3) f0-3))
|
||||
(set! (-> arg0 meters 1) (+ (-> arg0 meters 2) (* 2.0 f0-3)))
|
||||
)
|
||||
(let ((f0-7 (* (-> arg1 fov-correction-factor) (/ (-> arg1 inv-hmge-scale w) (-> arg1 d)))))
|
||||
(dotimes (v1-8 5)
|
||||
(set! (-> arg0 dist v1-8) (* f0-7 (-> arg0 meters v1-8)))
|
||||
)
|
||||
)
|
||||
(set! (-> *tfrag-work* frag-dists x) (- (-> arg0 meters 0)))
|
||||
(set! (-> *tfrag-work* frag-dists y) (- (-> arg0 meters 1)))
|
||||
(set! (-> *tfrag-work* frag-dists z) (- (-> arg0 meters 2)))
|
||||
(set! (-> *tfrag-work* frag-dists w) (- (-> arg0 meters 4)))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol *subdivide-settings*, type subdivide-settings
|
||||
(define *subdivide-settings* (new 'global 'subdivide-settings 122880.0 286720.0))
|
||||
|
||||
;; definition for function set-tfrag-dists!
|
||||
;; WARN: Return type mismatch tfrag-dists vs none.
|
||||
(defun set-tfrag-dists! ((arg0 tfrag-dists))
|
||||
"Update the subdivide settings used in tfrag VU1 code.
|
||||
This must be called after update-subdivide-settings!"
|
||||
(let ((f2-0 (-> *subdivide-settings* dist 0))
|
||||
(f1-0 (-> *subdivide-settings* dist 1))
|
||||
(f0-0 (-> *subdivide-settings* dist 2))
|
||||
)
|
||||
(set! (-> arg0 data 3) (the-as uint f2-0))
|
||||
(set! (-> arg0 data 7) (the-as uint f1-0))
|
||||
(let ((f4-1 (/ 1.0 (- f2-0 f1-0)))
|
||||
(f3-2 (/ 1.0 (- f1-0 f0-0)))
|
||||
)
|
||||
(set! (-> arg0 data 1) (the-as uint (- f4-1)))
|
||||
(set! (-> arg0 data 5) (the-as uint (- f3-2)))
|
||||
(set! (-> arg0 data 0) (the-as uint (/ f4-1 2)))
|
||||
(set! (-> arg0 data 4) (the-as uint (/ f3-2 2)))
|
||||
(let ((f2-1 (* f2-0 f4-1))
|
||||
(f5-7 (* f1-0 f3-2))
|
||||
)
|
||||
(set! (-> arg0 data 9) (the-as uint f2-1))
|
||||
(set! (-> arg0 data 13) (the-as uint f5-7))
|
||||
)
|
||||
(set! (-> arg0 data 8) (the-as uint (* (/ f4-1 -2) f1-0)))
|
||||
(set! (-> arg0 data 12) (the-as uint (* (/ f3-2 -2) f0-0)))
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(kmemopen global "terrain-context")
|
||||
|
||||
;; definition for symbol *terrain-context*, type terrain-context
|
||||
(define *terrain-context* (new 'global 'terrain-context))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(kmemclose)
|
||||
|
||||
;; definition for method 10 of type perf-stat
|
||||
;; WARN: Return type mismatch perf-stat vs none.
|
||||
(defmethod print-to-stream ((this perf-stat) (arg0 string) (arg1 basic))
|
||||
(format
|
||||
*stdcon*
|
||||
"~3d ~8d ~8d ~6d ~6d"
|
||||
(-> this count)
|
||||
(-> this cycles)
|
||||
(-> this instructions)
|
||||
(-> this icache)
|
||||
(-> this dcache)
|
||||
)
|
||||
(format *stdcon* " ~2d ~2d ~2d" (-> this to-vu0-waits) (-> this to-spr-waits) (-> this from-spr-waits))
|
||||
(format *stdcon* " ~s~%" arg0)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol GSH_ENABLE, type symbol
|
||||
(define GSH_ENABLE #f)
|
||||
|
||||
;; definition for symbol GSH_BUCKET, type bucket-id
|
||||
(define GSH_BUCKET (bucket-id blit))
|
||||
|
||||
;; definition for symbol GSH_WHICH_STAT, type int
|
||||
(define GSH_WHICH_STAT 1)
|
||||
|
||||
;; definition for symbol GSH_MAX_DISPLAY, type basic
|
||||
(define GSH_MAX_DISPLAY (the-as basic #f))
|
||||
|
||||
;; definition for symbol GSH_TIME, type int
|
||||
(define GSH_TIME 64)
|
||||
|
||||
;; definition for symbol *perf-stats*, type perf-stat-array
|
||||
(define *perf-stats* (new 'debug 'perf-stat-array 59))
|
||||
|
||||
;; this part is debug only
|
||||
(when *debug-segment*
|
||||
;; definition for symbol *gomi-stats-hack*, type (inline-array perf-stat)
|
||||
(define *gomi-stats-hack* (the-as (inline-array perf-stat) (malloc 'debug (* 52 (+ GSH_TIME 1)))))
|
||||
|
||||
)
|
||||
;; definition (debug) for function start-perf-stat-collection
|
||||
;; INFO: this function exists in multiple non-identical object files
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun-debug start-perf-stat-collection ()
|
||||
"Start the per-frame performance stats.
|
||||
This automatically cycles through various stats/categories,
|
||||
collecting and aggregating the latest data.
|
||||
The `gomi-stats-hack` likely refers to how the stat being
|
||||
collected"
|
||||
(let ((v1-2 (+ (-> *perf-stats* data 0 frame-number) 1)))
|
||||
(set! (-> *perf-stats* data 0 frame-number) v1-2)
|
||||
(let ((gp-0 (mod v1-2 (the-as uint 118))))
|
||||
(when GSH_ENABLE
|
||||
(let ((v1-5 GSH_BUCKET))
|
||||
(let ((a0-2 GSH_WHICH_STAT))
|
||||
(set! gp-0 (+ (* v1-5 2) a0-2))
|
||||
)
|
||||
(when GSH_MAX_DISPLAY
|
||||
(let ((a0-7 (logand (-> *perf-stats* data 0 frame-number) (+ GSH_TIME -1))))
|
||||
(set! (-> *gomi-stats-hack* a0-7 cycles) (-> *perf-stats* data (the-as int v1-5) cycles))
|
||||
(set! (-> *gomi-stats-hack* a0-7 instructions) (-> *perf-stats* data (the-as int v1-5) instructions))
|
||||
(set! (-> *gomi-stats-hack* a0-7 icache) (-> *perf-stats* data (the-as int v1-5) icache))
|
||||
(set! (-> *gomi-stats-hack* a0-7 dcache) (-> *perf-stats* data (the-as int v1-5) dcache))
|
||||
(when (zero? a0-7)
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME cycles) (the-as uint 0))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME instructions) (the-as uint 0))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME icache) (the-as uint 0))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME dcache) (the-as uint 0))
|
||||
(dotimes (v1-22 GSH_TIME)
|
||||
(if (< (-> *gomi-stats-hack* GSH_TIME cycles) (-> *gomi-stats-hack* v1-22 cycles))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME cycles) (-> *gomi-stats-hack* v1-22 cycles))
|
||||
)
|
||||
(if (< (-> *gomi-stats-hack* GSH_TIME instructions) (-> *gomi-stats-hack* v1-22 instructions))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME instructions) (-> *gomi-stats-hack* v1-22 instructions))
|
||||
)
|
||||
(if (< (-> *gomi-stats-hack* GSH_TIME icache) (-> *gomi-stats-hack* v1-22 icache))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME icache) (-> *gomi-stats-hack* v1-22 icache))
|
||||
)
|
||||
(if (< (-> *gomi-stats-hack* GSH_TIME dcache) (-> *gomi-stats-hack* v1-22 dcache))
|
||||
(set! (-> *gomi-stats-hack* GSH_TIME dcache) (-> *gomi-stats-hack* v1-22 dcache))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format *stdcon* "~%")
|
||||
(print-to-stream (-> *gomi-stats-hack* GSH_TIME) "max-value" *stdcon*)
|
||||
)
|
||||
)
|
||||
)
|
||||
(dotimes (v1-27 59)
|
||||
(cond
|
||||
((!= v1-27 (shr gp-0 1))
|
||||
(set! (-> *perf-stats* data v1-27 ctrl) (the-as uint 0))
|
||||
0
|
||||
)
|
||||
(else
|
||||
(let ((a1-61 (logand gp-0 1))
|
||||
(a0-62 (the-as uint #x80004010))
|
||||
)
|
||||
(cond
|
||||
((zero? a1-61)
|
||||
(set! a0-62 (+ #x60020 a0-62))
|
||||
)
|
||||
((= a1-61 1)
|
||||
(set! a0-62 (+ #x300c0 a0-62))
|
||||
)
|
||||
)
|
||||
(set! (-> *perf-stats* data v1-27 count) (the-as uint 0))
|
||||
(set! (-> *perf-stats* data v1-27 select) a1-61)
|
||||
(set! (-> *perf-stats* data v1-27 ctrl) a0-62)
|
||||
)
|
||||
(set! (-> *perf-stats* data v1-27 accum0) (the-as uint 0))
|
||||
(set! (-> *perf-stats* data v1-27 accum1) (the-as uint 0))
|
||||
(set! (-> *perf-stats* data v1-27 to-vu0-waits) (the-as uint 0))
|
||||
(set! (-> *perf-stats* data v1-27 to-spr-waits) (the-as uint 0))
|
||||
(set! (-> *perf-stats* data v1-27 from-spr-waits) (the-as uint 0))
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(-> *perf-stats* data)
|
||||
0
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(if (not *debug-segment*)
|
||||
(set! start-perf-stat-collection L1)
|
||||
)
|
||||
|
||||
;; definition (debug) for function end-perf-stat-collection
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun-debug end-perf-stat-collection ()
|
||||
"End the per-frame performance stats"
|
||||
(-> *perf-stats* data)
|
||||
0
|
||||
(dotimes (v1-3 59)
|
||||
(when (nonzero? (-> *perf-stats* data v1-3 ctrl))
|
||||
(let ((a2-0 (-> *perf-stats* data v1-3 select))
|
||||
(a1-6 (-> *perf-stats* data v1-3 accum0))
|
||||
(a0-10 (-> *perf-stats* data v1-3 accum1))
|
||||
)
|
||||
(cond
|
||||
((zero? a2-0)
|
||||
(set! (-> *perf-stats* data v1-3 cycles) a1-6)
|
||||
(set! (-> *perf-stats* data v1-3 instructions) a0-10)
|
||||
)
|
||||
((= a2-0 1)
|
||||
(set! (-> *perf-stats* data v1-3 icache) a1-6)
|
||||
(set! (-> *perf-stats* data v1-3 dcache) a0-10)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition (debug) for function print-perf-stats
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun-debug print-perf-stats ()
|
||||
(format *stdcon* "~0k~%count cycles instr icache dcache vu0/to/from~%")
|
||||
(dotimes (gp-0 59)
|
||||
(if (and (nonzero? (-> *perf-stats* data gp-0 count)) (< (the-as uint 500) (-> *perf-stats* data gp-0 cycles)))
|
||||
(print-to-stream
|
||||
(-> *perf-stats* data gp-0)
|
||||
(perf-stat-bucket->string (the-as perf-stat-bucket gp-0))
|
||||
*stdcon*
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+76
@@ -0,0 +1,76 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol tnear-vu1-block, type vu-function
|
||||
(define tnear-vu1-block (new 'static 'vu-function :length #x398 :qlength #x1cc))
|
||||
|
||||
;; definition (debug) for function tfrag-details
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun-debug tfrag-details ((arg0 tfragment))
|
||||
(format 0 "id = ~d~%" (-> arg0 id))
|
||||
(format 0 "common:~%")
|
||||
(let ((s5-0 (-> arg0 dma-qwc 0))
|
||||
(s4-0 (-> arg0 dma-common))
|
||||
)
|
||||
(format 0 "qwc = ~d, ref = ~x~%" s5-0 s4-0)
|
||||
(disasm-vif-tag (the-as (pointer vif-tag) s4-0) (the-as int (* s5-0 4)) (the-as symbol 0) #t)
|
||||
)
|
||||
(format 0 "base:~%")
|
||||
(let ((s5-1 (-> arg0 dma-qwc 1))
|
||||
(s4-1 (-> arg0 dma-base))
|
||||
)
|
||||
(format 0 "qwc = ~d, ref = ~x~%" s5-1 s4-1)
|
||||
(disasm-vif-tag (the-as (pointer vif-tag) s4-1) (the-as int (* s5-1 4)) (the-as symbol 0) #t)
|
||||
)
|
||||
(format 0 "level-0:~%")
|
||||
(let ((s5-2 (-> arg0 dma-qwc 3))
|
||||
(s4-2 (-> arg0 dma-qwc-word))
|
||||
)
|
||||
(format 0 "qwc = ~d, ref = ~x~%" s5-2 s4-2)
|
||||
(disasm-vif-tag (the-as (pointer vif-tag) s4-2) (the-as int (* s5-2 4)) (the-as symbol 0) #t)
|
||||
)
|
||||
(format 0 "level-1:~%")
|
||||
(let ((s5-3 (-> arg0 dma-qwc 2))
|
||||
(gp-1 (-> arg0 dma-level-1))
|
||||
)
|
||||
(format 0 "qwc = ~d, ref = ~x~%" s5-3 gp-1)
|
||||
(disasm-vif-tag (the-as (pointer vif-tag) gp-1) (the-as int (* s5-3 4)) (the-as symbol 0) #t)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition (debug) for function clip-restore
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch vector vs none.
|
||||
(defun-debug clip-restore ()
|
||||
(let ((a0-0 (new-stack-vector0))
|
||||
(a1-0 (new-stack-matrix0))
|
||||
)
|
||||
(set! (-> a0-0 x) 92648.22)
|
||||
(set! (-> a0-0 y) 238025.03)
|
||||
(set! (-> a0-0 z) 199836.31)
|
||||
(set! (-> a0-0 w) 1.0)
|
||||
(set! (-> a1-0 rvec x) -0.9283)
|
||||
(set! (-> a1-0 rvec y) 0.0)
|
||||
(set! (-> a1-0 rvec z) 0.3716)
|
||||
(set! (-> a1-0 rvec w) 0.0)
|
||||
(set! (-> a1-0 uvec x) -0.2257)
|
||||
(set! (-> a1-0 uvec y) 0.7945)
|
||||
(set! (-> a1-0 uvec z) -0.5637)
|
||||
(set! (-> a1-0 uvec w) 0.0)
|
||||
(set! (-> a1-0 fvec x) -0.2952)
|
||||
(set! (-> a1-0 fvec y) -0.6072)
|
||||
(set! (-> a1-0 fvec z) -0.7375)
|
||||
(set! (-> a1-0 fvec w) 0.0)
|
||||
(set! (-> a1-0 trans x) 0.0)
|
||||
(set! (-> a1-0 trans y) 0.0)
|
||||
(set! (-> a1-0 trans z) 0.0)
|
||||
(set! (-> a1-0 trans w) 1.0)
|
||||
(debug-set-camera-pos-rot! a0-0 a1-0)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+45
@@ -0,0 +1,45 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *tfrag-work*, type tfrag-work
|
||||
(define *tfrag-work* (new 'static 'tfrag-work
|
||||
:base-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
)
|
||||
:level-0-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
)
|
||||
:common-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
)
|
||||
:level-1-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x102 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xc000 :cmd (vif-cmd unpack-v4-8))
|
||||
)
|
||||
:max-fragment #xffff
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *tfrag-work* color-ptr x) (+ 6144 #x70000000))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *tfrag-work* color-ptr y) (+ 6144 #x70000000))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *tfrag-work* color-ptr z) (+ 6144 #x70000000))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *tfrag-work* color-ptr w) (+ 6144 #x70000000))
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -74,7 +74,7 @@
|
||||
(:methods
|
||||
(new (symbol type matrix int int float font-color font-flags) _type_)
|
||||
(font-context-method-9 () none)
|
||||
(font-context-method-10 () none)
|
||||
(set-origin! (font-context int int) font-context)
|
||||
(font-context-method-11 () none)
|
||||
(font-context-method-12 () none)
|
||||
(set-mat! (_type_ matrix) none)
|
||||
|
||||
+497
@@ -0,0 +1,497 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; this file is debug only
|
||||
(declare-file (debug))
|
||||
|
||||
;; definition for function diag-frag-print
|
||||
;; INFO: Used lq/sq
|
||||
;; ERROR: failed type prop at 26: Could not figure out load: (set! a2 (l.bu s0))
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun diag-frag-print ((a0-0 merc-effect) (a1-0 int))
|
||||
(local-vars
|
||||
(v0-0 int)
|
||||
(v0-1 int)
|
||||
(v0-2 object)
|
||||
(v0-3 none)
|
||||
(v0-4 none)
|
||||
(v0-5 none)
|
||||
(v0-6 none)
|
||||
(v0-7 none)
|
||||
(v0-8 none)
|
||||
(v0-9 none)
|
||||
(v0-10 none)
|
||||
(v0-11 none)
|
||||
(v0-12 none)
|
||||
(v0-13 none)
|
||||
(v0-14 none)
|
||||
(v0-15 none)
|
||||
(v0-16 none)
|
||||
(v0-17 none)
|
||||
(v0-18 none)
|
||||
(v0-19 none)
|
||||
(v0-20 none)
|
||||
(v0-21 none)
|
||||
(v0-22 none)
|
||||
(v1-0 int)
|
||||
(v1-1 int)
|
||||
(v1-2 type)
|
||||
(v1-3 type)
|
||||
(v1-4 none)
|
||||
(v1-6 none)
|
||||
(v1-7 none)
|
||||
(v1-8 none)
|
||||
(v1-9 none)
|
||||
(v1-10 none)
|
||||
(v1-11 none)
|
||||
(v1-12 none)
|
||||
(v1-13 none)
|
||||
(v1-15 none)
|
||||
(v1-16 none)
|
||||
(v1-17 none)
|
||||
(v1-18 none)
|
||||
(v1-19 none)
|
||||
(v1-20 none)
|
||||
(v1-21 none)
|
||||
(v1-24 none)
|
||||
(v1-25 none)
|
||||
(v1-27 none)
|
||||
(v1-28 none)
|
||||
(v1-29 none)
|
||||
(v1-30 none)
|
||||
(v1-31 none)
|
||||
(v1-33 none)
|
||||
(v1-34 none)
|
||||
(v1-35 none)
|
||||
(v1-36 none)
|
||||
(v1-37 none)
|
||||
(v1-38 none)
|
||||
(v1-39 none)
|
||||
(v1-40 none)
|
||||
(v1-41 none)
|
||||
(v1-42 none)
|
||||
(v1-43 none)
|
||||
(v1-44 none)
|
||||
(v1-45 none)
|
||||
(v1-48 none)
|
||||
(v1-49 none)
|
||||
(v1-50 none)
|
||||
(v1-51 none)
|
||||
(v1-52 none)
|
||||
(v1-55 none)
|
||||
(v1-56 none)
|
||||
(v1-57 none)
|
||||
(v1-58 none)
|
||||
(v1-61 none)
|
||||
(v1-62 none)
|
||||
(v1-65 uint)
|
||||
(a0-1 uint)
|
||||
(a0-2 uint)
|
||||
(a0-3 symbol)
|
||||
(a0-4 symbol)
|
||||
(a0-5 none)
|
||||
(a0-6 none)
|
||||
(a0-7 none)
|
||||
(a0-8 none)
|
||||
(a0-9 none)
|
||||
(a0-10 none)
|
||||
(a0-11 none)
|
||||
(a0-12 none)
|
||||
(a0-13 none)
|
||||
(a0-14 none)
|
||||
(a0-15 none)
|
||||
(a0-16 none)
|
||||
(a0-17 none)
|
||||
(a0-18 none)
|
||||
(a0-19 none)
|
||||
(a0-20 none)
|
||||
(a0-21 none)
|
||||
(a0-22 none)
|
||||
(a0-23 none)
|
||||
(a0-24 none)
|
||||
(a0-25 none)
|
||||
(a0-26 none)
|
||||
(a0-27 none)
|
||||
(a0-28 none)
|
||||
(a0-29 none)
|
||||
(a0-30 none)
|
||||
(a0-31 none)
|
||||
(a0-32 none)
|
||||
(a0-33 none)
|
||||
(a0-34 none)
|
||||
(a0-35 none)
|
||||
(a0-37 none)
|
||||
(a0-38 none)
|
||||
(a0-40 none)
|
||||
(a1-1 string)
|
||||
(a1-2 string)
|
||||
(a1-3 none)
|
||||
(a1-4 none)
|
||||
(a1-5 none)
|
||||
(a1-6 none)
|
||||
(a1-7 none)
|
||||
(a1-8 none)
|
||||
(a1-9 none)
|
||||
(a1-10 none)
|
||||
(a1-11 none)
|
||||
(a1-12 none)
|
||||
(a1-13 none)
|
||||
(a1-14 none)
|
||||
(a1-15 none)
|
||||
(a1-16 none)
|
||||
(a1-17 none)
|
||||
(a1-18 none)
|
||||
(a1-19 none)
|
||||
(a2-0 int)
|
||||
(a2-1 none)
|
||||
(a2-2 none)
|
||||
(a2-3 none)
|
||||
(a2-4 none)
|
||||
(a2-5 none)
|
||||
(a2-6 none)
|
||||
(a2-7 none)
|
||||
(a2-8 none)
|
||||
(a2-9 none)
|
||||
(a2-10 none)
|
||||
(a2-11 none)
|
||||
(a2-12 none)
|
||||
(a3-0 none)
|
||||
(a3-1 none)
|
||||
(a3-2 none)
|
||||
(a3-3 none)
|
||||
(a3-4 none)
|
||||
(a3-5 none)
|
||||
(a3-6 none)
|
||||
(a3-7 none)
|
||||
(a3-8 none)
|
||||
(t0-0 none)
|
||||
(t0-1 none)
|
||||
(t0-2 none)
|
||||
(t0-3 none)
|
||||
(t0-4 none)
|
||||
(t0-5 none)
|
||||
(t0-6 none)
|
||||
(t0-7 none)
|
||||
(t1-0 none)
|
||||
(t1-1 none)
|
||||
(t1-2 none)
|
||||
(t1-3 none)
|
||||
(t1-4 none)
|
||||
(t1-5 none)
|
||||
(t1-6 none)
|
||||
(t1-7 none)
|
||||
(t2-0 none)
|
||||
(t2-1 none)
|
||||
(s0-0 uint)
|
||||
(s0-1 none)
|
||||
(s0-2 none)
|
||||
(s1-0 int)
|
||||
(s2-0 int)
|
||||
(s3-0 int)
|
||||
(s4-0 uint)
|
||||
(s5-0 uint)
|
||||
(t9-0 (function merc-fragment-control int))
|
||||
(t9-1 (function merc-fragment int))
|
||||
(t9-2 (function _varargs_ object))
|
||||
(t9-3 (function _varargs_ object))
|
||||
(t9-4 none)
|
||||
(t9-5 none)
|
||||
(t9-6 none)
|
||||
(t9-7 none)
|
||||
(t9-8 none)
|
||||
(t9-9 none)
|
||||
(t9-10 none)
|
||||
(t9-11 none)
|
||||
(t9-12 none)
|
||||
(t9-13 none)
|
||||
(t9-14 none)
|
||||
(t9-15 none)
|
||||
(t9-16 none)
|
||||
(t9-17 none)
|
||||
(t9-18 none)
|
||||
(t9-19 none)
|
||||
(t9-20 none)
|
||||
(t9-21 none)
|
||||
(t9-22 none)
|
||||
(gp-0 int)
|
||||
(sv-16 none)
|
||||
(sv-32 none)
|
||||
(sv-48 none)
|
||||
(sv-64 none)
|
||||
(sv-80 none)
|
||||
(sv-96 none)
|
||||
(sv-112 none)
|
||||
(sv-128 none)
|
||||
(sv-144 none)
|
||||
)
|
||||
(set! v1-0 (sll a1-0 5))
|
||||
(set! v1-1 (+ v1-0 172))
|
||||
(set! gp-0 (+ v1-1 a0-0))
|
||||
(set! s5-0 (l.wu (+ gp-0 4)))
|
||||
(set! s4-0 (-> (the-as (pointer uint32) gp-0)))
|
||||
(set! s3-0 0)
|
||||
(while (begin (set! v1-65 (l.hu (+ gp-0 18))) (<.si s3-0 v1-65))
|
||||
(when (begin
|
||||
(set! a0-1 s5-0)
|
||||
(set! v1-2 merc-fragment-control)
|
||||
(set! t9-0 (method-of-type v1-2 asize-of))
|
||||
(set! v0-0 (call! a0-1))
|
||||
(set! s2-0 v0-0)
|
||||
(set! a0-2 s4-0)
|
||||
(set! v1-3 merc-fragment)
|
||||
(set! t9-1 (method-of-type v1-3 asize-of))
|
||||
(set! v0-1 (call! a0-2))
|
||||
(set! s1-0 v0-1)
|
||||
(set! s0-0 s4-0)
|
||||
(set! t9-2 format)
|
||||
(set! a0-3 #t)
|
||||
(set! a1-1 L97)
|
||||
(set! a2-0 s3-0)
|
||||
(call! a0-3 a1-1 a2-0)
|
||||
(set! t9-3 format)
|
||||
(set! a0-4 #t)
|
||||
(set! a1-2 L96)
|
||||
(set! a2-1 (the-as none (l.bu s0-0)))
|
||||
(set! a3-0 (the-as none (l.bu (+ s0-0 1))))
|
||||
(set! t0-0 (the-as none (l.bu (+ s0-0 2))))
|
||||
(set! t1-0 (the-as none (l.bu (+ s0-0 3))))
|
||||
(call!)
|
||||
(set! t9-4 (the-as none format))
|
||||
(set! a0-5 (the-as none #t))
|
||||
(set! a1-3 (the-as none L95))
|
||||
(set! a2-2 (the-as none (l.bu (+ s0-0 4))))
|
||||
(set! a3-1 (the-as none (l.bu (+ s0-0 5))))
|
||||
(set! t0-1 (the-as none (l.bu (+ s0-0 6))))
|
||||
(set! t1-1 (the-as none (l.bu (+ s0-0 7))))
|
||||
(call!)
|
||||
(set! t9-5 (the-as none format))
|
||||
(set! a0-6 (the-as none #t))
|
||||
(set! a1-4 (the-as none L94))
|
||||
(set! a2-3 (the-as none (l.bu (+ s0-0 8))))
|
||||
(set! a3-2 (the-as none (l.bu (+ s0-0 9))))
|
||||
(set! t0-2 (the-as none (l.bu (+ s0-0 10))))
|
||||
(set! t1-2 (the-as none (l.bu (+ s0-0 11))))
|
||||
(call!)
|
||||
(set! t9-6 (the-as none format))
|
||||
(set! a0-7 (the-as none #t))
|
||||
(set! a1-5 (the-as none L93))
|
||||
(set! a2-4 (the-as none (l.bu (+ s0-0 12))))
|
||||
(call!)
|
||||
(set! t9-7 (the-as none format))
|
||||
(set! a0-8 (the-as none #t))
|
||||
(set! a1-6 (the-as none L92))
|
||||
(call!)
|
||||
(set! v1-4 (the-as none (l.bu (+ s4-0 13))))
|
||||
(nonzero? v1-4)
|
||||
)
|
||||
(set! v1-6 (the-as none 0))
|
||||
(set! sv-16 v1-6)
|
||||
(while (begin
|
||||
(set! v1-11 sv-16)
|
||||
(set! v1-12 (the-as none (+ v1-11 s4-0)))
|
||||
(set! v1-13 (the-as none (l.bu (+ v1-12 13))))
|
||||
(nonzero? v1-13)
|
||||
)
|
||||
(set! t9-8 (the-as none format))
|
||||
(set! a0-9 (the-as none #t))
|
||||
(set! a1-7 (the-as none L91))
|
||||
(set! v1-7 sv-16)
|
||||
(set! v1-8 (the-as none (+ v1-7 s4-0)))
|
||||
(set! a2-5 (the-as none (l.bu (+ v1-8 13))))
|
||||
(call!)
|
||||
(set! v1-9 sv-16)
|
||||
(set! v1-10 (the-as none (+ v1-9 1)))
|
||||
(set! sv-16 v1-10)
|
||||
)
|
||||
)
|
||||
(set! t9-9 (the-as none format))
|
||||
(set! a0-10 (the-as none #t))
|
||||
(set! a1-8 (the-as none L90))
|
||||
(call!)
|
||||
(set! sv-32 s4-0)
|
||||
(set! sv-48 s4-0)
|
||||
(set! v1-15 (the-as none (l.bu (+ s0-0 1))))
|
||||
(set! sv-64 v1-15)
|
||||
(set! v1-16 (the-as none (l.bu (+ s0-0 2))))
|
||||
(set! a0-11 (the-as none (l.bu (+ s0-0 1))))
|
||||
(set! v1-17 (the-as none (- v1-16 a0-11)))
|
||||
(set! sv-80 v1-17)
|
||||
(set! v1-18 (the-as none (l.bu (+ s0-0 3))))
|
||||
(set! a0-12 (the-as none (l.bu (+ s0-0 2))))
|
||||
(set! v1-19 (the-as none (- v1-18 a0-12)))
|
||||
(set! a0-13 (the-as none 3))
|
||||
(set! v1-20 (the-as none (/.ui v1-19 a0-13)))
|
||||
(set! sv-96 v1-20)
|
||||
(set! t9-10 (the-as none format))
|
||||
(set! a0-14 (the-as none #t))
|
||||
(set! a1-9 (the-as none L89))
|
||||
(call!)
|
||||
(set! v1-21 (the-as none 0))
|
||||
(while (begin (set! a0-17 sv-64) (<.si v1-21 a0-17))
|
||||
(set! a0-15 sv-48)
|
||||
(set! a0-16 (the-as none (+ a0-15 4)))
|
||||
(set! sv-48 a0-16)
|
||||
(set! v1-21 (the-as none (+ v1-21 1)))
|
||||
)
|
||||
(set! t9-11 (the-as none format))
|
||||
(set! a0-18 (the-as none #t))
|
||||
(set! a1-10 (the-as none L88))
|
||||
(call!)
|
||||
(set! v1-24 (the-as none 0))
|
||||
(set! sv-112 v1-24)
|
||||
(while (begin (set! v1-45 sv-112) (set! a0-25 sv-80) (<.si v1-45 a0-25))
|
||||
(when (begin
|
||||
(when (begin (set! v1-25 (the-as none 2)) (!= s3-0 v1-25))
|
||||
(set! v1-27 sv-48)
|
||||
(s.b! v1-27 0)
|
||||
(set! v1-28 sv-48)
|
||||
(s.b! (+ v1-28 1) 0)
|
||||
(set! v1-29 (the-as none 128))
|
||||
(set! a0-19 sv-48)
|
||||
(s.b! (+ a0-19 2) v1-29)
|
||||
(set! a0-20 (the-as none 128))
|
||||
(set! v1-30 sv-48)
|
||||
(s.b! (+ v1-30 3) a0-20)
|
||||
)
|
||||
(set! v1-31 (the-as none 2))
|
||||
(= s3-0 v1-31)
|
||||
)
|
||||
(set! v1-33 (the-as none 128))
|
||||
(set! a0-21 sv-48)
|
||||
(s.b! a0-21 v1-33)
|
||||
(set! v1-34 (the-as none 128))
|
||||
(set! a0-22 sv-48)
|
||||
(s.b! (+ a0-22 1) v1-34)
|
||||
(set! v1-35 sv-48)
|
||||
(s.b! (+ v1-35 2) 0)
|
||||
(set! a0-23 (the-as none 128))
|
||||
(set! v1-36 sv-48)
|
||||
(s.b! (+ v1-36 3) a0-23)
|
||||
)
|
||||
(set! t9-12 (the-as none format))
|
||||
(set! a0-24 (the-as none #t))
|
||||
(set! a1-11 (the-as none L87))
|
||||
(set! a2-6 sv-112)
|
||||
(set! v1-37 sv-48)
|
||||
(set! a3-3 (the-as none (l.bu v1-37)))
|
||||
(set! v1-38 sv-48)
|
||||
(set! t0-3 (the-as none (l.bu (+ v1-38 1))))
|
||||
(set! v1-39 sv-48)
|
||||
(set! t1-3 (the-as none (l.bu (+ v1-39 2))))
|
||||
(set! v1-40 sv-48)
|
||||
(set! t2-0 (the-as none (l.bu (+ v1-40 3))))
|
||||
(call!)
|
||||
(set! v1-41 sv-48)
|
||||
(set! v1-42 (the-as none (+ v1-41 4)))
|
||||
(set! sv-48 v1-42)
|
||||
(set! v1-43 sv-112)
|
||||
(set! v1-44 (the-as none (+ v1-43 1)))
|
||||
(set! sv-112 v1-44)
|
||||
)
|
||||
(set! t9-13 (the-as none format))
|
||||
(set! a0-26 (the-as none #t))
|
||||
(set! a1-12 (the-as none L86))
|
||||
(call!)
|
||||
(set! v1-48 sv-32)
|
||||
(set! a0-27 (the-as none (l.bu (+ s0-0 2))))
|
||||
(set! a0-28 (the-as none (+ a0-27 3)))
|
||||
(set! a0-29 (the-as none (srl a0-28 2)))
|
||||
(set! a0-30 (the-as none (sll a0-29 4)))
|
||||
(set! s0-1 (the-as none (+ v1-48 a0-30)))
|
||||
(set! v1-49 (the-as none 0))
|
||||
(set! sv-128 v1-49)
|
||||
(while (begin (set! v1-52 sv-128) (set! a0-35 sv-96) (<.si v1-52 a0-35))
|
||||
(set! t9-14 (the-as none format))
|
||||
(set! a0-31 (the-as none #t))
|
||||
(set! a1-13 (the-as none L87))
|
||||
(set! a2-7 sv-128)
|
||||
(set! a3-4 (the-as none (l.bu s0-1)))
|
||||
(set! t0-4 (the-as none (l.bu (+ s0-1 1))))
|
||||
(set! t1-4 (the-as none (l.bu (+ s0-1 2))))
|
||||
(set! t2-1 (the-as none (l.bu (+ s0-1 3))))
|
||||
(call!)
|
||||
(set! t9-15 (the-as none format))
|
||||
(set! a0-32 (the-as none #t))
|
||||
(set! a1-14 (the-as none L85))
|
||||
(set! a2-8 (the-as none (l.bu (+ s0-1 4))))
|
||||
(set! a3-5 (the-as none (l.bu (+ s0-1 5))))
|
||||
(set! t0-5 (the-as none (l.bu (+ s0-1 6))))
|
||||
(set! t1-5 (the-as none (l.bu (+ s0-1 7))))
|
||||
(call!)
|
||||
(set! t9-16 (the-as none format))
|
||||
(set! a0-33 (the-as none #t))
|
||||
(set! a1-15 (the-as none L85))
|
||||
(set! a2-9 (the-as none (l.bu (+ s0-1 8))))
|
||||
(set! a3-6 (the-as none (l.bu (+ s0-1 9))))
|
||||
(set! t0-6 (the-as none (l.bu (+ s0-1 10))))
|
||||
(set! t1-6 (the-as none (l.bu (+ s0-1 11))))
|
||||
(call!)
|
||||
(set! t9-17 (the-as none format))
|
||||
(set! a0-34 (the-as none #t))
|
||||
(set! a1-16 (the-as none L84))
|
||||
(set! a2-10 (the-as none (l.bu (+ s0-1 4))))
|
||||
(set! a3-7 (the-as none (l.bu (+ s0-1 5))))
|
||||
(call!)
|
||||
(set! s0-1 (the-as none (+ s0-1 12)))
|
||||
(set! v1-50 sv-128)
|
||||
(set! v1-51 (the-as none (+ v1-50 1)))
|
||||
(set! sv-128 v1-51)
|
||||
)
|
||||
(set! t9-18 (the-as none merc-fragment-fp-data))
|
||||
(set! a0-36 (the-as none s4-0))
|
||||
(set! v0-18 (the-as none (call!)))
|
||||
(set! s0-2 (the-as none v0-18))
|
||||
(set! t9-19 (the-as none format))
|
||||
(set! a0-37 (the-as none #t))
|
||||
(set! a1-17 (the-as none L83))
|
||||
(call!)
|
||||
(set! v1-55 (the-as none 0))
|
||||
(set! sv-144 v1-55)
|
||||
(while (begin (set! v1-58 sv-144) (<.si v1-58 6))
|
||||
(set! t9-20 (the-as none format))
|
||||
(set! a0-38 (the-as none #t))
|
||||
(set! a1-18 (the-as none L82))
|
||||
(set! a2-11 (the-as none (l.wu s0-2)))
|
||||
(set! a3-8 (the-as none (l.wu (+ s0-2 4))))
|
||||
(set! t0-7 (the-as none (l.wu (+ s0-2 8))))
|
||||
(set! t1-7 (the-as none (l.wu (+ s0-2 12))))
|
||||
(call!)
|
||||
(set! s0-2 (the-as none (+ s0-2 16)))
|
||||
(set! v1-56 sv-144)
|
||||
(set! v1-57 (the-as none (+ v1-56 1)))
|
||||
(set! sv-144 v1-57)
|
||||
)
|
||||
(set! t9-21 (the-as none merc-fragment-fp-data))
|
||||
(set! a0-39 (the-as none s4-0))
|
||||
(set! v0-21 (the-as none (call!)))
|
||||
(set! v1-61 (the-as none v0-21))
|
||||
(set! v1-62 (the-as none (l.wu (+ v1-61 44))))
|
||||
(set! a2-12 (the-as none (logand v1-62 255)))
|
||||
(set! t9-22 (the-as none format))
|
||||
(set! a0-40 (the-as none #t))
|
||||
(set! a1-19 (the-as none L81))
|
||||
(call!)
|
||||
(set! v1-63 (the-as none v0-22))
|
||||
(set! s4-0 (the-as uint (+ s4-0 s1-0)))
|
||||
(set! s5-0 (the-as uint (+ s5-0 s2-0)))
|
||||
(set! v1-64 (the-as none s5-0))
|
||||
(set! s3-0 (the-as int (+ s3-0 1)))
|
||||
)
|
||||
(ret-none)
|
||||
)
|
||||
|
||||
;; definition for function debug-merc-highres-runtime
|
||||
;; ERROR: function has no type analysis. Cannot decompile.
|
||||
|
||||
;; definition for function debug-merc-size-runtime
|
||||
;; ERROR: function has no type analysis. Cannot decompile.
|
||||
|
||||
;; definition for function debug-merc-fade-runtime
|
||||
;; ERROR: function has no type analysis. Cannot decompile.
|
||||
|
||||
;; definition for function foreground-check-longest-edge
|
||||
;; ERROR: function has no type analysis. Cannot decompile.
|
||||
|
||||
|
||||
|
||||
|
||||
+584
@@ -0,0 +1,584 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *light-hash-work*, type light-hash-work
|
||||
(define *light-hash-work* (new 'static 'light-hash-work :ones (new 'static 'vector4w :x 1 :y 1 :z 1)))
|
||||
|
||||
;; definition for function light-slerp
|
||||
(defun light-slerp ((light-out light) (light-a light) (light-b light) (alpha float))
|
||||
(let ((clamped-alpha (fmax 0.0 (fmin 1.0 alpha))))
|
||||
(vector-lerp! (-> light-out color) (-> light-a color) (-> light-b color) clamped-alpha)
|
||||
(vector-deg-slerp (-> light-out direction) (-> light-a direction) (-> light-b direction) clamped-alpha)
|
||||
(let ((extra-x-a (-> light-a extra x))
|
||||
(extra-x-b (-> light-b extra x))
|
||||
)
|
||||
(set! (-> light-out extra x) (+ extra-x-a (* clamped-alpha (- extra-x-b extra-x-a))))
|
||||
)
|
||||
)
|
||||
light-out
|
||||
)
|
||||
|
||||
;; definition for function light-group-slerp
|
||||
(defun light-group-slerp ((light-group-out light-group) (light-group-a light-group) (light-group-b light-group) (alpha float))
|
||||
(dotimes (group-idx 4)
|
||||
(light-slerp
|
||||
(-> light-group-out lights group-idx)
|
||||
(-> light-group-a lights group-idx)
|
||||
(-> light-group-b lights group-idx)
|
||||
alpha
|
||||
)
|
||||
)
|
||||
light-group-out
|
||||
)
|
||||
|
||||
;; definition for function light-group-process!
|
||||
(defun light-group-process! ((vu-lights vu-lights) (light-group light-group) (vec1 vector) (vec2 vector))
|
||||
(rotate-y<-vector+vector vec2 vec1)
|
||||
(vu-lights<-light-group! vu-lights light-group)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol *default-lights*, type vu-lights
|
||||
(define *default-lights* (new 'global 'vu-lights))
|
||||
|
||||
;; definition for function vu-lights-default!
|
||||
(defun vu-lights-default! ((lights vu-lights))
|
||||
(set-vector! (-> lights ambient) 0.3 0.3 0.3 1.0)
|
||||
(set-vector! (-> lights color 0) 1.0 1.0 1.0 1.0)
|
||||
(set-vector! (-> lights color 1) 0.2 0.2 0.2 1.0)
|
||||
(set-vector! (-> lights color 2) 0.0 0.0 0.0 1.0)
|
||||
(set-vector! (-> lights direction 0) 1.0 0.0 0.0 1.0)
|
||||
(set-vector! (-> lights direction 1) 0.0 1.0 0.0 1.0)
|
||||
(set-vector! (-> lights direction 2) 0.0 0.0 1.0 1.0)
|
||||
lights
|
||||
)
|
||||
|
||||
;; definition (debug) for function init-light-hash
|
||||
;; WARN: Return type mismatch pointer vs none.
|
||||
(defun-debug init-light-hash ()
|
||||
(when (not *light-hash*)
|
||||
(set! *light-hash* (new 'loading-level 'light-hash))
|
||||
(set! (-> *light-hash* num-lights) (the-as uint 0))
|
||||
(set! (-> *light-hash* num-indices) (the-as uint 0))
|
||||
(set! (-> *light-hash* num-buckets) (the-as uint 0))
|
||||
(set! (-> *light-hash* bucket-array) (the-as (inline-array light-hash-bucket) (malloc 'loading-level 4096)))
|
||||
(set! (-> *light-hash* index-array) (malloc 'loading-level 8192))
|
||||
(set! (-> *light-hash* light-sphere-array)
|
||||
(the-as (inline-array light-sphere) (malloc 'loading-level #x40000))
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(init-light-hash)
|
||||
|
||||
;; definition (debug) for function light-hash-count-items
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c light-hash-count-items (function light-hash light-sphere none))
|
||||
|
||||
;; definition (debug) for function light-hash-add-items
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c light-hash-add-items (function light-hash light-sphere integer object))
|
||||
|
||||
;; definition (debug) for function reset-light-hash
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun-debug reset-light-hash ((arg0 light-hash))
|
||||
(set! (-> *light-hash* num-lights) (the-as uint 0))
|
||||
(set! (-> *light-hash* num-indices) (the-as uint 0))
|
||||
(set! (-> *light-hash* num-buckets) (the-as uint 0))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition (debug) for function update-light-hash
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun-debug update-light-hash ((arg0 light-hash))
|
||||
(let ((v1-0 (new 'stack-no-clear 'bounding-box))
|
||||
(s5-0 (new 'stack-no-clear 'vector))
|
||||
)
|
||||
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
||||
(let ((f0-0 0.0))
|
||||
(set-vector! (-> v1-0 min) 4095996000.0 4095996000.0 4095996000.0 1.0)
|
||||
(set-vector! (-> v1-0 max) -4095996000.0 -4095996000.0 -4095996000.0 1.0)
|
||||
(dotimes (a0-3 (the-as int (-> arg0 num-lights)))
|
||||
(let ((a1-9 (-> arg0 light-sphere-array a0-3)))
|
||||
(set! (-> v1-0 min x) (fmin (-> v1-0 min x) (- (-> a1-9 bsphere x) (-> a1-9 bsphere w))))
|
||||
(set! (-> v1-0 min y) (fmin (-> v1-0 min y) (- (-> a1-9 bsphere y) (-> a1-9 bsphere w))))
|
||||
(set! (-> v1-0 min z) (fmin (-> v1-0 min z) (- (-> a1-9 bsphere z) (-> a1-9 bsphere w))))
|
||||
(set! (-> v1-0 max x) (fmax (-> v1-0 max x) (+ (-> a1-9 bsphere x) (-> a1-9 bsphere w))))
|
||||
(set! (-> v1-0 max y) (fmax (-> v1-0 max y) (+ (-> a1-9 bsphere y) (-> a1-9 bsphere w))))
|
||||
(set! (-> v1-0 max z) (fmax (-> v1-0 max z) (+ (-> a1-9 bsphere z) (-> a1-9 bsphere w))))
|
||||
(+! f0-0 (-> a1-9 bsphere w))
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 base-trans quad) (-> v1-0 min quad))
|
||||
(let ((f0-1 (/ f0-0 (the float (-> arg0 num-lights)))))
|
||||
(dotimes (a0-8 3)
|
||||
(set! (-> s5-0 data a0-8) (- (-> v1-0 max data a0-8) (-> v1-0 min data a0-8)))
|
||||
(set! (-> s4-0 data a0-8) (if (= (-> s5-0 data a0-8) 0.0)
|
||||
1.0
|
||||
(/ (-> s5-0 data a0-8) (/ f0-1 (the float (-> arg0 num-lights))))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((f0-5 (cube-root (/ (the float (-> arg0 num-lights)) (* (-> s4-0 x) (-> s4-0 y) (-> s4-0 z))))))
|
||||
(set! (-> arg0 dimension-array x) (max 1 (min 16 (the int (+ 0.5 (* f0-5 (-> s4-0 x)))))))
|
||||
(set! (-> arg0 dimension-array y) (max 1 (min 4 (the int (+ 0.5 (* f0-5 (-> s4-0 y)))))))
|
||||
(set! (-> arg0 dimension-array z) (max 1 (min 16 (the int (+ 0.5 (* f0-5 (-> s4-0 z)))))))
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 bucket-step 0) (the-as uint (* (-> arg0 dimension-array z) (-> arg0 dimension-array x))))
|
||||
(set! (-> arg0 bucket-step 1) (the-as uint (-> arg0 dimension-array x)))
|
||||
(dotimes (v1-13 3)
|
||||
(set! (-> arg0 axis-scale data v1-13)
|
||||
(/ (the float (-> arg0 dimension-array data v1-13)) (-> s5-0 data v1-13))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 num-buckets)
|
||||
(the-as uint (* (* (-> arg0 dimension-array x) (-> arg0 dimension-array y)) (-> arg0 dimension-array z)))
|
||||
)
|
||||
(dotimes (v1-19 (the-as int (-> arg0 num-buckets)))
|
||||
(let ((a0-27
|
||||
(the-as light-hash-bucket (+ (the-as uint (the-as light-hash-bucket (-> arg0 bucket-array))) (* v1-19 4)))
|
||||
)
|
||||
)
|
||||
(set! (-> a0-27 index) (the-as uint 0))
|
||||
(set! (-> a0-27 count) (the-as uint 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(dotimes (s5-1 (the-as int (-> arg0 num-lights)))
|
||||
(light-hash-count-items arg0 (-> arg0 light-sphere-array s5-1))
|
||||
)
|
||||
(let ((v1-26 0))
|
||||
(dotimes (a0-31 (the-as int (-> arg0 num-buckets)))
|
||||
(let ((a1-38
|
||||
(the-as light-hash-bucket (+ (the-as uint (the-as light-hash-bucket (-> arg0 bucket-array))) (* a0-31 4)))
|
||||
)
|
||||
)
|
||||
(set! (-> a1-38 index) (the-as uint v1-26))
|
||||
(+! v1-26 (-> a1-38 count))
|
||||
(set! (-> a1-38 count) (the-as uint 0))
|
||||
)
|
||||
0
|
||||
)
|
||||
(set! (-> arg0 num-indices) (the-as uint v1-26))
|
||||
)
|
||||
(dotimes (s5-2 (the-as int (-> arg0 num-lights)))
|
||||
(light-hash-add-items arg0 (-> arg0 light-sphere-array s5-2) s5-2)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function lookup-light-sphere-by-name
|
||||
(defun lookup-light-sphere-by-name ((name string) (hash light-hash))
|
||||
(when (and hash (nonzero? hash))
|
||||
(dotimes (num-lights (the-as int (-> hash num-lights)))
|
||||
(let ((light (-> hash light-sphere-array num-lights)))
|
||||
(if (string= name (-> light name))
|
||||
(return light)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(the-as light-sphere #f)
|
||||
)
|
||||
|
||||
;; definition for function light-hash-get-bucket-index
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c light-hash-get-bucket-index (function light-hash vector int))
|
||||
|
||||
;; definition for function add-light-sphere-to-light-group
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c add-light-sphere-to-light-group (function object object object object object))
|
||||
|
||||
;; definition for function light-merge!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun light-merge! ((out light-group) (other light-group))
|
||||
(local-vars
|
||||
(v1-0 float)
|
||||
(v1-1 float)
|
||||
(v1-3 float)
|
||||
(v1-5 float)
|
||||
(a1-1 float)
|
||||
(a1-3 float)
|
||||
(a2-0 float)
|
||||
(a2-2 float)
|
||||
(a2-4 float)
|
||||
(a3-0 float)
|
||||
(f6-0 float)
|
||||
)
|
||||
(rlet ((acc :class vf)
|
||||
(Q :class vf)
|
||||
(vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf12 :class vf)
|
||||
(vf13 :class vf)
|
||||
(vf14 :class vf)
|
||||
(vf15 :class vf)
|
||||
(vf16 :class vf)
|
||||
(vf17 :class vf)
|
||||
(vf2 :class vf)
|
||||
(vf22 :class vf)
|
||||
(vf23 :class vf)
|
||||
(vf24 :class vf)
|
||||
(vf25 :class vf)
|
||||
(vf26 :class vf)
|
||||
(vf27 :class vf)
|
||||
(vf3 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(nop!)
|
||||
(.max.w.vf vf1 vf0 vf0)
|
||||
(.lvf vf3 (&-> out dir0 color quad))
|
||||
(nop!)
|
||||
(.lvf vf4 (&-> out dir1 color quad))
|
||||
(nop!)
|
||||
(.lvf vf5 (&-> out dir2 color quad))
|
||||
(nop!)
|
||||
(.lvf vf15 (&-> out dir0 extra quad))
|
||||
(nop!)
|
||||
(.lvf vf16 (&-> out dir1 extra quad))
|
||||
(nop!)
|
||||
(.lvf vf17 (&-> out dir2 extra quad))
|
||||
(nop!)
|
||||
(.lvf vf25 (&-> out dir0 direction quad))
|
||||
(.mul.x.vf vf3 vf3 vf15)
|
||||
(.lvf vf26 (&-> out dir1 direction quad))
|
||||
(.mul.x.vf vf4 vf4 vf16)
|
||||
(.lvf vf27 (&-> out dir2 direction quad))
|
||||
(.mul.x.vf vf5 vf5 vf17)
|
||||
(.mov v1-0 vf1)
|
||||
(.mul.x.vf vf25 vf25 vf15)
|
||||
(let ((f1-0 v1-0))
|
||||
(.mul.x.vf vf26 vf26 vf16)
|
||||
(.lvf vf6 (&-> other dir0 direction quad))
|
||||
(.mul.x.vf vf27 vf27 vf17)
|
||||
(.lvf vf2 (&-> other dir0 color quad))
|
||||
(nop!)
|
||||
(.lvf vf23 (&-> other dir0 extra quad))
|
||||
(nop!)
|
||||
(.mov a2-0 vf15)
|
||||
(nop!)
|
||||
(.mov a3-0 vf16)
|
||||
(nop!)
|
||||
(.mov v1-1 vf17)
|
||||
(nop!)
|
||||
(let ((a2-1 (shl (the-as int a2-0) 32)))
|
||||
(nop!)
|
||||
(let ((a3-1 (shl (the-as int a3-0) 32)))
|
||||
(nop!)
|
||||
(let ((v1-2 (shl (the-as int v1-1) 32)))
|
||||
(b! (zero? a2-1) cfg-9 :delay (set! f6-0 (-> other dir0 extra x)))
|
||||
(b! (zero? a3-1) cfg-10 :delay (nop!))
|
||||
(b! (zero? v1-2) cfg-11 :delay (nop!))
|
||||
)
|
||||
)
|
||||
)
|
||||
(.mul.x.vf acc vf15 vf15)
|
||||
(nop!)
|
||||
(.add.mul.x.vf acc vf16 vf16 acc)
|
||||
(nop!)
|
||||
(.add.mul.x.vf vf22 vf17 vf17 acc)
|
||||
(nop!)
|
||||
(.mul.x.vf vf2 vf2 vf23)
|
||||
(nop!)
|
||||
(.mul.x.vf vf6 vf6 vf23)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.isqrt.vf Q vf0 vf22 :fsf #b11 :ftf #b0)
|
||||
(nop!)
|
||||
(.wait.vf)
|
||||
(.mul.vf vf15 vf15 Q)
|
||||
(nop!)
|
||||
(.mul.vf vf16 vf16 Q)
|
||||
(nop!)
|
||||
(.mul.vf vf17 vf17 Q)
|
||||
(nop!)
|
||||
(.sub.x.vf vf15 vf1 vf15)
|
||||
(nop!)
|
||||
(.sub.x.vf vf16 vf1 vf16)
|
||||
(nop!)
|
||||
(.sub.x.vf vf17 vf1 vf17)
|
||||
(nop!)
|
||||
(.mul.x.vf acc vf1 vf15)
|
||||
(nop!)
|
||||
(.add.mul.x.vf acc vf1 vf16 acc)
|
||||
(nop!)
|
||||
(.add.mul.x.vf vf22 vf1 vf17 acc)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.div.vf Q vf0 vf22 :fsf #b11 :ftf #b0)
|
||||
(nop!)
|
||||
(.lvf vf12 (&-> out dir0 extra quad))
|
||||
(nop!)
|
||||
(.lvf vf13 (&-> out dir1 extra quad))
|
||||
(nop!)
|
||||
(.lvf vf14 (&-> out dir2 extra quad))
|
||||
(nop!)
|
||||
(.wait.vf)
|
||||
(.mul.vf vf15 vf15 Q)
|
||||
(nop!)
|
||||
(.mul.vf vf16 vf16 Q)
|
||||
(nop!)
|
||||
(.mul.vf vf17 vf17 Q)
|
||||
(nop!)
|
||||
(.mul.vf acc vf1 vf25)
|
||||
(.mov a2-2 vf15)
|
||||
(.add.mul.x.vf vf25 vf6 vf15 acc)
|
||||
(.mov a1-1 vf16)
|
||||
(.mul.vf acc vf1 vf26)
|
||||
(.mov v1-3 vf17)
|
||||
(.add.mul.x.vf vf26 vf6 vf16 acc)
|
||||
(let ((a2-3 (shl (the-as int a2-2) 32)))
|
||||
(.mul.vf acc vf1 vf27)
|
||||
(let ((a1-2 (shl (the-as int a1-1) 32)))
|
||||
(.add.mul.x.vf vf27 vf6 vf17 acc)
|
||||
(let ((v1-4 (shl (the-as int v1-3) 32)))
|
||||
(.mul.vf acc vf1 vf3)
|
||||
(nop!)
|
||||
(.add.mul.x.vf vf3 vf2 vf15 acc)
|
||||
(nop!)
|
||||
(.mul.vf acc vf1 vf4)
|
||||
(nop!)
|
||||
(.add.mul.x.vf vf4 vf2 vf16 acc)
|
||||
(nop!)
|
||||
(.mul.vf acc vf1 vf5)
|
||||
(nop!)
|
||||
(.add.mul.x.vf vf5 vf2 vf17 acc)
|
||||
(nop!)
|
||||
(b! (zero? a2-3) cfg-5 :delay (nop!))
|
||||
(.mul.vf vf24 vf25 vf25)
|
||||
(nop!)
|
||||
(.mul.vf vf15 vf15 vf23)
|
||||
(nop!)
|
||||
(.mul.x.vf acc vf1 vf24)
|
||||
(nop!)
|
||||
(.add.mul.y.vf acc vf1 vf24 acc)
|
||||
(nop!)
|
||||
(.add.mul.z.vf vf24 vf1 vf24 acc)
|
||||
(nop!)
|
||||
(.isqrt.vf Q vf0 vf24 :fsf #b11 :ftf #b0)
|
||||
(nop!)
|
||||
(.add.vf vf15 vf15 vf12)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.mov a2-4 vf15)
|
||||
(nop!)
|
||||
(let ((f10-1 (/ f1-0 a2-4)))
|
||||
(nop!)
|
||||
(nop!)
|
||||
(set! (-> out dir0 extra x) a2-4)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(let ((a2-6 f10-1))
|
||||
(.mov vf15 a2-6)
|
||||
)
|
||||
)
|
||||
(.mul.x.vf vf3 vf3 vf15)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.wait.vf)
|
||||
(.mul.vf vf25 vf25 Q)
|
||||
(.svf (&-> out dir0 color quad) vf3)
|
||||
(nop!)
|
||||
(.svf (&-> out dir0 direction quad) vf25)
|
||||
(label cfg-5)
|
||||
(b! (zero? a1-2) cfg-7 :delay (nop!))
|
||||
(.mul.vf vf24 vf26 vf26)
|
||||
(nop!)
|
||||
(.mul.vf vf16 vf16 vf23)
|
||||
(nop!)
|
||||
(.mul.x.vf acc vf1 vf24)
|
||||
(nop!)
|
||||
(.add.mul.y.vf acc vf1 vf24 acc)
|
||||
(nop!)
|
||||
(.add.mul.z.vf vf24 vf1 vf24 acc)
|
||||
(nop!)
|
||||
(.isqrt.vf Q vf0 vf24 :fsf #b11 :ftf #b0)
|
||||
(nop!)
|
||||
(.add.vf vf16 vf16 vf13)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.mov a1-3 vf16)
|
||||
(nop!)
|
||||
(let ((f11-1 (/ f1-0 a1-3)))
|
||||
(nop!)
|
||||
(nop!)
|
||||
(set! (-> out dir1 extra x) a1-3)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(let ((a1-5 f11-1))
|
||||
(.mov vf16 a1-5)
|
||||
)
|
||||
)
|
||||
(.mul.x.vf vf4 vf4 vf16)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.wait.vf)
|
||||
(.mul.vf vf26 vf26 Q)
|
||||
(.svf (&-> out dir1 color quad) vf4)
|
||||
(nop!)
|
||||
(.svf (&-> out dir1 direction quad) vf26)
|
||||
(label cfg-7)
|
||||
(b! (zero? v1-4) cfg-12 :delay (nop!))
|
||||
)
|
||||
)
|
||||
)
|
||||
(.mul.vf vf24 vf27 vf27)
|
||||
(nop!)
|
||||
(.mul.vf vf17 vf17 vf23)
|
||||
(nop!)
|
||||
(.mul.x.vf acc vf1 vf24)
|
||||
(nop!)
|
||||
(.add.mul.y.vf acc vf1 vf24 acc)
|
||||
(nop!)
|
||||
(.add.mul.z.vf vf24 vf1 vf24 acc)
|
||||
(nop!)
|
||||
(.isqrt.vf Q vf0 vf24 :fsf #b11 :ftf #b0)
|
||||
(nop!)
|
||||
(.add.vf vf17 vf17 vf14)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.mov v1-5 vf17)
|
||||
(nop!)
|
||||
(let ((f12-1 (/ f1-0 v1-5)))
|
||||
(nop!)
|
||||
(nop!)
|
||||
(set! (-> out dir2 extra x) v1-5)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(let ((v1-7 f12-1))
|
||||
(.mov vf17 v1-7)
|
||||
)
|
||||
)
|
||||
)
|
||||
(.mul.x.vf vf5 vf5 vf17)
|
||||
(nop!)
|
||||
(nop!)
|
||||
(.wait.vf)
|
||||
(.mul.vf vf27 vf27 Q)
|
||||
(.svf (&-> out dir2 color quad) vf5)
|
||||
(b! #t cfg-12 :delay (.svf (&-> out dir2 direction quad) vf27))
|
||||
(label cfg-9)
|
||||
(nop!)
|
||||
(.svf (&-> out dir0 direction quad) vf6)
|
||||
(nop!)
|
||||
(.svf (&-> out dir0 color quad) vf2)
|
||||
(b! #t cfg-12 :delay (set! (-> out dir0 extra x) f6-0))
|
||||
(label cfg-10)
|
||||
(nop!)
|
||||
(.svf (&-> out dir1 direction quad) vf6)
|
||||
(nop!)
|
||||
(.svf (&-> out dir1 color quad) vf2)
|
||||
(b! #t cfg-12 :delay (set! (-> out dir1 extra x) f6-0))
|
||||
(label cfg-11)
|
||||
(nop!)
|
||||
(.svf (&-> out dir2 direction quad) vf6)
|
||||
(nop!)
|
||||
(.svf (&-> out dir2 color quad) vf2)
|
||||
(nop!)
|
||||
(set! (-> out dir2 extra x) f6-0)
|
||||
(label cfg-12)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function light-group-scale!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun light-group-scale! ((group light-group) (backup-ptr (pointer light-group)) (scale float))
|
||||
(if (!= group backup-ptr)
|
||||
(mem-copy! (the-as pointer group) backup-ptr 192)
|
||||
)
|
||||
(when (!= scale 1.0)
|
||||
(dotimes (light-idx 4)
|
||||
(set! (-> group lights light-idx extra x) (* (-> group lights light-idx extra x) scale))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function light-group-madd!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun light-group-madd! ((group light-group) (backup-ptr (pointer light-group)) (other light-group) (scalar float))
|
||||
(if (!= group backup-ptr)
|
||||
(mem-copy! (the-as pointer group) backup-ptr 192)
|
||||
)
|
||||
(when (!= scalar 0.0)
|
||||
(let ((new-light (new 'stack 'light))
|
||||
(ambi-scaled (* (-> other ambi extra x) scalar))
|
||||
)
|
||||
(let ((dir0-scaled (* (-> other dir0 extra x) scalar))
|
||||
(dir1-scaled (* (-> other dir1 extra x) scalar))
|
||||
(dir2-scaled (* (-> other dir2 extra x) scalar))
|
||||
)
|
||||
(when (!= dir0-scaled 0.0)
|
||||
(mem-copy! (the-as pointer new-light) (the-as pointer (-> other dir0)) 48)
|
||||
(set! (-> new-light extra x) dir0-scaled)
|
||||
(light-merge! group (the-as light-group new-light))
|
||||
(set! (-> group dir0 extra y) 0.0)
|
||||
)
|
||||
(when (!= dir1-scaled 0.0)
|
||||
(mem-copy! (the-as pointer new-light) (the-as pointer (-> other dir1)) 48)
|
||||
(set! (-> new-light extra x) dir1-scaled)
|
||||
(light-merge! group (the-as light-group new-light))
|
||||
(set! (-> group dir1 extra y) 0.0)
|
||||
)
|
||||
(when (!= dir2-scaled 0.0)
|
||||
(mem-copy! (the-as pointer new-light) (the-as pointer (-> other dir2)) 48)
|
||||
(set! (-> new-light extra x) dir2-scaled)
|
||||
(light-merge! group (the-as light-group new-light))
|
||||
(set! (-> group dir2 extra y) 0.0)
|
||||
)
|
||||
)
|
||||
(vector4-scale!
|
||||
(the-as vector4 (-> group ambi color))
|
||||
(the-as vector4 (-> group ambi color))
|
||||
(-> group ambi extra x)
|
||||
)
|
||||
(vector4-madd!
|
||||
(the-as vector4 (-> group ambi color))
|
||||
(the-as vector4 (-> group ambi color))
|
||||
(the-as vector4 (-> other ambi color))
|
||||
ambi-scaled
|
||||
)
|
||||
)
|
||||
(set! (-> group ambi extra x) 1.0)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function light-group-lerp!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun light-group-lerp! ((group light-group) (backup-ptr (pointer light-group)) (other light-group) (scalar float))
|
||||
(light-group-scale! group backup-ptr (- 1.0 scalar))
|
||||
(light-group-madd! group backup-ptr other scalar)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function shadow-info-copy!
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun shadow-info-copy! ((dest light-group) (src light-group))
|
||||
(dotimes (light-idx 4)
|
||||
(set! (-> dest lights light-idx extra y) (-> src lights light-idx extra y))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+167
@@ -0,0 +1,167 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *merc-death-globals*, type vector
|
||||
(define *merc-death-globals* (new 'global 'vector))
|
||||
|
||||
;; definition for function birth-func-death-sparks
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun birth-func-death-sparks ()
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol death-seed, type death-info
|
||||
(define death-seed
|
||||
(new 'static 'death-info :vertex-skip #x8 :timer #xe0 :overlap #xff :effect #x27 :sound "temp-enemy-die")
|
||||
)
|
||||
|
||||
;; definition for function start-seed-effect
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun start-seed-effect ((arg0 process-drawable) (arg1 vector) (arg2 cspace))
|
||||
(let ((v1-0 (-> arg0 draw))
|
||||
(a1-1 death-seed)
|
||||
)
|
||||
(set! (-> v1-0 death-vertex-skip) (-> a1-1 vertex-skip))
|
||||
(set! (-> v1-0 death-effect) (-> a1-1 effect))
|
||||
(set! (-> v1-0 death-timer) (+ (-> a1-1 timer) 1))
|
||||
(set! (-> v1-0 death-timer-org) (-> v1-0 death-timer))
|
||||
(set! (-> v1-0 death-draw-overlap) (-> a1-1 overlap))
|
||||
)
|
||||
(send-event
|
||||
arg0
|
||||
'trans-hook
|
||||
(lambda :behavior process-drawable () (let ((v0-0 200))
|
||||
(set! (-> self draw death-timer) (the-as uint v0-0))
|
||||
(the-as time-frame v0-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 39
|
||||
:init-specs ((:scale-x (meters 1))
|
||||
(:rot-x (degrees 2.25))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 64.0 196.0)
|
||||
(:g 196.0 64.0)
|
||||
(:b 0.0)
|
||||
(:a 4.0 2.0)
|
||||
(:timer (seconds 0.017))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 use-global-acc))
|
||||
(:func 'sparticle-texture-glow-soft)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for symbol death-default, type death-info
|
||||
(define death-default
|
||||
(new 'static 'death-info :vertex-skip #xa :timer #x4b :overlap #x4 :effect #x28 :sound "enemy-fizz")
|
||||
)
|
||||
|
||||
;; definition for symbol death-warp-in, type death-info
|
||||
(define death-warp-in
|
||||
(new 'static 'death-info :vertex-skip #x96 :timer #x4b :effect #x29 :sound "warpgate-tele")
|
||||
)
|
||||
|
||||
;; definition for symbol death-warp-out, type death-info
|
||||
(define death-warp-out
|
||||
(new 'static 'death-info :vertex-skip #x96 :timer #x96 :effect #x29 :sound "warpgate-tele")
|
||||
)
|
||||
|
||||
;; definition for function sparticle-texture-glow-soft
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun sparticle-texture-glow-soft ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
||||
(particle-adgif-callback (-> arg1 adgif) (new 'static 'texture-id :index #x17 :page #x4))
|
||||
(set! (-> arg1 sp-func) (the-as (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d uint none) 0))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 41
|
||||
:init-specs ((:scale-x (meters 0.5) (meters 0.5))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 32.0 32.0)
|
||||
(:g 32.0 64.0)
|
||||
(:b 128.0 128.0)
|
||||
(:a 128.0)
|
||||
(:scalevel-x (meters 0.02) (meters 0.02))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a 0.0 -1.28)
|
||||
(:friction 0.92 0.02)
|
||||
(:timer (seconds 1.667))
|
||||
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-3 glow))
|
||||
(:next-time (seconds 0.1) (seconds 0.065))
|
||||
(:next-launcher 42)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 42
|
||||
:init-specs ((:scale-x (meters 0.3) (meters 0.2))
|
||||
(:scale-y :copy scale-x)
|
||||
(:a 64.0 32.0)
|
||||
(:omega (degrees 0.045) (degrees 0.03375))
|
||||
(:vel-x (meters -0.053333335) (meters 0.10666667))
|
||||
(:vel-y (meters -0.026666667) (meters 0.093333334))
|
||||
(:vel-z (meters -0.053333335) (meters 0.10666667))
|
||||
(:scalevel-x (meters -0.001) (meters -0.008))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a 0.0)
|
||||
(:func 'sparticle-motion-blur)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 40
|
||||
:init-specs ((:scale-x (meters 0.5) (meters 0.5))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 96.0 150.0)
|
||||
(:g 32.0 64.0)
|
||||
(:b 128.0 128.0)
|
||||
(:a 128.0)
|
||||
(:scalevel-x (meters 0.02) (meters 0.02))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a 0.0 -1.28)
|
||||
(:friction 0.92 0.02)
|
||||
(:timer (seconds 1.667))
|
||||
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-3 glow))
|
||||
(:next-time (seconds 0.1) (seconds 0.065))
|
||||
(:next-launcher 43)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 43
|
||||
:init-specs ((:scale-x (meters 0.3) (meters 0.2))
|
||||
(:scale-y :copy scale-x)
|
||||
(:a 64.0 32.0)
|
||||
(:omega (degrees 0.045) (degrees 0.03375))
|
||||
(:vel-x (meters -0.053333335) (meters 0.10666667))
|
||||
(:vel-y (meters -0.026666667) (meters 0.093333334))
|
||||
(:vel-z (meters -0.053333335) (meters 0.10666667))
|
||||
(:scalevel-x (meters -0.001) (meters -0.008))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a 0.0)
|
||||
(:func 'sparticle-motion-blur)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function merc-death-spawn
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun merc-death-spawn ((arg0 int) (arg1 vector) (arg2 vector))
|
||||
(let ((v1-2 (-> *part-id-table* arg0)))
|
||||
(if (and (nonzero? v1-2) (= (-> v1-2 type) sparticle-launcher))
|
||||
(sp-launch-particles-death *sp-particle-system-2d* v1-2 arg1)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+251
@@ -0,0 +1,251 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type ripple-request
|
||||
(deftype ripple-request (structure)
|
||||
((waveform ripple-wave)
|
||||
(effect merc-effect)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type ripple-request
|
||||
(defmethod inspect ((this ripple-request))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'ripple-request)
|
||||
(format #t "~1Twaveform: ~A~%" (-> this waveform))
|
||||
(format #t "~1Teffect: #<merc-effect @ #x~X>~%" (-> this effect))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type ripple-globals
|
||||
(deftype ripple-globals (structure)
|
||||
((count int32)
|
||||
(requests ripple-request 16 :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type ripple-globals
|
||||
(defmethod inspect ((this ripple-globals))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'ripple-globals)
|
||||
(format #t "~1Tcount: ~D~%" (-> this count))
|
||||
(format #t "~1Trequests[16] @ #x~X~%" (-> this requests))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *ripple-globals*, type ripple-globals
|
||||
(define *ripple-globals* (new 'global 'ripple-globals))
|
||||
|
||||
;; definition for function ripple-make-request
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun ripple-make-request ((arg0 ripple-wave) (arg1 merc-effect))
|
||||
(let ((v1-1 (-> *ripple-globals* count))
|
||||
(a2-1 (-> *ripple-globals* requests))
|
||||
(a3-0 0)
|
||||
)
|
||||
(when (< v1-1 16)
|
||||
(dotimes (t0-1 v1-1)
|
||||
(if (= arg1 (-> a2-1 t0-1 effect))
|
||||
(set! a3-0 1)
|
||||
)
|
||||
)
|
||||
(when (zero? a3-0)
|
||||
(set! (-> a2-1 v1-1 effect) arg1)
|
||||
(set! (-> a2-1 v1-1 waveform) arg0)
|
||||
(+! (-> *ripple-globals* count) 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function ripple-update-waveform-offs
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun ripple-update-waveform-offs ((arg0 ripple-wave-set) (arg1 clock))
|
||||
(let ((f0-1 (the float (- (-> arg1 integral-frame-counter) (the-as int (-> arg0 frame-save))))))
|
||||
(when (!= f0-1 0.0)
|
||||
(dotimes (v1-3 (-> arg0 count))
|
||||
(let ((a2-4 (-> arg0 wave v1-3)))
|
||||
(+! (-> a2-4 offs) (* f0-1 (-> a2-4 delta)))
|
||||
(set! (-> a2-4 offs) (the float (logand (the int (-> a2-4 offs)) #xffff)))
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 frame-save) (the-as uint (-> arg1 integral-frame-counter)))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function ripple-execute-init
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c ripple-execute-init (function none))
|
||||
|
||||
;; definition for function ripple-create-wave-table
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c ripple-create-wave-table (function ripple-wave-set int))
|
||||
|
||||
;; definition for function ripple-apply-wave-table
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c ripple-apply-wave-table (function merc-effect symbol))
|
||||
|
||||
;; definition for function ripple-execute
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun ripple-execute ()
|
||||
(when (-> *ripple-globals* count)
|
||||
(ripple-execute-init)
|
||||
(let ((gp-0 0)
|
||||
(s5-0 (-> *ripple-globals* count))
|
||||
(s4-0 (-> *ripple-globals* requests))
|
||||
)
|
||||
(while (!= gp-0 s5-0)
|
||||
(when (-> s4-0 gp-0 waveform)
|
||||
(let ((s3-0 gp-0)
|
||||
(s2-0 (-> s4-0 gp-0 waveform))
|
||||
)
|
||||
(ripple-create-wave-table (the-as ripple-wave-set s2-0))
|
||||
(while (!= s3-0 s5-0)
|
||||
(when (= s2-0 (-> s4-0 s3-0 waveform))
|
||||
(ripple-apply-wave-table (-> s4-0 s3-0 effect))
|
||||
(set! (-> s4-0 s3-0 waveform) #f)
|
||||
)
|
||||
(+! s3-0 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
(+! gp-0 1)
|
||||
)
|
||||
)
|
||||
(set! (-> *ripple-globals* count) 0)
|
||||
0
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function ripple-matrix-scale
|
||||
;; INFO: function output is handled by mips2c
|
||||
(def-mips2c ripple-matrix-scale (function merc-effect none))
|
||||
|
||||
;; definition (debug) for function ripple-add-debug-sphere
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun-debug ripple-add-debug-sphere ((arg0 process-drawable) (arg1 vector) (arg2 float) (arg3 float))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((f30-0 (- (quaternion-y-angle (the-as quaternion (-> arg0 root rot)))))
|
||||
(s5-0 (new-stack-vector0))
|
||||
)
|
||||
(let ((f28-0 (+ (-> arg1 x) (* arg2 (-> arg1 z))))
|
||||
(f26-0 (+ (-> arg1 y) (* arg3 (-> arg1 z))))
|
||||
)
|
||||
(set! (-> s5-0 x) (- (* f28-0 (cos f30-0)) (* f26-0 (sin f30-0))))
|
||||
(set! (-> s5-0 y) 0.0)
|
||||
(set! (-> s5-0 z) (+ (* f26-0 (cos f30-0)) (* f28-0 (sin f30-0))))
|
||||
)
|
||||
(set! (-> s5-0 w) 0.0)
|
||||
(let ((a0-6 s5-0))
|
||||
(let ((v1-1 s5-0)
|
||||
(a1-2 (-> arg0 root trans))
|
||||
)
|
||||
(.lvf vf4 (&-> v1-1 quad))
|
||||
(.lvf vf5 (&-> a1-2 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a0-6 quad) vf6)
|
||||
)
|
||||
(add-debug-sphere #t (bucket-id bucket793) s5-0 (meters 0.5) (new 'static 'rgba :r #xff :g #xff :a #x80))
|
||||
)
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function ripple-slow-add-sine-waves
|
||||
(defun ripple-slow-add-sine-waves ((arg0 ripple-wave-set) (arg1 float) (arg2 float))
|
||||
(let ((f30-0 0.0))
|
||||
(dotimes (s3-0 (-> arg0 count))
|
||||
(let* ((v1-3 (-> arg0 wave s3-0))
|
||||
(f0-2 (+ (-> v1-3 offs) (* arg1 (-> v1-3 xmul)) (* arg2 (-> v1-3 zmul))))
|
||||
)
|
||||
(+! f30-0 (* (-> v1-3 scale) (cos f0-2)))
|
||||
)
|
||||
)
|
||||
(fmax -127.0 (fmin 127.0 f30-0))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function ripple-find-height
|
||||
(defun ripple-find-height ((arg0 process-drawable) (arg1 int) (arg2 vector))
|
||||
(let ((f30-0 (-> arg0 root trans y))
|
||||
(sv-16 (-> arg0 draw))
|
||||
)
|
||||
(if (or (zero? sv-16) (not (-> sv-16 ripple)))
|
||||
(return f30-0)
|
||||
)
|
||||
(let ((v1-11 (-> sv-16 lod-set lod (-> sv-16 cur-lod) geo effect)))
|
||||
(if (not (logtest? (-> v1-11 0 effect-bits) (effect-bits ripple)))
|
||||
(return f30-0)
|
||||
)
|
||||
(let* ((v1-12 (-> v1-11 0 extra-info))
|
||||
(s4-0 (the-as mei-ripple (+ (the-as uint v1-12) (* (-> v1-12 ripple-offset) 16))))
|
||||
(gp-0 (-> sv-16 ripple))
|
||||
(s5-0 (-> gp-0 waveform))
|
||||
)
|
||||
(if (not (-> gp-0 waveform))
|
||||
(return f30-0)
|
||||
)
|
||||
(if (not (-> s5-0 converted))
|
||||
(return f30-0)
|
||||
)
|
||||
(let* ((f28-0 (- (-> arg2 x) (-> arg0 root trans x)))
|
||||
(f26-0 (- (-> arg2 z) (-> arg0 root trans z)))
|
||||
(f22-0 (+ (quaternion-y-angle (the-as quaternion (-> arg0 root rot))) (-> s4-0 angle)))
|
||||
(f24-0 (cos f22-0))
|
||||
(f1-3 (sin f22-0))
|
||||
(f0-4 (- (* f28-0 f24-0) (* f26-0 f1-3)))
|
||||
(f1-5 (+ (* f26-0 f24-0) (* f28-0 f1-3)))
|
||||
(f2-3 (/ 1.0 (-> s4-0 grid-size)))
|
||||
(f28-1 (* f2-3 (- f0-4 (-> s4-0 x-base))))
|
||||
(f26-1 (* f2-3 (- f1-5 (-> s4-0 z-base))))
|
||||
)
|
||||
(ripple-update-waveform-offs s5-0 (-> *display* bg-clock))
|
||||
(let* ((f22-1 (the float (the int f28-1)))
|
||||
(f24-1 (the float (the int f26-1)))
|
||||
(f20-0 (ripple-slow-add-sine-waves s5-0 f22-1 f24-1))
|
||||
(sv-32 (ripple-slow-add-sine-waves s5-0 (+ 1.0 f22-1) f24-1))
|
||||
(sv-48 (ripple-slow-add-sine-waves s5-0 f22-1 (+ 1.0 f24-1)))
|
||||
(f1-6 (ripple-slow-add-sine-waves s5-0 (+ 1.0 f22-1) (+ 1.0 f24-1)))
|
||||
(f0-22 (+ f20-0 (* (- f28-1 f22-1) (- sv-32 f20-0))))
|
||||
(f1-9 (+ sv-48 (* (- f28-1 f22-1) (- f1-6 sv-48))))
|
||||
(f1-12 (+ f0-22 (* (- f26-1 f24-1) (- f1-9 f0-22))))
|
||||
(f0-23 (-> gp-0 faded-scale))
|
||||
)
|
||||
(if (< f0-23 0.0)
|
||||
(set! f0-23 (-> gp-0 global-scale))
|
||||
)
|
||||
(+ f30-0 (* (/ f1-12 128) f0-23))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
Generated
Vendored
+315
@@ -0,0 +1,315 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type lightning-appearance
|
||||
(deftype lightning-appearance (structure)
|
||||
((base-alpha float)
|
||||
(width-range-start float)
|
||||
(width-range-end float)
|
||||
(tex-id uint32)
|
||||
(blend-mode uint64)
|
||||
(fade-time uint64)
|
||||
(regenerate-time-start uint64)
|
||||
(regenerate-time-end uint64)
|
||||
(alpha-1-curve curve2d-fast)
|
||||
(alpha-1-mode uint64)
|
||||
(alpha-1-repeat-dist float)
|
||||
(alpha-2-curve curve2d-fast)
|
||||
(alpha-2-mode uint64)
|
||||
(alpha-2-repeat-dist float)
|
||||
(width-curve curve2d-fast)
|
||||
(width-mode uint64)
|
||||
(width-repeat-dist float)
|
||||
(uv-repeat-dist float)
|
||||
(uv-shift? symbol)
|
||||
(uv-shift-speed uint64)
|
||||
(use-sprite-bucket? symbol)
|
||||
(use-accurate-interp? symbol)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-appearance
|
||||
(defmethod inspect ((this lightning-appearance))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'lightning-appearance)
|
||||
(format #t "~1Tbase-alpha: ~f~%" (-> this base-alpha))
|
||||
(format #t "~1Twidth-range-start: ~f~%" (-> this width-range-start))
|
||||
(format #t "~1Twidth-range-end: ~f~%" (-> this width-range-end))
|
||||
(format #t "~1Ttex-id: ~D~%" (-> this tex-id))
|
||||
(format #t "~1Tblend-mode: ~D~%" (-> this blend-mode))
|
||||
(format #t "~1Tfade-time: ~D~%" (-> this fade-time))
|
||||
(format #t "~1Tregenerate-time-start: ~D~%" (-> this regenerate-time-start))
|
||||
(format #t "~1Tregenerate-time-end: ~D~%" (-> this regenerate-time-end))
|
||||
(format #t "~1Talpha-1-curve: ~A~%" (-> this alpha-1-curve))
|
||||
(format #t "~1Talpha-1-mode: ~D~%" (-> this alpha-1-mode))
|
||||
(format #t "~1Talpha-1-repeat-dist: ~f~%" (-> this alpha-1-repeat-dist))
|
||||
(format #t "~1Talpha-2-curve: ~A~%" (-> this alpha-2-curve))
|
||||
(format #t "~1Talpha-2-mode: ~D~%" (-> this alpha-2-mode))
|
||||
(format #t "~1Talpha-2-repeat-dist: ~f~%" (-> this alpha-2-repeat-dist))
|
||||
(format #t "~1Twidth-curve: ~A~%" (-> this width-curve))
|
||||
(format #t "~1Twidth-mode: ~D~%" (-> this width-mode))
|
||||
(format #t "~1Twidth-repeat-dist: ~f~%" (-> this width-repeat-dist))
|
||||
(format #t "~1Tuv-repeat-dist: ~f~%" (-> this uv-repeat-dist))
|
||||
(format #t "~1Tuv-shift?: ~A~%" (-> this uv-shift?))
|
||||
(format #t "~1Tuv-shift-speed: ~D~%" (-> this uv-shift-speed))
|
||||
(format #t "~1Tuse-sprite-bucket?: ~A~%" (-> this use-sprite-bucket?))
|
||||
(format #t "~1Tuse-accurate-interp?: ~A~%" (-> this use-accurate-interp?))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type lightning-span-internal
|
||||
(deftype lightning-span-internal (structure)
|
||||
((index int16)
|
||||
(span-flags uint8)
|
||||
(num-inner-points int8)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-span-internal
|
||||
(defmethod inspect ((this lightning-span-internal))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'lightning-span-internal)
|
||||
(format #t "~1Tindex: ~D~%" (-> this index))
|
||||
(format #t "~1Tspan-flags: ~D~%" (-> this span-flags))
|
||||
(format #t "~1Tnum-inner-points: ~D~%" (-> this num-inner-points))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type lightning-span
|
||||
(deftype lightning-span (structure)
|
||||
((random-offset-size-start float)
|
||||
(inner-random-offset-size float)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-span
|
||||
(defmethod inspect ((this lightning-span))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'lightning-span)
|
||||
(format #t "~1Trandom-offset-size-start: ~f~%" (-> this random-offset-size-start))
|
||||
(format #t "~1Tinner-random-offset-size: ~f~%" (-> this inner-random-offset-size))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type lightning-spans-array
|
||||
(deftype lightning-spans-array (inline-array-class)
|
||||
((data lightning-span :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-spans-array
|
||||
(defmethod inspect ((this lightning-spans-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> lightning-spans-array heap-base) (the-as uint 8))
|
||||
|
||||
;; definition of type lightning-spans-internal-array
|
||||
(deftype lightning-spans-internal-array (inline-array-class)
|
||||
((data lightning-span-internal :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-spans-internal-array
|
||||
(defmethod inspect ((this lightning-spans-internal-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> lightning-spans-internal-array heap-base) (the-as uint 4))
|
||||
|
||||
;; definition of type tex-u-holder
|
||||
(deftype tex-u-holder (structure)
|
||||
((uu float)
|
||||
(last-dist float)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type tex-u-holder
|
||||
(defmethod inspect ((this tex-u-holder))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'tex-u-holder)
|
||||
(format #t "~1Tuu: ~f~%" (-> this uu))
|
||||
(format #t "~1Tlast-dist: ~f~%" (-> this last-dist))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type lightning-bolt
|
||||
(deftype lightning-bolt (basic)
|
||||
((current-points vector-array)
|
||||
(desired-points vector-array)
|
||||
(span-pts-start vector-array)
|
||||
(spans lightning-spans-array)
|
||||
(spans-internal lightning-spans-internal-array)
|
||||
(strip1 prim-strip)
|
||||
(strip2 prim-strip)
|
||||
(inner-point-travel-time uint64)
|
||||
(start-fade-time uint64)
|
||||
(new-inner-point-generate-time uint64)
|
||||
(last-generate-time uint64)
|
||||
(base-width float)
|
||||
(current-uv-shift float)
|
||||
(current-fade-scalar float)
|
||||
(fractal-reduction float)
|
||||
(appearance lightning-appearance)
|
||||
(fade-mode uint64)
|
||||
(generate-mode uint64)
|
||||
(snap-inner-points? symbol)
|
||||
(span-data int8 2)
|
||||
(num-active-spans int8 :overlay-at (-> span-data 0))
|
||||
(num-spans int8 :overlay-at (-> span-data 1))
|
||||
(base-color rgba)
|
||||
)
|
||||
(:methods
|
||||
(init! (_type_ int int lightning-appearance) none)
|
||||
(reset-spans! (_type_) none)
|
||||
(lightning-bolt-method-11 (_type_) none)
|
||||
(lightning-bolt-method-12 (_type_) none)
|
||||
(lightning-bolt-method-13 (_type_ int) none)
|
||||
(lightning-bolt-method-14 (_type_) int)
|
||||
(lightning-bolt-method-15 (_type_ object int lightning-span-internal) none)
|
||||
(lightning-bolt-method-16 (_type_ vector float float vector matrix) none)
|
||||
(lightning-bolt-method-17 (_type_ uint float float curve2d-fast float) float)
|
||||
(lightning-bolt-method-18 (_type_ prim-strip vector rgba float float) none)
|
||||
(lightning-bolt-method-19 (_type_ vector int int matrix float float) none)
|
||||
(lightning-bolt-method-20 (_type_ int lightning-span-internal) vector)
|
||||
(lightning-bolt-method-21 (_type_ int int float) none)
|
||||
(lightning-bolt-method-22 (_type_) none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-bolt
|
||||
(defmethod inspect ((this lightning-bolt))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tcurrent-points: ~A~%" (-> this current-points))
|
||||
(format #t "~1Tdesired-points: ~A~%" (-> this desired-points))
|
||||
(format #t "~1Tspan-pts-start: ~A~%" (-> this span-pts-start))
|
||||
(format #t "~1Tspans: ~A~%" (-> this spans))
|
||||
(format #t "~1Tspans-internal: ~A~%" (-> this spans-internal))
|
||||
(format #t "~1Tstrip1: ~A~%" (-> this strip1))
|
||||
(format #t "~1Tstrip2: ~A~%" (-> this strip2))
|
||||
(format #t "~1Tinner-point-travel-time: ~D~%" (-> this inner-point-travel-time))
|
||||
(format #t "~1Tstart-fade-time: ~D~%" (-> this start-fade-time))
|
||||
(format #t "~1Tnew-inner-point-generate-time: ~D~%" (-> this new-inner-point-generate-time))
|
||||
(format #t "~1Tlast-generate-time: ~D~%" (-> this last-generate-time))
|
||||
(format #t "~1Tbase-width: ~f~%" (-> this base-width))
|
||||
(format #t "~1Tcurrent-uv-shift: ~f~%" (-> this current-uv-shift))
|
||||
(format #t "~1Tcurrent-fade-scalar: ~f~%" (-> this current-fade-scalar))
|
||||
(format #t "~1Tfractal-reduction: ~f~%" (-> this fractal-reduction))
|
||||
(format #t "~1Tappearance: #<lightning-appearance @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tfade-mode: ~D~%" (-> this fade-mode))
|
||||
(format #t "~1Tgenerate-mode: ~D~%" (-> this generate-mode))
|
||||
(format #t "~1Tsnap-inner-points?: ~A~%" (-> this snap-inner-points?))
|
||||
(format #t "~1Tspan-data[2] @ #x~X~%" (-> this span-data))
|
||||
(format #t "~1Tnum-active-spans: ~D~%" (-> this num-active-spans))
|
||||
(format #t "~1Tnum-spans: ~D~%" (-> this num-spans))
|
||||
(format #t "~1Tbase-color: ~D~%" (-> this base-color))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type lightning-new-tracker
|
||||
(deftype lightning-new-tracker (process)
|
||||
((bolt lightning-bolt)
|
||||
(lifetime uint64)
|
||||
(state-time uint64)
|
||||
)
|
||||
(:state-methods
|
||||
active
|
||||
die
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-new-tracker
|
||||
(defmethod inspect ((this lightning-new-tracker))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Tbolt: ~A~%" (-> this bolt))
|
||||
(format #t "~2Tlifetime: ~D~%" (-> this lifetime))
|
||||
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type lightning-tracker-init-params
|
||||
(deftype lightning-tracker-init-params (structure)
|
||||
((appearance lightning-appearance)
|
||||
(start-pt vector :inline)
|
||||
(end-pt vector :inline)
|
||||
(lifetime uint64)
|
||||
(num-inner-points int8)
|
||||
(inner-random-offset-size float)
|
||||
(random-offset-size-start float)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type lightning-tracker-init-params
|
||||
(defmethod inspect ((this lightning-tracker-init-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'lightning-tracker-init-params)
|
||||
(format #t "~1Tappearance: #<lightning-appearance @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tstart-pt: #<vector @ #x~X>~%" (-> this start-pt))
|
||||
(format #t "~1Tend-pt: #<vector @ #x~X>~%" (-> this end-pt))
|
||||
(format #t "~1Tlifetime: ~D~%" (-> this lifetime))
|
||||
(format #t "~1Tnum-inner-points: ~D~%" (-> this num-inner-points))
|
||||
(format #t "~1Tinner-random-offset-size: ~f~%" (-> this inner-random-offset-size))
|
||||
(format #t "~1Trandom-offset-size-start: ~f~%" (-> this random-offset-size-start))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+934
@@ -0,0 +1,934 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *lightning-alpha-additive*, type gs-alpha
|
||||
(define *lightning-alpha-additive* (new 'static 'gs-alpha :b #x2 :d #x1))
|
||||
|
||||
;; definition for symbol *lightning-alpha-blend*, type gs-alpha
|
||||
(define *lightning-alpha-blend* (new 'static 'gs-alpha :b #x1 :d #x1))
|
||||
|
||||
;; definition for symbol *lightning-alpha-subtractive*, type gs-alpha
|
||||
(define *lightning-alpha-subtractive* (new 'static 'gs-alpha :a #x2 :d #x1))
|
||||
|
||||
;; definition for method 9 of type lightning-bolt
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod init! ((this lightning-bolt) (arg0 int) (arg1 int) (arg2 lightning-appearance))
|
||||
(set! (-> this num-spans) arg0)
|
||||
(set! (-> this spans) (new 'process 'lightning-spans-array arg0))
|
||||
(set! (-> this num-active-spans) 0)
|
||||
(set! (-> this span-pts-start) (new 'process 'vector-array arg0))
|
||||
(let ((s3-0 (* arg1 arg0)))
|
||||
(let ((s2-1 (+ (* arg1 (+ arg0 -1)) 1)))
|
||||
(set! (-> this current-points) (new 'process 'vector-array s2-1))
|
||||
(set! (-> this desired-points) (new 'process 'vector-array s2-1))
|
||||
)
|
||||
(let ((f30-0 (* 2.0 (the float s3-0))))
|
||||
(set! (-> this strip1)
|
||||
(new 'process 'prim-strip (the int f30-0) (new 'static 'texture-id :index #x3 :page #x1) (the-as string #f))
|
||||
)
|
||||
(set! (-> this strip2)
|
||||
(new 'process 'prim-strip (the int f30-0) (new 'static 'texture-id :index #x3 :page #x1) (the-as string #f))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> this appearance) arg2)
|
||||
(set! (-> this spans-internal) (new 'process 'lightning-spans-internal-array arg0))
|
||||
(set! (-> this current-uv-shift) 0.0)
|
||||
(set! (-> this strip1 clamp) (new 'static 'gs-clamp))
|
||||
(set! (-> this strip2 clamp) (new 'static 'gs-clamp))
|
||||
(set! (-> this new-inner-point-generate-time)
|
||||
(the-as
|
||||
uint
|
||||
(rand-vu-int-range
|
||||
(the-as int (-> this appearance regenerate-time-start))
|
||||
(the-as int (-> this appearance regenerate-time-end))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> this base-width)
|
||||
(rand-vu-float-range (-> this appearance width-range-start) (-> this appearance width-range-end))
|
||||
)
|
||||
(set! (-> this fade-mode) (the-as uint 0))
|
||||
(set! (-> this current-fade-scalar) 1.0)
|
||||
(when (-> this appearance uv-shift?)
|
||||
(let* ((v1-22 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-23 (the-as number (logior #x3f800000 v1-22)))
|
||||
)
|
||||
(set! (-> this current-uv-shift) (+ -1.0 (the-as float v1-23)))
|
||||
)
|
||||
)
|
||||
(let ((v1-26 (the-as number 0)))
|
||||
(while (< (the-as int v1-26) (-> this num-spans))
|
||||
(logand! (-> this spans-internal data (the-as int v1-26) span-flags) -2)
|
||||
(set! (-> this spans-internal data (the-as int v1-26) index) (the-as int v1-26))
|
||||
(set! v1-26 (+ (the-as int v1-26) 1))
|
||||
)
|
||||
)
|
||||
(set! (-> this base-color) *color-gray*)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type lightning-bolt
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod reset-spans! ((this lightning-bolt))
|
||||
(set! (-> this num-active-spans) 0)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 20 of type lightning-bolt
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod lightning-bolt-method-20 ((this lightning-bolt) (arg0 int) (arg1 lightning-span-internal))
|
||||
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
||||
(let* ((f30-0 -0.5)
|
||||
(v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-3 (the-as number (logior #x3f800000 v1-2)))
|
||||
)
|
||||
(set! (-> s3-0 x) (+ f30-0 (+ -1.0 (the-as float v1-3))))
|
||||
)
|
||||
(let* ((f30-1 -0.5)
|
||||
(v1-7 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-8 (the-as number (logior #x3f800000 v1-7)))
|
||||
)
|
||||
(set! (-> s3-0 y) (+ f30-1 (+ -1.0 (the-as float v1-8))))
|
||||
)
|
||||
(set! (-> s3-0 z) (the float (-> arg1 index)))
|
||||
(set! (-> s3-0 w) 1.0)
|
||||
(set! (-> this desired-points data arg0 quad) (-> s3-0 quad))
|
||||
)
|
||||
(set! (-> this current-points data arg0 z) (the float (-> arg1 index)))
|
||||
(-> this desired-points data arg0)
|
||||
)
|
||||
|
||||
;; definition for method 21 of type lightning-bolt
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod lightning-bolt-method-21 ((this lightning-bolt) (arg0 int) (arg1 int) (arg2 float))
|
||||
(let ((v1-0 (-> this desired-points)))
|
||||
(when (< 1 (- arg1 arg0))
|
||||
(let ((sv-16 (/ (+ arg0 arg1) 2)))
|
||||
(let ((sv-24 (-> v1-0 data arg0))
|
||||
(sv-28 (-> v1-0 data arg1))
|
||||
(sv-32 (the-as float 1.0))
|
||||
)
|
||||
(set! sv-32 (-> sv-28 z))
|
||||
(let ((s2-0 (-> v1-0 data sv-16)))
|
||||
(let* ((f30-0 (* 0.5 (+ (-> sv-24 x) (-> sv-28 x))))
|
||||
(f28-0 arg2)
|
||||
(f26-0 -0.5)
|
||||
(v1-6 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-7 (the-as number (logior #x3f800000 v1-6)))
|
||||
)
|
||||
(set! (-> s2-0 x) (+ f30-0 (* f28-0 (+ f26-0 (+ -1.0 (the-as float v1-7))))))
|
||||
)
|
||||
(let* ((f30-1 (* 0.5 (+ (-> sv-24 y) (-> sv-28 y))))
|
||||
(f28-1 arg2)
|
||||
(f26-1 -0.5)
|
||||
(v1-14 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-15 (the-as number (logior #x3f800000 v1-14)))
|
||||
)
|
||||
(set! (-> s2-0 y) (+ f30-1 (* f28-1 (+ f26-1 (+ -1.0 (the-as float v1-15))))))
|
||||
)
|
||||
(set! (-> s2-0 z) (lerp (-> sv-24 z) sv-32 0.5))
|
||||
)
|
||||
)
|
||||
(lightning-bolt-method-21 this arg0 sv-16 (* arg2 (-> this fractal-reduction)))
|
||||
(lightning-bolt-method-21 this sv-16 arg1 (* arg2 (-> this fractal-reduction)))
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 15 of type lightning-bolt
|
||||
(defmethod lightning-bolt-method-15 ((this lightning-bolt) (arg0 object) (arg1 int) (arg2 lightning-span-internal))
|
||||
(let ((v1-0 (-> this generate-mode)))
|
||||
(cond
|
||||
((zero? v1-0)
|
||||
(let ((f30-0 (the float (-> arg2 index)))
|
||||
(f28-0 (the float (+ (-> arg2 index) 1)))
|
||||
(f26-0 (/ 1.0 (the float (+ (-> arg2 num-inner-points) 1))))
|
||||
)
|
||||
0.0
|
||||
(let ((f24-0 (+ 0.0 f26-0)))
|
||||
(dotimes (s3-0 (-> arg2 num-inner-points))
|
||||
(let ((f22-0 (lerp f30-0 f28-0 f24-0)))
|
||||
(let ((s2-0 (-> this desired-points data (+ s3-0 1 arg1))))
|
||||
(let* ((f20-0 -0.5)
|
||||
(v1-13 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-14 (the-as number (logior #x3f800000 v1-13)))
|
||||
)
|
||||
(set! (-> s2-0 x) (+ f20-0 (+ -1.0 (the-as float v1-14))))
|
||||
)
|
||||
(let* ((f20-1 -0.5)
|
||||
(v1-18 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-19 (the-as number (logior #x3f800000 v1-18)))
|
||||
)
|
||||
(set! (-> s2-0 y) (+ f20-1 (+ -1.0 (the-as float v1-19))))
|
||||
)
|
||||
(set! (-> s2-0 z) f22-0)
|
||||
(set! (-> s2-0 w) 1.0)
|
||||
)
|
||||
(set! (-> this current-points data (+ s3-0 1 arg1) z) f22-0)
|
||||
)
|
||||
(+! f24-0 f26-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= v1-0 1)
|
||||
(lightning-bolt-method-21 this arg1 (+ (-> arg2 num-inner-points) 1 arg1) 1.0)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type lightning-bolt
|
||||
;; WARN: Return type mismatch uint vs int.
|
||||
(defmethod lightning-bolt-method-14 ((this lightning-bolt))
|
||||
(the-as int (-> this fade-mode))
|
||||
)
|
||||
|
||||
;; definition for method 13 of type lightning-bolt
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod lightning-bolt-method-13 ((this lightning-bolt) (arg0 int))
|
||||
(when (!= (-> this fade-mode) arg0)
|
||||
(let ((v1-1 arg0))
|
||||
(cond
|
||||
((zero? v1-1)
|
||||
(set! (-> this current-fade-scalar) 1.0)
|
||||
(set! (-> this start-fade-time) (the-as uint (current-time)))
|
||||
)
|
||||
((= v1-1 2)
|
||||
(set! (-> this start-fade-time) (the-as uint (current-time)))
|
||||
(set! (-> this current-fade-scalar) 1.0)
|
||||
)
|
||||
((= v1-1 1)
|
||||
(set! (-> this current-fade-scalar) 0.0)
|
||||
(set! (-> this start-fade-time) (the-as uint (current-time)))
|
||||
)
|
||||
((= v1-1 3)
|
||||
(dotimes (v1-12 (-> this num-spans))
|
||||
(logand! (-> this spans-internal data v1-12 span-flags) -2)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> this fade-mode) (the-as uint arg0))
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type lightning-bolt
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; WARN: Function (method 11 lightning-bolt) has a return type of none, but the expression builder found a return statement.
|
||||
(defmethod lightning-bolt-method-11 ((this lightning-bolt))
|
||||
(with-pp
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(case (-> this fade-mode)
|
||||
((2)
|
||||
(let* ((f1-2 (/ (the float (- (current-time) (the-as int (-> this start-fade-time))))
|
||||
(the float (-> this appearance fade-time))
|
||||
)
|
||||
)
|
||||
(f0-3 (fmax 0.0 (fmin 1.0 f1-2)))
|
||||
)
|
||||
(set! (-> this current-fade-scalar) (lerp 1.0 0.0 f0-3))
|
||||
)
|
||||
(if (>= 0.0 (-> this current-fade-scalar))
|
||||
(lightning-bolt-method-13 this 3)
|
||||
)
|
||||
)
|
||||
((1)
|
||||
(let* ((f1-7 (/ (the float (- (current-time) (the-as int (-> this start-fade-time))))
|
||||
(the float (-> this appearance fade-time))
|
||||
)
|
||||
)
|
||||
(f0-9 (fmax 0.0 (fmin 1.0 f1-7)))
|
||||
)
|
||||
(set! (-> this current-fade-scalar) (lerp 0.0 1.0 f0-9))
|
||||
)
|
||||
(if (>= (-> this current-fade-scalar) 1.0)
|
||||
(lightning-bolt-method-13 this 0)
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= (-> this fade-mode) 3)
|
||||
(return 0)
|
||||
)
|
||||
(if (zero? (-> this fade-mode))
|
||||
(set! (-> this current-fade-scalar) 1.0)
|
||||
)
|
||||
(set! (-> this num-active-spans) (min (-> this num-active-spans) (+ (-> this num-spans) -1)))
|
||||
(let ((v1-31 (-> this num-active-spans))
|
||||
(a0-14 (+ (-> this num-spans) -1))
|
||||
)
|
||||
(while (>= a0-14 v1-31)
|
||||
(let ((a1-6 (-> this spans-internal data v1-31)))
|
||||
(logand! (-> a1-6 span-flags) -2)
|
||||
)
|
||||
(+! v1-31 1)
|
||||
)
|
||||
)
|
||||
(let ((v1-37 (time-elapsed?
|
||||
(the-as int (-> this last-generate-time))
|
||||
(the-as time-frame (-> this new-inner-point-generate-time))
|
||||
)
|
||||
)
|
||||
)
|
||||
(dotimes (a0-17 (-> this num-active-spans))
|
||||
(-> this spans data a0-17)
|
||||
(let ((a1-12 (-> this spans-internal data a0-17)))
|
||||
(if (or v1-37 (not (logtest? (-> a1-12 span-flags) 1)))
|
||||
(logior! (-> a1-12 span-flags) 2)
|
||||
(logand! (-> a1-12 span-flags) -3)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((s5-0 0))
|
||||
(dotimes (s4-0 (-> this num-active-spans))
|
||||
(-> this spans data s4-0)
|
||||
(let* ((a2-13 (-> this spans-internal data s4-0))
|
||||
(s3-0 (+ (-> a2-13 num-inner-points) 1))
|
||||
)
|
||||
(when (logtest? (-> a2-13 span-flags) 2)
|
||||
(when (or (-> this snap-inner-points?)
|
||||
(and (logtest? (-> a2-13 span-flags) 2) (not (logtest? (-> a2-13 span-flags) 1)))
|
||||
)
|
||||
(dotimes (v1-55 s3-0)
|
||||
(set! (-> this current-points data (+ v1-55 s5-0) quad) (-> this desired-points data (+ v1-55 s5-0) quad))
|
||||
)
|
||||
)
|
||||
(lightning-bolt-method-20 this s5-0 a2-13)
|
||||
)
|
||||
(+! s5-0 s3-0)
|
||||
)
|
||||
)
|
||||
(when (time-elapsed?
|
||||
(the-as int (-> this last-generate-time))
|
||||
(the-as time-frame (-> this new-inner-point-generate-time))
|
||||
)
|
||||
(lightning-bolt-method-20 this s5-0 (-> this spans-internal data (-> this num-active-spans)))
|
||||
(if (-> this snap-inner-points?)
|
||||
(set! (-> this current-points data s5-0 quad) (-> this desired-points data s5-0 quad))
|
||||
)
|
||||
(set! (-> this last-generate-time) (the-as uint (current-time)))
|
||||
(set! (-> this new-inner-point-generate-time)
|
||||
(the-as uint (rand-vu-int-range
|
||||
(the-as int (-> this appearance regenerate-time-start))
|
||||
(the-as int (-> this appearance regenerate-time-end))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((s5-1 0))
|
||||
(dotimes (s4-1 (-> this num-active-spans))
|
||||
(let* ((a1-24 (-> this spans data s4-1))
|
||||
(a3-5 (-> this spans-internal data s4-1))
|
||||
(s3-1 (+ (-> a3-5 num-inner-points) 1))
|
||||
)
|
||||
(if (logtest? (-> a3-5 span-flags) 2)
|
||||
(lightning-bolt-method-15 this a1-24 s5-1 a3-5)
|
||||
)
|
||||
(+! s5-1 s3-1)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((s5-2 0))
|
||||
(dotimes (s4-2 (+ (-> this num-active-spans) 1))
|
||||
(-> this spans data s4-2)
|
||||
(let* ((v1-102 (-> this spans-internal data s4-2))
|
||||
(s3-2 (+ (-> v1-102 num-inner-points) 1))
|
||||
)
|
||||
(if (= s4-2 (-> this num-active-spans))
|
||||
(set! s3-2 1)
|
||||
)
|
||||
(cond
|
||||
((not (-> this appearance use-accurate-interp?))
|
||||
(let ((a0-49 (the-as int (- (current-time) (-> pp clock old-frame-counter)))))
|
||||
0.0
|
||||
(if (logtest? (-> v1-102 span-flags) 2)
|
||||
(set! a0-49 0)
|
||||
)
|
||||
(let* ((f1-12 (/ (the float a0-49) (the float (-> this inner-point-travel-time))))
|
||||
(f30-0 (fmax 0.0 (fmin 1.0 f1-12)))
|
||||
)
|
||||
(dotimes (s2-0 s3-2)
|
||||
(vector-lerp!
|
||||
(-> this current-points data (+ s2-0 s5-2))
|
||||
(-> this current-points data (+ s2-0 s5-2))
|
||||
(-> this desired-points data (+ s2-0 s5-2))
|
||||
f30-0
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(let ((sv-16 (- (current-time) (- (current-time) (-> pp clock old-frame-counter))))
|
||||
(sv-24 (the-as float 0.0))
|
||||
(sv-32 (current-time))
|
||||
(sv-40 (the-as float 0.0))
|
||||
)
|
||||
(set! sv-24 (/ (the float (- sv-16 (the-as int (-> this last-generate-time))))
|
||||
(the float (-> this inner-point-travel-time))
|
||||
)
|
||||
)
|
||||
(set! sv-40 (/ (the float (- sv-32 (the-as int (-> this last-generate-time))))
|
||||
(the float (-> this inner-point-travel-time))
|
||||
)
|
||||
)
|
||||
(set! sv-24 (fmax 0.0 (fmin 1.0 sv-24)))
|
||||
(set! sv-40 (fmax 0.0 (fmin 1.0 sv-40)))
|
||||
(let ((f30-1 (- 1.0 sv-24)))
|
||||
(dotimes (s2-1 s3-2)
|
||||
(let ((sv-64 (new 'stack-no-clear 'vector))
|
||||
(sv-68 (the-as float 0.0))
|
||||
)
|
||||
(let ((sv-72 (the-as float 0.0)))
|
||||
)
|
||||
(set-vector!
|
||||
sv-64
|
||||
(- (-> this desired-points data (+ s2-1 s5-2) x) (-> this current-points data (+ s2-1 s5-2) x))
|
||||
(- (-> this desired-points data (+ s2-1 s5-2) y) (-> this current-points data (+ s2-1 s5-2) y))
|
||||
0.0
|
||||
1.0
|
||||
)
|
||||
(set! sv-68 (vector-normalize-ret-len! sv-64 1.0))
|
||||
(when (< 0.0 f30-1)
|
||||
(vector-float*! sv-64 sv-64 (* (/ sv-68 f30-1) (- sv-40 sv-24)))
|
||||
(let ((v1-142 (-> this current-points data (+ s2-1 s5-2))))
|
||||
(let ((a1-41 sv-64))
|
||||
(.lvf vf4 (&-> (-> this current-points data (+ s2-1 s5-2)) quad))
|
||||
(.lvf vf5 (&-> a1-41 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> v1-142 quad) vf6)
|
||||
)
|
||||
(set! (-> this current-points data (+ s2-1 s5-2) z) (-> this desired-points data (+ s2-1 s5-2) z))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(+! s5-2 s3-2)
|
||||
)
|
||||
)
|
||||
)
|
||||
(dotimes (v1-155 (-> this num-active-spans))
|
||||
(-> this spans data v1-155)
|
||||
(let ((a0-82 (-> this spans-internal data v1-155)))
|
||||
(logior! (-> a0-82 span-flags) 1)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 19 of type lightning-bolt
|
||||
;; WARN: Return type mismatch vector vs none.
|
||||
(defmethod lightning-bolt-method-19 ((this lightning-bolt) (arg0 vector) (arg1 int) (arg2 int) (arg3 matrix) (arg4 float) (arg5 float))
|
||||
(let ((a1-2
|
||||
(vector-! (new 'stack-no-clear 'vector) (-> this current-points data arg2) (-> this current-points data arg1))
|
||||
)
|
||||
)
|
||||
(set! (-> a1-2 x) (* (-> a1-2 x) arg4))
|
||||
(set! (-> a1-2 y) (* (-> a1-2 y) arg4))
|
||||
(set! (-> a1-2 z) (* (-> a1-2 z) arg5))
|
||||
(vector-rotate*! arg0 a1-2 arg3)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function matrix<-vector-yz2!
|
||||
;; INFO: Used lq/sq
|
||||
(defun matrix<-vector-yz2! ((arg0 matrix) (arg1 vector) (arg2 vector))
|
||||
(set! (-> arg0 fvec quad) (-> arg1 quad))
|
||||
(vector-cross! (-> arg0 rvec) arg2 arg1)
|
||||
(vector-normalize! (-> arg0 rvec) 1.0)
|
||||
(vector-cross! (-> arg0 uvec) arg1 (-> arg0 rvec))
|
||||
(vector-normalize! (-> arg0 uvec) 1.0)
|
||||
(set! (-> arg0 rvec w) 1.0)
|
||||
(set! (-> arg0 uvec w) 1.0)
|
||||
(set! (-> arg0 fvec w) 1.0)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for method 22 of type lightning-bolt
|
||||
;; WARN: Return type mismatch number vs none.
|
||||
;; WARN: Function (method 22 lightning-bolt) has a return type of none, but the expression builder found a return statement.
|
||||
(defmethod lightning-bolt-method-22 ((this lightning-bolt))
|
||||
(with-pp
|
||||
(set! (-> this strip1 num-verts) (the-as uint 0))
|
||||
(set! (-> this strip2 num-verts) (the-as uint 0))
|
||||
(set! (-> this strip1 adnops 0 cmds) (gs-reg64 test-1))
|
||||
(set! (-> this strip1 data0)
|
||||
(new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest greater-equal))
|
||||
)
|
||||
(set! (-> this strip2 adnops 0 cmds) (gs-reg64 test-1))
|
||||
(set! (-> this strip2 data0)
|
||||
(new 'static 'gs-test :ate #x1 :afail #x1 :zte #x1 :ztst (gs-ztest greater-equal))
|
||||
)
|
||||
(set! (-> this strip1 adnops 1 cmds) (gs-reg64 alpha-1))
|
||||
(set! (-> this strip2 adnops 1 cmds) (gs-reg64 alpha-1))
|
||||
(let ((v1-9 (-> this appearance blend-mode)))
|
||||
(cond
|
||||
((= v1-9 1)
|
||||
(set! (-> this strip1 data1) (the-as gs-test *lightning-alpha-additive*))
|
||||
(set! (-> this strip2 data1) (the-as gs-test *lightning-alpha-additive*))
|
||||
)
|
||||
((zero? v1-9)
|
||||
(set! (-> this strip1 data1) (the-as gs-test *lightning-alpha-blend*))
|
||||
(set! (-> this strip2 data1) (the-as gs-test *lightning-alpha-blend*))
|
||||
)
|
||||
((= v1-9 2)
|
||||
(set! (-> this strip1 data1) (the-as gs-test *lightning-alpha-subtractive*))
|
||||
(set! (-> this strip2 data1) (the-as gs-test *lightning-alpha-subtractive*))
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> this strip1 tex-id) (the-as texture-id (-> this appearance tex-id)))
|
||||
(set! (-> this strip2 tex-id) (the-as texture-id (-> this appearance tex-id)))
|
||||
(if (= (-> this fade-mode) 3)
|
||||
(return 0)
|
||||
)
|
||||
(when (-> this appearance uv-shift?)
|
||||
(let ((f0-2 (/ (the float (- (current-time) (-> pp clock old-frame-counter)))
|
||||
(the float (-> this appearance uv-shift-speed))
|
||||
)
|
||||
)
|
||||
)
|
||||
(+! (-> this current-uv-shift) f0-2)
|
||||
)
|
||||
(let ((f0-4 (-> this current-uv-shift)))
|
||||
(set! (-> this current-uv-shift) (- f0-4 (the float (the int f0-4))))
|
||||
)
|
||||
(if (< (-> this current-uv-shift) 1.0)
|
||||
(+! (-> this current-uv-shift) 1.0)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function choose-nice-perp
|
||||
(defun choose-nice-perp ((arg0 vector))
|
||||
(if (< (+ (square (-> arg0 x)) (square (-> arg0 z))) 0.01)
|
||||
*x-vector*
|
||||
*up-vector*
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type lightning-bolt
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; WARN: Function (method 12 lightning-bolt) has a return type of none, but the expression builder found a return statement.
|
||||
(defmethod lightning-bolt-method-12 ((this lightning-bolt))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(when (= (-> this fade-mode) 3)
|
||||
(set! (-> this strip1 num-verts) (the-as uint 0))
|
||||
(set! (-> this strip2 num-verts) (the-as uint 0))
|
||||
(return 0)
|
||||
)
|
||||
(let ((sv-48 0)
|
||||
(sv-56 (the-as float 0.0))
|
||||
(sv-60 (new 'stack-no-clear 'vector))
|
||||
(sv-64 (new 'stack-no-clear 'matrix))
|
||||
)
|
||||
(lightning-bolt-method-22 this)
|
||||
(set! (-> sv-60 x) 0.0)
|
||||
(set! (-> sv-60 y) 0.0)
|
||||
(dotimes (s5-0 (-> this num-active-spans))
|
||||
(let ((sv-96 (-> this spans data s5-0))
|
||||
(sv-100 (-> this spans-internal data s5-0))
|
||||
(sv-104 (new 'stack-no-clear 'vector))
|
||||
)
|
||||
(let ((sv-224 (new 'stack-no-clear 'matrix))
|
||||
(sv-228 (new 'stack-no-clear 'vector))
|
||||
(sv-232 (new 'stack-no-clear 'vector))
|
||||
(sv-236 (the-as float 0.0))
|
||||
)
|
||||
(let ((sv-240
|
||||
(vector-!
|
||||
(new 'stack-no-clear 'vector)
|
||||
(-> this span-pts-start data (+ s5-0 1))
|
||||
(-> this span-pts-start data s5-0)
|
||||
)
|
||||
)
|
||||
(sv-244 (the float (-> sv-100 index)))
|
||||
)
|
||||
(vector-normalize! sv-240 1.0)
|
||||
(set! sv-236
|
||||
(vector-vector-distance (-> this span-pts-start data s5-0) (-> this span-pts-start data (+ s5-0 1)))
|
||||
)
|
||||
(matrix<-vector-yz2! sv-224 sv-240 (choose-nice-perp sv-240))
|
||||
(let ((f30-0 (-> sv-96 random-offset-size-start)))
|
||||
(lightning-bolt-method-19 this sv-104 sv-48 (+ sv-48 1) sv-224 f30-0 sv-236)
|
||||
(set! (-> sv-232 quad) (-> this current-points data sv-48 quad))
|
||||
(set! (-> sv-232 x) (* (-> sv-232 x) f30-0))
|
||||
(set! (-> sv-232 y) (* (-> sv-232 y) f30-0))
|
||||
)
|
||||
(set! (-> sv-232 z) (- (-> sv-232 z) sv-244))
|
||||
(set! (-> sv-232 z) (* (-> sv-232 z) sv-236))
|
||||
(vector-rotate*! sv-228 sv-232 sv-224)
|
||||
(let ((a0-21 sv-228))
|
||||
(let ((v1-43 sv-228)
|
||||
(a1-13 (-> this span-pts-start data s5-0))
|
||||
)
|
||||
(.lvf vf4 (&-> v1-43 quad))
|
||||
(.lvf vf5 (&-> a1-13 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a0-21 quad) vf6)
|
||||
)
|
||||
(lightning-bolt-method-16 this sv-228 (vector-length sv-232) sv-56 sv-60 (the-as matrix sv-104))
|
||||
(let ((sv-248 (-> sv-96 inner-random-offset-size)))
|
||||
(dotimes (s4-1 (-> sv-100 num-inner-points))
|
||||
(let ((sv-256 (+ sv-48 1 s4-1)))
|
||||
(lightning-bolt-method-19 this sv-104 (+ sv-256 -1) sv-256 sv-224 sv-248 sv-236)
|
||||
(set! (-> sv-232 quad) (-> this current-points data sv-256 quad))
|
||||
)
|
||||
(set! (-> sv-232 x) (* (-> sv-232 x) sv-248))
|
||||
(set! (-> sv-232 y) (* (-> sv-232 y) sv-248))
|
||||
(set! (-> sv-232 z) (- (-> sv-232 z) sv-244))
|
||||
(set! (-> sv-232 z) (* (-> sv-232 z) sv-236))
|
||||
(vector-rotate*! sv-228 sv-232 sv-224)
|
||||
(let ((a0-30 sv-228))
|
||||
(let ((v1-63 sv-228)
|
||||
(a1-20 (-> this span-pts-start data s5-0))
|
||||
)
|
||||
(.lvf vf4 (&-> v1-63 quad))
|
||||
(.lvf vf5 (&-> a1-20 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a0-30 quad) vf6)
|
||||
)
|
||||
(lightning-bolt-method-16 this sv-228 (vector-length sv-232) sv-56 sv-60 (the-as matrix sv-104))
|
||||
)
|
||||
)
|
||||
)
|
||||
(+! sv-56 sv-236)
|
||||
)
|
||||
(set! sv-48 (+ (-> sv-100 num-inner-points) 1 sv-48))
|
||||
(set! (-> sv-64 rvec quad) (-> sv-104 quad))
|
||||
)
|
||||
)
|
||||
(let* ((s5-1 (-> this num-active-spans))
|
||||
(sv-288 (-> this spans data s5-1))
|
||||
(sv-292 (-> this spans-internal data s5-1))
|
||||
)
|
||||
(let ((sv-296 (new 'stack-no-clear 'vector)))
|
||||
)
|
||||
(let ((sv-416 (new 'stack-no-clear 'matrix))
|
||||
(sv-420 (new 'stack-no-clear 'vector))
|
||||
)
|
||||
(let ((sv-424 (new 'stack-no-clear 'vector)))
|
||||
(let ((sv-428 (vector-!
|
||||
(new 'stack-no-clear 'vector)
|
||||
(-> this span-pts-start data s5-1)
|
||||
(-> this span-pts-start data (+ s5-1 -1))
|
||||
)
|
||||
)
|
||||
(sv-432 (the float (-> sv-292 index)))
|
||||
)
|
||||
(vector-normalize! sv-428 1.0)
|
||||
(matrix<-vector-yz2! sv-416 sv-428 (choose-nice-perp sv-428))
|
||||
(let ((f0-33 (-> sv-288 random-offset-size-start)))
|
||||
(set! (-> sv-424 quad) (-> this current-points data sv-48 quad))
|
||||
(set! (-> sv-424 x) (* (-> sv-424 x) f0-33))
|
||||
(set! (-> sv-424 y) (* (-> sv-424 y) f0-33))
|
||||
)
|
||||
(set! (-> sv-424 z) (- (-> sv-424 z) sv-432))
|
||||
)
|
||||
(vector-rotate*! sv-420 sv-424 sv-416)
|
||||
)
|
||||
(let ((a0-49 sv-420))
|
||||
(let ((v1-102 sv-420)
|
||||
(a1-33 (-> this span-pts-start data s5-1))
|
||||
)
|
||||
(.lvf vf4 (&-> v1-102 quad))
|
||||
(.lvf vf5 (&-> a1-33 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a0-49 quad) vf6)
|
||||
)
|
||||
(lightning-bolt-method-16 this sv-420 0.0 sv-56 sv-60 sv-64)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 7 of type lightning-bolt
|
||||
(defmethod relocate ((this lightning-bolt) (offset int))
|
||||
(if (nonzero? (-> this spans))
|
||||
(&+! (-> this spans) offset)
|
||||
)
|
||||
(if (nonzero? (-> this strip1))
|
||||
(&+! (-> this strip1) offset)
|
||||
)
|
||||
(if (nonzero? (-> this strip2))
|
||||
(&+! (-> this strip2) offset)
|
||||
)
|
||||
(dotimes (v1-12 (+ (-> this num-spans) -1))
|
||||
)
|
||||
(if (nonzero? (-> this spans-internal))
|
||||
(&+! (-> this spans-internal) offset)
|
||||
)
|
||||
(if (nonzero? (-> this current-points))
|
||||
(&+! (-> this current-points) offset)
|
||||
)
|
||||
(if (nonzero? (-> this desired-points))
|
||||
(&+! (-> this desired-points) offset)
|
||||
)
|
||||
(if (nonzero? (-> this span-pts-start))
|
||||
(&+! (-> this span-pts-start) offset)
|
||||
)
|
||||
(call-parent-method this offset)
|
||||
)
|
||||
|
||||
;; definition for method 17 of type lightning-bolt
|
||||
(defmethod lightning-bolt-method-17 ((this lightning-bolt) (arg0 uint) (arg1 float) (arg2 float) (arg3 curve2d-fast) (arg4 float))
|
||||
(if (not arg3)
|
||||
(return 1.0)
|
||||
)
|
||||
(let ((v1-2 arg0))
|
||||
(cond
|
||||
((zero? v1-2)
|
||||
(evaluate arg3 (/ arg2 arg4) (loop-behavior use-default))
|
||||
)
|
||||
((= v1-2 1)
|
||||
(evaluate arg3 arg1 (loop-behavior use-default))
|
||||
)
|
||||
((= v1-2 2)
|
||||
(let* ((v1-6 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
||||
(v1-7 (the-as number (logior #x3f800000 v1-6)))
|
||||
)
|
||||
(+ -1.0 (the-as float v1-7))
|
||||
)
|
||||
)
|
||||
(else
|
||||
1.0
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 16 of type lightning-bolt
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod lightning-bolt-method-16 ((this lightning-bolt) (arg0 vector) (arg1 float) (arg2 float) (arg3 vector) (arg4 matrix))
|
||||
0.0
|
||||
0.0
|
||||
0.0
|
||||
(let ((f28-0 (/ (the float (- (current-time) (the-as int (-> this last-generate-time))))
|
||||
(the float (-> this inner-point-travel-time))
|
||||
)
|
||||
)
|
||||
(f30-0 (+ arg2 arg1))
|
||||
)
|
||||
(math-camera-pos)
|
||||
(let* ((s2-0 (-> this appearance))
|
||||
(f24-0 (* (lightning-bolt-method-17
|
||||
this
|
||||
(-> s2-0 alpha-1-mode)
|
||||
f28-0
|
||||
f30-0
|
||||
(-> s2-0 alpha-1-curve)
|
||||
(-> s2-0 alpha-1-repeat-dist)
|
||||
)
|
||||
(lightning-bolt-method-17
|
||||
this
|
||||
(-> s2-0 alpha-2-mode)
|
||||
f28-0
|
||||
f30-0
|
||||
(-> s2-0 alpha-2-curve)
|
||||
(-> s2-0 alpha-2-repeat-dist)
|
||||
)
|
||||
(-> s2-0 base-alpha)
|
||||
(-> this current-fade-scalar)
|
||||
)
|
||||
)
|
||||
(f22-0 (* (lightning-bolt-method-17
|
||||
this
|
||||
(-> s2-0 width-mode)
|
||||
f28-0
|
||||
f30-0
|
||||
(-> s2-0 width-curve)
|
||||
(-> s2-0 width-repeat-dist)
|
||||
)
|
||||
(-> this base-width)
|
||||
)
|
||||
)
|
||||
(f0-14 (/ f30-0 (-> s2-0 uv-repeat-dist)))
|
||||
(f28-1 (+ (- f0-14 (* (the float (the int (/ f0-14 6.0))) 6.0)) (-> this current-uv-shift)))
|
||||
)
|
||||
(vector-normalize! (-> arg4 rvec) 1.0)
|
||||
(let* ((a2-4 (-> (camera-matrix) uvec))
|
||||
(v1-13 (matrix-f-u-compose (new 'stack-no-clear 'matrix) (-> arg4 rvec) a2-4))
|
||||
(f26-1 6.0)
|
||||
(sv-160 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 rvec) (/ f22-0 2)))
|
||||
(sv-164 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 rvec) (/ f22-0 -2)))
|
||||
(sv-168 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 uvec) (/ f22-0 2)))
|
||||
(sv-172 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 uvec) (/ f22-0 -2)))
|
||||
(sv-176 (the-as rgba (new 'stack-no-clear 'array 'rgba 1)))
|
||||
)
|
||||
(set! sv-176 (copy-and-set-field (-> this base-color) a (the int (* 128.0 f24-0))))
|
||||
(when (< f28-1 (-> arg3 x))
|
||||
(let ((s3-1 (new 'stack-no-clear 'vector))
|
||||
(s4-1 (new 'stack-no-clear 'vector))
|
||||
)
|
||||
(let ((f24-1 (/ (- (+ f26-1 f28-1) (-> arg3 x)) f26-1)))
|
||||
(let ((a1-10 (+ (the-as uint (-> this strip1 data 0 pos)) (* (+ (-> this strip1 num-verts) -2) 32)))
|
||||
(s2-1 (+ (the-as uint (-> this strip1 data 0 pos)) (* (+ (-> this strip1 num-verts) -1) 32)))
|
||||
)
|
||||
(vector-lerp! s3-1 (the-as vector a1-10) sv-160 f24-1)
|
||||
(vector-lerp! s4-1 (the-as vector s2-1) sv-164 f24-1)
|
||||
)
|
||||
(lightning-bolt-method-18 this (-> this strip1) s3-1 sv-176 0.0 f26-1)
|
||||
(lightning-bolt-method-18 this (-> this strip1) s4-1 sv-176 1.0 f26-1)
|
||||
(lightning-bolt-method-18 this (-> this strip1) s3-1 sv-176 0.0 0.0)
|
||||
(lightning-bolt-method-18 this (-> this strip1) s4-1 sv-176 1.0 0.0)
|
||||
(let ((a1-16 (+ (the-as uint (-> this strip2 data 0 pos)) (* (+ (-> this strip2 num-verts) -2) 32)))
|
||||
(s2-2 (+ (the-as uint (-> this strip2 data 0 pos)) (* (+ (-> this strip2 num-verts) -1) 32)))
|
||||
)
|
||||
(vector-lerp! s3-1 (the-as vector a1-16) sv-168 f24-1)
|
||||
(vector-lerp! s4-1 (the-as vector s2-2) sv-172 f24-1)
|
||||
)
|
||||
)
|
||||
(lightning-bolt-method-18 this (-> this strip2) s3-1 sv-176 1.0 f26-1)
|
||||
(lightning-bolt-method-18 this (-> this strip2) s4-1 sv-176 0.0 f26-1)
|
||||
(lightning-bolt-method-18 this (-> this strip2) s3-1 sv-176 1.0 0.0)
|
||||
(lightning-bolt-method-18 this (-> this strip2) s4-1 sv-176 0.0 0.0)
|
||||
)
|
||||
)
|
||||
(lightning-bolt-method-18 this (-> this strip1) sv-160 sv-176 0.0 f28-1)
|
||||
(lightning-bolt-method-18 this (-> this strip1) sv-164 sv-176 1.0 f28-1)
|
||||
(lightning-bolt-method-18 this (-> this strip2) sv-168 sv-176 1.0 f28-1)
|
||||
(lightning-bolt-method-18 this (-> this strip2) sv-172 sv-176 0.0 f28-1)
|
||||
)
|
||||
(set! (-> arg3 y) f30-0)
|
||||
(set! (-> arg3 x) f28-1)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 18 of type lightning-bolt
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod lightning-bolt-method-18 ((this lightning-bolt) (arg0 prim-strip) (arg1 vector) (arg2 rgba) (arg3 float) (arg4 float))
|
||||
(when (< (-> arg0 num-verts) (-> arg0 allocated-num-verts))
|
||||
(let ((v1-5 (-> arg0 data (-> arg0 num-verts))))
|
||||
(set! (-> v1-5 pos quad) (-> arg1 quad))
|
||||
(set! (-> v1-5 col) arg2)
|
||||
(set! (-> v1-5 stq x) arg3)
|
||||
(set! (-> v1-5 stq y) arg4)
|
||||
)
|
||||
(+! (-> arg0 num-verts) 1)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function lightning-new-tracker-init-by-other
|
||||
;; INFO: Used lq/sq
|
||||
(defbehavior lightning-new-tracker-init-by-other lightning-new-tracker ((arg0 lightning-tracker-init-params))
|
||||
(set! (-> self bolt) (new 'process 'lightning-bolt))
|
||||
(init! (-> self bolt) 2 (+ (-> arg0 num-inner-points) 2) (-> arg0 appearance))
|
||||
(set! (-> self lifetime) (-> arg0 lifetime))
|
||||
(set! (-> self bolt span-pts-start data 0 quad) (-> arg0 start-pt quad))
|
||||
(set! (-> self bolt span-pts-start data 1 quad) (-> arg0 end-pt quad))
|
||||
(set! (-> self bolt spans-internal data 0 num-inner-points) (-> arg0 num-inner-points))
|
||||
(set! (-> self bolt spans data 0 inner-random-offset-size) (-> arg0 inner-random-offset-size))
|
||||
(set! (-> self bolt spans data 0 random-offset-size-start) (-> arg0 random-offset-size-start))
|
||||
(set! (-> self bolt inner-point-travel-time) (the-as uint 5))
|
||||
(set! (-> self bolt snap-inner-points?) #t)
|
||||
(set! (-> self bolt appearance) (-> arg0 appearance))
|
||||
(set! (-> self bolt fractal-reduction) 0.4)
|
||||
(set! (-> self bolt generate-mode) (the-as uint 1))
|
||||
(go-virtual active)
|
||||
)
|
||||
|
||||
;; definition for function create-lightning-tracker-new
|
||||
;; WARN: Return type mismatch process vs lightning-new-tracker.
|
||||
(defun create-lightning-tracker-new ((arg0 lightning-tracker-init-params))
|
||||
(let ((v1-1 (process-spawn lightning-new-tracker arg0 :name "lightning-new-tracker" :stack-size #x8000)))
|
||||
(if v1-1
|
||||
(return (the-as lightning-new-tracker (-> v1-1 0)))
|
||||
)
|
||||
)
|
||||
(the-as lightning-new-tracker #f)
|
||||
)
|
||||
|
||||
;; definition for method 7 of type lightning-new-tracker
|
||||
(defmethod relocate ((this lightning-new-tracker) (offset int))
|
||||
(if (nonzero? (-> this bolt))
|
||||
(&+! (-> this bolt) offset)
|
||||
)
|
||||
(call-parent-method this offset)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate active (lightning-new-tracker)
|
||||
:virtual #t
|
||||
:enter (behavior ()
|
||||
(set! (-> self state-time) (the-as uint (current-time)))
|
||||
(set! (-> self bolt num-active-spans) 1)
|
||||
(lightning-bolt-method-13 (-> self bolt) 0)
|
||||
)
|
||||
:trans (behavior ()
|
||||
(if (time-elapsed? (the-as int (-> self state-time)) (the-as time-frame (-> self lifetime)))
|
||||
(go-virtual die)
|
||||
)
|
||||
(lightning-bolt-method-11 (-> self bolt))
|
||||
(lightning-bolt-method-12 (-> self bolt))
|
||||
)
|
||||
:code sleep-code
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defstate die (lightning-new-tracker)
|
||||
:virtual #t
|
||||
:enter (behavior ()
|
||||
(lightning-bolt-method-13 (-> self bolt) 2)
|
||||
(set! (-> self state-time) (the-as uint (current-time)))
|
||||
)
|
||||
:trans (behavior ()
|
||||
(lightning-bolt-method-11 (-> self bolt))
|
||||
(lightning-bolt-method-12 (-> self bolt))
|
||||
)
|
||||
:code (behavior ()
|
||||
(until (= (lightning-bolt-method-14 (-> self bolt)) 3)
|
||||
(suspend)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+453
@@ -0,0 +1,453 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for function get-current-time
|
||||
(defun get-current-time ()
|
||||
(-> *display* base-clock frame-counter)
|
||||
)
|
||||
|
||||
;; definition for function get-integral-current-time
|
||||
(defun get-integral-current-time ()
|
||||
(-> *display* base-clock integral-frame-counter)
|
||||
)
|
||||
|
||||
;; definition for function get-real-current-time
|
||||
(defun get-real-current-time ()
|
||||
(-> *display* real-clock frame-counter)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type display
|
||||
(defmethod set-time-ratios ((this display) (arg0 float))
|
||||
(set! (-> this dog-ratio) (fmin 4.0 arg0))
|
||||
(case (get-video-mode)
|
||||
(('pal)
|
||||
(set! (-> this time-factor) 6.0)
|
||||
)
|
||||
(else
|
||||
(set! (-> this time-factor) 5.0)
|
||||
)
|
||||
)
|
||||
(-> this dog-ratio)
|
||||
)
|
||||
|
||||
;; definition for function set-display
|
||||
(defun set-display ((arg0 display))
|
||||
"Allocate and initialize clocks for the display."
|
||||
(dotimes (s5-0 22)
|
||||
(set! (-> arg0 clock s5-0) (new 'global 'clock s5-0))
|
||||
)
|
||||
(set! (-> arg0 base-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 game-clock mask) (process-mask freeze pause menu progress movie))
|
||||
(set! (-> arg0 total-game-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 frame-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 target-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 camera-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 entity-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 part-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 bg-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user0-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user1-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user2-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user3-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user4-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user5-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user6-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user7-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user8-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> arg0 user9-clock mask) (process-mask freeze pause menu progress))
|
||||
(set! (-> *listener-process* clock) (-> arg0 real-clock))
|
||||
(set! (-> *active-pool* clock) (-> arg0 real-clock))
|
||||
(set! (-> *display-pool* clock) (-> arg0 real-clock))
|
||||
(set! (-> *mid-pool* clock) (-> arg0 real-clock))
|
||||
(+! (-> arg0 real-clock ref-count) 4)
|
||||
(set! (-> *camera-pool* clock) (-> arg0 camera-clock))
|
||||
(+! (-> arg0 camera-clock ref-count) 1)
|
||||
(set! (-> *target-pool* clock) (-> arg0 target-clock))
|
||||
(+! (-> arg0 target-clock ref-count) 1)
|
||||
(set! (-> *pusher-pool* clock) (-> arg0 entity-clock))
|
||||
(set! (-> *locker-pool* clock) (-> arg0 entity-clock))
|
||||
(set! (-> *entity-pool* clock) (-> arg0 entity-clock))
|
||||
(+! (-> arg0 entity-clock ref-count) 3)
|
||||
(set! (-> *bg-pool* clock) (-> arg0 bg-clock))
|
||||
(+! (-> arg0 bg-clock ref-count) 1)
|
||||
(set! (-> *default-pool* clock) (-> arg0 base-clock))
|
||||
(+! (-> arg0 base-clock ref-count) 1)
|
||||
(+! (-> *kernel-clock* ref-count) -10)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for function allocate-dma-buffers
|
||||
(defun allocate-dma-buffers ((arg0 display))
|
||||
"Allocate the main, debug, and calc dma buffers."
|
||||
(when (zero? (-> arg0 frames 0 calc-buf))
|
||||
(set! (-> arg0 frames 0 calc-buf) (new 'global 'dma-buffer #x4e20))
|
||||
(set! (-> arg0 frames 1 calc-buf) (new 'global 'dma-buffer #x4e20))
|
||||
(set! (-> arg0 frames 0 global-buf) (new 'global 'dma-buffer #x180000))
|
||||
(set! (-> arg0 frames 1 global-buf) (new 'global 'dma-buffer #x180000))
|
||||
(set! (-> arg0 default-end-buffer) (new 'global 'dma-buffer 224))
|
||||
(set! (-> arg0 init-buffer-zbuf-on) (new 'global 'dma-buffer 224))
|
||||
(set! (-> arg0 init-buffer-zbuf-off) (new 'global 'dma-buffer 224))
|
||||
(when *debug-segment*
|
||||
(set! (-> arg0 frames 0 debug-buf) (new 'debug 'dma-buffer #x800000))
|
||||
(set! (-> arg0 frames 1 debug-buf) (new 'debug 'dma-buffer #x800000))
|
||||
)
|
||||
(set! (-> arg0 dma-buffer-overflow) #f)
|
||||
(set! (-> arg0 mem-reserve-size) (the-as uint 0))
|
||||
0
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for function draw-sprite2d-xy
|
||||
;; WARN: Return type mismatch pointer vs none.
|
||||
(defun draw-sprite2d-xy ((arg0 dma-buffer) (arg1 int) (arg2 int) (arg3 int) (arg4 int) (arg5 rgba) (arg6 int))
|
||||
(let* ((t2-2 (new 'stack 'draw-context arg1 arg2 arg3 arg4 arg5))
|
||||
(a0-3 (max 1792 (min 2304 (+ (-> t2-2 orgx) 1792))))
|
||||
(a3-3 (max 1840 (min 2256 (+ (-> t2-2 orgy) 1840))))
|
||||
(a1-6 (-> t2-2 width))
|
||||
(t1-2 (-> t2-2 height))
|
||||
(v1-6 (-> arg0 base))
|
||||
)
|
||||
(let* ((a2-2 arg0)
|
||||
(t0-2 (the-as object (-> a2-2 base)))
|
||||
)
|
||||
(set! (-> (the-as dma-packet t0-2) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
||||
(set! (-> (the-as dma-packet t0-2) vif0) (new 'static 'vif-tag))
|
||||
(set! (-> (the-as dma-packet t0-2) vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
||||
(set! (-> a2-2 base) (&+ (the-as pointer t0-2) 16))
|
||||
)
|
||||
(let* ((a2-3 arg0)
|
||||
(t0-4 (the-as object (-> a2-3 base)))
|
||||
)
|
||||
(set! (-> (the-as gs-gif-tag t0-4) tag)
|
||||
(new 'static 'gif-tag64 :nloop #x1 :eop #x1 :flg (gif-flag reg-list) :nreg #x4)
|
||||
)
|
||||
(set! (-> (the-as gs-gif-tag t0-4) regs)
|
||||
(new 'static 'gif-tag-regs :regs1 (gif-reg-id rgbaq) :regs2 (gif-reg-id xyzf2) :regs3 (gif-reg-id xyzf2))
|
||||
)
|
||||
(set! (-> a2-3 base) (&+ (the-as pointer t0-4) 16))
|
||||
)
|
||||
(let* ((a2-4 arg0)
|
||||
(t0-6 (-> a2-4 base))
|
||||
)
|
||||
(set! (-> (the-as (pointer gs-prim) t0-6) 0) (new 'static 'gs-prim :prim (gs-prim-type sprite) :abe #x1))
|
||||
(set! (-> (the-as (pointer gs-rgbaq) t0-6) 1) (the-as gs-rgbaq (-> t2-2 color 0)))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t0-6) 2) (new 'static 'gs-xyzf :x (* a0-3 16) :y (* a3-3 16) :z arg6))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t0-6) 3) (new 'static 'gs-xyzf
|
||||
:x (* (max 1792 (min 2304 (+ a0-3 a1-6))) 16)
|
||||
:y (* (max 1840 (min 2256 (+ a3-3 t1-2))) 16)
|
||||
:z arg6
|
||||
)
|
||||
)
|
||||
(set! (-> a2-4 base) (&+ t0-6 32))
|
||||
)
|
||||
(let ((a0-12 (/ (the-as int (+ (- -16 (the-as int v1-6)) (the-as int (-> arg0 base)))) 16)))
|
||||
(cond
|
||||
((nonzero? a0-12)
|
||||
(logior! (-> (the-as (pointer uint64) v1-6) 0) (shr (shl a0-12 48) 48))
|
||||
(logior! (-> (the-as (pointer uint64) v1-6) 1) (shl (shr (shl a0-12 48) 48) 32))
|
||||
)
|
||||
(else
|
||||
(set! (-> arg0 base) v1-6)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function draw-sprite2d-xy-absolute
|
||||
;; WARN: Return type mismatch pointer vs none.
|
||||
(defun draw-sprite2d-xy-absolute ((arg0 dma-buffer) (arg1 int) (arg2 int) (arg3 int) (arg4 int) (arg5 rgba) (arg6 int))
|
||||
(let ((a1-1 (+ arg1 1792))
|
||||
(a2-1 (+ arg2 1840))
|
||||
(v1-0 (-> arg0 base))
|
||||
)
|
||||
(let* ((t3-0 arg0)
|
||||
(t4-0 (the-as object (-> t3-0 base)))
|
||||
)
|
||||
(set! (-> (the-as dma-packet t4-0) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
||||
(set! (-> (the-as dma-packet t4-0) vif0) (new 'static 'vif-tag))
|
||||
(set! (-> (the-as dma-packet t4-0) vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
||||
(set! (-> t3-0 base) (&+ (the-as pointer t4-0) 16))
|
||||
)
|
||||
(let* ((t3-1 arg0)
|
||||
(t4-2 (the-as object (-> t3-1 base)))
|
||||
)
|
||||
(set! (-> (the-as gs-gif-tag t4-2) tag)
|
||||
(new 'static 'gif-tag64 :nloop #x1 :eop #x1 :flg (gif-flag reg-list) :nreg #x4)
|
||||
)
|
||||
(set! (-> (the-as gs-gif-tag t4-2) regs)
|
||||
(new 'static 'gif-tag-regs :regs1 (gif-reg-id rgbaq) :regs2 (gif-reg-id xyzf2) :regs3 (gif-reg-id xyzf2))
|
||||
)
|
||||
(set! (-> t3-1 base) (&+ (the-as pointer t4-2) 16))
|
||||
)
|
||||
(let* ((t3-2 arg0)
|
||||
(t4-4 (-> t3-2 base))
|
||||
)
|
||||
(set! (-> (the-as (pointer gs-prim) t4-4) 0) (new 'static 'gs-prim :prim (gs-prim-type sprite) :abe #x1))
|
||||
(set! (-> (the-as (pointer gs-rgbaq) t4-4) 1) (the-as gs-rgbaq arg5))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t4-4) 2) (new 'static 'gs-xyzf :x (* a1-1 16) :y (* a2-1 16) :z arg6))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t4-4) 3)
|
||||
(new 'static 'gs-xyzf :x (* (+ a1-1 arg3) 16) :y (* (+ a2-1 arg4) 16) :z arg6)
|
||||
)
|
||||
(set! (-> t3-2 base) (&+ t4-4 32))
|
||||
)
|
||||
(let ((a1-10 (/ (the-as int (+ (- -16 (the-as int v1-0)) (the-as int (-> arg0 base)))) 16)))
|
||||
(cond
|
||||
((nonzero? a1-10)
|
||||
(set! (-> (the-as (pointer uint64) v1-0) 0)
|
||||
(logior (-> (the-as (pointer uint64) v1-0)) (shr (shl a1-10 48) 48))
|
||||
)
|
||||
(logior! (-> (the-as (pointer uint64) v1-0) 1) (shl (shr (shl a1-10 48) 48) 32))
|
||||
)
|
||||
(else
|
||||
(set! (-> arg0 base) v1-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function draw-quad2d
|
||||
;; WARN: Return type mismatch pointer vs none.
|
||||
(defun draw-quad2d ((arg0 dma-buffer) (arg1 draw-context))
|
||||
(let ((a3-1 (max 1792 (min 2304 (+ (-> arg1 orgx) 1792))))
|
||||
(a2-3 (max 1840 (min 2256 (+ (-> arg1 orgy) 1840))))
|
||||
(t3-0 (-> arg1 width))
|
||||
(t0-2 (-> arg1 height))
|
||||
(v1-4 (-> arg0 base))
|
||||
)
|
||||
(let* ((t1-0 arg0)
|
||||
(t2-0 (the-as object (-> t1-0 base)))
|
||||
)
|
||||
(set! (-> (the-as dma-packet t2-0) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
||||
(set! (-> (the-as dma-packet t2-0) vif0) (new 'static 'vif-tag))
|
||||
(set! (-> (the-as dma-packet t2-0) vif1) (new 'static 'vif-tag :cmd (vif-cmd direct) :msk #x1))
|
||||
(set! (-> t1-0 base) (&+ (the-as pointer t2-0) 16))
|
||||
)
|
||||
(let* ((t1-1 arg0)
|
||||
(t2-2 (the-as object (-> t1-1 base)))
|
||||
)
|
||||
(set! (-> (the-as gs-gif-tag t2-2) tag)
|
||||
(new 'static 'gif-tag64 :nloop #x1 :eop #x1 :flg (gif-flag reg-list) :nreg #x9)
|
||||
)
|
||||
(set! (-> (the-as gs-gif-tag t2-2) regs) (new 'static 'gif-tag-regs
|
||||
:regs1 (gif-reg-id rgbaq)
|
||||
:regs2 (gif-reg-id xyzf2)
|
||||
:regs3 (gif-reg-id rgbaq)
|
||||
:regs4 (gif-reg-id xyzf2)
|
||||
:regs5 (gif-reg-id rgbaq)
|
||||
:regs6 (gif-reg-id xyzf2)
|
||||
:regs7 (gif-reg-id rgbaq)
|
||||
:regs8 (gif-reg-id xyzf2)
|
||||
)
|
||||
)
|
||||
(set! (-> t1-1 base) (&+ (the-as pointer t2-2) 16))
|
||||
)
|
||||
(let* ((t1-2 arg0)
|
||||
(t2-4 (-> t1-2 base))
|
||||
)
|
||||
(set! (-> (the-as (pointer gs-prim) t2-4) 0)
|
||||
(new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :abe #x1)
|
||||
)
|
||||
(set! (-> (the-as (pointer gs-rgbaq) t2-4) 1) (the-as gs-rgbaq (-> arg1 color 0)))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t2-4) 2) (new 'static 'gs-xyzf :y (* a2-3 16) :x (* a3-1 16)))
|
||||
(set! (-> (the-as (pointer gs-rgbaq) t2-4) 3) (the-as gs-rgbaq (-> arg1 color 1)))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t2-4) 4)
|
||||
(new 'static 'gs-xyzf :y (* a2-3 16) :x (* (max 1792 (min 2304 (+ a3-1 t3-0))) 16))
|
||||
)
|
||||
(set! (-> (the-as (pointer gs-rgbaq) t2-4) 5) (the-as gs-rgbaq (-> arg1 color 2)))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t2-4) 6)
|
||||
(new 'static 'gs-xyzf :y (* (max 1840 (min 2256 (+ a2-3 t0-2))) 16) :x (* a3-1 16))
|
||||
)
|
||||
(set! (-> (the-as (pointer gs-rgbaq) t2-4) 7) (the-as gs-rgbaq (-> arg1 color 3)))
|
||||
(set! (-> (the-as (pointer gs-xyzf) t2-4) 8) (new 'static 'gs-xyzf
|
||||
:y (* (max 1840 (min 2256 (+ a2-3 t0-2))) 16)
|
||||
:x (* (max 1792 (min 2304 (+ a3-1 t3-0))) 16)
|
||||
)
|
||||
)
|
||||
(set! (-> (the-as (pointer uint64) t2-4) 9) (the-as uint 0))
|
||||
(set! (-> t1-2 base) (&+ t2-4 80))
|
||||
)
|
||||
(let ((a1-11 (/ (the-as int (+ (- -16 (the-as int v1-4)) (the-as int (-> arg0 base)))) 16)))
|
||||
(cond
|
||||
((nonzero? a1-11)
|
||||
(set! (-> (the-as (pointer uint64) v1-4) 0)
|
||||
(logior (-> (the-as (pointer uint64) v1-4)) (shr (shl a1-11 48) 48))
|
||||
)
|
||||
(logior! (-> (the-as (pointer uint64) v1-4) 1) (shl (shr (shl a1-11 48) 48) 32))
|
||||
)
|
||||
(else
|
||||
(set! (-> arg0 base) v1-4)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function screen-gradient
|
||||
(defun screen-gradient ((arg0 dma-buffer) (arg1 rgba) (arg2 rgba) (arg3 rgba) (arg4 rgba))
|
||||
(let ((a1-2 (new 'stack 'draw-context 0 0 512 (-> *viewport-array* default screen-sy) (new 'static 'rgba))))
|
||||
(set! (-> a1-2 color 0) arg1)
|
||||
(set! (-> a1-2 color 1) arg2)
|
||||
(set! (-> a1-2 color 2) arg3)
|
||||
(set! (-> a1-2 color 3) arg4)
|
||||
(draw-quad2d arg0 a1-2)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function vif1-handler-debug
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; definition for function vif1-handler
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(install-handler 5 (if *debug-segment*
|
||||
vif1-handler-debug
|
||||
vif1-handler
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function vblank-handler
|
||||
;; ERROR: function was not converted to expressions. Cannot decompile.
|
||||
|
||||
;; definition for function set-display-gs-state
|
||||
(defun set-display-gs-state ((arg0 dma-buffer) (arg1 int) (arg2 int) (arg3 int) (arg4 int) (arg5 int))
|
||||
(let* ((t2-0 (/ (+ arg2 63) 64))
|
||||
(v1-1 *viewport-array*)
|
||||
(v1-2 (-> v1-1 data (-> v1-1 current-viewport-index)))
|
||||
(t3-3 *display*)
|
||||
(t4-1 144)
|
||||
)
|
||||
(+! (-> t3-3 mem-reserve-size) t4-1)
|
||||
(when (not (-> t3-3 dma-buffer-overflow))
|
||||
(let ((t6-0 (-> t3-3 frames (-> t3-3 on-screen) global-buf)))
|
||||
(if (< (-> t6-0 real-buffer-end) (the-as int (&+ (-> t6-0 base) t4-1)))
|
||||
(set! (-> t3-3 dma-buffer-overflow) #t)
|
||||
)
|
||||
)
|
||||
(if (not (-> t3-3 dma-buffer-overflow))
|
||||
(dma-buffer-add-gs-set-flusha arg0
|
||||
(scissor-1 (new 'static 'gs-scissor :scax1 (+ arg2 -1) :scay1 (+ arg3 -1)))
|
||||
(xyoffset-1 (new 'static 'gs-xy-offset))
|
||||
(frame-1 (new 'static 'gs-frame :fbp arg1 :fbw t2-0 :psm arg5 :fbmsk arg4))
|
||||
(test-1 (new 'static 'gs-test :zte #x1 :ztst (gs-ztest always)))
|
||||
(texa (new 'static 'gs-texa :ta0 #x80 :ta1 #x80))
|
||||
(zbuf-1 (-> v1-2 zbuf-off))
|
||||
(texflush 0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for function set-display-gs-state-offset
|
||||
(defun set-display-gs-state-offset ((arg0 dma-buffer) (arg1 int) (arg2 int) (arg3 int) (arg4 int) (arg5 int) (arg6 int) (arg7 int))
|
||||
(let* ((t4-0 (/ (+ arg2 63) 64))
|
||||
(v1-1 *viewport-array*)
|
||||
(v1-2 (-> v1-1 data (-> v1-1 current-viewport-index)))
|
||||
(t5-3 *display*)
|
||||
(t6-1 144)
|
||||
)
|
||||
(+! (-> t5-3 mem-reserve-size) t6-1)
|
||||
(when (not (-> t5-3 dma-buffer-overflow))
|
||||
(let ((t8-0 (-> t5-3 frames (-> t5-3 on-screen) global-buf)))
|
||||
(if (< (-> t8-0 real-buffer-end) (the-as int (&+ (-> t8-0 base) t6-1)))
|
||||
(set! (-> t5-3 dma-buffer-overflow) #t)
|
||||
)
|
||||
)
|
||||
(if (not (-> t5-3 dma-buffer-overflow))
|
||||
(dma-buffer-add-gs-set-flusha arg0
|
||||
(scissor-1 (new 'static 'gs-scissor :scax1 (+ arg2 -1) :scay1 (+ arg3 -1)))
|
||||
(xyoffset-1 (new 'static 'gs-xy-offset :ofx (* arg6 16) :ofy (* arg7 16)))
|
||||
(frame-1 (new 'static 'gs-frame :fbp arg1 :fbw t4-0 :psm arg5 :fbmsk arg4))
|
||||
(test-1 (new 'static 'gs-test :zte #x1 :ztst (gs-ztest always)))
|
||||
(texa (new 'static 'gs-texa :ta0 #x80 :ta1 #x80))
|
||||
(zbuf-1 (-> v1-2 zbuf-off))
|
||||
(texflush 0)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for function reset-display-gs-state
|
||||
(defun reset-display-gs-state ((arg0 display) (arg1 dma-buffer))
|
||||
(let ((v1-0 *display*)
|
||||
(a2-0 144)
|
||||
)
|
||||
(+! (-> v1-0 mem-reserve-size) a2-0)
|
||||
(when (not (-> v1-0 dma-buffer-overflow))
|
||||
(let ((t0-0 (-> v1-0 frames (-> v1-0 on-screen) global-buf)))
|
||||
(if (< (-> t0-0 real-buffer-end) (the-as int (&+ (-> t0-0 base) a2-0)))
|
||||
(set! (-> v1-0 dma-buffer-overflow) #t)
|
||||
)
|
||||
)
|
||||
(when (not (-> v1-0 dma-buffer-overflow))
|
||||
(let* ((v1-2 *viewport-array*)
|
||||
(v1-3 (-> v1-2 data (-> v1-2 current-viewport-index)))
|
||||
)
|
||||
(let* ((a2-7 arg1)
|
||||
(a3-11 (the-as object (-> a2-7 base)))
|
||||
)
|
||||
(set! (-> (the-as dma-packet a3-11) dma) (new 'static 'dma-tag :qwc #x8 :id (dma-tag-id cnt)))
|
||||
(set! (-> (the-as dma-packet a3-11) vif0) (new 'static 'vif-tag :cmd (vif-cmd flusha) :msk #x1))
|
||||
(set! (-> (the-as dma-packet a3-11) vif1) (new 'static 'vif-tag :imm #x8 :cmd (vif-cmd direct) :msk #x1))
|
||||
(set! (-> a2-7 base) (&+ (the-as pointer a3-11) 16))
|
||||
)
|
||||
(let* ((a2-8 arg1)
|
||||
(a3-13 (-> a2-8 base))
|
||||
)
|
||||
(set! (-> (the-as (pointer uint64) a3-13) 0) (make-u128 0 (the-as uint #x7000000000008001)))
|
||||
(set! (-> (the-as (pointer uint64) a3-13) 1) (the-as uint #xeeeeeeeeeeeeeeee))
|
||||
(set! (-> a2-8 base) (&+ a3-13 16))
|
||||
)
|
||||
(let ((a2-9 (-> arg1 base)))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 0) (the-as uint #x19f000001ff0000))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 1) (the-as uint 64))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 2) (the-as uint #x730000007000))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 3) (the-as uint 24))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 4) (the-as uint #x80196))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 5) (the-as uint 76))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 6) (the-as uint #x50000))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 7) (the-as uint 71))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 8) (the-as uint (shl 128 32)))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 9) (the-as uint 59))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 10) (-> v1-3 zbuf-on))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 11) (the-as uint 78))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 12) (the-as uint 0))
|
||||
(set! (-> (the-as (pointer uint64) a2-9) 13) (the-as uint 63))
|
||||
(set! (-> arg1 base) (&+ a2-9 112))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(kmemopen global "dma-buffers")
|
||||
|
||||
;; definition for symbol *vu0-dma-list*, type dma-buffer
|
||||
(define *vu0-dma-list* (new 'global 'dma-buffer 4096))
|
||||
|
||||
;; definition for symbol *display*, type display
|
||||
(define *display* (new 'global 'display 0 512 416 2 49))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(allocate-dma-buffers *display*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(kmemclose)
|
||||
|
||||
|
||||
|
||||
|
||||
+41
-5
@@ -295,15 +295,51 @@ pixel is performed."
|
||||
)
|
||||
)
|
||||
|
||||
;; type gs-rgbaq is defined here, but it is unknown to the decompiler
|
||||
;; definition of type gs-rgbaq
|
||||
(deftype gs-rgbaq (uint64)
|
||||
"The GS's RGBAQ register sets the RGBA value of the vertex and the Q value of the normalized
|
||||
texture coordinates."
|
||||
((r uint8 :offset 0 :size 8)
|
||||
(g uint8 :offset 8 :size 8)
|
||||
(b uint8 :offset 16 :size 8)
|
||||
(a uint8 :offset 24 :size 8)
|
||||
(q float :offset 32 :size 32)
|
||||
)
|
||||
)
|
||||
|
||||
;; type gs-xyz is defined here, but it is unknown to the decompiler
|
||||
;; definition of type gs-xyz
|
||||
(deftype gs-xyz (uint64)
|
||||
((x uint16 :offset 0 :size 16)
|
||||
(y uint16 :offset 16 :size 16)
|
||||
(z uint32 :offset 32 :size 32)
|
||||
)
|
||||
)
|
||||
|
||||
;; type gs-uv is defined here, but it is unknown to the decompiler
|
||||
;; definition of type gs-uv
|
||||
(deftype gs-uv (uint64)
|
||||
"The GS's UV register specifies the texel coordinate (UV) values of the vertex."
|
||||
((u uint16 :offset 0 :size 16)
|
||||
(v uint16 :offset 16 :size 16)
|
||||
)
|
||||
)
|
||||
|
||||
;; type gs-st is defined here, but it is unknown to the decompiler
|
||||
;; definition of type gs-st
|
||||
(deftype gs-st (uint64)
|
||||
"The GS's ST register sets the S and T values of the vertex texture coordinates.
|
||||
The value Q is specified by the RGBAQ register."
|
||||
((s float :offset 0 :size 32)
|
||||
(t float :offset 32 :size 32)
|
||||
)
|
||||
)
|
||||
|
||||
;; type gs-xyzf is defined here, but it is unknown to the decompiler
|
||||
;; definition of type gs-xyzf
|
||||
(deftype gs-xyzf (uint64)
|
||||
((x uint16 :offset 0 :size 16)
|
||||
(y uint16 :offset 16 :size 16)
|
||||
(z uint32 :offset 32 :size 24)
|
||||
(f uint8 :offset 56 :size 8)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type gs-adcmd
|
||||
(deftype gs-adcmd (structure)
|
||||
|
||||
+2081
File diff suppressed because it is too large
Load Diff
+855
@@ -0,0 +1,855 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpartgroup group-rain-screend-drop-real
|
||||
:id 1
|
||||
:flags (sp2)
|
||||
:bounds (static-bspherem 0 0 0 16)
|
||||
:parts ((sp-item 12 :binding 8)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 8 :flags (sp2 sp3) :binding 9)
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 9 :flags (sp2 sp3))
|
||||
(sp-item 13 :binding 10)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 10 :flags (sp2 sp3) :binding 11)
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
(sp-item 11 :flags (sp2 sp3))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for symbol group-rain-screend-drop, type sparticle-launch-group
|
||||
(define group-rain-screend-drop (-> *part-group-id-table* 1))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 13
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 0.1)
|
||||
(:x (meters -4.5) (meters 9))
|
||||
(:y (meters -3) (meters 6))
|
||||
(:scale-x (meters 2.5))
|
||||
(:rot-z (degrees 0) (degrees 360))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 128.0)
|
||||
(:g 128.0)
|
||||
(:b 128.0)
|
||||
(:a 12.0)
|
||||
(:scalevel-x (meters 0.16666667))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a -0.8)
|
||||
(:timer (seconds 0.035))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 10
|
||||
:init-specs ((:texture (lakedrop level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 1.5))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 128.0)
|
||||
(:g 128.0)
|
||||
(:b 255.0)
|
||||
(:a 20.0)
|
||||
(:scalevel-x (meters 0.033333335))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a -0.8)
|
||||
(:accel-y (meters -0.00066666666))
|
||||
(:timer (seconds 0.9))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:next-time (seconds 0.05))
|
||||
(:next-launcher 14)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 14
|
||||
:init-specs ((:scalevel-x (meters 0.004166667)) (:scalevel-y :copy scalevel-x) (:fade-a -0.06666667))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 11
|
||||
:init-specs ((:num 1.0)
|
||||
(:rot-x 12)
|
||||
(:r 4096.0)
|
||||
(:g 3276.8)
|
||||
(:b 3276.8)
|
||||
(:fade-r 6.068148)
|
||||
(:fade-g 68.26667)
|
||||
(:fade-b 3.034074)
|
||||
(:accel-y (meters -0.00066666666))
|
||||
(:timer (seconds 0.9))
|
||||
(:flags (distort))
|
||||
(:next-time (seconds 0.1))
|
||||
(:next-launcher 15)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 15
|
||||
:init-specs ((:fade-g -5.1200004))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 12
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 0.1)
|
||||
(:x (meters -4.5) (meters 9))
|
||||
(:y (meters -3) (meters 6))
|
||||
(:scale-x (meters 4))
|
||||
(:rot-z (degrees 0) (degrees 360))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 128.0)
|
||||
(:g 128.0)
|
||||
(:b 128.0)
|
||||
(:a 12.0)
|
||||
(:scalevel-x (meters 0.26666668))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a -0.8)
|
||||
(:timer (seconds 0.035))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 8
|
||||
:init-specs ((:texture (lakedrop level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 2.6))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 128.0)
|
||||
(:g 128.0)
|
||||
(:b 255.0)
|
||||
(:a 20.0)
|
||||
(:scalevel-x (meters 0.06666667))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a -0.8)
|
||||
(:accel-y (meters -0.00066666666))
|
||||
(:timer (seconds 0.9))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:next-time (seconds 0.05))
|
||||
(:next-launcher 16)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 16
|
||||
:init-specs ((:scalevel-x (meters 0.008333334)) (:scalevel-y :copy scalevel-x) (:fade-a -0.06666667))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 9
|
||||
:init-specs ((:num 1.0)
|
||||
(:rot-x 24)
|
||||
(:r 12288.0)
|
||||
(:g 6553.6)
|
||||
(:b 6553.6)
|
||||
(:fade-r 12.136296)
|
||||
(:fade-g 136.53334)
|
||||
(:fade-b 6.068148)
|
||||
(:accel-y (meters -0.00066666666))
|
||||
(:timer (seconds 0.9))
|
||||
(:flags (distort))
|
||||
(:next-time (seconds 0.1))
|
||||
(:next-launcher 17)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 17
|
||||
:init-specs ((:fade-g -10.240001))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpartgroup group-stars
|
||||
:id 2
|
||||
:flags (sp1)
|
||||
:bounds (static-bspherem 0 0 0 8)
|
||||
:parts ((sp-item 18 :flags (sp5)) (sp-item 19 :flags (sp5)) (sp-item 20 :flags (sp5)))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 18
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 30) (meters 20))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 256.0)
|
||||
(:g 256.0)
|
||||
(:b 256.0)
|
||||
(:a 0.0)
|
||||
(:fade-a 0.42666668)
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:next-time (seconds 0.2) (seconds 0.797))
|
||||
(:next-launcher 21)
|
||||
(:conerot-x (degrees -89) (degrees 178))
|
||||
(:conerot-y (degrees 0) (degrees 1440))
|
||||
(:rotate-y (degrees 0) (degrees 3600))
|
||||
(:conerot-radius (meters 5000))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 21
|
||||
:init-specs ((:fade-a 0.0) (:next-time (seconds 99999)) (:next-launcher 22))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 22
|
||||
:init-specs ((:fade-a -0.42666668))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 19
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 30) (meters 20))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 256.0)
|
||||
(:g 256.0)
|
||||
(:b 256.0)
|
||||
(:a 0.0)
|
||||
(:fade-a 0.42666668)
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:next-time (seconds 0.2) (seconds 0.797))
|
||||
(:next-launcher 21)
|
||||
(:conerot-x (degrees 30) (degrees 59))
|
||||
(:conerot-y (degrees 0) (degrees 2880))
|
||||
(:rotate-y (degrees 0) (degrees 3600))
|
||||
(:conerot-radius (meters 5000))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 20
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 30) (meters 20))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 128.0)
|
||||
(:g 128.0)
|
||||
(:b 128.0)
|
||||
(:a 0.0)
|
||||
(:fade-a 0.42666668)
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:next-time (seconds 0.2) (seconds 0.797))
|
||||
(:next-launcher 21)
|
||||
(:conerot-x (degrees 60) (degrees 29))
|
||||
(:conerot-y (degrees 0) (degrees 5760))
|
||||
(:rotate-y (degrees 0) (degrees 3600))
|
||||
(:conerot-radius (meters 5000))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 23
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 4.0)
|
||||
(:x (meters 10) (meters 10))
|
||||
(:y (meters 2) (meters 14))
|
||||
(:scale-x (meters 0.2) (meters 0.1))
|
||||
(:rot-x 4)
|
||||
(:rot-z (degrees 0) (degrees 360))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 255.0)
|
||||
(:g 255.0)
|
||||
(:b 255.0)
|
||||
(:a 0.0)
|
||||
(:vel-y (meters -0.01) (meters -0.0033333334))
|
||||
(:rotvel-z (degrees -1.2) (degrees 2.4))
|
||||
(:fade-a 0.85333335)
|
||||
(:timer (seconds 5))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-14 glow))
|
||||
(:next-time (seconds 0.25) (seconds 0.247))
|
||||
(:next-launcher 24)
|
||||
(:rotate-y (degrees 0) (degrees 180))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 25
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:num 0.0)
|
||||
(:x (meters 0) (meters 20))
|
||||
(:y (meters 16))
|
||||
(:scale-x (meters 0.2) (meters 0.1))
|
||||
(:rot-x 4)
|
||||
(:rot-z (degrees 0) (degrees 360))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 255.0)
|
||||
(:g 255.0)
|
||||
(:b 255.0)
|
||||
(:a 0.0)
|
||||
(:vel-y (meters -0.01) (meters -0.0033333334))
|
||||
(:rotvel-z (degrees -1.2) (degrees 2.4))
|
||||
(:fade-a 0.85333335)
|
||||
(:timer (seconds 5))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-14 glow))
|
||||
(:next-time (seconds 0.25) (seconds 0.247))
|
||||
(:next-launcher 24)
|
||||
(:rotate-y (degrees 0) (degrees 360))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 24
|
||||
:init-specs ((:fade-a 0.0) (:next-time (seconds 4)) (:next-launcher 26))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 26
|
||||
:init-specs ((:fade-a -0.85333335))
|
||||
)
|
||||
|
||||
;; definition for function update-snow
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun update-snow ((arg0 float) (arg1 vector) (arg2 vector))
|
||||
(let ((f0-0 (lerp-scale 0.0 1.0 (vector-length arg2) 2048.0 40960.0)))
|
||||
(set! (-> *part-id-table* 25 init-specs 1 initial-valuef) (- 1.0 f0-0))
|
||||
(set! (-> *part-id-table* 23 init-specs 1 initial-valuef) (* 4.0 f0-0))
|
||||
)
|
||||
(set! (-> *part-id-table* 23 init-specs 19 initial-valuef) (+ 32768.0 (vector-y-angle arg2)))
|
||||
(launch-particles (-> *part-id-table* 25) arg1)
|
||||
(launch-particles (-> *part-id-table* 23) arg1)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 27
|
||||
:init-specs ((:texture (lakedrop level-default-sprite))
|
||||
(:birth-func 'birth-func-rain)
|
||||
(:num 1.0)
|
||||
(:x (meters -20) (meters 40))
|
||||
(:y (meters 30))
|
||||
(:scale-x (meters 0.03) (meters 0.03))
|
||||
(:scale-y (meters 0.5) (meters 0.5))
|
||||
(:r 32.0 32.0)
|
||||
(:g :copy r)
|
||||
(:b 64.0 32.0)
|
||||
(:a 32.0 64.0)
|
||||
(:vel-y (meters -0.1) (meters -0.2))
|
||||
(:timer (seconds 3))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:userdata 0.0)
|
||||
(:func 'check-drop-level-rain)
|
||||
(:rotate-y (degrees 0) (degrees 3600))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 28
|
||||
:init-specs ((:texture (lakedrop level-default-sprite))
|
||||
(:birth-func 'birth-func-rain)
|
||||
(:num 4.0)
|
||||
(:x (meters -20) (meters 40))
|
||||
(:y (meters 30))
|
||||
(:scale-x (meters 0.03) (meters 0.03))
|
||||
(:scale-y (meters 0.5) (meters 0.5))
|
||||
(:r 32.0 32.0)
|
||||
(:g :copy r)
|
||||
(:b 64.0 32.0)
|
||||
(:a 32.0 64.0)
|
||||
(:vel-y (meters -0.06666667) (meters -0.033333335))
|
||||
(:timer (seconds 3))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:userdata 0.0)
|
||||
(:func 'check-drop-level-rain2)
|
||||
(:rotate-y (degrees 0) (degrees 3600))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 29
|
||||
:init-specs ((:texture (lakedrop level-default-sprite))
|
||||
(:num 1.0 3.0)
|
||||
(:scale-x (meters 0.08) (meters 0.03))
|
||||
(:rot-x 4)
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 32.0 32.0)
|
||||
(:g :copy r)
|
||||
(:b 64.0 32.0)
|
||||
(:a 64.0 64.0)
|
||||
(:omega (degrees 0.01575) (degrees 0.009))
|
||||
(:vel-y (meters 0.033333335) (meters 0.06666667))
|
||||
(:fade-a -0.21333334 -0.21333334)
|
||||
(:accel-y (meters -0.005) (meters -0.00066666666))
|
||||
(:friction 0.98)
|
||||
(:timer (seconds 1))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 left-multiply-quat))
|
||||
(:userdata 0.0)
|
||||
(:func 'check-drop-level-splash)
|
||||
(:next-time (seconds 0) (seconds 0.33))
|
||||
(:next-launcher 30)
|
||||
(:conerot-x (degrees 0) (degrees 50.000004))
|
||||
(:conerot-y (degrees 0) (degrees 3600))
|
||||
(:rotate-x (degrees 0))
|
||||
(:rotate-y (degrees 0))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 31
|
||||
:init-specs ((:texture (common-white common))
|
||||
(:birth-func 'birth-func-omega-normal-orient)
|
||||
(:num 1.0)
|
||||
(:y (meters 0.2))
|
||||
(:scale-x (meters 0.5) (meters 0.25))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 32.0 32.0)
|
||||
(:g :copy r)
|
||||
(:b 64.0 32.0)
|
||||
(:a 64.0 32.0)
|
||||
(:omega (degrees 0))
|
||||
(:scalevel-x (meters 0.006666667) (meters 0.006666667))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-a -1.2)
|
||||
(:timer (seconds 1))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
||||
(:userdata :data (new 'static 'boxed-array :type int32 10 0 0 0 0 #x401000 #x405d00))
|
||||
(:func 'sparticle-texture-animate)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 32
|
||||
:init-specs ((:texture (motion-blur-part level-default-sprite))
|
||||
(:num 2.0 4.0)
|
||||
(:scale-x (meters 2.5))
|
||||
(:rot-x 4)
|
||||
(:scale-y (meters 0.06) (meters 0.03))
|
||||
(:r 255.0)
|
||||
(:g 128.0 128.0)
|
||||
(:b 0.0 128.0)
|
||||
(:a 128.0)
|
||||
(:omega (degrees 0.018) (degrees 0.01125))
|
||||
(:vel-y (meters 0.1) (meters 0.06666667))
|
||||
(:fade-g -2.55 -2.55)
|
||||
(:fade-b -8.0)
|
||||
(:fade-a -0.32 -0.64)
|
||||
(:friction 0.8 0.02)
|
||||
(:timer (seconds 0.335) (seconds 0.33))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
||||
(:func 'sparticle-motion-blur)
|
||||
(:conerot-x (degrees 0) (degrees 80))
|
||||
(:conerot-y (degrees 0) (degrees 3600))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 33
|
||||
:init-specs ((:texture (glow level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 0.25))
|
||||
(:rot-x (degrees 0.225))
|
||||
(:rot-z (degrees 0) (degrees 3600))
|
||||
(:scale-y :copy scale-x)
|
||||
(:r 255.0)
|
||||
(:g 196.0 128.0)
|
||||
(:b 128.0 64.0)
|
||||
(:a 96.0 16.0)
|
||||
(:omega (degrees 3608.9998))
|
||||
(:scalevel-x (meters 0.08))
|
||||
(:scalevel-y :copy scalevel-x)
|
||||
(:fade-g -6.375)
|
||||
(:fade-b -13.066667)
|
||||
(:fade-a -2.8)
|
||||
(:timer (seconds 0.05) (seconds 0.03))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 use-global-acc))
|
||||
(:userdata 2048.0)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function birth-func-omega-normal-orient
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun birth-func-omega-normal-orient ((arg0 sparticle-system)
|
||||
(arg1 sparticle-cpuinfo)
|
||||
(arg2 sprite-vec-data-3d)
|
||||
(arg3 sparticle-launcher)
|
||||
(arg4 sparticle-launch-state)
|
||||
)
|
||||
(local-vars (v1-6 float) (v1-7 float))
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((s4-0 (new 'stack-no-clear 'vector))
|
||||
(gp-0 (new 'stack-no-clear 'quaternion))
|
||||
)
|
||||
(set! (-> s4-0 x) (* 0.007874016 (the float (-> arg1 datab 2))))
|
||||
(set! (-> s4-0 y) 0.0)
|
||||
(set! (-> s4-0 z) (* -0.007874016 (the float (-> arg1 datab 0))))
|
||||
(vector-normalize! s4-0 1.0)
|
||||
(quaternion-vector-angle! gp-0 s4-0 (acos (* 0.007874016 (the float (-> arg1 datab 1)))))
|
||||
(cond
|
||||
((< (-> gp-0 w) 0.0)
|
||||
(.lvf vf1 (&-> arg2 qx-qy-qz-sy quad))
|
||||
(.lvf vf2 (&-> gp-0 quad))
|
||||
(.sub.vf.xyz vf1 vf0 vf2)
|
||||
(.svf (&-> arg2 qx-qy-qz-sy quad) vf1)
|
||||
(.mov v1-6 vf1)
|
||||
)
|
||||
(else
|
||||
(.lvf vf1 (&-> arg2 qx-qy-qz-sy quad))
|
||||
(.lvf vf2 (&-> gp-0 quad))
|
||||
(.add.vf.xyz vf1 vf0 vf2)
|
||||
(.svf (&-> arg2 qx-qy-qz-sy quad) vf1)
|
||||
(.mov v1-7 vf1)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function birth-func-rain
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun birth-func-rain ((arg0 sparticle-system)
|
||||
(arg1 sparticle-cpuinfo)
|
||||
(arg2 sprite-vec-data-3d)
|
||||
(arg3 sparticle-launcher)
|
||||
(arg4 sparticle-launch-state)
|
||||
)
|
||||
(let ((s4-0 (new 'stack-no-clear 'collide-query)))
|
||||
(set! (-> s4-0 start-pos quad) (-> arg2 x-y-z-sx quad))
|
||||
(set-vector! (-> s4-0 move-dist) 0.0 -163840.0 0.0 1.0)
|
||||
(let ((v1-2 s4-0))
|
||||
(set! (-> v1-2 radius) 40.96)
|
||||
(set! (-> v1-2 collide-with) (collide-spec backgnd))
|
||||
(set! (-> v1-2 ignore-process0) #f)
|
||||
(set! (-> v1-2 ignore-process1) #f)
|
||||
(set! (-> v1-2 ignore-pat)
|
||||
(new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1 :board #x1)
|
||||
)
|
||||
(set! (-> v1-2 action-mask) (collide-action solid))
|
||||
(set! (-> v1-2 best-other-prim) #f)
|
||||
)
|
||||
((method-of-object *collide-cache* collide-cache-method-13))
|
||||
(cond
|
||||
((>= (the-as float (gpr->fpr ((method-of-object *collide-cache* collide-cache-method-16)))) 0.0)
|
||||
(set! (-> arg1 user-float) (-> s4-0 best-other-tri intersect y))
|
||||
(let ((f0-8 (+ 65536.0 (-> (view-get-active-math-camera) trans y))))
|
||||
(if (< (-> arg1 user-float) f0-8)
|
||||
(set! (-> arg2 x-y-z-sx y) f0-8)
|
||||
)
|
||||
)
|
||||
(set! (-> arg1 datab 0) (the int (* 127.0 (-> s4-0 best-other-tri normal x))))
|
||||
(set! (-> arg1 datab 1) (the int (* 127.0 (-> s4-0 best-other-tri normal y))))
|
||||
(set! (-> arg1 datab 2) (the int (* 127.0 (-> s4-0 best-other-tri normal z))))
|
||||
(set! (-> arg1 datab 3) (the-as int (-> s4-0 best-other-tri pat event)))
|
||||
)
|
||||
(else
|
||||
(set! (-> arg1 omega) 65280.0)
|
||||
(set! (-> arg1 user-float) (+ -204800.0 (-> arg2 x-y-z-sx y)))
|
||||
)
|
||||
)
|
||||
)
|
||||
*ocean*
|
||||
(let ((t9-3 (method-of-type ocean ocean-method-11)))
|
||||
(-> arg2 x-y-z-sx)
|
||||
(let ((f0-21 (gpr->fpr (t9-3))))
|
||||
(when (!= (the-as float f0-21) 4095996000.0)
|
||||
(when (< (-> arg1 user-float) (the-as float f0-21))
|
||||
(set! (-> arg1 user-float) (the-as float f0-21))
|
||||
(set! (-> arg1 datab 0) 0)
|
||||
(set! (-> arg1 datab 1) 127)
|
||||
(set! (-> arg1 datab 2) 0)
|
||||
(set! (-> arg1 datab 3) 0)
|
||||
0
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function check-drop-level-rain
|
||||
;; INFO: Used lq/sq
|
||||
(defun check-drop-level-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
||||
(when (< (-> arg2 y) (-> arg1 user-float))
|
||||
(let ((s4-0 (new 'stack-no-clear 'vector))
|
||||
(gp-0 (new 'stack-no-clear 'matrix))
|
||||
)
|
||||
(let ((f30-0 (-> arg1 user-float)))
|
||||
(sp-kill-particle arg0 arg1)
|
||||
(set-vector! s4-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
|
||||
(-> arg1 omega)
|
||||
(set-vector!
|
||||
(-> gp-0 uvec)
|
||||
(* 0.007874016 (the float (-> arg1 datab 0)))
|
||||
(* 0.007874016 (the float (-> arg1 datab 1)))
|
||||
(* 0.007874016 (the float (-> arg1 datab 2)))
|
||||
0.0
|
||||
)
|
||||
(set-vector! (-> gp-0 fvec) 0.0 0.0 1.0 0.0)
|
||||
(vector-cross! (-> gp-0 rvec) (-> gp-0 uvec) (-> gp-0 fvec))
|
||||
(set! (-> gp-0 trans quad) (-> s4-0 quad))
|
||||
(set! (-> *part-id-table* 29 init-specs 23 initial-valuef) (vector-y-angle (-> gp-0 uvec)))
|
||||
(set! (-> *part-id-table* 29 init-specs 22 initial-valuef) (- 16384.0 (vector-x-angle (-> gp-0 uvec))))
|
||||
(set! (-> *part-id-table* 29 init-specs 16 initial-valuef) f30-0)
|
||||
)
|
||||
(launch-particles (-> *part-id-table* 29) gp-0 :origin-is-matrix #t)
|
||||
(set! (-> *part-id-table* 31 init-specs 10 initial-valuef) (-> arg1 omega))
|
||||
(launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 31) gp-0 :origin-is-matrix #t)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function check-drop-level-rain2
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun check-drop-level-rain2 ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
||||
(if (< (-> arg2 y) (-> arg1 user-float))
|
||||
(sp-kill-particle arg0 arg1)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function check-drop-level-splash
|
||||
;; WARN: Return type mismatch symbol vs none.
|
||||
(defun check-drop-level-splash ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
||||
(sparticle-motion-blur arg0 arg1 arg2)
|
||||
(if (< (-> arg2 y) (-> arg1 user-float))
|
||||
(sp-kill-particle arg0 arg1)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function cam-master-effect
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defbehavior cam-master-effect camera-master ()
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function sparticle-track-sun
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defun sparticle-track-sun ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 matrix))
|
||||
(-> arg1 key 0)
|
||||
(let* ((s2-0 (the int (-> arg1 user-float)))
|
||||
(s5-0 (math-camera-pos))
|
||||
(s4-0 (+ (the-as uint (-> *sky-work* upload-data)) (* (/ s2-0 4) 64)))
|
||||
)
|
||||
(let ((s3-0 *time-of-day*)
|
||||
(v1-4 (-> (view-get-active-math-camera) inv-camera-rot))
|
||||
)
|
||||
(cond
|
||||
((= s2-0 1)
|
||||
(set! (-> arg2 uvec z) (+ 8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
|
||||
(set! (-> s3-0 0 sun-count) 1)
|
||||
)
|
||||
((= s2-0 4)
|
||||
(set! (-> arg2 uvec z) (+ -8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
|
||||
(+! (-> s3-0 0 green-sun-count) 1)
|
||||
)
|
||||
((= s2-0 8)
|
||||
(set! (-> arg2 uvec z) (+ -8192.0 (* 0.5 (vector-y-angle (-> v1-4 fvec)))))
|
||||
(+! (-> s3-0 0 moon-count) 1)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((s3-1 (new 'stack-no-clear 'vector)))
|
||||
(set! (-> s3-1 quad) (dynamic-array-field-access s4-0 sun PLACEHOLDER pos quad))
|
||||
(if (-> *time-of-day-context* use-camera-other)
|
||||
(vector-matrix*! s3-1 s3-1 (-> (view-get-active-math-camera) camera-rot-other-sky))
|
||||
)
|
||||
(vector+float*! s3-1 s5-0 s3-1 4096.0)
|
||||
(set! (-> arg2 rvec x) (-> s3-1 x))
|
||||
(set! (-> arg2 rvec y) (-> s3-1 y))
|
||||
(set! (-> arg2 rvec z) (-> s3-1 z))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpartgroup group-sun
|
||||
:id 3
|
||||
:flags (sp1)
|
||||
:bounds (static-bspherem 0 0 0 70)
|
||||
:parts ((sp-item 34 :flags (sp3 sp5)) (sp-item 35 :flags (sp3 sp5)))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 34
|
||||
:init-specs ((:texture (glow level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 2550))
|
||||
(:rot-x (degrees 1687.5))
|
||||
(:rot-z (degrees 30))
|
||||
(:scale-y (meters 2550))
|
||||
(:r 64.0)
|
||||
(:g 64.0)
|
||||
(:b 16.0)
|
||||
(:a 70.0)
|
||||
(:omega (degrees 0))
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
||||
(:userdata 1.0)
|
||||
(:func 'sparticle-track-sun)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 35
|
||||
:init-specs ((:texture (glow level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 12000))
|
||||
(:rot-x (degrees 1687.5))
|
||||
(:rot-z (degrees 30))
|
||||
(:scale-y (meters 12000))
|
||||
(:r 64.0)
|
||||
(:g 32.0)
|
||||
(:b 0.0)
|
||||
(:a 80.0)
|
||||
(:omega (degrees 0))
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
||||
(:userdata 1.0)
|
||||
(:func 'sparticle-track-sun)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpartgroup group-green-sun
|
||||
:id 4
|
||||
:flags (sp1)
|
||||
:bounds (static-bspherem 0 0 0 70)
|
||||
:parts ((sp-item 36 :flags (sp3 sp5)) (sp-item 37 :flags (sp3 sp5)))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 36
|
||||
:init-specs ((:texture (glow level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 1500))
|
||||
(:rot-x (degrees 1125))
|
||||
(:rot-z (degrees 30))
|
||||
(:scale-y (meters 1500))
|
||||
(:r 16.0)
|
||||
(:g 64.0)
|
||||
(:b 32.0)
|
||||
(:a 64.0)
|
||||
(:omega (degrees 0))
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
||||
(:userdata 4.0)
|
||||
(:func 'sparticle-track-sun)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 37
|
||||
:init-specs ((:texture (glow level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 3000))
|
||||
(:rot-x (degrees 1125))
|
||||
(:rot-z (degrees 30))
|
||||
(:scale-y (meters 3000))
|
||||
(:r 0.0)
|
||||
(:g 43.0)
|
||||
(:b 8.0)
|
||||
(:a 64.0)
|
||||
(:omega (degrees 0))
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
||||
(:userdata 4.0)
|
||||
(:func 'sparticle-track-sun)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpartgroup group-moon
|
||||
:id 5
|
||||
:flags (sp1)
|
||||
:bounds (static-bspherem 0 0 0 70)
|
||||
:parts ((sp-item 38 :flags (sp3 sp5)))
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(defpart 38
|
||||
:init-specs ((:texture (glow-soft level-default-sprite))
|
||||
(:num 1.0)
|
||||
(:scale-x (meters 6000))
|
||||
(:rot-x (degrees 2992.5))
|
||||
(:rot-z (degrees 30))
|
||||
(:scale-y (meters 6000))
|
||||
(:r 16.0)
|
||||
(:g 32.0)
|
||||
(:b 64.0)
|
||||
(:a 64.0)
|
||||
(:omega (degrees 0))
|
||||
(:timer (seconds -0.005))
|
||||
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 use-global-acc))
|
||||
(:userdata 8.0)
|
||||
(:func 'sparticle-track-sun)
|
||||
)
|
||||
)
|
||||
+323
@@ -0,0 +1,323 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *instance-shrub-work*, type instance-shrub-work
|
||||
(define *instance-shrub-work*
|
||||
(new 'static 'instance-shrub-work
|
||||
:matrix-tmpl (new 'static 'inline-array qword 20
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050143))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050148))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05014d))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050152))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050157))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05015c))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050161))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050166))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05016b))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050170))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050176))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05017b))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050180))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050185))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05018a))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05018f))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050194))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050199))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05019e))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c0501a3))
|
||||
)
|
||||
:count-tmpl (new 'static 'inline-array vector4w 20
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 10)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 1)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 2)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 3)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 4)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 5)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 6)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 7)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 8)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 9)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010142 :w 10)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 1)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 2)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 3)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 4)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 5)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 6)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 7)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 8)
|
||||
(new 'static 'vector4w :x #x20000000 :z #x60010175 :w 9)
|
||||
)
|
||||
:mscalf-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :cmd (vif-cmd mscalf) :msk #x1)
|
||||
)
|
||||
:mscalf-ret-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ret))
|
||||
:vif0 (new 'static 'vif-tag :cmd (vif-cmd mscalf) :msk #x1)
|
||||
)
|
||||
:adgif-tmpl (new 'static 'dma-gif-packet
|
||||
:dma-vif (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id next))
|
||||
:vif1 (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
|
||||
)
|
||||
:gif (new 'static 'array uint64 2 #x1000000000008005 #xe)
|
||||
)
|
||||
:billboard-tmpl (new 'static 'dma-gif-packet
|
||||
:dma-vif (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #xd :id (dma-tag-id next))
|
||||
:vif1 (new 'static 'vif-tag :imm #xd :cmd (vif-cmd direct) :msk #x1)
|
||||
)
|
||||
:gif (new 'static 'array uint64 2 #x303e400000008004 #x412)
|
||||
)
|
||||
:shrub-near-packets (new 'static 'inline-array shrub-near-packet 6
|
||||
(new 'static 'shrub-near-packet
|
||||
:matrix-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:header-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:stq-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x9 :cmd (vif-cmd unpack-v2-16))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x400a :cmd (vif-cmd unpack-v3-8))
|
||||
)
|
||||
:vertex-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #xb :cmd (vif-cmd unpack-v3-16))
|
||||
)
|
||||
:mscal-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
|
||||
)
|
||||
:init-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x388 :num #x1 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:init-data (new 'static 'inline-array qword 2
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x345 #x117))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x0 #x1500000c))
|
||||
)
|
||||
)
|
||||
(new 'static 'shrub-near-packet
|
||||
:matrix-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:header-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:stq-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x120 :cmd (vif-cmd unpack-v2-16))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x4121 :cmd (vif-cmd unpack-v3-8))
|
||||
)
|
||||
:vertex-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x122 :cmd (vif-cmd unpack-v3-16))
|
||||
)
|
||||
:mscal-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
|
||||
)
|
||||
:init-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x388 :num #x1 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:init-data (new 'static 'inline-array qword 2
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x363 #x22e))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x0 #x1500000c))
|
||||
)
|
||||
)
|
||||
(new 'static 'shrub-near-packet
|
||||
:matrix-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:header-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:stq-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x237 :cmd (vif-cmd unpack-v2-16))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x4238 :cmd (vif-cmd unpack-v3-8))
|
||||
)
|
||||
:vertex-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x239 :cmd (vif-cmd unpack-v3-16))
|
||||
)
|
||||
:mscal-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
|
||||
)
|
||||
:init-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x388 :num #x1 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:init-data (new 'static 'inline-array qword 2
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x345 #x0))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x0 #x1500000c))
|
||||
)
|
||||
)
|
||||
(new 'static 'shrub-near-packet
|
||||
:matrix-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:header-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:stq-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x9 :cmd (vif-cmd unpack-v2-16))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x400a :cmd (vif-cmd unpack-v3-8))
|
||||
)
|
||||
:vertex-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #xb :cmd (vif-cmd unpack-v3-16))
|
||||
)
|
||||
:mscal-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
|
||||
)
|
||||
:init-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x388 :num #x1 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:init-data (new 'static 'inline-array qword 2
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x363 #x117))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x0 #x1500000c))
|
||||
)
|
||||
)
|
||||
(new 'static 'shrub-near-packet
|
||||
:matrix-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:header-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:stq-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x120 :cmd (vif-cmd unpack-v2-16))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x4121 :cmd (vif-cmd unpack-v3-8))
|
||||
)
|
||||
:vertex-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x122 :cmd (vif-cmd unpack-v3-16))
|
||||
)
|
||||
:mscal-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
|
||||
)
|
||||
:init-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x388 :num #x1 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:init-data (new 'static 'inline-array qword 2
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x345 #x22e))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x0 #x1500000c))
|
||||
)
|
||||
)
|
||||
(new 'static 'shrub-near-packet
|
||||
:matrix-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:header-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:stq-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif0 (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x237 :cmd (vif-cmd unpack-v2-16))
|
||||
)
|
||||
:color-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x4238 :cmd (vif-cmd unpack-v3-8))
|
||||
)
|
||||
:vertex-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id ref))
|
||||
:vif1 (new 'static 'vif-tag :imm #x239 :cmd (vif-cmd unpack-v3-16))
|
||||
)
|
||||
:mscal-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
|
||||
)
|
||||
:init-tmpl (new 'static 'dma-packet
|
||||
:dma (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
|
||||
:vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
|
||||
:vif1 (new 'static 'vif-tag :imm #x388 :num #x1 :cmd (vif-cmd unpack-v4-32))
|
||||
)
|
||||
:init-data (new 'static 'inline-array qword 2
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x363 #x0))
|
||||
(new 'static 'qword :data (new 'static 'array uint32 4 #x0 #x0 #x0 #x1500000c))
|
||||
)
|
||||
)
|
||||
)
|
||||
:dma-ref (new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id ref)))
|
||||
:dma-end (new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id end)))
|
||||
:wind-const (new 'static 'vector :data (new 'static 'array float 4 0.5 100.0 0.0166 -1.0))
|
||||
:constants (new 'static 'vector :data (new 'static 'array float 4 128.0 1.0 0.0 0.0))
|
||||
:color-constant (new 'static 'vector4w :x #x47000000 :y #x47000000 :z #x47000000)
|
||||
:start-bank (new 'static 'array uint8 20 #x0 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *instance-shrub-work* mscalf-tmpl vif0 imm) 103)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *instance-shrub-work* mscalf-ret-tmpl vif0 imm) 103)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+1190
File diff suppressed because it is too large
Load Diff
+2
-2
@@ -401,8 +401,8 @@
|
||||
(disable-day-star basic)
|
||||
)
|
||||
(:methods
|
||||
(sky-work-method-9 () none)
|
||||
(sky-work-method-10 () none)
|
||||
(init-sun-data! (_type_ int float float float) none)
|
||||
(init-orbit-settings! (_type_ int float float float float float float) none)
|
||||
(sky-work-method-11 () none)
|
||||
(sky-work-method-12 () none)
|
||||
(sky-work-method-13 () none)
|
||||
|
||||
+534
@@ -0,0 +1,534 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type color-array
|
||||
(deftype color-array (inline-array-class)
|
||||
((data rgbaf :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type color-array
|
||||
(defmethod inspect ((this color-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> color-array heap-base) (the-as uint 16))
|
||||
|
||||
;; definition of type light-trail-composition
|
||||
(deftype light-trail-composition (structure)
|
||||
((color-mode uint64)
|
||||
(color-curve curve-color-piecewise)
|
||||
(color-repeat-dist float)
|
||||
(alpha-1-mode uint64)
|
||||
(alpha-2-mode uint64)
|
||||
(base-alpha float)
|
||||
(alpha-curve-1 curve2d-piecewise)
|
||||
(alpha-curve-2 curve2d-piecewise)
|
||||
(alpha-repeat-dist float)
|
||||
(width-mode uint64)
|
||||
(base-width float)
|
||||
(width-curve curve2d-piecewise)
|
||||
(width-repeat-dist float)
|
||||
(uv-mode uint64)
|
||||
(uv-repeat-dist float)
|
||||
(max-age uint64)
|
||||
(tex-id texture-id)
|
||||
(tex-name basic)
|
||||
(lie-mode uint64)
|
||||
(lie-vector vector :inline)
|
||||
(zbuffer? symbol)
|
||||
(use-tape-mode? symbol)
|
||||
(blend-mode uint64)
|
||||
(frame-stagger uint8)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail-composition
|
||||
(defmethod inspect ((this light-trail-composition))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'light-trail-composition)
|
||||
(format #t "~1Tcolor-mode: ~D~%" (-> this color-mode))
|
||||
(format #t "~1Tcolor-curve: ~A~%" (-> this color-curve))
|
||||
(format #t "~1Tcolor-repeat-dist: ~f~%" (-> this color-repeat-dist))
|
||||
(format #t "~1Talpha-1-mode: ~D~%" (-> this alpha-1-mode))
|
||||
(format #t "~1Talpha-2-mode: ~D~%" (-> this alpha-2-mode))
|
||||
(format #t "~1Tbase-alpha: ~f~%" (-> this base-alpha))
|
||||
(format #t "~1Talpha-curve-1: ~A~%" (-> this alpha-curve-1))
|
||||
(format #t "~1Talpha-curve-2: ~A~%" (-> this alpha-curve-2))
|
||||
(format #t "~1Talpha-repeat-dist: ~f~%" (-> this alpha-repeat-dist))
|
||||
(format #t "~1Twidth-mode: ~D~%" (-> this width-mode))
|
||||
(format #t "~1Tbase-width: ~f~%" (-> this base-width))
|
||||
(format #t "~1Twidth-curve: ~A~%" (-> this width-curve))
|
||||
(format #t "~1Twidth-repeat-dist: ~f~%" (-> this width-repeat-dist))
|
||||
(format #t "~1Tuv-mode: ~D~%" (-> this uv-mode))
|
||||
(format #t "~1Tuv-repeat-dist: ~f~%" (-> this uv-repeat-dist))
|
||||
(format #t "~1Tmax-age: ~D~%" (-> this max-age))
|
||||
(format #t "~1Ttex-id: ~D~%" (-> this tex-id))
|
||||
(format #t "~1Ttex-name: ~A~%" (-> this tex-name))
|
||||
(format #t "~1Tlie-mode: ~D~%" (-> this lie-mode))
|
||||
(format #t "~1Tlie-vector: #<vector @ #x~X>~%" (-> this lie-vector))
|
||||
(format #t "~1Tzbuffer?: ~A~%" (-> this zbuffer?))
|
||||
(format #t "~1Tuse-tape-mode?: ~A~%" (-> this use-tape-mode?))
|
||||
(format #t "~1Tblend-mode: ~D~%" (-> this blend-mode))
|
||||
(format #t "~1Tframe-stagger: ~D~%" (-> this frame-stagger))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type light-trail-breadcrumb
|
||||
(deftype light-trail-breadcrumb (structure)
|
||||
((pos vector :inline)
|
||||
(birth-time uint32 :overlay-at (-> pos data 3))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail-breadcrumb
|
||||
(defmethod inspect ((this light-trail-breadcrumb))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'light-trail-breadcrumb)
|
||||
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
||||
(format #t "~1Tbirth-time: ~D~%" (-> this pos w))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type breadcrumb-array
|
||||
(deftype breadcrumb-array (inline-array-class)
|
||||
((data light-trail-breadcrumb :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type breadcrumb-array
|
||||
(defmethod inspect ((this breadcrumb-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> breadcrumb-array heap-base) (the-as uint 16))
|
||||
|
||||
;; definition of type light-trail
|
||||
(deftype light-trail (prim-client)
|
||||
((crumb-array (array uint8))
|
||||
(crumb-size uint8)
|
||||
(crumb-count int16)
|
||||
(max-crumb-count int16)
|
||||
(appearance light-trail-composition)
|
||||
(start-marker uint64)
|
||||
(end-marker uint64)
|
||||
(decision uint64)
|
||||
(total-distance-traveled float)
|
||||
(strip prim-strip)
|
||||
(strip2 prim-strip)
|
||||
(cache-vector vector 4 :inline)
|
||||
)
|
||||
(:methods
|
||||
(light-trail-method-10 () none)
|
||||
(light-trail-method-11 () none)
|
||||
(light-trail-method-12 () none)
|
||||
(light-trail-method-13 () none)
|
||||
(light-trail-method-14 () none)
|
||||
(light-trail-method-15 () none)
|
||||
(light-trail-method-16 () none)
|
||||
(light-trail-method-17 () none)
|
||||
(light-trail-method-18 () none)
|
||||
(light-trail-method-19 () none)
|
||||
(light-trail-method-20 () none)
|
||||
(light-trail-method-21 () none)
|
||||
(light-trail-method-22 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail
|
||||
(defmethod inspect ((this light-trail))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tcrumb-array: ~A~%" (-> this crumb-array))
|
||||
(format #t "~1Tcrumb-size: ~D~%" (-> this crumb-size))
|
||||
(format #t "~1Tcrumb-count: ~D~%" (-> this crumb-count))
|
||||
(format #t "~1Tmax-crumb-count: ~D~%" (-> this max-crumb-count))
|
||||
(format #t "~1Tappearance: #<light-trail-composition @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tstart-marker: ~D~%" (-> this start-marker))
|
||||
(format #t "~1Tend-marker: ~D~%" (-> this end-marker))
|
||||
(format #t "~1Tdecision: ~D~%" (-> this decision))
|
||||
(format #t "~1Ttotal-distance-traveled: ~f~%" (-> this total-distance-traveled))
|
||||
(format #t "~1Tstrip: ~A~%" (-> this strip))
|
||||
(format #t "~1Tstrip2: ~A~%" (-> this strip2))
|
||||
(format #t "~1Tcache-vector[4] @ #x~X~%" (-> this cache-vector))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type weapon-trail-crumb
|
||||
(deftype weapon-trail-crumb (light-trail-breadcrumb)
|
||||
((offset vector :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type weapon-trail-crumb
|
||||
(defmethod inspect ((this weapon-trail-crumb))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'weapon-trail-crumb)
|
||||
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
||||
(format #t "~1Tbirth-time: ~D~%" (-> this pos w))
|
||||
(format #t "~1Toffset: #<vector @ #x~X>~%" (-> this offset))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type weapon-trail
|
||||
(deftype weapon-trail (light-trail)
|
||||
()
|
||||
(:methods
|
||||
(weapon-trail-method-23 () none)
|
||||
(weapon-trail-method-24 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type weapon-trail
|
||||
(defmethod inspect ((this weapon-trail))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tcrumb-array: ~A~%" (-> this crumb-array))
|
||||
(format #t "~1Tcrumb-size: ~D~%" (-> this crumb-size))
|
||||
(format #t "~1Tcrumb-count: ~D~%" (-> this crumb-count))
|
||||
(format #t "~1Tmax-crumb-count: ~D~%" (-> this max-crumb-count))
|
||||
(format #t "~1Tappearance: #<light-trail-composition @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tstart-marker: ~D~%" (-> this start-marker))
|
||||
(format #t "~1Tend-marker: ~D~%" (-> this end-marker))
|
||||
(format #t "~1Tdecision: ~D~%" (-> this decision))
|
||||
(format #t "~1Ttotal-distance-traveled: ~f~%" (-> this total-distance-traveled))
|
||||
(format #t "~1Tstrip: ~A~%" (-> this strip))
|
||||
(format #t "~1Tstrip2: ~A~%" (-> this strip2))
|
||||
(format #t "~1Tcache-vector[4] @ #x~X~%" (-> this cache-vector))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type tread-trail-crumb
|
||||
(deftype tread-trail-crumb (light-trail-breadcrumb)
|
||||
((normal vector :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type tread-trail-crumb
|
||||
(defmethod inspect ((this tread-trail-crumb))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'tread-trail-crumb)
|
||||
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
||||
(format #t "~1Tbirth-time: ~D~%" (-> this pos w))
|
||||
(format #t "~1Tnormal: #<vector @ #x~X>~%" (-> this normal))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type tread-trail
|
||||
(deftype tread-trail (light-trail)
|
||||
()
|
||||
(:methods
|
||||
(tread-trail-method-23 () none)
|
||||
(tread-trail-method-24 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type tread-trail
|
||||
(defmethod inspect ((this tread-trail))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tcrumb-array: ~A~%" (-> this crumb-array))
|
||||
(format #t "~1Tcrumb-size: ~D~%" (-> this crumb-size))
|
||||
(format #t "~1Tcrumb-count: ~D~%" (-> this crumb-count))
|
||||
(format #t "~1Tmax-crumb-count: ~D~%" (-> this max-crumb-count))
|
||||
(format #t "~1Tappearance: #<light-trail-composition @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tstart-marker: ~D~%" (-> this start-marker))
|
||||
(format #t "~1Tend-marker: ~D~%" (-> this end-marker))
|
||||
(format #t "~1Tdecision: ~D~%" (-> this decision))
|
||||
(format #t "~1Ttotal-distance-traveled: ~f~%" (-> this total-distance-traveled))
|
||||
(format #t "~1Tstrip: ~A~%" (-> this strip))
|
||||
(format #t "~1Tstrip2: ~A~%" (-> this strip2))
|
||||
(format #t "~1Tcache-vector[4] @ #x~X~%" (-> this cache-vector))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type light-trail-tracker-spawn-params
|
||||
(deftype light-trail-tracker-spawn-params (structure)
|
||||
((appearance light-trail-composition)
|
||||
(max-num-crumbs int32)
|
||||
(tracked-obj uint64)
|
||||
(track-immediately? symbol)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail-tracker-spawn-params
|
||||
(defmethod inspect ((this light-trail-tracker-spawn-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'light-trail-tracker-spawn-params)
|
||||
(format #t "~1Tappearance: #<light-trail-composition @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tmax-num-crumbs: ~D~%" (-> this max-num-crumbs))
|
||||
(format #t "~1Ttracked-obj: ~D~%" (-> this tracked-obj))
|
||||
(format #t "~1Ttrack-immediately?: ~A~%" (-> this track-immediately?))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type weapon-trail-tracker-spawn-params
|
||||
(deftype weapon-trail-tracker-spawn-params (light-trail-tracker-spawn-params)
|
||||
((joint0 int16)
|
||||
(joint1 int16)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type weapon-trail-tracker-spawn-params
|
||||
(defmethod inspect ((this weapon-trail-tracker-spawn-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'weapon-trail-tracker-spawn-params)
|
||||
(format #t "~1Tappearance: #<light-trail-composition @ #x~X>~%" (-> this appearance))
|
||||
(format #t "~1Tmax-num-crumbs: ~D~%" (-> this max-num-crumbs))
|
||||
(format #t "~1Ttracked-obj: ~D~%" (-> this tracked-obj))
|
||||
(format #t "~1Ttrack-immediately?: ~A~%" (-> this track-immediately?))
|
||||
(format #t "~1Tjoint0: ~D~%" (-> this joint0))
|
||||
(format #t "~1Tjoint1: ~D~%" (-> this joint1))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type light-trail-tracker
|
||||
(deftype light-trail-tracker (process)
|
||||
((trail light-trail)
|
||||
(tracked-object handle)
|
||||
(offscreen? symbol)
|
||||
(offscreen-start-time uint64)
|
||||
(next-line-check-time uint64)
|
||||
(last-add-frame-val uint32)
|
||||
)
|
||||
(:state-methods
|
||||
tracking
|
||||
die
|
||||
)
|
||||
(:methods
|
||||
(light-trail-tracker-method-16 () none)
|
||||
(light-trail-tracker-method-17 () none)
|
||||
(light-trail-tracker-method-18 () none)
|
||||
(light-trail-tracker-method-19 () none)
|
||||
(light-trail-tracker-method-20 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail-tracker
|
||||
(defmethod inspect ((this light-trail-tracker))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Ttrail: ~A~%" (-> this trail))
|
||||
(format #t "~2Ttracked-object: ~D~%" (-> this tracked-object))
|
||||
(format #t "~2Toffscreen?: ~A~%" (-> this offscreen?))
|
||||
(format #t "~2Toffscreen-start-time: ~D~%" (-> this offscreen-start-time))
|
||||
(format #t "~2Tnext-line-check-time: ~D~%" (-> this next-line-check-time))
|
||||
(format #t "~2Tlast-add-frame-val: ~D~%" (-> this last-add-frame-val))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type weapon-trail-tracker
|
||||
(deftype weapon-trail-tracker (light-trail-tracker)
|
||||
((joint0 int16)
|
||||
(joint1 int16)
|
||||
(state-time uint64)
|
||||
)
|
||||
(:methods
|
||||
(weapon-trail-tracker-method-22 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type weapon-trail-tracker
|
||||
(defmethod inspect ((this weapon-trail-tracker))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type light-trail-tracker inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Tjoint0: ~D~%" (-> this joint0))
|
||||
(format #t "~2Tjoint1: ~D~%" (-> this joint1))
|
||||
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type tread-trail-tracker
|
||||
(deftype tread-trail-tracker (light-trail-tracker)
|
||||
()
|
||||
)
|
||||
|
||||
;; definition for method 3 of type tread-trail-tracker
|
||||
(defmethod inspect ((this tread-trail-tracker))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type light-trail-tracker inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for function light-trail-tracker-init-by-other
|
||||
(defbehavior light-trail-tracker-init-by-other light-trail-tracker ((arg0 light-trail-tracker-spawn-params))
|
||||
(stack-size-set! (-> self main-thread) 32)
|
||||
(set! (-> self tracked-object) (the-as handle (-> arg0 tracked-obj)))
|
||||
(set! (-> self trail) (new 'process 'light-trail))
|
||||
(set! (-> self next-line-check-time) (the-as uint 0))
|
||||
(set! (-> self last-add-frame-val) (the-as uint 0))
|
||||
(set! (-> self offscreen?) #f)
|
||||
(let ((t9-2 (method-of-object (-> self trail) light-trail-method-10)))
|
||||
(-> arg0 appearance)
|
||||
(-> arg0 max-num-crumbs)
|
||||
(t9-2)
|
||||
)
|
||||
(when (-> arg0 track-immediately?)
|
||||
(handle->process (-> self tracked-object))
|
||||
(when ((method-of-object self light-trail-tracker-method-17))
|
||||
(let ((s4-0 (method-of-object (-> self trail) light-trail-method-12)))
|
||||
(let ((t9-4 (method-of-object self light-trail-tracker-method-16)))
|
||||
(new 'stack-no-clear 'vector)
|
||||
(t9-4)
|
||||
)
|
||||
#x2dc6c0
|
||||
(s4-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
(go-virtual tracking)
|
||||
)
|
||||
|
||||
;; definition for function weapon-trail-tracker-init-by-other
|
||||
(defbehavior weapon-trail-tracker-init-by-other weapon-trail-tracker ((arg0 weapon-trail-tracker-spawn-params))
|
||||
(set! (-> self tracked-object) (the-as handle (-> arg0 tracked-obj)))
|
||||
(set! (-> self trail) (new 'process 'weapon-trail))
|
||||
(set! (-> self next-line-check-time) (the-as uint 0))
|
||||
(set! (-> self last-add-frame-val) (the-as uint 0))
|
||||
(set! (-> self joint0) (-> arg0 joint0))
|
||||
(set! (-> self joint1) (-> arg0 joint1))
|
||||
(set! (-> self offscreen?) #f)
|
||||
(let ((t9-1 (method-of-object (-> self trail) light-trail-method-10)))
|
||||
(-> arg0 appearance)
|
||||
(-> arg0 max-num-crumbs)
|
||||
(t9-1)
|
||||
)
|
||||
(go-virtual tracking)
|
||||
)
|
||||
|
||||
;; definition for function tread-trail-tracker-init-by-other
|
||||
(defbehavior tread-trail-tracker-init-by-other tread-trail-tracker ((arg0 light-trail-tracker-spawn-params))
|
||||
(set! (-> self tracked-object) (the-as handle (-> arg0 tracked-obj)))
|
||||
(set! (-> self trail) (new 'process 'tread-trail))
|
||||
(set! (-> self offscreen?) #f)
|
||||
(set! (-> self next-line-check-time) (the-as uint 0))
|
||||
(set! (-> self last-add-frame-val) (the-as uint 0))
|
||||
(let ((t9-1 (method-of-object (-> self trail) light-trail-method-10)))
|
||||
(-> arg0 appearance)
|
||||
(-> arg0 max-num-crumbs)
|
||||
(t9-1)
|
||||
)
|
||||
(go-virtual tracking)
|
||||
)
|
||||
|
||||
;; definition of type light-trail-tracker-water
|
||||
(deftype light-trail-tracker-water (light-trail-tracker)
|
||||
()
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail-tracker-water
|
||||
(defmethod inspect ((this light-trail-tracker-water))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type light-trail-tracker inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type light-trail-tracker-projectile
|
||||
(deftype light-trail-tracker-projectile (light-trail-tracker)
|
||||
((state-time uint64)
|
||||
)
|
||||
(:methods
|
||||
(light-trail-tracker-projectile-method-22 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type light-trail-tracker-projectile
|
||||
(defmethod inspect ((this light-trail-tracker-projectile))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type light-trail-tracker inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-2
@@ -108,8 +108,8 @@
|
||||
(data texture-anim-layer :dynamic)
|
||||
)
|
||||
(:methods
|
||||
(texture-anim-method-9 () none)
|
||||
(texture-anim-method-10 () none)
|
||||
(init-textures! (_type_) _type_)
|
||||
(clear-textures! (_type_) _type_)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
+248
@@ -0,0 +1,248 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type bsp-node
|
||||
(deftype bsp-node (structure)
|
||||
((front int16)
|
||||
(back int16)
|
||||
(front-box-min vector4b :inline)
|
||||
(front-box-max vector4b :inline)
|
||||
(back-box-min vector4b :inline)
|
||||
(back-box-max vector4b :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type bsp-node
|
||||
(defmethod inspect ((this bsp-node))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'bsp-node)
|
||||
(format #t "~1Tfront: ~D~%" (-> this front))
|
||||
(format #t "~1Tback: ~D~%" (-> this back))
|
||||
(format #t "~1Tfront-box-min: #<vector4b @ #x~X>~%" (-> this front-box-min))
|
||||
(format #t "~1Tfront-box-max: #<vector4b @ #x~X>~%" (-> this front-box-max))
|
||||
(format #t "~1Tback-box-min: #<vector4b @ #x~X>~%" (-> this back-box-min))
|
||||
(format #t "~1Tback-box-max: #<vector4b @ #x~X>~%" (-> this back-box-max))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type bsp-header
|
||||
(deftype bsp-header (drawable)
|
||||
"The bsp-header is really an entire level.
|
||||
This probably started as a very simple structure, but now it is extremely complicated."
|
||||
((info file-info :overlay-at id)
|
||||
(all-visible-list (pointer uint8))
|
||||
(visible-list-length int16)
|
||||
(extra-vis-list-length int16)
|
||||
(drawable-trees drawable-tree-array)
|
||||
(pat pointer)
|
||||
(pat-length int32)
|
||||
(texture-remap-table (pointer uint64))
|
||||
(texture-remap-table-len int32)
|
||||
(texture-ids (pointer texture-id))
|
||||
(texture-page-count int32)
|
||||
(unknown-basic basic)
|
||||
(name symbol)
|
||||
(nickname symbol)
|
||||
(vis-info level-vis-info 8)
|
||||
(actors drawable-inline-array-actor)
|
||||
(cameras (array entity-camera))
|
||||
(nodes (inline-array bsp-node))
|
||||
(level level)
|
||||
(current-leaf-idx uint16)
|
||||
(texture-flags texture-page-flag 10)
|
||||
(cam-outside-bsp uint8 :offset 152)
|
||||
(cam-using-back uint8)
|
||||
(cam-box-idx uint16)
|
||||
(ambients symbol)
|
||||
(subdivide-close float :offset 160)
|
||||
(subdivide-far float)
|
||||
(race-meshes (array entity-race-mesh))
|
||||
(actor-birth-order (pointer uint32) :offset 172)
|
||||
(light-hash light-hash)
|
||||
(nav-meshes (array entity-nav-mesh))
|
||||
(actor-groups (array actor-group))
|
||||
(region-trees (array drawable-tree-region-prim) :offset 188)
|
||||
(region-array region-array)
|
||||
(collide-hash collide-hash :offset 196)
|
||||
(wind-array uint32 :offset 200)
|
||||
(wind-array-length int32 :offset 204)
|
||||
(city-level-info city-level-info :offset 208)
|
||||
(vis-spheres vector-array :offset 216)
|
||||
(vis-spheres-length uint32 :offset 248)
|
||||
(region-tree drawable-tree-region-prim :offset 252)
|
||||
(tfrag-masks texture-masks-array :offset 256)
|
||||
(tfrag-closest (pointer float))
|
||||
(tfrag-mask-count uint32 :overlay-at tfrag-closest)
|
||||
(shrub-masks texture-masks-array)
|
||||
(shrub-closest (pointer float))
|
||||
(shrub-mask-count uint32 :overlay-at shrub-closest)
|
||||
(alpha-masks texture-masks-array)
|
||||
(alpha-closest (pointer float))
|
||||
(alpha-mask-count uint32 :overlay-at alpha-closest)
|
||||
(water-masks texture-masks-array)
|
||||
(water-closest (pointer float))
|
||||
(water-mask-count uint32 :overlay-at water-closest)
|
||||
(bsp-scale vector :inline :offset 288)
|
||||
(bsp-offset vector :inline)
|
||||
(hfrag-drawable drawable :offset 320)
|
||||
(unknown-bsp-1 uint32 :offset 324)
|
||||
(end uint8 :offset 399)
|
||||
)
|
||||
(:methods
|
||||
(birth (_type_) none)
|
||||
(deactivate-entities (_type_) none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition of type game-level
|
||||
(deftype game-level (basic)
|
||||
((master-bsp basic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type game-level
|
||||
(defmethod inspect ((this game-level))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tmaster-bsp: ~A~%" (-> this master-bsp))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type view-frustum
|
||||
(deftype view-frustum (structure)
|
||||
((hither-top-left vector :inline)
|
||||
(hither-top-right vector :inline)
|
||||
(hither-bottom-left vector :inline)
|
||||
(hither-bottom-right vector :inline)
|
||||
(yon-top-left vector :inline)
|
||||
(yon-top-right vector :inline)
|
||||
(yon-bottom-left vector :inline)
|
||||
(yon-bottom-right vector :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type view-frustum
|
||||
(defmethod inspect ((this view-frustum))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'view-frustum)
|
||||
(format #t "~1Thither-top-left: #<vector @ #x~X>~%" (-> this hither-top-left))
|
||||
(format #t "~1Thither-top-right: #<vector @ #x~X>~%" (-> this hither-top-right))
|
||||
(format #t "~1Thither-bottom-left: #<vector @ #x~X>~%" (-> this hither-bottom-left))
|
||||
(format #t "~1Thither-bottom-right: #<vector @ #x~X>~%" (-> this hither-bottom-right))
|
||||
(format #t "~1Tyon-top-left: #<vector @ #x~X>~%" (-> this yon-top-left))
|
||||
(format #t "~1Tyon-top-right: #<vector @ #x~X>~%" (-> this yon-top-right))
|
||||
(format #t "~1Tyon-bottom-left: #<vector @ #x~X>~%" (-> this yon-bottom-left))
|
||||
(format #t "~1Tyon-bottom-right: #<vector @ #x~X>~%" (-> this yon-bottom-right))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 3 of type bsp-header
|
||||
(defmethod inspect ((this bsp-header))
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~Tall-visible-list: #x~X~%" (-> this all-visible-list))
|
||||
(format #t "~Tvisible-list-length: ~D~%" (-> this visible-list-length))
|
||||
(format #t "~Tdrawable-trees: ~A~%" (-> this drawable-trees))
|
||||
(format #t "~Tpat: #x~X~%" (-> this pat))
|
||||
(format #t "~Tpat-length: ~D~%" (-> this pat-length))
|
||||
(inspect-bsp-tree this (-> this nodes 0))
|
||||
this
|
||||
)
|
||||
|
||||
;; definition (debug) for function inspect-bsp-tree
|
||||
;; WARN: Return type mismatch bsp-header vs none.
|
||||
(defun-debug inspect-bsp-tree ((arg0 bsp-header) (arg1 bsp-node))
|
||||
(cond
|
||||
((zero? arg1)
|
||||
)
|
||||
(else
|
||||
(format #t "_#x~X________________~%" arg1)
|
||||
(inspect arg1)
|
||||
(let ((s4-0 *print-column*))
|
||||
(set! *print-column* (+ *print-column* 64))
|
||||
(if (> (-> arg1 front) 0)
|
||||
(inspect-bsp-tree arg0 (the-as bsp-node (-> arg1 front)))
|
||||
(format #t "_#x~X________________~%" arg1)
|
||||
)
|
||||
(if (> (-> arg1 back) 0)
|
||||
(inspect-bsp-tree arg0 (the-as bsp-node (-> arg1 back)))
|
||||
(format #t "_#x~X________________~%" arg1)
|
||||
)
|
||||
(set! *print-column* s4-0)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for function map-bsp-tree
|
||||
;; WARN: Return type mismatch bsp-header vs none.
|
||||
(defun map-bsp-tree ((arg0 (function bsp-node none)) (arg1 bsp-header) (arg2 bsp-node))
|
||||
(cond
|
||||
((zero? arg2)
|
||||
)
|
||||
(else
|
||||
(if (> (-> arg2 front) 0)
|
||||
(map-bsp-tree arg0 arg1 (the-as bsp-node (-> arg2 front)))
|
||||
(arg0 arg2)
|
||||
)
|
||||
(if (> (-> arg2 back) 0)
|
||||
(map-bsp-tree arg0 arg1 (the-as bsp-node (-> arg2 back)))
|
||||
(arg0 arg2)
|
||||
)
|
||||
)
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition of type collide-stats
|
||||
(deftype collide-stats (structure)
|
||||
"Very strange collide stats type. It has been somewhat broken in all versions of the game.
|
||||
The final stopwatch is cut off. For jak 3, I just fixed it."
|
||||
((calls uint32)
|
||||
(spheres uint32)
|
||||
(nodes uint32)
|
||||
(frags uint32)
|
||||
(tris uint32)
|
||||
(output uint32)
|
||||
(junk (pointer uint32) 24)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type collide-stats
|
||||
(defmethod inspect ((this collide-stats))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'collide-stats)
|
||||
(format #t "~1Tcalls: ~D~%" (-> this calls))
|
||||
(format #t "~1Tspheres: ~D~%" (-> this spheres))
|
||||
(format #t "~1Tnodes: ~D~%" (-> this nodes))
|
||||
(format #t "~1Tfrags: ~D~%" (-> this frags))
|
||||
(format #t "~1Ttris: ~D~%" (-> this tris))
|
||||
(format #t "~1Toutput: ~D~%" (-> this output))
|
||||
(format #t "~1Ttotal-target: #<stopwatch @ #x~X>~%" (&-> this junk 1))
|
||||
(format #t "~1Ttarget-cache-fill: #<stopwatch @ #x~X>~%" (&-> this junk 9))
|
||||
(format #t "~1Ttarget-ray-poly: #<stopwatch @ #x~X>~%" (&-> this junk 17))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+5
-5
@@ -415,14 +415,14 @@
|
||||
(level-method-13 () none)
|
||||
(level-method-14 () none)
|
||||
(level-method-15 () none)
|
||||
(level-method-16 () none)
|
||||
(update-vis! (_type_ level-vis-info uint (pointer uint8) int) symbol)
|
||||
(level-method-17 () none)
|
||||
(level-method-18 () none)
|
||||
(level-method-19 () none)
|
||||
(level-method-20 () none)
|
||||
(level-method-21 () none)
|
||||
(level-method-22 () none)
|
||||
(level-method-23 () none)
|
||||
(lookup-text (_type_ text-id symbol) string)
|
||||
(level-method-24 () none)
|
||||
(level-method-25 () none)
|
||||
(level-method-26 () none)
|
||||
@@ -634,7 +634,7 @@
|
||||
(pad int32)
|
||||
)
|
||||
(:methods
|
||||
(level-group-method-9 () none)
|
||||
(level-get (_type_ symbol) level)
|
||||
(level-group-method-10 () none)
|
||||
(level-group-method-11 () none)
|
||||
(level-group-method-12 () none)
|
||||
@@ -645,9 +645,9 @@
|
||||
(level-group-method-17 () none)
|
||||
(level-group-method-18 () none)
|
||||
(level-group-method-19 () none)
|
||||
(level-group-method-20 () none)
|
||||
(level-get-target-inside (_type_) level)
|
||||
(level-group-method-21 () none)
|
||||
(level-group-method-22 () none)
|
||||
(art-group-get-by-name (_type_ string (pointer level)) art-group)
|
||||
(level-group-method-23 () none)
|
||||
(level-group-method-24 () none)
|
||||
(level-group-method-25 () none)
|
||||
|
||||
+398
@@ -0,0 +1,398 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type check-vector-collision-with-nav-spheres-info
|
||||
(deftype check-vector-collision-with-nav-spheres-info (structure)
|
||||
((u float)
|
||||
(intersect vector :inline)
|
||||
(normal vector :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type check-vector-collision-with-nav-spheres-info
|
||||
(defmethod inspect ((this check-vector-collision-with-nav-spheres-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'check-vector-collision-with-nav-spheres-info)
|
||||
(format #t "~1Tu: ~f~%" (-> this u))
|
||||
(format #t "~1Tintersect: #<vector @ #x~X>~%" (-> this intersect))
|
||||
(format #t "~1Tnormal: #<vector @ #x~X>~%" (-> this normal))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-gap-info
|
||||
(deftype nav-gap-info (structure)
|
||||
((dest vector :inline)
|
||||
(poly nav-poly)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-gap-info
|
||||
(defmethod inspect ((this nav-gap-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-gap-info)
|
||||
(format #t "~1Tdest: ~`vector`P~%" (-> this dest))
|
||||
(format #t "~1Tpoly: #<nav-poly @ #x~X>~%" (-> this poly))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-avoid-spheres-params
|
||||
(deftype nav-avoid-spheres-params (structure)
|
||||
((current-pos vector :inline)
|
||||
(travel vector :inline)
|
||||
(pref-dir vector :inline)
|
||||
(out-travel vector 2 :inline)
|
||||
(closest-sphere-dist2 float)
|
||||
(avoiding-sphere? symbol)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-avoid-spheres-params
|
||||
(defmethod inspect ((this nav-avoid-spheres-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-avoid-spheres-params)
|
||||
(format #t "~1Tcurrent-pos: #<vector @ #x~X>~%" (-> this current-pos))
|
||||
(format #t "~1Ttravel: #<vector @ #x~X>~%" (-> this travel))
|
||||
(format #t "~1Tpref-dir: #<vector @ #x~X>~%" (-> this pref-dir))
|
||||
(format #t "~1Tout-travel[2] @ #x~X~%" (-> this out-travel))
|
||||
(format #t "~1Tclosest-sphere-dist2: ~f~%" (-> this closest-sphere-dist2))
|
||||
(format #t "~1Tavoiding-sphere?: ~A~%" (-> this avoiding-sphere?))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-callback-info
|
||||
(deftype nav-callback-info (structure)
|
||||
((callback-count int32)
|
||||
(callback-array (function object nav-control none) 10)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-callback-info
|
||||
(defmethod inspect ((this nav-callback-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-callback-info)
|
||||
(format #t "~1Tcallback-count: ~D~%" (-> this callback-count))
|
||||
(format #t "~1Tcallback-array[10] @ #x~X~%" (-> this callback-array))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-state
|
||||
(deftype nav-state (structure)
|
||||
((flags nav-state-flag)
|
||||
(nav nav-control)
|
||||
(user-poly nav-poly)
|
||||
(mesh nav-mesh)
|
||||
(current-poly nav-poly)
|
||||
(virtual-current-poly nav-poly)
|
||||
(next-poly nav-poly)
|
||||
(target-poly nav-poly)
|
||||
(rotation-rate float)
|
||||
(speed meters)
|
||||
(prev-speed meters)
|
||||
(pad0 uint32 1)
|
||||
(travel vector :inline)
|
||||
(target-pos vector :inline)
|
||||
(current-pos vector :inline)
|
||||
(current-pos-local vector :inline)
|
||||
(virtual-current-pos-local vector :inline)
|
||||
(velocity vector :inline)
|
||||
(heading vector :inline)
|
||||
(target-dir vector :inline)
|
||||
(accel vector :inline :overlay-at target-dir)
|
||||
(user-position vector :inline :overlay-at virtual-current-pos-local)
|
||||
(normal vector :inline :overlay-at virtual-current-pos-local)
|
||||
)
|
||||
(:methods
|
||||
(nav-state-method-9 () none)
|
||||
(nav-state-method-10 () none)
|
||||
(nav-state-method-11 () none)
|
||||
(nav-state-method-12 () none)
|
||||
(nav-state-method-13 () none)
|
||||
(nav-state-method-14 () none)
|
||||
(nav-state-method-15 () none)
|
||||
(nav-state-method-16 () none)
|
||||
(nav-state-method-17 () none)
|
||||
(nav-state-method-18 () none)
|
||||
(nav-state-method-19 () none)
|
||||
(nav-state-method-20 () none)
|
||||
(nav-state-method-21 () none)
|
||||
(nav-state-method-22 () none)
|
||||
(nav-state-method-23 () none)
|
||||
(nav-state-method-24 () none)
|
||||
(nav-state-method-25 () none)
|
||||
(nav-state-method-26 () none)
|
||||
(nav-state-method-27 () none)
|
||||
(nav-state-method-28 () none)
|
||||
(nav-state-method-29 () none)
|
||||
(nav-state-method-30 () none)
|
||||
(nav-state-method-31 () none)
|
||||
(nav-state-method-32 () none)
|
||||
(nav-state-method-33 () none)
|
||||
(nav-state-method-34 () none)
|
||||
(nav-state-method-35 () none)
|
||||
(nav-state-method-36 () none)
|
||||
(nav-state-method-37 () none)
|
||||
(nav-state-method-38 () none)
|
||||
(nav-state-method-39 () none)
|
||||
(nav-state-method-40 () none)
|
||||
(nav-state-method-41 () none)
|
||||
(nav-state-method-42 () none)
|
||||
(nav-state-method-43 () none)
|
||||
(nav-state-method-44 () none)
|
||||
(nav-state-method-45 () none)
|
||||
(nav-state-method-46 () none)
|
||||
(nav-state-method-47 () none)
|
||||
(nav-state-method-48 () none)
|
||||
(nav-state-method-49 () none)
|
||||
(nav-state-method-50 () none)
|
||||
(nav-state-method-51 () none)
|
||||
(nav-state-method-52 () none)
|
||||
(nav-state-method-53 () none)
|
||||
(nav-state-method-54 () none)
|
||||
(nav-state-method-55 () none)
|
||||
(nav-state-method-56 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-state
|
||||
(defmethod inspect ((this nav-state))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-36)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-state)
|
||||
(format #t "~1Tflags: #x~X : (nav-state-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand s5-0 (nav-state-flag in-target-poly)) (nav-state-flag in-target-poly))
|
||||
(format #t "in-target-poly ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag directional-mode)) (nav-state-flag directional-mode))
|
||||
(format #t "directional-mode ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag initialized)) (nav-state-flag initialized))
|
||||
(format #t "initialized ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag display-marks)) (nav-state-flag display-marks))
|
||||
(format #t "display-marks ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag recovery-mode)) (nav-state-flag recovery-mode))
|
||||
(format #t "recovery-mode ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag touching-sphere)) (nav-state-flag touching-sphere))
|
||||
(format #t "touching-sphere ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag trapped-by-sphere)) (nav-state-flag trapped-by-sphere))
|
||||
(format #t "trapped-by-sphere ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag blocked)) (nav-state-flag blocked))
|
||||
(format #t "blocked ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag avoiding-sphere)) (nav-state-flag avoiding-sphere))
|
||||
(format #t "avoiding-sphere ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag target-inside)) (nav-state-flag target-inside))
|
||||
(format #t "target-inside ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag debug)) (nav-state-flag debug))
|
||||
(format #t "debug ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag at-gap)) (nav-state-flag at-gap))
|
||||
(format #t "at-gap ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag use-position)) (nav-state-flag use-position))
|
||||
(format #t "user-position ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag in-mesh)) (nav-state-flag in-mesh))
|
||||
(format #t "in-mesh ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag at-target)) (nav-state-flag at-target))
|
||||
(format #t "at-target ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-state-flag target-poly-dirty)) (nav-state-flag target-poly-dirty))
|
||||
(format #t "target-poly-dirty ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tnav: ~A~%" (-> this nav))
|
||||
(format #t "~1Tuser-poly: #<nav-poly @ #x~X>~%" (-> this user-poly))
|
||||
(format #t "~1Tmesh: ~A~%" (-> this mesh))
|
||||
(format #t "~1Tcurrent-poly: #<nav-poly @ #x~X>~%" (-> this current-poly))
|
||||
(format #t "~1Tvirtual-current-poly: #<nav-poly @ #x~X>~%" (-> this virtual-current-poly))
|
||||
(format #t "~1Tnext-poly: #<nav-poly @ #x~X>~%" (-> this next-poly))
|
||||
(format #t "~1Ttarget-poly: #<nav-poly @ #x~X>~%" (-> this target-poly))
|
||||
(format #t "~1Trotation-rate: ~f~%" (-> this rotation-rate))
|
||||
(format #t "~1Tspeed: (meters ~m)~%" (-> this speed))
|
||||
(format #t "~1Tprev-speed: (meters ~m)~%" (-> this prev-speed))
|
||||
(format #t "~1Tpad0[1] @ #x~X~%" (-> this pad0))
|
||||
(format #t "~1Ttravel: ~`vector`P~%" (-> this travel))
|
||||
(format #t "~1Ttarget-pos: ~`vector`P~%" (-> this target-pos))
|
||||
(format #t "~1Tcurrent-pos: ~`vector`P~%" (-> this current-pos))
|
||||
(format #t "~1Tcurrent-pos-local: ~`vector`P~%" (-> this current-pos-local))
|
||||
(format #t "~1Tvirtual-current-pos-local: ~`vector`P~%" (-> this virtual-current-pos-local))
|
||||
(format #t "~1Tvelocity: ~`vector`P~%" (-> this velocity))
|
||||
(format #t "~1Theading: ~`vector`P~%" (-> this heading))
|
||||
(format #t "~1Ttarget-dir: ~`vector`P~%" (-> this target-dir))
|
||||
(format #t "~1Taccel: #<vector @ #x~X>~%" (-> this target-dir))
|
||||
(format #t "~1Tuser-position: #<vector @ #x~X>~%" (-> this virtual-current-pos-local))
|
||||
(format #t "~1Tnormal: #<vector @ #x~X>~%" (-> this virtual-current-pos-local))
|
||||
(label cfg-36)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type nav-control
|
||||
(deftype nav-control (structure)
|
||||
((flags nav-control-flag)
|
||||
(callback-info nav-callback-info)
|
||||
(process process)
|
||||
(pad0 uint32)
|
||||
(shape collide-shape)
|
||||
(nearest-y-threshold meters)
|
||||
(nav-cull-radius meters)
|
||||
(sec-per-frame float)
|
||||
(target-speed meters)
|
||||
(acceleration meters)
|
||||
(turning-acceleration meters)
|
||||
(max-rotation-rate float)
|
||||
(speed-scale float)
|
||||
(sphere-count int32)
|
||||
(sphere-array (inline-array sphere))
|
||||
(root-sphere-id uint8)
|
||||
(sphere-mask uint8)
|
||||
(pad1 uint8 2)
|
||||
(sphere-id-array uint8 16)
|
||||
(extra-nav-sphere vector :inline)
|
||||
(root-nav-sphere vector :inline)
|
||||
(state nav-state :inline)
|
||||
(mesh basic :overlay-at (-> state mesh))
|
||||
)
|
||||
(:methods
|
||||
(nav-control-method-9 () none)
|
||||
(nav-control-method-10 () none)
|
||||
(nav-control-method-11 () none)
|
||||
(nav-control-method-12 () none)
|
||||
(nav-control-method-13 () none)
|
||||
(nav-control-method-14 () none)
|
||||
(nav-control-method-15 () none)
|
||||
(nav-control-method-16 () none)
|
||||
(nav-control-method-17 () none)
|
||||
(nav-control-method-18 () none)
|
||||
(nav-control-method-19 () none)
|
||||
(nav-control-method-20 () none)
|
||||
(nav-control-method-21 () none)
|
||||
(nav-control-method-22 () none)
|
||||
(nav-control-method-23 () none)
|
||||
(nav-control-method-24 () none)
|
||||
(nav-control-method-25 () none)
|
||||
(nav-control-method-26 () none)
|
||||
(nav-control-method-27 () none)
|
||||
(nav-control-method-28 () none)
|
||||
(nav-control-method-29 () none)
|
||||
(nav-control-method-30 () none)
|
||||
(nav-control-method-31 () none)
|
||||
(nav-control-method-32 () none)
|
||||
(nav-control-method-33 () none)
|
||||
(nav-control-method-34 () none)
|
||||
(nav-control-method-35 () none)
|
||||
(nav-control-method-36 () none)
|
||||
(nav-control-method-37 () none)
|
||||
(nav-control-method-38 () none)
|
||||
(nav-control-method-39 () none)
|
||||
(nav-control-method-40 () none)
|
||||
(nav-control-method-41 () none)
|
||||
(nav-control-method-42 () none)
|
||||
(nav-control-method-43 () none)
|
||||
(nav-control-method-44 () none)
|
||||
(nav-control-method-45 () none)
|
||||
(nav-control-method-46 () none)
|
||||
(nav-control-method-47 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type nav-control
|
||||
(defmethod inspect ((this nav-control))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-25)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'nav-control)
|
||||
(format #t "~1Tflags: #x~X : (nav-control-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand s5-0 (nav-control-flag display-marks)) (nav-control-flag display-marks))
|
||||
(format #t "display-marks ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag limit-rotation-rate)) (nav-control-flag limit-rotation-rate))
|
||||
(format #t "limit-rotation-rate ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag update-heading-from-facing)) (nav-control-flag update-heading-from-facing))
|
||||
(format #t "update-heading-from-facing ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag use-momentum)) (nav-control-flag use-momentum))
|
||||
(format #t "use-momentum ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag output-sphere-hash)) (nav-control-flag output-sphere-hash))
|
||||
(format #t "output-sphere-hash ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag no-redirect-in-clamp)) (nav-control-flag no-redirect-in-clamp))
|
||||
(format #t "no-redirect-in-clamp ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag momentum-ignore-heading)) (nav-control-flag momentum-ignore-heading))
|
||||
(format #t "momentum-ignore-heading ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag debug)) (nav-control-flag debug))
|
||||
(format #t "debug ")
|
||||
)
|
||||
(if (= (logand s5-0 (nav-control-flag kernel-run)) (nav-control-flag kernel-run))
|
||||
(format #t "kernel-run ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tcallback-info: #<nav-callback-info @ #x~X>~%" (-> this callback-info))
|
||||
(format #t "~1Tprocess: ~A~%" (-> this process))
|
||||
(format #t "~1Tpad0: ~D~%" (-> this pad0))
|
||||
(format #t "~1Tshape: ~A~%" (-> this shape))
|
||||
(format #t "~1Tnearest-y-threshold: (meters ~m)~%" (-> this nearest-y-threshold))
|
||||
(format #t "~1Tnav-cull-radius: (meters ~m)~%" (-> this nav-cull-radius))
|
||||
(format #t "~1Tsec-per-frame: ~f~%" (-> this sec-per-frame))
|
||||
(format #t "~1Ttarget-speed: (meters ~m)~%" (-> this target-speed))
|
||||
(format #t "~1Tacceleration: (meters ~m)~%" (-> this acceleration))
|
||||
(format #t "~1Tturning-acceleration: (meters ~m)~%" (-> this turning-acceleration))
|
||||
(format #t "~1Tmax-rotation-rate: ~f~%" (-> this max-rotation-rate))
|
||||
(format #t "~1Tspeed-scale: ~f~%" (-> this speed-scale))
|
||||
(format #t "~1Tsphere-count: ~D~%" (-> this sphere-count))
|
||||
(format #t "~1Tsphere-array: #x~X~%" (-> this sphere-array))
|
||||
(format #t "~1Troot-sphere-id: ~D~%" (-> this root-sphere-id))
|
||||
(format #t "~1Tsphere-mask: ~D~%" (-> this sphere-mask))
|
||||
(format #t "~1Tpad1[2] @ #x~X~%" (-> this pad1))
|
||||
(format #t "~1Tsphere-id-array[16] @ #x~X~%" (-> this sphere-id-array))
|
||||
(dotimes (s5-1 (-> this sphere-count))
|
||||
(format #t "~T [~D]~1Tsphere-id-array: ~D~%" s5-1 (-> this sphere-id-array s5-1))
|
||||
)
|
||||
(format #t "~1Textra-nav-sphere: ~`vector`P~%" (-> this extra-nav-sphere))
|
||||
(format #t "~1Troot-nav-sphere: ~`vector`P~%" (-> this root-nav-sphere))
|
||||
(format #t "~1Tstate: #<nav-state @ #x~X>~%" (-> this state))
|
||||
(format #t "~1Tmesh: ~A~%" (-> this state mesh))
|
||||
(label cfg-25)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+1026
File diff suppressed because it is too large
Load Diff
+141
@@ -0,0 +1,141 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type eco-perm
|
||||
(deftype eco-perm (structure)
|
||||
((time int32)
|
||||
(owner int8)
|
||||
(hit-by-local int8)
|
||||
(flags uint64)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type eco-perm
|
||||
(defmethod inspect ((this eco-perm))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'eco-perm)
|
||||
(format #t "~1Ttime: ~D~%" (-> this time))
|
||||
(format #t "~1Towner: ~D~%" (-> this owner))
|
||||
(format #t "~1Thit-by-local: ~D~%" (-> this hit-by-local))
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type eco
|
||||
(deftype eco (process-drawable)
|
||||
()
|
||||
(:methods
|
||||
(eco-method-50 () none)
|
||||
(eco-method-51 () none)
|
||||
(eco-method-52 () none)
|
||||
(eco-method-53 () none)
|
||||
(eco-method-54 () none)
|
||||
(eco-method-55 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type eco
|
||||
(defmethod inspect ((this eco))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process-drawable inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type eco-mgr
|
||||
(deftype eco-mgr (process-nettable)
|
||||
()
|
||||
(:methods
|
||||
(eco-mgr-method-42 () none)
|
||||
(eco-mgr-method-43 () none)
|
||||
(eco-mgr-method-44 () none)
|
||||
(eco-mgr-method-45 () none)
|
||||
(eco-mgr-method-46 () none)
|
||||
(eco-mgr-method-47 () none)
|
||||
(eco-mgr-method-48 () none)
|
||||
(eco-mgr-method-49 () none)
|
||||
(eco-mgr-method-50 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type eco-mgr
|
||||
(defmethod inspect ((this eco-mgr))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process-nettable inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for function eco-mgr-init-remote
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defbehavior eco-mgr-init-remote eco-mgr ((arg0 process))
|
||||
(process-nettable-method-34 self -1 (new 'static 'rgba :r #xff :g #xff))
|
||||
(process-nettable-method-35 self (the-as int arg0))
|
||||
(process-nettable-method-36 self)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 41 of type eco-mgr
|
||||
(defmethod process-nettable-method-41 ((this eco-mgr) (arg0 int))
|
||||
(ppointer->process (process-spawn eco-mgr :init eco-mgr-init-remote arg0 :name "eco-mgr"))
|
||||
)
|
||||
|
||||
;; definition for method 37 of type eco-mgr
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod process-nettable-method-37 ((this eco-mgr) (arg0 net-process-class-info))
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'req-owner)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'set-owner)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'collected)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'respawn)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol *msg-map-eco-mgr*, type (array symbol)
|
||||
(define *msg-map-eco-mgr* (new 'static 'boxed-array :type symbol :length 0 :allocated-length 64))
|
||||
|
||||
;; definition for symbol *net-process-class-info-eco-mgr*, type net-process-class-info
|
||||
(define *net-process-class-info-eco-mgr* (new 'static 'net-process-class-info))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *net-process-class-info-eco-mgr* msg-map) *msg-map-eco-mgr*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(write-msg-map-rec eco-mgr *net-process-class-info-eco-mgr*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *net-process-class-info-eco-mgr* owner-type) eco-mgr)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(net-process-class-register *net-process-class-info-eco-mgr*)
|
||||
|
||||
;; definition for method 40 of type eco-mgr
|
||||
(defmethod process-nettable-method-40 ((this eco-mgr))
|
||||
*net-process-class-info-eco-mgr*
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+41
@@ -0,0 +1,41 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type net-log-event-header
|
||||
(deftype net-log-event-header (structure)
|
||||
((length uint16)
|
||||
(type uint8)
|
||||
(pad int8)
|
||||
(time int32)
|
||||
(id int32)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-log-event-header
|
||||
(defmethod inspect ((this net-log-event-header))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-log-event-header)
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Ttype: ~D~%" (-> this type))
|
||||
(format #t "~1Tpad: ~D~%" (-> this pad))
|
||||
(format #t "~1Ttime: ~D~%" (-> this time))
|
||||
(format #t "~1Tid: ~D~%" (-> this id))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *net-log-tmp-header*, type net-log-event-header
|
||||
(define *net-log-tmp-header* (new 'static 'net-log-event-header))
|
||||
|
||||
;; definition for symbol *comment-string*, type string
|
||||
(define *comment-string* (new 'global 'string 200 ""))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+125
@@ -0,0 +1,125 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type medius-cached-info
|
||||
(deftype medius-cached-info (basic)
|
||||
((medius-id int32)
|
||||
(accessed-time int32)
|
||||
(fetched-time int32)
|
||||
(status uint64)
|
||||
)
|
||||
(:methods
|
||||
(medius-cached-info-method-9 () none)
|
||||
(medius-cached-info-method-10 () none)
|
||||
(medius-cached-info-method-11 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type medius-cached-info
|
||||
(defmethod inspect ((this medius-cached-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tmedius-id: ~D~%" (-> this medius-id))
|
||||
(format #t "~1Taccessed-time: ~D~%" (-> this accessed-time))
|
||||
(format #t "~1Tfetched-time: ~D~%" (-> this fetched-time))
|
||||
(format #t "~1Tstatus: ~D~%" (-> this status))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type medius-cache
|
||||
(deftype medius-cache (basic)
|
||||
((objects (array medius-cached-info))
|
||||
)
|
||||
(:methods
|
||||
(medius-cache-method-9 () none)
|
||||
(medius-cache-method-10 () none)
|
||||
(medius-cache-method-11 () none)
|
||||
(clear-objects! (_type_) none)
|
||||
(medius-cache-method-13 () none)
|
||||
(medius-cache-method-14 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type medius-cache
|
||||
(defmethod inspect ((this medius-cache))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tobjects: ~A~%" (-> this objects))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type medius-cache-index
|
||||
(deftype medius-cache-index (structure)
|
||||
((id int32)
|
||||
)
|
||||
(:methods
|
||||
(medius-cache-index-method-9 () none)
|
||||
(medius-cache-index-method-10 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type medius-cache-index
|
||||
(defmethod inspect ((this medius-cache-index))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'medius-cache-index)
|
||||
(format #t "~1Tid: ~D~%" (-> this id))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type medius-cache-index-array
|
||||
(deftype medius-cache-index-array (structure)
|
||||
((ct int32)
|
||||
(max-ct int32)
|
||||
(data medius-cache :dynamic)
|
||||
)
|
||||
(:methods
|
||||
(medius-cache-index-array-method-9 () none)
|
||||
(medius-cache-index-array-method-10 () none)
|
||||
(medius-cache-index-array-method-11 () none)
|
||||
(medius-cache-index-array-method-12 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type medius-cache-index-array
|
||||
(defmethod inspect ((this medius-cache-index-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'medius-cache-index-array)
|
||||
(format #t "~1Tct: ~D~%" (-> this ct))
|
||||
(format #t "~1Tmax-ct: ~D~%" (-> this max-ct))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 12 of type medius-cache
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod clear-objects! ((this medius-cache))
|
||||
(dotimes (v1-0 (-> this objects length))
|
||||
(set! (-> this objects v1-0 medius-id) -1)
|
||||
(set! (-> this objects v1-0 status) (the-as uint 0))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+288
@@ -0,0 +1,288 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type net-player-respawn-info
|
||||
(deftype net-player-respawn-info (structure)
|
||||
((position vector :inline)
|
||||
(quat quaternion :inline)
|
||||
(velocity vector :inline)
|
||||
(want-count int8)
|
||||
(want uint32)
|
||||
)
|
||||
(:methods
|
||||
(net-player-respawn-info-method-9 () none)
|
||||
(net-player-respawn-info-method-10 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-player-respawn-info
|
||||
(defmethod inspect ((this net-player-respawn-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-7)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-player-respawn-info)
|
||||
(format #t "~1Tposition: #<vector @ #x~X>~%" (-> this position))
|
||||
(format #t "~1Tquat: #<quaternion @ #x~X>~%" (-> this quat))
|
||||
(format #t "~1Tvelocity: #<vector @ #x~X>~%" (-> this velocity))
|
||||
(format #t "~1Twant-count: ~D~%" (-> this want-count))
|
||||
(format #t "~1Twant: #x~X~%" (-> this want))
|
||||
(dotimes (s5-0 (-> this want-count))
|
||||
(format #t "~T [~D]~1Twant: ~`level-buffer-state-small`P~%" s5-0 (+ (-> this want) (* s5-0 8)))
|
||||
)
|
||||
(label cfg-7)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-player
|
||||
(deftype net-player (process-nettable)
|
||||
((last-known-pos vector :inline)
|
||||
(last-known-pos-valid basic)
|
||||
(mgr basic)
|
||||
(vehicle uint64)
|
||||
(rev-mgr uint64)
|
||||
(pad1 uint32)
|
||||
(score int32)
|
||||
(player-num int8)
|
||||
(team uint8)
|
||||
(color uint32)
|
||||
(font-color uint8)
|
||||
(multiplier int8)
|
||||
(death-indicator-1 uint64)
|
||||
(death-indicator-2 uint64)
|
||||
(wpn-left-type uint8)
|
||||
(wpn-right-type uint8)
|
||||
(wpn-left-ammo uint8)
|
||||
(wpn-right-ammo uint8)
|
||||
(turbo-qty uint8)
|
||||
(dark-eco uint8)
|
||||
(health uint8)
|
||||
(last-weapon-provision float)
|
||||
(top-speed float)
|
||||
(player-id int8)
|
||||
(flags uint8)
|
||||
(rank int8)
|
||||
(human-rank int8)
|
||||
(next-spawn-time uint64)
|
||||
(state-time uint64)
|
||||
(vehicle-impact-callback basic)
|
||||
(spawn-count int32)
|
||||
(speech-id uint8)
|
||||
(last-speech-time uint64)
|
||||
(best-power-slide float)
|
||||
(best-hang-time int32)
|
||||
(display-score int32)
|
||||
(kills int32)
|
||||
(deaths int32)
|
||||
(last-spawn-time uint64)
|
||||
(dead-camera-pos-valid basic)
|
||||
(dead-camera-pos vector :inline)
|
||||
)
|
||||
(:methods
|
||||
(net-player-method-42 () none)
|
||||
(net-player-method-43 () none)
|
||||
(net-player-method-44 () none)
|
||||
(net-player-method-45 () none)
|
||||
(net-player-method-46 () none)
|
||||
(net-player-method-47 () none)
|
||||
(net-player-method-48 () none)
|
||||
(net-player-method-49 () none)
|
||||
(net-player-method-50 () none)
|
||||
(net-player-method-51 () none)
|
||||
(net-player-method-52 () none)
|
||||
(net-player-method-53 () none)
|
||||
(net-player-method-54 () none)
|
||||
(net-player-method-55 () none)
|
||||
(net-player-method-56 () none)
|
||||
(net-player-method-57 () none)
|
||||
(net-player-method-58 () none)
|
||||
(net-player-method-59 () none)
|
||||
(net-player-method-60 () none)
|
||||
(net-player-method-61 () none)
|
||||
(net-player-method-62 () none)
|
||||
(net-player-method-63 () none)
|
||||
(net-player-method-64 () none)
|
||||
(net-player-method-65 () none)
|
||||
(net-player-method-66 () none)
|
||||
(net-player-method-67 () none)
|
||||
(net-player-method-68 () none)
|
||||
(net-player-method-69 () none)
|
||||
(net-player-method-70 () none)
|
||||
(net-player-method-71 () none)
|
||||
(net-player-method-72 () none)
|
||||
(net-player-method-73 () none)
|
||||
(net-player-method-74 () none)
|
||||
(net-player-method-75 () none)
|
||||
(net-player-method-76 () none)
|
||||
(net-player-method-77 () none)
|
||||
(net-player-method-78 () none)
|
||||
(net-player-method-79 () none)
|
||||
(net-player-method-80 () none)
|
||||
(net-player-method-81 () none)
|
||||
(net-player-method-82 () none)
|
||||
(net-player-method-83 () none)
|
||||
(net-player-method-84 () none)
|
||||
(net-player-method-85 () none)
|
||||
(net-player-method-86 () none)
|
||||
(net-player-method-87 () none)
|
||||
(net-player-method-88 () none)
|
||||
(net-player-method-89 () none)
|
||||
(net-player-method-90 () none)
|
||||
(net-player-method-91 () none)
|
||||
(net-player-method-92 () none)
|
||||
(net-player-method-93 () none)
|
||||
(net-player-method-94 () none)
|
||||
(net-player-method-95 () none)
|
||||
(net-player-method-96 () none)
|
||||
(net-player-method-97 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-player
|
||||
(defmethod inspect ((this net-player))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process-nettable inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Tlast-known-pos: #<vector @ #x~X>~%" (-> this last-known-pos))
|
||||
(format #t "~2Tlast-known-pos-valid: ~A~%" (-> this last-known-pos-valid))
|
||||
(format #t "~2Tmgr: ~A~%" (-> this mgr))
|
||||
(format #t "~2Tvehicle: ~D~%" (-> this vehicle))
|
||||
(format #t "~2Trev-mgr: ~D~%" (-> this rev-mgr))
|
||||
(format #t "~2Tscore: ~D~%" (-> this score))
|
||||
(format #t "~2Tplayer-num: ~D~%" (-> this player-num))
|
||||
(format #t "~2Tteam: ~D~%" (-> this team))
|
||||
(format #t "~2Tcolor: ~D~%" (-> this color))
|
||||
(format #t "~2Tfont-color: ~D~%" (-> this font-color))
|
||||
(format #t "~2Tmultiplier: ~D~%" (-> this multiplier))
|
||||
(format #t "~2Tdeath-indicator-1: ~D~%" (-> this death-indicator-1))
|
||||
(format #t "~2Tdeath-indicator-2: ~D~%" (-> this death-indicator-2))
|
||||
(format #t "~2Twpn-left-type: ~D~%" (-> this wpn-left-type))
|
||||
(format #t "~2Twpn-right-type: ~D~%" (-> this wpn-right-type))
|
||||
(format #t "~2Twpn-left-ammo: ~D~%" (-> this wpn-left-ammo))
|
||||
(format #t "~2Twpn-right-ammo: ~D~%" (-> this wpn-right-ammo))
|
||||
(format #t "~2Tturbo-qty: ~D~%" (-> this turbo-qty))
|
||||
(format #t "~2Tdark-eco: ~D~%" (-> this dark-eco))
|
||||
(format #t "~2Thealth: ~D~%" (-> this health))
|
||||
(format #t "~2Tlast-weapon-provision: ~f~%" (-> this last-weapon-provision))
|
||||
(format #t "~2Ttop-speed: ~f~%" (-> this top-speed))
|
||||
(format #t "~2Tplayer-id: ~D~%" (-> this player-id))
|
||||
(format #t "~2Tflags: ~D~%" (-> this flags))
|
||||
(format #t "~2Trank: ~D~%" (-> this rank))
|
||||
(format #t "~2Thuman-rank: ~D~%" (-> this human-rank))
|
||||
(format #t "~2Tnext-spawn-time: ~D~%" (-> this next-spawn-time))
|
||||
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
||||
(format #t "~2Tvehicle-impact-callback: ~A~%" (-> this vehicle-impact-callback))
|
||||
(format #t "~2Tspawn-count: ~D~%" (-> this spawn-count))
|
||||
(format #t "~2Tspeech-id: ~D~%" (-> this speech-id))
|
||||
(format #t "~2Tlast-speech-time: ~D~%" (-> this last-speech-time))
|
||||
(format #t "~2Tbest-power-slide: ~f~%" (-> this best-power-slide))
|
||||
(format #t "~2Tbest-hang-time: ~D~%" (-> this best-hang-time))
|
||||
(format #t "~2Tdisplay-score: ~D~%" (-> this display-score))
|
||||
(format #t "~2Tkills: ~D~%" (-> this kills))
|
||||
(format #t "~2Tdeaths: ~D~%" (-> this deaths))
|
||||
(format #t "~2Tlast-spawn-time: ~D~%" (-> this last-spawn-time))
|
||||
(format #t "~2Tdead-camera-pos-valid: ~A~%" (-> this dead-camera-pos-valid))
|
||||
(format #t "~2Tdead-camera-pos: #<vector @ #x~X>~%" (-> this dead-camera-pos))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for function net-player-init-remote
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defbehavior net-player-init-remote net-player ((arg0 process))
|
||||
(process-nettable-method-34 self -1 (new 'static 'rgba :r #xff :g #xff))
|
||||
(process-nettable-method-35 self (the-as int arg0))
|
||||
(process-nettable-method-36 self)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 41 of type net-player
|
||||
(defmethod process-nettable-method-41 ((this net-player) (arg0 int))
|
||||
(ppointer->process (process-spawn net-player :init net-player-init-remote arg0 :name "net-player"))
|
||||
)
|
||||
|
||||
;; definition for method 37 of type net-player
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod process-nettable-method-37 ((this net-player) (arg0 net-process-class-info))
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'score-changed)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'stats-changed)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol *msg-map-net-player*, type (array symbol)
|
||||
(define *msg-map-net-player* (new 'static 'boxed-array :type symbol :length 0 :allocated-length 64))
|
||||
|
||||
;; definition for symbol *net-process-class-info-net-player*, type net-process-class-info
|
||||
(define *net-process-class-info-net-player* (new 'static 'net-process-class-info))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *net-process-class-info-net-player* msg-map) *msg-map-net-player*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(write-msg-map-rec net-player *net-process-class-info-net-player*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *net-process-class-info-net-player* owner-type) net-player)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(net-process-class-register *net-process-class-info-net-player*)
|
||||
|
||||
;; definition for method 40 of type net-player
|
||||
(defmethod process-nettable-method-40 ((this net-player))
|
||||
*net-process-class-info-net-player*
|
||||
)
|
||||
|
||||
;; definition for symbol *net-players*, type (array symbol)
|
||||
(define *net-players*
|
||||
(the-as (array symbol) (new 'static 'boxed-array :type net-player :length 0 :allocated-length 24))
|
||||
)
|
||||
|
||||
;; definition for symbol *active-net-player-count*, type int
|
||||
(define *active-net-player-count* 0)
|
||||
|
||||
;; definition for symbol *active-net-players*, type (array net-player)
|
||||
(define *active-net-players* (new 'static 'boxed-array :type net-player :length 0 :allocated-length 24))
|
||||
|
||||
;; definition for symbol *active-net-non-spectator-count*, type int
|
||||
(define *active-net-non-spectator-count* 0)
|
||||
|
||||
;; definition for symbol *active-net-non-spectators*, type (array net-player)
|
||||
(define *active-net-non-spectators*
|
||||
(new 'static 'boxed-array :type net-player :length 0 :allocated-length 24)
|
||||
)
|
||||
|
||||
;; definition for symbol *team-colors*, type (pointer uint8)
|
||||
(define *team-colors* (the-as (pointer uint8) (new 'static 'array rgba 8
|
||||
(new 'static 'rgba :r #xff :a #x80)
|
||||
(new 'static 'rgba :b #xff :a #x80)
|
||||
(new 'static 'rgba :g #xff :a #x80)
|
||||
(new 'static 'rgba :g #xde :b #xde :a #x80)
|
||||
(new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
|
||||
(new 'static 'rgba :r #x80 :g #x80 :a #x80)
|
||||
(new 'static 'rgba)
|
||||
(new 'static 'rgba)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for symbol *team-font-colors*, type (pointer font-color)
|
||||
(define *team-font-colors*
|
||||
(the-as (pointer font-color)
|
||||
(new 'static 'array uint8 16 #x3 #x7 #x6 #x49 #x1 #x4 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+112
@@ -0,0 +1,112 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type net-projectile
|
||||
(deftype net-projectile (projectile)
|
||||
()
|
||||
(:methods
|
||||
(net-projectile-method-72 () none)
|
||||
(net-projectile-method-73 () none)
|
||||
(net-projectile-method-74 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-projectile
|
||||
(defmethod inspect ((this net-projectile))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(let ((t9-0 (method-of-type projectile inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for function net-projectile-init-remote
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defbehavior net-projectile-init-remote net-projectile ((arg0 process))
|
||||
(process-nettable-method-34 self -1 (new 'static 'rgba :r #xff :g #xff))
|
||||
(process-nettable-method-35 self (the-as int arg0))
|
||||
(process-nettable-method-36 self)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 41 of type net-projectile
|
||||
(defmethod process-nettable-method-41 ((this net-projectile) (arg0 int))
|
||||
(ppointer->process
|
||||
(process-spawn net-projectile :init net-projectile-init-remote arg0 :name "net-projectile")
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 37 of type net-projectile
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod process-nettable-method-37 ((this net-projectile) (arg0 net-process-class-info))
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'force-position)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
(set! (-> arg0 msg-map (-> arg0 msg-count)) 'force-retarget)
|
||||
(+! (-> arg0 msg-count) 1)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for symbol *msg-map-net-projectile*, type (array symbol)
|
||||
(define *msg-map-net-projectile* (new 'static 'boxed-array :type symbol :length 0 :allocated-length 64))
|
||||
|
||||
;; definition for symbol *net-process-class-info-net-projectile*, type net-process-class-info
|
||||
(define *net-process-class-info-net-projectile* (new 'static 'net-process-class-info))
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *net-process-class-info-net-projectile* msg-map) *msg-map-net-projectile*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(write-msg-map-rec net-projectile *net-process-class-info-net-projectile*)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *net-process-class-info-net-projectile* owner-type) net-projectile)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(net-process-class-register *net-process-class-info-net-projectile*)
|
||||
|
||||
;; definition for method 40 of type net-projectile
|
||||
(defmethod process-nettable-method-40 ((this net-projectile))
|
||||
*net-process-class-info-net-projectile*
|
||||
)
|
||||
|
||||
;; definition for function spawn-net-projectile
|
||||
(defun spawn-net-projectile ((arg0 type) (arg1 projectile-init-by-other-params) (arg2 process-tree) (arg3 dead-pool))
|
||||
(let ((s5-0 (get-process arg3 arg0 #x4000 1)))
|
||||
(when s5-0
|
||||
(let ((t9-1 (method-of-type process activate)))
|
||||
(t9-1 s5-0 arg2 "net-projectile" (the-as pointer #x70004000))
|
||||
)
|
||||
(let ((t9-2 run-function-in-process)
|
||||
(a0-3 s5-0)
|
||||
(a1-4 net-projectile-init-by-other)
|
||||
)
|
||||
(- (- (if *net-mgr*
|
||||
(-> *net-mgr* game-state time)
|
||||
0
|
||||
)
|
||||
(if *net-world*
|
||||
(-> *net-world* net-state game-start-time)
|
||||
0
|
||||
)
|
||||
)
|
||||
(if *net-world*
|
||||
(-> *net-world* net-state total-pause-time)
|
||||
0
|
||||
)
|
||||
)
|
||||
((the-as (function object object object none) t9-2) a0-3 a1-4 arg1)
|
||||
)
|
||||
(-> s5-0 ppointer)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+9
@@ -0,0 +1,9 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+9
@@ -0,0 +1,9 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+3575
File diff suppressed because it is too large
Load Diff
+814
@@ -0,0 +1,814 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type mgclinitialize-in-params
|
||||
(deftype mgclinitialize-in-params (structure)
|
||||
((p-local-key-pair rsa-keypair)
|
||||
(status int32)
|
||||
(my-server-create-game-callback basic)
|
||||
(my-server-create-game-callback-user-data basic)
|
||||
(my-server-create-game-with-attributes-callback basic)
|
||||
(my-server-create-game-with-attributes-user-data basic)
|
||||
(my-server-join-game-callback basic)
|
||||
(my-server-join-game-callback-user-data basic)
|
||||
(my-server-end-game-callback basic)
|
||||
(my-server-end-game-callback-user-data basic)
|
||||
(my-server-world-status-callback basic)
|
||||
(my-server-world-status-callback-user-data basic)
|
||||
(my-server-connect-games-callback basic)
|
||||
(my-server-connect-games-user-data basic)
|
||||
(max-clients-per-connection int32)
|
||||
(application-id int32)
|
||||
(p-application-key-pair rsa-keypair)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type mgclinitialize-in-params
|
||||
(defmethod inspect ((this mgclinitialize-in-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-11)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'mgclinitialize-in-params)
|
||||
(format #t "~1Tp-local-key-pair: #<rsa-keypair @ #x~X>~%" (-> this p-local-key-pair))
|
||||
(let ((t9-2 format)
|
||||
(a0-3 #t)
|
||||
(a1-2 "~1Tstatus: #x~X : ~S~%")
|
||||
(a2-2 (-> this status))
|
||||
(v1-2 (-> this status))
|
||||
)
|
||||
(t9-2 a0-3 a1-2 a2-2 (cond
|
||||
((= v1-2 #xffffff)
|
||||
"extra-dmeinit-status"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"dmenot-initialized"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"dmeinitialized"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tmy-server-create-game-callback: ~A~%" (-> this my-server-create-game-callback))
|
||||
(format
|
||||
#t
|
||||
"~1Tmy-server-create-game-callback-user-data: ~A~%"
|
||||
(-> this my-server-create-game-callback-user-data)
|
||||
)
|
||||
(format
|
||||
#t
|
||||
"~1Tmy-server-create-game-with-attributes-callback: ~A~%"
|
||||
(-> this my-server-create-game-with-attributes-callback)
|
||||
)
|
||||
(format
|
||||
#t
|
||||
"~1Tmy-server-create-game-with-attributes-user-data: ~A~%"
|
||||
(-> this my-server-create-game-with-attributes-user-data)
|
||||
)
|
||||
(format #t "~1Tmy-server-join-game-callback: ~A~%" (-> this my-server-join-game-callback))
|
||||
(format #t "~1Tmy-server-join-game-callback-user-data: ~A~%" (-> this my-server-join-game-callback-user-data))
|
||||
(format #t "~1Tmy-server-end-game-callback: ~A~%" (-> this my-server-end-game-callback))
|
||||
(format #t "~1Tmy-server-end-game-callback-user-data: ~A~%" (-> this my-server-end-game-callback-user-data))
|
||||
(format #t "~1Tmy-server-world-status-callback: ~A~%" (-> this my-server-world-status-callback))
|
||||
(format
|
||||
#t
|
||||
"~1Tmy-server-world-status-callback-user-data: ~A~%"
|
||||
(-> this my-server-world-status-callback-user-data)
|
||||
)
|
||||
(format #t "~1Tmy-server-connect-games-callback: ~A~%" (-> this my-server-connect-games-callback))
|
||||
(format #t "~1Tmy-server-connect-games-user-data: ~A~%" (-> this my-server-connect-games-user-data))
|
||||
(format #t "~1Tmax-clients-per-connection: ~D~%" (-> this max-clients-per-connection))
|
||||
(format #t "~1Tapplication-id: ~D~%" (-> this application-id))
|
||||
(format #t "~1Tp-application-key-pair: #<rsa-keypair @ #x~X>~%" (-> this p-application-key-pair))
|
||||
(label cfg-11)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type mgclinitialize-out-params
|
||||
(deftype mgclinitialize-out-params (structure)
|
||||
((error-code int32)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type mgclinitialize-out-params
|
||||
(defmethod inspect ((this mgclinitialize-out-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-47)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'mgclinitialize-out-params)
|
||||
(let ((t9-1 format)
|
||||
(a0-2 #t)
|
||||
(a1-1 "~1Terror-code: #x~X : ~S~%")
|
||||
(a2-1 (-> this error-code))
|
||||
(v1-2 (-> this error-code))
|
||||
)
|
||||
(t9-1 a0-2 a1-1 a2-1 (cond
|
||||
((= v1-2 -19)
|
||||
"mgcl-num-game-worlds-per-lobby-world-exceeded"
|
||||
)
|
||||
((= v1-2 -2)
|
||||
"mgcl-connection-failed"
|
||||
)
|
||||
((= v1-2 -13)
|
||||
"mgcl-invalid-arg"
|
||||
)
|
||||
((= v1-2 -8)
|
||||
"mgcl-network-error"
|
||||
)
|
||||
((= v1-2 -17)
|
||||
"mgcl-dme-error"
|
||||
)
|
||||
((= v1-2 -5)
|
||||
"mgcl-send-failed"
|
||||
)
|
||||
((= v1-2 -18)
|
||||
"mgcl-call-mgcl-close-before-reinitializing"
|
||||
)
|
||||
((= v1-2 -9)
|
||||
"mgcl-authentication-failed"
|
||||
)
|
||||
((= v1-2 -4)
|
||||
"mgcl-not-connected"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"mgcl-success"
|
||||
)
|
||||
((= v1-2 -12)
|
||||
"mgcl-unsuccessful"
|
||||
)
|
||||
((= v1-2 -14)
|
||||
"mgcl-natresolve-failed"
|
||||
)
|
||||
((= v1-2 -10)
|
||||
"mgcl-sessionbegin-failed"
|
||||
)
|
||||
((= v1-2 -16)
|
||||
"mgcl-worldid-inuse"
|
||||
)
|
||||
((= v1-2 -6)
|
||||
"mgcl-initialization-failed"
|
||||
)
|
||||
((= v1-2 -7)
|
||||
"mgcl-shutdown-error"
|
||||
)
|
||||
((= v1-2 -11)
|
||||
"mgcl-sessionend-failed"
|
||||
)
|
||||
((= v1-2 #xffffff)
|
||||
"extra-mgclstatus-code"
|
||||
)
|
||||
((= v1-2 -3)
|
||||
"mgcl-disconnect-failed"
|
||||
)
|
||||
((= v1-2 -15)
|
||||
"mgcl-game-name-exists"
|
||||
)
|
||||
((= v1-2 -1)
|
||||
"mgcl-connection-error"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(label cfg-47)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-lanpeer-desc
|
||||
(deftype net-lanpeer-desc (structure)
|
||||
((dme-version net-dme-version :inline)
|
||||
(net-platform-id int32)
|
||||
(application-id int32)
|
||||
(peer-address net-address :inline)
|
||||
(localization net-localization-params :inline)
|
||||
(application-name uint8 72)
|
||||
(user-name uint8 32)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-lanpeer-desc
|
||||
(defmethod inspect ((this net-lanpeer-desc))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-13)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-lanpeer-desc)
|
||||
(format #t "~1Tdme-version: #<net-dme-version @ #x~X>~%" (-> this dme-version))
|
||||
(let ((t9-2 format)
|
||||
(a0-3 #t)
|
||||
(a1-2 "~1Tnet-platform-id: #x~X : ~S~%")
|
||||
(a2-2 (-> this net-platform-id))
|
||||
(v1-2 (-> this net-platform-id))
|
||||
)
|
||||
(t9-2 a0-3 a1-2 a2-2 (cond
|
||||
((= v1-2 2)
|
||||
"enum-net-platform-id-psp"
|
||||
)
|
||||
((= v1-2 #xffffff)
|
||||
"extra-enum-net-platform-id"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"enum-net-platform-id-unknown"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"enum-net-platform-id-ps2"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tapplication-id: ~D~%" (-> this application-id))
|
||||
(format #t "~1Tpeer-address: #<net-address @ #x~X>~%" (-> this peer-address))
|
||||
(format #t "~1Tlocalization: #<net-localization-params @ #x~X>~%" (-> this localization))
|
||||
(format #t "~1Tapplication-name[72] @ #x~X~%" (-> this application-name))
|
||||
(format #t "~1Tuser-name[32] @ #x~X~%" (-> this user-name))
|
||||
(label cfg-13)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-initialize-in-params
|
||||
(deftype net-initialize-in-params (structure)
|
||||
((b-default-set int32)
|
||||
(localization net-localization-params :inline)
|
||||
(application-id int32)
|
||||
(application-name uint8 72)
|
||||
(p-local-key-pair rsa-keypair)
|
||||
(p-application-key-pair rsa-keypair)
|
||||
(connectivity-type int32)
|
||||
(udp-bind-port int32)
|
||||
(upn-pmemory-ceiling int32)
|
||||
(b-enable-lanbroadcast-comms int32)
|
||||
(pf-system-message-callback basic)
|
||||
(p-system-message-callback-data basic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-initialize-in-params
|
||||
(defmethod inspect ((this net-initialize-in-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-13)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-initialize-in-params)
|
||||
(format #t "~1Tb-default-set: ~D~%" (-> this b-default-set))
|
||||
(format #t "~1Tlocalization: #<net-localization-params @ #x~X>~%" (-> this localization))
|
||||
(format #t "~1Tapplication-id: ~D~%" (-> this application-id))
|
||||
(format #t "~1Tapplication-name[72] @ #x~X~%" (-> this application-name))
|
||||
(format #t "~1Tp-local-key-pair: #<rsa-keypair @ #x~X>~%" (-> this p-local-key-pair))
|
||||
(format #t "~1Tp-application-key-pair: #<rsa-keypair @ #x~X>~%" (-> this p-application-key-pair))
|
||||
(let ((t9-7 format)
|
||||
(a0-8 #t)
|
||||
(a1-7 "~1Tconnectivity-type: #x~X : ~S~%")
|
||||
(a2-7 (-> this connectivity-type))
|
||||
(v1-2 (-> this connectivity-type))
|
||||
)
|
||||
(t9-7 a0-8 a1-7 a2-7 (cond
|
||||
((= v1-2 -1)
|
||||
"extra-net-connectivity-type"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"net-connectivity-internet"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"net-connectivity-none"
|
||||
)
|
||||
((= v1-2 2)
|
||||
"net-connectivity-lan"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tudp-bind-port: ~D~%" (-> this udp-bind-port))
|
||||
(format #t "~1Tupn-pmemory-ceiling: ~D~%" (-> this upn-pmemory-ceiling))
|
||||
(format #t "~1Tb-enable-lanbroadcast-comms: ~D~%" (-> this b-enable-lanbroadcast-comms))
|
||||
(format #t "~1Tpf-system-message-callback: ~A~%" (-> this pf-system-message-callback))
|
||||
(format #t "~1Tp-system-message-callback-data: ~A~%" (-> this p-system-message-callback-data))
|
||||
(label cfg-13)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-host-peer-to-peer-in-params
|
||||
(deftype net-host-peer-to-peer-in-params (structure)
|
||||
((b-default-set int32)
|
||||
(pf-local-connect-callback basic)
|
||||
(p-local-connect-callback-data basic)
|
||||
(pf-local-disconnect-callback basic)
|
||||
(p-local-disconnect-callback-data basic)
|
||||
(pf-remote-client-connect-callback basic)
|
||||
(p-remote-client-connect-callback-data basic)
|
||||
(pf-remote-client-disconnect-callback basic)
|
||||
(p-remote-client-disconnect-callback-data basic)
|
||||
(pf-system-status-callback basic)
|
||||
(p-system-status-callback-data basic)
|
||||
(max-clients uint32)
|
||||
(stream-media-params net-stream-media-params :inline)
|
||||
(user-specified int32)
|
||||
(b-enab-disconnect-fwd int32)
|
||||
(token-params net-token-params :inline)
|
||||
(b-use-time-base int32)
|
||||
(send-buffer-size uint32)
|
||||
(recv-buffer-size uint32)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-host-peer-to-peer-in-params
|
||||
(defmethod inspect ((this net-host-peer-to-peer-in-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-host-peer-to-peer-in-params)
|
||||
(format #t "~1Tb-default-set: ~D~%" (-> this b-default-set))
|
||||
(format #t "~1Tpf-local-connect-callback: ~A~%" (-> this pf-local-connect-callback))
|
||||
(format #t "~1Tp-local-connect-callback-data: ~A~%" (-> this p-local-connect-callback-data))
|
||||
(format #t "~1Tpf-local-disconnect-callback: ~A~%" (-> this pf-local-disconnect-callback))
|
||||
(format #t "~1Tp-local-disconnect-callback-data: ~A~%" (-> this p-local-disconnect-callback-data))
|
||||
(format #t "~1Tpf-remote-client-connect-callback: ~A~%" (-> this pf-remote-client-connect-callback))
|
||||
(format #t "~1Tp-remote-client-connect-callback-data: ~A~%" (-> this p-remote-client-connect-callback-data))
|
||||
(format #t "~1Tpf-remote-client-disconnect-callback: ~A~%" (-> this pf-remote-client-disconnect-callback))
|
||||
(format
|
||||
#t
|
||||
"~1Tp-remote-client-disconnect-callback-data: ~A~%"
|
||||
(-> this p-remote-client-disconnect-callback-data)
|
||||
)
|
||||
(format #t "~1Tpf-system-status-callback: ~A~%" (-> this pf-system-status-callback))
|
||||
(format #t "~1Tp-system-status-callback-data: ~A~%" (-> this p-system-status-callback-data))
|
||||
(format #t "~1Tmax-clients: ~D~%" (-> this max-clients))
|
||||
(format #t "~1Tstream-media-params: #<net-stream-media-params @ #x~X>~%" (-> this stream-media-params))
|
||||
(format #t "~1Tuser-specified: ~D~%" (-> this user-specified))
|
||||
(format #t "~1Tb-enab-disconnect-fwd: ~D~%" (-> this b-enab-disconnect-fwd))
|
||||
(format #t "~1Ttoken-params: #<net-token-params @ #x~X>~%" (-> this token-params))
|
||||
(format #t "~1Tb-use-time-base: ~D~%" (-> this b-use-time-base))
|
||||
(format #t "~1Tsend-buffer-size: ~D~%" (-> this send-buffer-size))
|
||||
(format #t "~1Trecv-buffer-size: ~D~%" (-> this recv-buffer-size))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-resolve-addr-data
|
||||
(deftype net-resolve-addr-data (structure)
|
||||
((b-is-set int32)
|
||||
(error-code int32)
|
||||
(address-list net-address-list :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-resolve-addr-data
|
||||
(defmethod inspect ((this net-resolve-addr-data))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-111)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-resolve-addr-data)
|
||||
(format #t "~1Tb-is-set: ~D~%" (-> this b-is-set))
|
||||
(let ((t9-2 format)
|
||||
(a0-3 #t)
|
||||
(a1-2 "~1Terror-code: #x~X : ~S~%")
|
||||
(a2-2 (-> this error-code))
|
||||
(v1-2 (-> this error-code))
|
||||
)
|
||||
(t9-2 a0-3 a1-2 a2-2 (cond
|
||||
((= v1-2 50)
|
||||
"net-error-bad-port"
|
||||
)
|
||||
((= v1-2 35)
|
||||
"net-error-comm-error"
|
||||
)
|
||||
((= v1-2 42)
|
||||
"net-error-stream-media-comm"
|
||||
)
|
||||
((= v1-2 16)
|
||||
"net-error-bad-mode"
|
||||
)
|
||||
((= v1-2 34)
|
||||
"net-error-bad-server-version"
|
||||
)
|
||||
((= v1-2 8)
|
||||
"net-error-bad-index"
|
||||
)
|
||||
((= v1-2 41)
|
||||
"net-error-stream-media"
|
||||
)
|
||||
((= v1-2 11)
|
||||
"net-error-object-not-shared"
|
||||
)
|
||||
((= v1-2 51)
|
||||
"net-error-bad-connectivity-type"
|
||||
)
|
||||
((= v1-2 31)
|
||||
"net-error-msg-too-large"
|
||||
)
|
||||
((= v1-2 43)
|
||||
"net-error-mutex"
|
||||
)
|
||||
((= v1-2 25)
|
||||
"net-error-too-many-pending-events"
|
||||
)
|
||||
((= v1-2 19)
|
||||
"net-error-no-free-object"
|
||||
)
|
||||
((= v1-2 33)
|
||||
"net-error-not-implemented"
|
||||
)
|
||||
((= v1-2 48)
|
||||
"net-error-token-not-enabled"
|
||||
)
|
||||
((= v1-2 7)
|
||||
"net-error-bad-session-master"
|
||||
)
|
||||
((= v1-2 12)
|
||||
"net-error-bad-packet-received"
|
||||
)
|
||||
((= v1-2 46)
|
||||
"net-error-lookup-error"
|
||||
)
|
||||
((= v1-2 9)
|
||||
"net-error-bad-data-stream-channel"
|
||||
)
|
||||
((= v1-2 39)
|
||||
"net-error-sizeof-param-mismatch"
|
||||
)
|
||||
((= v1-2 37)
|
||||
"net-error-udperror"
|
||||
)
|
||||
((= v1-2 32)
|
||||
"net-error-security"
|
||||
)
|
||||
((= v1-2 26)
|
||||
"net-error-udpnot-enabled"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"net-error-none"
|
||||
)
|
||||
((= v1-2 13)
|
||||
"net-error-send-failed"
|
||||
)
|
||||
((= v1-2 21)
|
||||
"net-error-client-not-valid"
|
||||
)
|
||||
((= v1-2 45)
|
||||
"net-error-hostname-error"
|
||||
)
|
||||
((= v1-2 38)
|
||||
"net-error-set-defaults-not-called"
|
||||
)
|
||||
((= v1-2 3)
|
||||
"net-error-connection-failed"
|
||||
)
|
||||
((= v1-2 10)
|
||||
"net-error-bad-pointer"
|
||||
)
|
||||
((= v1-2 14)
|
||||
"net-error-timed-out"
|
||||
)
|
||||
((= v1-2 #xffffff)
|
||||
"extra-net-error-code"
|
||||
)
|
||||
((= v1-2 30)
|
||||
"net-error-unknown"
|
||||
)
|
||||
((= v1-2 2)
|
||||
"net-error-connection-lost"
|
||||
)
|
||||
((= v1-2 24)
|
||||
"net-error-msg-error"
|
||||
)
|
||||
((= v1-2 20)
|
||||
"net-error-open-data-stream-failed"
|
||||
)
|
||||
((= v1-2 15)
|
||||
"net-error-bad-connection-index"
|
||||
)
|
||||
((= v1-2 4)
|
||||
"net-error-client-rejected"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"net-error-not-connected"
|
||||
)
|
||||
((= v1-2 44)
|
||||
"net-error-server-error"
|
||||
)
|
||||
((= v1-2 23)
|
||||
"net-error-invalid-arg"
|
||||
)
|
||||
((= v1-2 28)
|
||||
"net-error-game-is-full"
|
||||
)
|
||||
((= v1-2 17)
|
||||
"net-error-dme-not-initialized"
|
||||
)
|
||||
((= v1-2 6)
|
||||
"net-error-new-client"
|
||||
)
|
||||
((= v1-2 27)
|
||||
"net-error-update"
|
||||
)
|
||||
((= v1-2 36)
|
||||
"net-error-buffer-error"
|
||||
)
|
||||
((= v1-2 47)
|
||||
"net-error-timebase-error"
|
||||
)
|
||||
((= v1-2 29)
|
||||
"net-error-host-game-failed"
|
||||
)
|
||||
((= v1-2 18)
|
||||
"net-error-init-failed"
|
||||
)
|
||||
((= v1-2 49)
|
||||
"net-error-token-error"
|
||||
)
|
||||
((= v1-2 40)
|
||||
"net-error-deprecated"
|
||||
)
|
||||
((= v1-2 5)
|
||||
"net-error-disconnect-failed"
|
||||
)
|
||||
((= v1-2 22)
|
||||
"net-error-memory"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Taddress-list: #<net-address-list @ #x~X>~%" (-> this address-list))
|
||||
(label cfg-111)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-resolve-addr-in-params
|
||||
(deftype net-resolve-addr-in-params (structure)
|
||||
((b-default-set int32)
|
||||
(pf-resolve-addr-callback basic)
|
||||
(nat-service-address net-address :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-resolve-addr-in-params
|
||||
(defmethod inspect ((this net-resolve-addr-in-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-resolve-addr-in-params)
|
||||
(format #t "~1Tb-default-set: ~D~%" (-> this b-default-set))
|
||||
(format #t "~1Tpf-resolve-addr-callback: ~A~%" (-> this pf-resolve-addr-callback))
|
||||
(format #t "~1Tnat-service-address: #<net-address @ #x~X>~%" (-> this nat-service-address))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-incoming-client-in-params
|
||||
(deftype net-incoming-client-in-params (structure)
|
||||
((b-default-set int32)
|
||||
(incoming-address-list net-address-list :inline)
|
||||
(pub-key rsa-key :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-incoming-client-in-params
|
||||
(defmethod inspect ((this net-incoming-client-in-params))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-incoming-client-in-params)
|
||||
(format #t "~1Tb-default-set: ~D~%" (-> this b-default-set))
|
||||
(format #t "~1Tincoming-address-list: #<net-address-list @ #x~X>~%" (-> this incoming-address-list))
|
||||
(format #t "~1Tpub-key: #<rsa-key @ #x~X>~%" (-> this pub-key))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-type-broadcast-schedule
|
||||
(deftype net-type-broadcast-schedule (structure)
|
||||
((min-update-interval uint32)
|
||||
(error-threshold-type int32)
|
||||
(threshold-data anonymous-0 :inline)
|
||||
(transport-flags int8)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-type-broadcast-schedule
|
||||
(defmethod inspect ((this net-type-broadcast-schedule))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-19)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-type-broadcast-schedule)
|
||||
(format #t "~1Tmin-update-interval: ~D~%" (-> this min-update-interval))
|
||||
(let ((t9-2 format)
|
||||
(a0-3 #t)
|
||||
(a1-2 "~1Terror-threshold-type: #x~X : ~S~%")
|
||||
(a2-2 (-> this error-threshold-type))
|
||||
(v1-2 (-> this error-threshold-type))
|
||||
)
|
||||
(t9-2 a0-3 a1-2 a2-2 (cond
|
||||
((= v1-2 3)
|
||||
"threshold-ratio-magnitude"
|
||||
)
|
||||
((= v1-2 #xffffff)
|
||||
"extra-net-threshold-method"
|
||||
)
|
||||
((= v1-2 5)
|
||||
"threshold-callback"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"threshold-equality"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"no-threshold"
|
||||
)
|
||||
((= v1-2 4)
|
||||
"threshold-anchor-delta"
|
||||
)
|
||||
((= v1-2 2)
|
||||
"threshold-absolute-magnitude"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tthreshold-data: #<anonymous-0 @ #x~X>~%" (-> this threshold-data))
|
||||
(format #t "~1Ttransport-flags: ~D~%" (-> this transport-flags))
|
||||
(label cfg-19)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-type-field
|
||||
(deftype net-type-field (structure)
|
||||
((offset int32)
|
||||
(element-size int32)
|
||||
(element-count int32)
|
||||
(e-type int32)
|
||||
(update-schedule net-type-broadcast-schedule :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-type-field
|
||||
(defmethod inspect ((this net-type-field))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-type-field)
|
||||
(format #t "~1Toffset: ~D~%" (-> this offset))
|
||||
(format #t "~1Telement-size: ~D~%" (-> this element-size))
|
||||
(format #t "~1Telement-count: ~D~%" (-> this element-count))
|
||||
(format #t "~1Te-type: ~D~%" (-> this e-type))
|
||||
(format #t "~1Tupdate-schedule: #<net-type-broadcast-schedule @ #x~X>~%" (-> this update-schedule))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-type-structure
|
||||
(deftype net-type-structure (structure)
|
||||
((total-size int32)
|
||||
(field-count int32)
|
||||
(name uint8 32)
|
||||
(child-field-type uint32 64)
|
||||
(child-field-offset uint32 64)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-type-structure
|
||||
(defmethod inspect ((this net-type-structure))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-type-structure)
|
||||
(format #t "~1Ttotal-size: ~D~%" (-> this total-size))
|
||||
(format #t "~1Tfield-count: ~D~%" (-> this field-count))
|
||||
(format #t "~1Tname[32] @ #x~X~%" (-> this name))
|
||||
(format #t "~1Tchild-field-type[64] @ #x~X~%" (-> this child-field-type))
|
||||
(format #t "~1Tchild-field-offset[64] @ #x~X~%" (-> this child-field-offset))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-lanfind-exchange-callback-in-args
|
||||
(deftype net-lanfind-exchange-callback-in-args (structure)
|
||||
((connection-handle basic)
|
||||
(session-type int32)
|
||||
(peer-desc net-lanpeer-desc :inline)
|
||||
(details net-data :inline)
|
||||
(p-user-data basic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-lanfind-exchange-callback-in-args
|
||||
(defmethod inspect ((this net-lanfind-exchange-callback-in-args))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-13)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-lanfind-exchange-callback-in-args)
|
||||
(format #t "~1Tconnection-handle: ~A~%" (-> this connection-handle))
|
||||
(let ((t9-2 format)
|
||||
(a0-3 #t)
|
||||
(a1-2 "~1Tsession-type: #x~X : ~S~%")
|
||||
(a2-2 (-> this session-type))
|
||||
(v1-2 (-> this session-type))
|
||||
)
|
||||
(t9-2 a0-3 a1-2 a2-2 (cond
|
||||
((= v1-2 2)
|
||||
"net-session-type-integrated-server"
|
||||
)
|
||||
((= v1-2 #xffffff)
|
||||
"extra-net-session-type"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"net-session-type-peer"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"net-session-type-game"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tpeer-desc: #<net-lanpeer-desc @ #x~X>~%" (-> this peer-desc))
|
||||
(format #t "~1Tdetails: #<net-data @ #x~X>~%" (-> this details))
|
||||
(format #t "~1Tp-user-data: ~A~%" (-> this p-user-data))
|
||||
(label cfg-13)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type net-lanfind-callback-data-args
|
||||
(deftype net-lanfind-callback-data-args (structure)
|
||||
((n-num-clients int16)
|
||||
(n-max-num-clients int16)
|
||||
(session-type int32)
|
||||
(peer-desc net-lanpeer-desc :inline)
|
||||
(details net-data :inline)
|
||||
(p-user-data basic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type net-lanfind-callback-data-args
|
||||
(defmethod inspect ((this net-lanfind-callback-data-args))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-13)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'net-lanfind-callback-data-args)
|
||||
(format #t "~1Tn-num-clients: ~D~%" (-> this n-num-clients))
|
||||
(format #t "~1Tn-max-num-clients: ~D~%" (-> this n-max-num-clients))
|
||||
(let ((t9-3 format)
|
||||
(a0-4 #t)
|
||||
(a1-3 "~1Tsession-type: #x~X : ~S~%")
|
||||
(a2-3 (-> this session-type))
|
||||
(v1-2 (-> this session-type))
|
||||
)
|
||||
(t9-3 a0-4 a1-3 a2-3 (cond
|
||||
((= v1-2 2)
|
||||
"net-session-type-integrated-server"
|
||||
)
|
||||
((= v1-2 #xffffff)
|
||||
"extra-net-session-type"
|
||||
)
|
||||
((= v1-2 1)
|
||||
"net-session-type-peer"
|
||||
)
|
||||
((zero? v1-2)
|
||||
"net-session-type-game"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tpeer-desc: #<net-lanpeer-desc @ #x~X>~%" (-> this peer-desc))
|
||||
(format #t "~1Tdetails: #<net-data @ #x~X>~%" (-> this details))
|
||||
(format #t "~1Tp-user-data: ~A~%" (-> this p-user-data))
|
||||
(label cfg-13)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+3978
File diff suppressed because it is too large
Load Diff
+2967
File diff suppressed because it is too large
Load Diff
+5878
File diff suppressed because it is too large
Load Diff
+5732
File diff suppressed because it is too large
Load Diff
+6201
File diff suppressed because it is too large
Load Diff
+6722
File diff suppressed because it is too large
Load Diff
+4828
File diff suppressed because it is too large
Load Diff
+12
@@ -0,0 +1,12 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for symbol *scert-function-id*, type int
|
||||
(define *scert-function-id* 0)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+657
@@ -0,0 +1,657 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type stick-constraint
|
||||
(deftype stick-constraint (structure)
|
||||
((constraint-length-half float)
|
||||
(one-over-two-times-constraint-length float)
|
||||
(constraint-length-sqd float)
|
||||
(particle0 uint16)
|
||||
(particle1 uint16)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type stick-constraint
|
||||
(defmethod inspect ((this stick-constraint))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'stick-constraint)
|
||||
(format #t "~1Tconstraint-length-half: ~f~%" (-> this constraint-length-half))
|
||||
(format #t "~1Tone-over-two-times-constraint-length: ~f~%" (-> this one-over-two-times-constraint-length))
|
||||
(format #t "~1Tconstraint-length-sqd: ~f~%" (-> this constraint-length-sqd))
|
||||
(format #t "~1Tparticle0: ~D~%" (-> this particle0))
|
||||
(format #t "~1Tparticle1: ~D~%" (-> this particle1))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type verlet-particle
|
||||
(deftype verlet-particle (structure)
|
||||
((pos vector :inline)
|
||||
(prev-pos vector :inline)
|
||||
(mass-scale float)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type verlet-particle
|
||||
(defmethod inspect ((this verlet-particle))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'verlet-particle)
|
||||
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
||||
(format #t "~1Tprev-pos: #<vector @ #x~X>~%" (-> this prev-pos))
|
||||
(format #t "~1Tmass-scale: ~f~%" (-> this mass-scale))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type disc-constraint
|
||||
(deftype disc-constraint (structure)
|
||||
((normal vector :inline)
|
||||
(origin vector :inline)
|
||||
(radius float)
|
||||
(start-particle-index int16)
|
||||
(end-particle-index int16)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type disc-constraint
|
||||
(defmethod inspect ((this disc-constraint))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'disc-constraint)
|
||||
(format #t "~1Tnormal: #<vector @ #x~X>~%" (-> this normal))
|
||||
(format #t "~1Torigin: #<vector @ #x~X>~%" (-> this origin))
|
||||
(format #t "~1Tradius: ~f~%" (-> this radius))
|
||||
(format #t "~1Tstart-particle-index: ~D~%" (-> this start-particle-index))
|
||||
(format #t "~1Tend-particle-index: ~D~%" (-> this end-particle-index))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type cylinder-constraint
|
||||
(deftype cylinder-constraint (structure)
|
||||
((c0 vector :inline)
|
||||
(norm vector :inline)
|
||||
(length float)
|
||||
(radius float)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type cylinder-constraint
|
||||
(defmethod inspect ((this cylinder-constraint))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'cylinder-constraint)
|
||||
(format #t "~1Tc0: #<vector @ #x~X>~%" (-> this c0))
|
||||
(format #t "~1Tnorm: #<vector @ #x~X>~%" (-> this norm))
|
||||
(format #t "~1Tlength: ~f~%" (-> this length))
|
||||
(format #t "~1Tradius: ~f~%" (-> this radius))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type particle-anchor-point
|
||||
(deftype particle-anchor-point (structure)
|
||||
((anchor-pos vector :inline)
|
||||
(particle-index uint16)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type particle-anchor-point
|
||||
(defmethod inspect ((this particle-anchor-point))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'particle-anchor-point)
|
||||
(format #t "~1Tanchor-pos: #<vector @ #x~X>~%" (-> this anchor-pos))
|
||||
(format #t "~1Tparticle-index: ~D~%" (-> this particle-index))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type particle-array
|
||||
(deftype particle-array (inline-array-class)
|
||||
((data verlet-particle :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type particle-array
|
||||
(defmethod inspect ((this particle-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> particle-array heap-base) (the-as uint 48))
|
||||
|
||||
;; definition of type float-array
|
||||
(deftype float-array (inline-array-class)
|
||||
((data float :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type float-array
|
||||
(defmethod inspect ((this float-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> float-array heap-base) (the-as uint 4))
|
||||
|
||||
;; definition of type stick-constraint-array
|
||||
(deftype stick-constraint-array (inline-array-class)
|
||||
((data stick-constraint :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type stick-constraint-array
|
||||
(defmethod inspect ((this stick-constraint-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> stick-constraint-array heap-base) (the-as uint 16))
|
||||
|
||||
;; definition of type collision-sphere-array
|
||||
(deftype collision-sphere-array (inline-array-class)
|
||||
((data sphere :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type collision-sphere-array
|
||||
(defmethod inspect ((this collision-sphere-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> collision-sphere-array heap-base) (the-as uint 16))
|
||||
|
||||
;; definition of type collision-disc-array
|
||||
(deftype collision-disc-array (inline-array-class)
|
||||
((data disc-constraint :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type collision-disc-array
|
||||
(defmethod inspect ((this collision-disc-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> collision-disc-array heap-base) (the-as uint 48))
|
||||
|
||||
;; definition of type collision-cylinder-array
|
||||
(deftype collision-cylinder-array (inline-array-class)
|
||||
((data cylinder-constraint :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type collision-cylinder-array
|
||||
(defmethod inspect ((this collision-cylinder-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> collision-cylinder-array heap-base) (the-as uint 48))
|
||||
|
||||
;; definition of type anchor-point-array
|
||||
(deftype anchor-point-array (inline-array-class)
|
||||
((data particle-anchor-point :inline :dynamic)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type anchor-point-array
|
||||
(defmethod inspect ((this anchor-point-array))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tlength: ~D~%" (-> this length))
|
||||
(format #t "~1Tallocated-length: ~D~%" (-> this allocated-length))
|
||||
(format #t "~1Tdata[0] @ #x~X~%" (-> this data))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> anchor-point-array heap-base) (the-as uint 32))
|
||||
|
||||
;; definition of type verlet-particle-system
|
||||
(deftype verlet-particle-system (cloth-base)
|
||||
((particles particle-array)
|
||||
(drag float)
|
||||
(accum-force vector :inline)
|
||||
(timestep-frequency int8)
|
||||
(last-simulate-remaining int8)
|
||||
(momentum vector :inline)
|
||||
)
|
||||
(:methods
|
||||
(verlet-particle-system-method-11 () none)
|
||||
(verlet-particle-system-method-12 () none)
|
||||
(verlet-particle-system-method-13 () none)
|
||||
(verlet-particle-system-method-14 () none)
|
||||
(verlet-particle-system-method-15 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type verlet-particle-system
|
||||
(defmethod inspect ((this verlet-particle-system))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tparticles: ~A~%" (-> this particles))
|
||||
(format #t "~1Tdrag: ~f~%" (-> this drag))
|
||||
(format #t "~1Taccum-force: #<vector @ #x~X>~%" (-> this accum-force))
|
||||
(format #t "~1Ttimestep-frequency: ~D~%" (-> this timestep-frequency))
|
||||
(format #t "~1Tlast-simulate-remaining: ~D~%" (-> this last-simulate-remaining))
|
||||
(format #t "~1Tmomentum: #<vector @ #x~X>~%" (-> this momentum))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type current-position-info
|
||||
(deftype current-position-info (structure)
|
||||
((current-vert-index uint16)
|
||||
(last-2-x-index uint16)
|
||||
(last-2-y-index uint16)
|
||||
(last-x-index uint16)
|
||||
(last-y-index uint16)
|
||||
(lights vu-lights :inline)
|
||||
(scale vector :inline)
|
||||
(clamp-col vector :inline)
|
||||
(last-normal vector :inline)
|
||||
(face-normal-needs-flip? symbol)
|
||||
(cross-index0 int8)
|
||||
(cross-index1 int8)
|
||||
(backside-normal vector :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type current-position-info
|
||||
(defmethod inspect ((this current-position-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'current-position-info)
|
||||
(format #t "~1Tcurrent-vert-index: ~D~%" (-> this current-vert-index))
|
||||
(format #t "~1Tlast-2-x-index: ~D~%" (-> this last-2-x-index))
|
||||
(format #t "~1Tlast-2-y-index: ~D~%" (-> this last-2-y-index))
|
||||
(format #t "~1Tlast-x-index: ~D~%" (-> this last-x-index))
|
||||
(format #t "~1Tlast-y-index: ~D~%" (-> this last-y-index))
|
||||
(format #t "~1Tlights: #<vu-lights @ #x~X>~%" (-> this lights))
|
||||
(format #t "~1Tscale: #<vector @ #x~X>~%" (-> this scale))
|
||||
(format #t "~1Tclamp-col: #<vector @ #x~X>~%" (-> this clamp-col))
|
||||
(format #t "~1Tlast-normal: #<vector @ #x~X>~%" (-> this last-normal))
|
||||
(format #t "~1Tface-normal-needs-flip?: ~A~%" (-> this face-normal-needs-flip?))
|
||||
(format #t "~1Tcross-index0: ~D~%" (-> this cross-index0))
|
||||
(format #t "~1Tcross-index1: ~D~%" (-> this cross-index1))
|
||||
(format #t "~1Tbackside-normal: #<vector @ #x~X>~%" (-> this backside-normal))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type cloth-system
|
||||
(deftype cloth-system (verlet-particle-system)
|
||||
((ground-constraint float)
|
||||
(disc-collision-constraints collision-disc-array)
|
||||
(collision-constraints collision-sphere-array)
|
||||
(stick-constraints stick-constraint-array)
|
||||
(anchor-points anchor-point-array)
|
||||
(constraint-strengths int32 3)
|
||||
(num-xy-constraints int16)
|
||||
(num-diagonal-constraints int16)
|
||||
(cloth-width int32)
|
||||
(cloth-height int32)
|
||||
(strip prim-strip)
|
||||
(strip2 prim-strip)
|
||||
(strip3 prim-strip)
|
||||
(mesh art-cloth-geo)
|
||||
(gravity-constant float)
|
||||
(wind-constant float)
|
||||
(flags cloth-flag)
|
||||
(thickness-scalar float)
|
||||
(ball-collision-radius float)
|
||||
(face-normal-scalar float)
|
||||
(reset-count int8)
|
||||
(num-iterations int8)
|
||||
(secret-disable game-secrets)
|
||||
(params cloth-params)
|
||||
)
|
||||
(:methods
|
||||
(initialize-cloth-system! (_type_ cloth-params) none)
|
||||
(debug-draw-spheres (_type_) none)
|
||||
(post-physics-update (_type_) int)
|
||||
(enforce-constraints-1 (_type_) none)
|
||||
(enforce-constraints-2 (_type_) none)
|
||||
(cloth-system-method-21 (_type_) none)
|
||||
(cloth-system-method-22 (_type_) none)
|
||||
(cloth-system-method-23 (_type_) none)
|
||||
(cloth-system-method-24 (_type_) int)
|
||||
(cloth-system-method-25 (_type_) int)
|
||||
(cloth-system-method-26 (_type_) none)
|
||||
(cloth-system-method-27 (_type_ vector int int current-position-info) vector)
|
||||
(cloth-system-method-28 (_type_ int int current-position-info) none)
|
||||
(cloth-system-method-29 (_type_ int int current-position-info int) uint)
|
||||
(cloth-system-method-30 (_type_ int int current-position-info int) none)
|
||||
(cloth-system-method-31 (_type_ current-position-info) none)
|
||||
(cloth-system-method-32 (_type_ vector int int current-position-info) none)
|
||||
(cloth-system-method-33 (_type_ vu-lights) none)
|
||||
(hide! (_type_) none)
|
||||
(reset-locations (_type_) none)
|
||||
(pre-physics-update (_type_) none)
|
||||
(cloth-system-cmd-handler (_type_ pair) none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type cloth-system
|
||||
(defmethod inspect ((this cloth-system))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-50)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tparticles: ~A~%" (-> this particles))
|
||||
(format #t "~1Tdrag: ~f~%" (-> this drag))
|
||||
(format #t "~1Taccum-force: #<vector @ #x~X>~%" (-> this accum-force))
|
||||
(format #t "~1Ttimestep-frequency: ~D~%" (-> this timestep-frequency))
|
||||
(format #t "~1Tlast-simulate-remaining: ~D~%" (-> this last-simulate-remaining))
|
||||
(format #t "~1Tmomentum: #<vector @ #x~X>~%" (-> this momentum))
|
||||
(format #t "~1Tground-constraint: ~f~%" (-> this ground-constraint))
|
||||
(format #t "~1Tdisc-collision-constraints: ~A~%" (-> this disc-collision-constraints))
|
||||
(format #t "~1Tcollision-constraints: ~A~%" (-> this collision-constraints))
|
||||
(format #t "~1Tstick-constraints: ~A~%" (-> this stick-constraints))
|
||||
(format #t "~1Tanchor-points: ~A~%" (-> this anchor-points))
|
||||
(format #t "~1Tconstraint-strengths[3] @ #x~X~%" (-> this constraint-strengths))
|
||||
(format #t "~1Tnum-xy-constraints: ~D~%" (-> this num-xy-constraints))
|
||||
(format #t "~1Tnum-diagonal-constraints: ~D~%" (-> this num-diagonal-constraints))
|
||||
(format #t "~1Tcloth-width: ~D~%" (-> this cloth-width))
|
||||
(format #t "~1Tcloth-height: ~D~%" (-> this cloth-height))
|
||||
(format #t "~1Tstrip: ~A~%" (-> this strip))
|
||||
(format #t "~1Tstrip2: ~A~%" (-> this strip2))
|
||||
(format #t "~1Tstrip3: ~A~%" (-> this strip3))
|
||||
(format #t "~1Tmesh: ~A~%" (-> this mesh))
|
||||
(format #t "~1Tgravity-constant: ~f~%" (-> this gravity-constant))
|
||||
(format #t "~1Twind-constant: ~f~%" (-> this wind-constant))
|
||||
(format #t "~1Tflags: #x~X : (cloth-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand s5-0 (cloth-flag active)) (cloth-flag active))
|
||||
(format #t "active ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag suppress-mesh-failure)) (cloth-flag suppress-mesh-failure))
|
||||
(format #t "suppress-mesh-failure ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag need-setup)) (cloth-flag need-setup))
|
||||
(format #t "need-setup ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag double-sided)) (cloth-flag double-sided))
|
||||
(format #t "double-sided ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag flip-normals)) (cloth-flag flip-normals))
|
||||
(format #t "flip-normals ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-global-wind)) (cloth-flag use-global-wind))
|
||||
(format #t "use-global-wind ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag inited)) (cloth-flag inited))
|
||||
(format #t "inited ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-wind)) (cloth-flag use-wind))
|
||||
(format #t "use-wind ")
|
||||
)
|
||||
(if (= (logand (cloth-flag using-alt-tex) s5-0) (cloth-flag using-alt-tex))
|
||||
(format #t "using-alt-tex ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag check-ground)) (cloth-flag check-ground))
|
||||
(format #t "check-ground ")
|
||||
)
|
||||
(if (= (logand (cloth-flag use-old-resets) s5-0) (cloth-flag use-old-resets))
|
||||
(format #t "use-old-resets ")
|
||||
)
|
||||
(if (= (logand (cloth-flag local-space) s5-0) (cloth-flag local-space))
|
||||
(format #t "local-space ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-parent-momentum)) (cloth-flag use-parent-momentum))
|
||||
(format #t "use-parent-momentum ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag wraps)) (cloth-flag wraps))
|
||||
(format #t "wraps ")
|
||||
)
|
||||
(if (= (logand (cloth-flag local-space-xyz) s5-0) (cloth-flag local-space-xyz))
|
||||
(format #t "local-space-xyz ")
|
||||
)
|
||||
(if (= (logand (cloth-flag riding) s5-0) (cloth-flag riding))
|
||||
(format #t "riding ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag need-reset)) (cloth-flag need-reset))
|
||||
(format #t "need-reset ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-momentum)) (cloth-flag use-momentum))
|
||||
(format #t "use-momentum ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag no-draw)) (cloth-flag no-draw))
|
||||
(format #t "no-draw ")
|
||||
)
|
||||
(if (= (logand (cloth-flag local-space-y) s5-0) (cloth-flag local-space-y))
|
||||
(format #t "local-space-y ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag no-gravity)) (cloth-flag no-gravity))
|
||||
(format #t "no-gravity ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag autogen-uvs)) (cloth-flag autogen-uvs))
|
||||
(format #t "autogen-uvs ")
|
||||
)
|
||||
(if (= (logand (cloth-flag hidden) s5-0) (cloth-flag hidden))
|
||||
(format #t "hidden ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tthickness-scalar: ~f~%" (-> this thickness-scalar))
|
||||
(format #t "~1Tball-collision-radius: ~f~%" (-> this ball-collision-radius))
|
||||
(format #t "~1Tface-normal-scalar: ~f~%" (-> this face-normal-scalar))
|
||||
(format #t "~1Treset-count: ~D~%" (-> this reset-count))
|
||||
(format #t "~1Tnum-iterations: ~D~%" (-> this num-iterations))
|
||||
(format #t "~1Tsecret-disable: ~D~%" (-> this secret-disable))
|
||||
(format #t "~1Tparams: #<cloth-params @ #x~X>~%" (-> this params))
|
||||
(label cfg-50)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type cloth-on-skeleton
|
||||
(deftype cloth-on-skeleton (cloth-system)
|
||||
((base-transform-index int16)
|
||||
(owner handle)
|
||||
(last-owner-pos vector :inline)
|
||||
(last-owner-mat matrix :inline)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type cloth-on-skeleton
|
||||
(defmethod inspect ((this cloth-on-skeleton))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-50)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tparticles: ~A~%" (-> this particles))
|
||||
(format #t "~1Tdrag: ~f~%" (-> this drag))
|
||||
(format #t "~1Taccum-force: #<vector @ #x~X>~%" (-> this accum-force))
|
||||
(format #t "~1Ttimestep-frequency: ~D~%" (-> this timestep-frequency))
|
||||
(format #t "~1Tlast-simulate-remaining: ~D~%" (-> this last-simulate-remaining))
|
||||
(format #t "~1Tmomentum: #<vector @ #x~X>~%" (-> this momentum))
|
||||
(format #t "~1Tground-constraint: ~f~%" (-> this ground-constraint))
|
||||
(format #t "~1Tdisc-collision-constraints: ~A~%" (-> this disc-collision-constraints))
|
||||
(format #t "~1Tcollision-constraints: ~A~%" (-> this collision-constraints))
|
||||
(format #t "~1Tstick-constraints: ~A~%" (-> this stick-constraints))
|
||||
(format #t "~1Tanchor-points: ~A~%" (-> this anchor-points))
|
||||
(format #t "~1Tconstraint-strengths[3] @ #x~X~%" (-> this constraint-strengths))
|
||||
(format #t "~1Tnum-xy-constraints: ~D~%" (-> this num-xy-constraints))
|
||||
(format #t "~1Tnum-diagonal-constraints: ~D~%" (-> this num-diagonal-constraints))
|
||||
(format #t "~1Tcloth-width: ~D~%" (-> this cloth-width))
|
||||
(format #t "~1Tcloth-height: ~D~%" (-> this cloth-height))
|
||||
(format #t "~1Tstrip: ~A~%" (-> this strip))
|
||||
(format #t "~1Tstrip2: ~A~%" (-> this strip2))
|
||||
(format #t "~1Tstrip3: ~A~%" (-> this strip3))
|
||||
(format #t "~1Tmesh: ~A~%" (-> this mesh))
|
||||
(format #t "~1Tgravity-constant: ~f~%" (-> this gravity-constant))
|
||||
(format #t "~1Twind-constant: ~f~%" (-> this wind-constant))
|
||||
(format #t "~1Tflags: #x~X : (cloth-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand s5-0 (cloth-flag active)) (cloth-flag active))
|
||||
(format #t "active ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag suppress-mesh-failure)) (cloth-flag suppress-mesh-failure))
|
||||
(format #t "suppress-mesh-failure ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag need-setup)) (cloth-flag need-setup))
|
||||
(format #t "need-setup ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag double-sided)) (cloth-flag double-sided))
|
||||
(format #t "double-sided ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag flip-normals)) (cloth-flag flip-normals))
|
||||
(format #t "flip-normals ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-global-wind)) (cloth-flag use-global-wind))
|
||||
(format #t "use-global-wind ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag inited)) (cloth-flag inited))
|
||||
(format #t "inited ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-wind)) (cloth-flag use-wind))
|
||||
(format #t "use-wind ")
|
||||
)
|
||||
(if (= (logand (cloth-flag using-alt-tex) s5-0) (cloth-flag using-alt-tex))
|
||||
(format #t "using-alt-tex ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag check-ground)) (cloth-flag check-ground))
|
||||
(format #t "check-ground ")
|
||||
)
|
||||
(if (= (logand (cloth-flag use-old-resets) s5-0) (cloth-flag use-old-resets))
|
||||
(format #t "use-old-resets ")
|
||||
)
|
||||
(if (= (logand (cloth-flag local-space) s5-0) (cloth-flag local-space))
|
||||
(format #t "local-space ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-parent-momentum)) (cloth-flag use-parent-momentum))
|
||||
(format #t "use-parent-momentum ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag wraps)) (cloth-flag wraps))
|
||||
(format #t "wraps ")
|
||||
)
|
||||
(if (= (logand (cloth-flag local-space-xyz) s5-0) (cloth-flag local-space-xyz))
|
||||
(format #t "local-space-xyz ")
|
||||
)
|
||||
(if (= (logand (cloth-flag riding) s5-0) (cloth-flag riding))
|
||||
(format #t "riding ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag need-reset)) (cloth-flag need-reset))
|
||||
(format #t "need-reset ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag use-momentum)) (cloth-flag use-momentum))
|
||||
(format #t "use-momentum ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag no-draw)) (cloth-flag no-draw))
|
||||
(format #t "no-draw ")
|
||||
)
|
||||
(if (= (logand (cloth-flag local-space-y) s5-0) (cloth-flag local-space-y))
|
||||
(format #t "local-space-y ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag no-gravity)) (cloth-flag no-gravity))
|
||||
(format #t "no-gravity ")
|
||||
)
|
||||
(if (= (logand s5-0 (cloth-flag autogen-uvs)) (cloth-flag autogen-uvs))
|
||||
(format #t "autogen-uvs ")
|
||||
)
|
||||
(if (= (logand (cloth-flag hidden) s5-0) (cloth-flag hidden))
|
||||
(format #t "hidden ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tthickness-scalar: ~f~%" (-> this thickness-scalar))
|
||||
(format #t "~1Tball-collision-radius: ~f~%" (-> this ball-collision-radius))
|
||||
(format #t "~1Tface-normal-scalar: ~f~%" (-> this face-normal-scalar))
|
||||
(format #t "~1Treset-count: ~D~%" (-> this reset-count))
|
||||
(format #t "~1Tnum-iterations: ~D~%" (-> this num-iterations))
|
||||
(format #t "~1Tsecret-disable: ~D~%" (-> this secret-disable))
|
||||
(format #t "~1Tparams: #<cloth-params @ #x~X>~%" (-> this params))
|
||||
(format #t "~1Tbase-transform-index: ~D~%" (-> this base-transform-index))
|
||||
(format #t "~1Towner: ~D~%" (-> this owner))
|
||||
(format #t "~1Tlast-owner-pos: #<vector @ #x~X>~%" (-> this last-owner-pos))
|
||||
(format #t "~1Tlast-owner-mat: #<matrix @ #x~X>~%" (-> this last-owner-mat))
|
||||
(label cfg-50)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+3
-1
@@ -283,8 +283,10 @@
|
||||
((ragdoll ragdoll)
|
||||
(last-attack-id uint32)
|
||||
)
|
||||
(:state-methods
|
||||
idle
|
||||
)
|
||||
(:methods
|
||||
(ragdoll-proc-method-15 () none)
|
||||
(ragdoll-proc-method-16 () none)
|
||||
(ragdoll-proc-method-17 () none)
|
||||
(ragdoll-proc-method-18 () none)
|
||||
|
||||
+641
@@ -0,0 +1,641 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type rigid-body-info
|
||||
(deftype rigid-body-info (structure)
|
||||
((max-time-step float)
|
||||
(mass float)
|
||||
(inv-mass float)
|
||||
(linear-damping float)
|
||||
(angular-damping float)
|
||||
(bounce-factor float)
|
||||
(friction-factor float)
|
||||
(bounce-mult-factor float)
|
||||
(cm-offset-joint vector :inline)
|
||||
(inv-inertial-tensor matrix :inline)
|
||||
(inertial-tensor matrix :inline)
|
||||
(inertial-tensor-box meters 3)
|
||||
(gravity float)
|
||||
(max-ang-momentum float)
|
||||
)
|
||||
(:methods
|
||||
(rigid-body-info-method-9 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-info
|
||||
(defmethod inspect ((this rigid-body-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rigid-body-info)
|
||||
(format #t "~1Tmax-time-step: ~f~%" (-> this max-time-step))
|
||||
(format #t "~1Tmass: ~f~%" (-> this mass))
|
||||
(format #t "~1Tinv-mass: ~f~%" (-> this inv-mass))
|
||||
(format #t "~1Tlinear-damping: ~f~%" (-> this linear-damping))
|
||||
(format #t "~1Tangular-damping: ~f~%" (-> this angular-damping))
|
||||
(format #t "~1Tbounce-factor: ~f~%" (-> this bounce-factor))
|
||||
(format #t "~1Tfriction-factor: ~f~%" (-> this friction-factor))
|
||||
(format #t "~1Tbounce-mult-factor: ~f~%" (-> this bounce-mult-factor))
|
||||
(format #t "~1Tcm-offset-joint: ~`vector`P~%" (-> this cm-offset-joint))
|
||||
(format #t "~1Tinv-inertial-tensor: #<matrix @ #x~X>~%" (-> this inv-inertial-tensor))
|
||||
(format #t "~1Tinertial-tensor: #<matrix @ #x~X>~%" (-> this inertial-tensor))
|
||||
(format #t "~1Tinertial-tensor-box[3] @ #x~X~%" (-> this inertial-tensor-box))
|
||||
(format #t "~1Tgravity: ~f~%" (-> this gravity))
|
||||
(format #t "~1Tmax-ang-momentum: ~f~%" (-> this max-ang-momentum))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rigid-body-object-extra-info
|
||||
(deftype rigid-body-object-extra-info (structure)
|
||||
((gravity meters)
|
||||
(attack-force-scale float)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-object-extra-info
|
||||
(defmethod inspect ((this rigid-body-object-extra-info))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rigid-body-object-extra-info)
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rigid-body-object-constants
|
||||
(deftype rigid-body-object-constants (structure)
|
||||
((info rigid-body-info :inline)
|
||||
(max-time-step float :overlay-at (-> info max-time-step))
|
||||
(mass float :overlay-at (-> info mass))
|
||||
(inv-mass float :overlay-at (-> info inv-mass))
|
||||
(cm-joint-x meters :overlay-at (-> info cm-offset-joint data 0))
|
||||
(cm-joint-y meters :overlay-at (-> info cm-offset-joint data 1))
|
||||
(cm-joint-z meters :overlay-at (-> info cm-offset-joint data 2))
|
||||
(linear-damping float :overlay-at (-> info linear-damping))
|
||||
(angular-damping float :overlay-at (-> info angular-damping))
|
||||
(bounce-factor float :overlay-at (-> info bounce-factor))
|
||||
(friction-factor float :overlay-at (-> info friction-factor))
|
||||
(inertial-tensor-x meters :overlay-at (-> info inertial-tensor-box 0))
|
||||
(inertial-tensor-y meters :overlay-at (-> info inertial-tensor-box 1))
|
||||
(inertial-tensor-z meters :overlay-at (-> info inertial-tensor-box 2))
|
||||
(gravity meters :overlay-at (-> info gravity))
|
||||
(name symbol)
|
||||
)
|
||||
(:methods
|
||||
(rigid-body-object-constants-method-9 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-object-constants
|
||||
(defmethod inspect ((this rigid-body-object-constants))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rigid-body-object-constants)
|
||||
(format #t "~1Tinfo: #<rigid-body-info @ #x~X>~%" (-> this info))
|
||||
(format #t "~1Tmax-time-step: ~f~%" (-> this info max-time-step))
|
||||
(format #t "~1Tmass: ~f~%" (-> this info mass))
|
||||
(format #t "~1Tinv-mass: ~f~%" (-> this info inv-mass))
|
||||
(format #t "~1Tcm-joint-x: (meters ~m)~%" (-> this info cm-offset-joint x))
|
||||
(format #t "~1Tcm-joint-y: (meters ~m)~%" (-> this info cm-offset-joint y))
|
||||
(format #t "~1Tcm-joint-z: (meters ~m)~%" (-> this info cm-offset-joint z))
|
||||
(format #t "~1Tlinear-damping: ~f~%" (-> this info linear-damping))
|
||||
(format #t "~1Tangular-damping: ~f~%" (-> this info angular-damping))
|
||||
(format #t "~1Tbounce-factor: ~f~%" (-> this info bounce-factor))
|
||||
(format #t "~1Tfriction-factor: ~f~%" (-> this info friction-factor))
|
||||
(format #t "~1Tinertial-tensor-x: (meters ~m)~%" (-> this inertial-tensor-x))
|
||||
(format #t "~1Tinertial-tensor-y: (meters ~m)~%" (-> this inertial-tensor-y))
|
||||
(format #t "~1Tinertial-tensor-z: (meters ~m)~%" (-> this inertial-tensor-z))
|
||||
(format #t "~1Tgravity: (meters ~m)~%" (-> this info gravity))
|
||||
(format #t "~1Tname: ~A~%" (-> this name))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rigid-body-impact
|
||||
(deftype rigid-body-impact (structure)
|
||||
((point vector :inline)
|
||||
(normal vector :inline)
|
||||
(velocity vector :inline)
|
||||
(impulse float)
|
||||
(pat pat-surface)
|
||||
(process process)
|
||||
(prim-id uint32)
|
||||
(surface basic)
|
||||
)
|
||||
:pack-me
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-impact
|
||||
(defmethod inspect ((this rigid-body-impact))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rigid-body-impact)
|
||||
(format #t "~1Tpoint: ~`vector`P~%" (-> this point))
|
||||
(format #t "~1Tnormal: ~`vector`P~%" (-> this normal))
|
||||
(format #t "~1Tvelocity: ~`vector`P~%" (-> this velocity))
|
||||
(format #t "~1Timpulse: ~f~%" (-> this impulse))
|
||||
(format #t "~1Tpat: ~D~%" (-> this pat))
|
||||
(format #t "~1Tprocess: ~A~%" (-> this process))
|
||||
(format #t "~1Tprim-id: ~D~%" (-> this prim-id))
|
||||
(format #t "~1Tsurface: ~A~%" (-> this surface))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rigid-body-control
|
||||
(deftype rigid-body-control (basic)
|
||||
((flags rigid-body-flag)
|
||||
(debug-id int8)
|
||||
(debugger-step int8)
|
||||
(info rigid-body-info)
|
||||
(force-callback (function rigid-body-object float none))
|
||||
(post-move-callback basic)
|
||||
(process process)
|
||||
(time-remaining float)
|
||||
(max-ang-momentum float)
|
||||
(linear-damping float)
|
||||
(angular-damping float)
|
||||
(bounce-factor float)
|
||||
(friction-factor float)
|
||||
(position vector :inline)
|
||||
(rot vector :inline)
|
||||
(rotation quaternion :inline :overlay-at (-> rot data 0))
|
||||
(lin-momentum vector :inline)
|
||||
(ang-momentum vector :inline)
|
||||
(force vector :inline)
|
||||
(torque vector :inline)
|
||||
(lin-velocity vector :inline)
|
||||
(ang-velocity vector :inline)
|
||||
(matrix matrix :inline)
|
||||
(inv-i-world matrix :inline)
|
||||
)
|
||||
(:methods
|
||||
(new (symbol type) _type_)
|
||||
(rigid-body-control-method-9 () none)
|
||||
(rigid-body-control-method-10 () none)
|
||||
(rigid-body-control-method-11 () none)
|
||||
(rigid-body-control-method-12 () none)
|
||||
(rigid-body-control-method-13 () none)
|
||||
(rigid-body-control-method-14 () none)
|
||||
(rigid-body-control-method-15 () none)
|
||||
(rigid-body-control-method-16 () none)
|
||||
(rigid-body-control-method-17 () none)
|
||||
(rigid-body-control-method-18 () none)
|
||||
(rigid-body-control-method-19 () none)
|
||||
(rigid-body-control-method-20 () none)
|
||||
(rigid-body-control-method-21 () none)
|
||||
(rigid-body-control-method-22 () none)
|
||||
(rigid-body-control-method-23 () none)
|
||||
(rigid-body-control-method-24 () none)
|
||||
(rigid-body-control-method-25 () none)
|
||||
(rigid-body-control-method-26 () none)
|
||||
(rigid-body-control-method-27 () none)
|
||||
(rigid-body-control-method-28 () none)
|
||||
(rigid-body-control-method-29 () none)
|
||||
(rigid-body-control-method-30 () none)
|
||||
(rigid-body-control-method-31 () none)
|
||||
(rigid-body-control-method-32 () none)
|
||||
(rigid-body-control-method-33 () none)
|
||||
(rigid-body-control-method-34 () none)
|
||||
(rigid-body-control-method-35 () none)
|
||||
(rigid-body-control-method-36 () none)
|
||||
(rigid-body-control-method-37 () none)
|
||||
(rigid-body-control-method-38 () none)
|
||||
(rigid-body-control-method-39 () none)
|
||||
(rigid-body-control-method-40 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-control
|
||||
(defmethod inspect ((this rigid-body-control))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-30)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this (-> this type))
|
||||
(format #t "~1Tflags: #x~X : (rigid-body-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand s5-0 (rigid-body-flag debug-active)) (rigid-body-flag debug-active))
|
||||
(format #t "active ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag impact)) (rigid-body-flag impact))
|
||||
(format #t "impact ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag enable-penetrate-mode)) (rigid-body-flag enable-penetrate-mode))
|
||||
(format #t "enable-penetrate-mode ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag enable-physics)) (rigid-body-flag enable-physics))
|
||||
(format #t "enable-physics ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag temp-penetrate-mode)) (rigid-body-flag temp-penetrate-mode))
|
||||
(format #t "temp-penetrate-mode ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag display-marks)) (rigid-body-flag display-marks))
|
||||
(format #t "display-marks ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag vehicle-line-spheres-hack)) (rigid-body-flag vehicle-line-spheres-hack))
|
||||
(format #t "vehicle-line-spheres-hack ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag debug-target)) (rigid-body-flag debug-target))
|
||||
(format #t "debug-target ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag sphere-normal-hack)) (rigid-body-flag sphere-normal-hack))
|
||||
(format #t "sphere-normal-hack ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag disable-queue)) (rigid-body-flag disable-queue))
|
||||
(format #t "disable-queue ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag debug)) (rigid-body-flag debug))
|
||||
(format #t "debug ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag stuck)) (rigid-body-flag stuck))
|
||||
(format #t "stuck ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-flag wall-normal-hack)) (rigid-body-flag wall-normal-hack))
|
||||
(format #t "wall-normal-hack ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~1Tdebug-id: ~D~%" (-> this debug-id))
|
||||
(format #t "~1Tdebugger-step: ~D~%" (-> this debugger-step))
|
||||
(format #t "~1Tinfo: #<rigid-body-info @ #x~X>~%" (-> this info))
|
||||
(format #t "~1Tforce-callback: ~A~%" (-> this force-callback))
|
||||
(format #t "~1Tpost-move-callback: ~A~%" (-> this post-move-callback))
|
||||
(format #t "~1Tprocess: ~A~%" (-> this process))
|
||||
(format #t "~1Ttime-remaining: ~f~%" (-> this time-remaining))
|
||||
(format #t "~1Tmax-ang-momentum: ~f~%" (-> this max-ang-momentum))
|
||||
(format #t "~1Tlinear-damping: ~f~%" (-> this linear-damping))
|
||||
(format #t "~1Tangular-damping: ~f~%" (-> this angular-damping))
|
||||
(format #t "~1Tbounce-factor: ~f~%" (-> this bounce-factor))
|
||||
(format #t "~1Tfriction-factor: ~f~%" (-> this friction-factor))
|
||||
(format #t "~1Tposition: ~`vector`P~%" (-> this position))
|
||||
(format #t "~1Trot: ~`vector`P~%" (-> this rot))
|
||||
(format #t "~1Trotation: #<quaternion @ #x~X>~%" (-> this rot))
|
||||
(format #t "~1Tlin-momentum: ~`vector`P~%" (-> this lin-momentum))
|
||||
(format #t "~1Tang-momentum: ~`vector`P~%" (-> this ang-momentum))
|
||||
(format #t "~1Tforce: ~`vector`P~%" (-> this force))
|
||||
(format #t "~1Ttorque: ~`vector`P~%" (-> this torque))
|
||||
(format #t "~1Tlin-velocity: ~`vector`P~%" (-> this lin-velocity))
|
||||
(format #t "~1Tang-velocity: ~`vector`P~%" (-> this ang-velocity))
|
||||
(format #t "~1Tmatrix: #<matrix @ #x~X>~%" (-> this matrix))
|
||||
(format #t "~1Tinv-i-world: #<matrix @ #x~X>~%" (-> this inv-i-world))
|
||||
(label cfg-30)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rb-perf-data
|
||||
(deftype rb-perf-data (structure)
|
||||
((process uint64)
|
||||
(times uint32 32)
|
||||
(t-rb-all uint32 :overlay-at (-> times 0))
|
||||
(t-rb-callback uint32 :overlay-at (-> times 1))
|
||||
(t-rb-fc uint32 :overlay-at (-> times 2))
|
||||
(t-rb-move uint32 :overlay-at (-> times 3))
|
||||
(t-rb-physics uint32 :overlay-at (-> times 4))
|
||||
(t-vqp-all uint32 :overlay-at (-> times 6))
|
||||
(t-vqp-common uint32 :overlay-at (-> times 7))
|
||||
(t-vqp-ja-post uint32 :overlay-at (-> times 8))
|
||||
(t-vqp-parts uint32 :overlay-at (-> times 9))
|
||||
(t-vqp-post uint32 :overlay-at (-> times 10))
|
||||
(t-vqp-sections uint32 :overlay-at (-> times 11))
|
||||
(t-vqp-sound uint32 :overlay-at (-> times 12))
|
||||
(t-nav-part1 uint32 :overlay-at (-> times 13))
|
||||
(t-nav-part2 uint32 :overlay-at (-> times 14))
|
||||
(t-nav-part3 uint32 :overlay-at (-> times 15))
|
||||
(t-nav-part4 uint32 :overlay-at (-> times 16))
|
||||
(t-nav-part5 uint32 :overlay-at (-> times 17))
|
||||
(t-nav-part6 uint32 :overlay-at (-> times 18))
|
||||
(t-nav-part7 uint32 :overlay-at (-> times 19))
|
||||
(t-nav-part8 uint32 :overlay-at (-> times 20))
|
||||
(t-nav-part9 uint32 :overlay-at (-> times 21))
|
||||
(t-nav-part10 uint32 :overlay-at (-> times 22))
|
||||
(t-part-turbo uint32 :overlay-at (-> times 27))
|
||||
(t-part-exhaust uint32 :overlay-at (-> times 23))
|
||||
(t-part-smoke uint32 :overlay-at (-> times 24))
|
||||
(t-part-scrape uint32 :overlay-at (-> times 25))
|
||||
(t-part-wheels uint32 :overlay-at (-> times 26))
|
||||
(t-part-debris uint32 :overlay-at (-> times 28))
|
||||
(t-part-water uint32 :overlay-at (-> times 29))
|
||||
(t-part-forcefield uint32 :overlay-at (-> times 30))
|
||||
(t-prim-trails uint32 :overlay-at (-> times 31))
|
||||
(begin-times uint32 32)
|
||||
(begin-counts uint32 32)
|
||||
(end-counts uint32 32)
|
||||
)
|
||||
(:methods
|
||||
(rb-perf-data-method-9 () none)
|
||||
(rb-perf-data-method-10 () none)
|
||||
(rb-perf-data-method-11 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rb-perf-data
|
||||
(defmethod inspect ((this rb-perf-data))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rb-perf-data)
|
||||
(format #t "~1Tprocess: ~D~%" (-> this process))
|
||||
(format #t "~1Ttimes[32] @ #x~X~%" (-> this times))
|
||||
(format #t "~1Tt-rb-all: ~D~%" (-> this t-rb-all))
|
||||
(format #t "~1Tt-rb-callback: ~D~%" (-> this t-rb-callback))
|
||||
(format #t "~1Tt-rb-fc: ~D~%" (-> this t-rb-fc))
|
||||
(format #t "~1Tt-rb-move: ~D~%" (-> this t-rb-move))
|
||||
(format #t "~1Tt-rb-physics: ~D~%" (-> this t-rb-physics))
|
||||
(format #t "~1Tt-vqp-all: ~D~%" (-> this t-vqp-all))
|
||||
(format #t "~1Tt-vqp-common: ~D~%" (-> this t-vqp-common))
|
||||
(format #t "~1Tt-vqp-ja-post: ~D~%" (-> this t-vqp-ja-post))
|
||||
(format #t "~1Tt-vqp-parts: ~D~%" (-> this t-vqp-parts))
|
||||
(format #t "~1Tt-vqp-post: ~D~%" (-> this t-vqp-post))
|
||||
(format #t "~1Tt-vqp-sections: ~D~%" (-> this t-vqp-sections))
|
||||
(format #t "~1Tt-vqp-sound: ~D~%" (-> this t-vqp-sound))
|
||||
(format #t "~1Tt-nav-part1: ~D~%" (-> this t-nav-part1))
|
||||
(format #t "~1Tt-nav-part2: ~D~%" (-> this t-nav-part2))
|
||||
(format #t "~1Tt-nav-part3: ~D~%" (-> this t-nav-part3))
|
||||
(format #t "~1Tt-nav-part4: ~D~%" (-> this t-nav-part4))
|
||||
(format #t "~1Tt-nav-part5: ~D~%" (-> this t-nav-part5))
|
||||
(format #t "~1Tt-nav-part6: ~D~%" (-> this t-nav-part6))
|
||||
(format #t "~1Tt-nav-part7: ~D~%" (-> this t-nav-part7))
|
||||
(format #t "~1Tt-nav-part8: ~D~%" (-> this t-nav-part8))
|
||||
(format #t "~1Tt-nav-part9: ~D~%" (-> this t-nav-part9))
|
||||
(format #t "~1Tt-nav-part10: ~D~%" (-> this t-nav-part10))
|
||||
(format #t "~1Tt-part-turbo: ~D~%" (-> this t-part-turbo))
|
||||
(format #t "~1Tt-part-exhaust: ~D~%" (-> this t-part-exhaust))
|
||||
(format #t "~1Tt-part-smoke: ~D~%" (-> this t-part-smoke))
|
||||
(format #t "~1Tt-part-scrape: ~D~%" (-> this t-part-scrape))
|
||||
(format #t "~1Tt-part-wheels: ~D~%" (-> this t-part-wheels))
|
||||
(format #t "~1Tt-part-debris: ~D~%" (-> this t-part-debris))
|
||||
(format #t "~1Tt-part-water: ~D~%" (-> this t-part-water))
|
||||
(format #t "~1Tt-part-forcefield: ~D~%" (-> this t-part-forcefield))
|
||||
(format #t "~1Tt-prim-trails: ~D~%" (-> this t-prim-trails))
|
||||
(format #t "~1Tbegin-times[32] @ #x~X~%" (-> this begin-times))
|
||||
(format #t "~1Tbegin-counts[32] @ #x~X~%" (-> this begin-counts))
|
||||
(format #t "~1Tend-counts[32] @ #x~X~%" (-> this end-counts))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rigid-body-object
|
||||
(deftype rigid-body-object (process-focusable)
|
||||
((root collide-shape-moving :override)
|
||||
(info rigid-body-object-constants)
|
||||
(flags rigid-body-object-flag)
|
||||
(max-time-step float)
|
||||
(incoming-attack-id uint32)
|
||||
(disturbed-time uint32)
|
||||
(perf rb-perf-data :offset 284)
|
||||
)
|
||||
(:methods
|
||||
(rigid-body-object-method-59 () none)
|
||||
(rigid-body-object-method-60 () none)
|
||||
(rigid-body-object-method-61 () none)
|
||||
(rigid-body-object-method-62 () none)
|
||||
(rigid-body-object-method-63 () none)
|
||||
(rigid-body-object-method-64 () none)
|
||||
(rigid-body-object-method-65 (_type_) none)
|
||||
(rigid-body-object-method-66 (_type_) none)
|
||||
(rigid-body-object-method-67 () none)
|
||||
(rigid-body-object-method-68 () none)
|
||||
(rigid-body-object-method-69 () none)
|
||||
(rigid-body-object-method-70 () none)
|
||||
(rigid-body-object-method-71 () none)
|
||||
(rigid-body-object-method-72 () none)
|
||||
(rigid-body-object-method-73 () none)
|
||||
(rigid-body-object-method-74 () none)
|
||||
(rigid-body-object-method-75 () none)
|
||||
(rigid-body-object-method-76 () none)
|
||||
(rigid-body-object-method-77 () none)
|
||||
(rigid-body-object-method-78 () none)
|
||||
(rigid-body-object-method-79 () none)
|
||||
(rigid-body-object-method-80 () none)
|
||||
(rigid-body-object-method-81 () none)
|
||||
(rigid-body-object-method-82 () none)
|
||||
(rigid-body-object-method-83 () none)
|
||||
(rigid-body-object-method-84 () none)
|
||||
(rigid-body-object-method-85 () none)
|
||||
(rigid-body-object-method-86 () none)
|
||||
(rigid-body-object-method-87 () none)
|
||||
(rigid-body-object-method-88 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-object
|
||||
(defmethod inspect ((this rigid-body-object))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-12)
|
||||
)
|
||||
(let ((t9-0 (method-of-type process-focusable inspect)))
|
||||
(t9-0 this)
|
||||
)
|
||||
(format #t "~2Tinfo: #<rigid-body-object-constants @ #x~X>~%" (-> this info))
|
||||
(format #t "~2Tflags: #x~X : (rigid-body-object-flag " (-> this flags))
|
||||
(let ((s5-0 (-> this flags)))
|
||||
(if (= (logand s5-0 (rigid-body-object-flag dead)) (rigid-body-object-flag dead))
|
||||
(format #t "dead ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-object-flag damaged)) (rigid-body-object-flag damaged))
|
||||
(format #t "damaged ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-object-flag disturbed)) (rigid-body-object-flag disturbed))
|
||||
(format #t "disturbed ")
|
||||
)
|
||||
(if (= (logand s5-0 (rigid-body-object-flag enable-collision)) (rigid-body-object-flag enable-collision))
|
||||
(format #t "enable-collision ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(format #t "~2Tmax-time-step: ~f~%" (-> this max-time-step))
|
||||
(format #t "~2Tincoming-attack-id: ~D~%" (-> this incoming-attack-id))
|
||||
(format #t "~2Tdisturbed-time: ~D~%" (-> this disturbed-time))
|
||||
(format #t "~2Tperf: #<rb-perf-data @ #x~X>~%" (-> this perf))
|
||||
(label cfg-12)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rigid-body-queue
|
||||
(deftype rigid-body-queue (structure)
|
||||
((count int8)
|
||||
(manager handle)
|
||||
(array handle 128)
|
||||
)
|
||||
(:methods
|
||||
(rigid-body-queue-method-9 () none)
|
||||
(rigid-body-queue-method-10 () none)
|
||||
(rigid-body-queue-method-11 () none)
|
||||
(rigid-body-queue-method-12 () none)
|
||||
(rigid-body-queue-method-13 () none)
|
||||
(rigid-body-queue-method-14 () none)
|
||||
(rigid-body-queue-method-15 () none)
|
||||
(rigid-body-queue-method-16 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-queue
|
||||
(defmethod inspect ((this rigid-body-queue))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rigid-body-queue)
|
||||
(format #t "~1Tcount: ~D~%" (-> this count))
|
||||
(format #t "~1Tmanager: ~D~%" (-> this manager))
|
||||
(format #t "~1Tarray[128] @ #x~X~%" (-> this array))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for function get-penetrate-using-from-attack-event
|
||||
(defun get-penetrate-using-from-attack-event ((arg0 process-drawable) (arg1 event-message-block))
|
||||
"Given an attack event to an enemy, return the penetrate that should be applied to the enemy"
|
||||
(let ((v1-0 (the-as object (-> arg1 param 1))))
|
||||
(if (logtest? (attack-mask penetrate-using) (-> (the-as attack-info v1-0) mask))
|
||||
(return (-> (the-as attack-info v1-0) penetrate-using))
|
||||
)
|
||||
)
|
||||
(let ((v1-3 (as-type arg0 process-drawable)))
|
||||
(when v1-3
|
||||
(let* ((gp-1 (-> v1-3 root))
|
||||
(v1-4 (if (the-as penetrate (type? gp-1 collide-shape))
|
||||
gp-1
|
||||
)
|
||||
)
|
||||
)
|
||||
(if v1-4
|
||||
(return (logior (-> (the-as collide-shape v1-4) penetrate-using) (penetrate generic-attack)))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(penetrate generic-attack)
|
||||
)
|
||||
|
||||
;; definition of type rb-debug-state-record
|
||||
(deftype rb-debug-state-record (structure)
|
||||
((flags uint16)
|
||||
(time-remaining float)
|
||||
(current-time uint32)
|
||||
(debug-id int8)
|
||||
(linear-damping float)
|
||||
(angular-damping float)
|
||||
(bounce-factor float)
|
||||
(friction-factor float)
|
||||
(position vector :inline)
|
||||
(rot vector :inline)
|
||||
(rotation quaternion :inline :overlay-at (-> rot data 0))
|
||||
(lin-momentum vector :inline)
|
||||
(ang-momentum vector :inline)
|
||||
(force vector :inline)
|
||||
(rb-debug-state-record-padding1 uint32 28)
|
||||
(torque vector :inline)
|
||||
(rb-debug-state-record-padding2 uint32 28)
|
||||
)
|
||||
(:methods
|
||||
(rb-debug-state-record-method-9 () none)
|
||||
(rb-debug-state-record-method-10 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rb-debug-state-record
|
||||
(defmethod inspect ((this rb-debug-state-record))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rb-debug-state-record)
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(format #t "~1Ttime-remaining: ~f~%" (-> this time-remaining))
|
||||
(format #t "~1Tcurrent-time: ~D~%" (-> this current-time))
|
||||
(format #t "~1Tdebug-id: ~D~%" (-> this debug-id))
|
||||
(format #t "~1Tlinear-damping: ~f~%" (-> this linear-damping))
|
||||
(format #t "~1Tangular-damping: ~f~%" (-> this angular-damping))
|
||||
(format #t "~1Tbounce-factor: ~f~%" (-> this bounce-factor))
|
||||
(format #t "~1Tfriction-factor: ~f~%" (-> this friction-factor))
|
||||
(format #t "~1Tposition: ~`vector`P~%" (-> this position))
|
||||
(format #t "~1Trot: ~`vector`P~%" (-> this rot))
|
||||
(format #t "~1Trotation: #<quaternion @ #x~X>~%" (-> this rot))
|
||||
(format #t "~1Tlin-momentum: ~`vector`P~%" (-> this lin-momentum))
|
||||
(format #t "~1Tang-momentum: ~`vector`P~%" (-> this ang-momentum))
|
||||
(format #t "~1Tforce: ~`vector`P~%" (-> this force))
|
||||
(format #t "~1Ttorque: ~`vector`P~%" (-> this torque))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition of type rb-debugger
|
||||
(deftype rb-debugger (structure)
|
||||
((user-mode uint8)
|
||||
(hook-control uint8)
|
||||
(flags uint8)
|
||||
(target-count int8)
|
||||
(target-array handle 8)
|
||||
(pad0 uint8 256)
|
||||
(playback-index int32)
|
||||
(recorder-index int32)
|
||||
(begin-index int32)
|
||||
(end-index int32)
|
||||
(record-count int32)
|
||||
(buffer-len int32)
|
||||
(buffer-size int32)
|
||||
(total-size int32)
|
||||
(rb-debugger-pad1 int32 2)
|
||||
(buffer-start uint32 :inline :dynamic)
|
||||
)
|
||||
(:methods
|
||||
(rb-debugger-method-9 () none)
|
||||
(rb-debugger-method-10 () none)
|
||||
(rb-debugger-method-11 () none)
|
||||
(rb-debugger-method-12 () none)
|
||||
(rb-debugger-method-13 () none)
|
||||
(rb-debugger-method-14 () none)
|
||||
(rb-debugger-method-15 () none)
|
||||
(rb-debugger-method-16 () none)
|
||||
(rb-debugger-method-17 () none)
|
||||
(rb-debugger-method-18 () none)
|
||||
(rb-debugger-method-19 () none)
|
||||
(rb-debugger-method-20 () none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rb-debugger
|
||||
(defmethod inspect ((this rb-debugger))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-4)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rb-debugger)
|
||||
(format #t "~1Tuser-mode: ~D~%" (-> this user-mode))
|
||||
(format #t "~1Thook-control: ~D~%" (-> this hook-control))
|
||||
(format #t "~1Tflags: ~D~%" (-> this flags))
|
||||
(format #t "~1Ttarget-count: ~D~%" (-> this target-count))
|
||||
(format #t "~1Ttarget-array[8] @ #x~X~%" (-> this target-array))
|
||||
(format #t "~1Tpad0[256] @ #x~X~%" (-> this pad0))
|
||||
(format #t "~1Tplayback-index: ~D~%" (-> this playback-index))
|
||||
(format #t "~1Trecorder-index: ~D~%" (-> this recorder-index))
|
||||
(format #t "~1Tbegin-index: ~D~%" (-> this begin-index))
|
||||
(format #t "~1Tend-index: ~D~%" (-> this end-index))
|
||||
(format #t "~1Trecord-count: ~D~%" (-> this record-count))
|
||||
(format #t "~1Tbuffer-len: ~D~%" (-> this buffer-len))
|
||||
(format #t "~1Tbuffer-size: ~D~%" (-> this buffer-size))
|
||||
(format #t "~1Ttotal-size: ~D~%" (-> this total-size))
|
||||
(format #t "~1Tbuffer-start[0] @ #x~X~%" (-> this buffer-start))
|
||||
(label cfg-4)
|
||||
this
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+150
@@ -0,0 +1,150 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition of type rigid-body-surface
|
||||
(deftype rigid-body-surface (structure)
|
||||
((flags rigid-body-surface-flag)
|
||||
(surface-type surface-type)
|
||||
(friction float)
|
||||
(bounce float)
|
||||
(drag float)
|
||||
(depth float)
|
||||
(damage float)
|
||||
(scrape-sound uint16)
|
||||
(glance-sound uint16)
|
||||
(impact-sound uint16)
|
||||
(tire-roll-mix float 6)
|
||||
(tire-roll-hum float :overlay-at (-> tire-roll-mix 0))
|
||||
(tire-roll-dirt float :overlay-at (-> tire-roll-mix 1))
|
||||
(tire-roll-sand float :overlay-at (-> tire-roll-mix 2))
|
||||
(tire-roll-snow float :overlay-at (-> tire-roll-mix 3))
|
||||
(tire-roll-grass float :overlay-at (-> tire-roll-mix 4))
|
||||
(tire-roll-knobby float :overlay-at (-> tire-roll-mix 5))
|
||||
(tire-slide-mix float 2)
|
||||
(tire-slide-road float :overlay-at (-> tire-slide-mix 0))
|
||||
(tire-slide-dirt float :overlay-at (-> tire-slide-mix 1))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 3 of type rigid-body-surface
|
||||
(defmethod inspect ((this rigid-body-surface))
|
||||
(when (not this)
|
||||
(set! this this)
|
||||
(goto cfg-25)
|
||||
)
|
||||
(format #t "[~8x] ~A~%" this 'rigid-body-surface)
|
||||
(format #t "~1Tflags: #x~X : (rigid-body-surface-flag " (-> this flags))
|
||||
(let ((a0-3 (-> this flags)))
|
||||
(if (= (logand a0-3 (rigid-body-surface-flag moving)) (rigid-body-surface-flag moving))
|
||||
(format #t "moving ")
|
||||
)
|
||||
)
|
||||
(format #t ")~%")
|
||||
(let ((t9-4 format)
|
||||
(a0-7 #t)
|
||||
(a1-4 "~1Tsurface-type: #x~X : ~S~%")
|
||||
(a2-2 (-> this surface-type))
|
||||
(v1-5 (-> this surface-type))
|
||||
)
|
||||
(t9-4 a0-7 a1-4 a2-2 (cond
|
||||
((= v1-5 (surface-type wall))
|
||||
"wall"
|
||||
)
|
||||
((= v1-5 (surface-type grass))
|
||||
"grass"
|
||||
)
|
||||
((= v1-5 (surface-type snow))
|
||||
"snow"
|
||||
)
|
||||
((= v1-5 (surface-type stone))
|
||||
"stone"
|
||||
)
|
||||
((= v1-5 (surface-type dirt))
|
||||
"dirt"
|
||||
)
|
||||
((= v1-5 (surface-type water))
|
||||
"water"
|
||||
)
|
||||
((= v1-5 (surface-type ice))
|
||||
"ice"
|
||||
)
|
||||
((= v1-5 (surface-type none))
|
||||
"none"
|
||||
)
|
||||
((= v1-5 (surface-type sand))
|
||||
"sand"
|
||||
)
|
||||
(else
|
||||
"*unknown*"
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(format #t "~1Tfriction: ~f~%" (-> this friction))
|
||||
(format #t "~1Tbounce: ~f~%" (-> this bounce))
|
||||
(format #t "~1Tdrag: ~f~%" (-> this drag))
|
||||
(format #t "~1Tdepth: ~f~%" (-> this depth))
|
||||
(format #t "~1Tdamage: ~f~%" (-> this damage))
|
||||
(format #t "~1Tscrape-sound: ~D~%" (-> this scrape-sound))
|
||||
(format #t "~1Tglance-sound: ~D~%" (-> this glance-sound))
|
||||
(format #t "~1Timpact-sound: ~D~%" (-> this impact-sound))
|
||||
(format #t "~1Ttire-roll-mix[6] @ #x~X~%" (-> this tire-roll-mix))
|
||||
(format #t "~1Ttire-roll-hum: ~f~%" (-> this tire-roll-hum))
|
||||
(format #t "~1Ttire-roll-dirt: ~f~%" (-> this tire-roll-dirt))
|
||||
(format #t "~1Ttire-roll-sand: ~f~%" (-> this tire-roll-sand))
|
||||
(format #t "~1Ttire-roll-snow: ~f~%" (-> this tire-roll-snow))
|
||||
(format #t "~1Ttire-roll-grass: ~f~%" (-> this tire-roll-grass))
|
||||
(format #t "~1Ttire-roll-knobby: ~f~%" (-> this tire-roll-knobby))
|
||||
(format #t "~1Ttire-slide-mix[2] @ #x~X~%" (-> this tire-slide-mix))
|
||||
(format #t "~1Ttire-slide-road: ~f~%" (-> this tire-slide-road))
|
||||
(format #t "~1Ttire-slide-dirt: ~f~%" (-> this tire-slide-dirt))
|
||||
(label cfg-25)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for symbol *material-to-rb-material-table*, type (pointer int8)
|
||||
(define *material-to-rb-material-table*
|
||||
(new 'static 'array int8 34 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(let ((v1-2 *material-to-rb-material-table*))
|
||||
(dotimes (a0-2 34)
|
||||
(set! (-> v1-2 a0-2) 7)
|
||||
)
|
||||
(set! (-> v1-2 0) 6)
|
||||
(set! (-> v1-2 30) 6)
|
||||
(set! (-> v1-2 23) 0)
|
||||
(set! (-> v1-2 16) 0)
|
||||
(set! (-> v1-2 6) 0)
|
||||
(set! (-> v1-2 13) 0)
|
||||
(set! (-> v1-2 14) 0)
|
||||
(set! (-> v1-2 7) 1)
|
||||
(set! (-> v1-2 15) 2)
|
||||
(set! (-> v1-2 9) 4)
|
||||
(set! (-> v1-2 5) 3)
|
||||
(set! (-> v1-2 3) 3)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
;; definition for function rigid-body-surface-type-from-material
|
||||
;; WARN: Return type mismatch int vs surface-type.
|
||||
(defun rigid-body-surface-type-from-material ((arg0 int))
|
||||
(let ((v0-0 7))
|
||||
(let ((v1-0 (logand arg0 63)))
|
||||
(if (< v1-0 34)
|
||||
(set! v0-0 (the-as int (-> (the-as (pointer uint8) (&+ *material-to-rb-material-table* v1-0)))))
|
||||
)
|
||||
)
|
||||
(the-as surface-type v0-0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
+536
@@ -0,0 +1,536 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; definition for method 9 of type trajectory
|
||||
(defmethod compute-trans-at-time ((this trajectory) (arg0 float) (arg1 vector))
|
||||
(vector+float*! arg1 (-> this initial-position) (-> this initial-velocity) arg0)
|
||||
(+! (-> arg1 y) (* (/ arg0 2) arg0 (-> this gravity)))
|
||||
arg1
|
||||
)
|
||||
|
||||
;; definition for method 10 of type trajectory
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod compute-transv-at-time ((this trajectory) (arg0 float) (arg1 vector))
|
||||
(set! (-> arg1 quad) (-> this initial-velocity quad))
|
||||
(+! (-> arg1 y) (* arg0 (-> this gravity)))
|
||||
arg1
|
||||
)
|
||||
|
||||
;; definition for method 11 of type trajectory
|
||||
(defmethod compute-time-until-apex ((this trajectory))
|
||||
(/ (- (-> this initial-velocity y)) (-> this gravity))
|
||||
)
|
||||
|
||||
;; definition for method 12 of type trajectory
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod setup-from-to-duration! ((this trajectory) (arg0 vector) (arg1 vector) (arg2 float) (arg3 float))
|
||||
(set! (-> this initial-position quad) (-> arg0 quad))
|
||||
(set! (-> this gravity) arg3)
|
||||
(set! (-> this time) arg2)
|
||||
(let ((f0-3 (/ (vector-vector-xz-distance arg1 arg0) arg2)))
|
||||
(vector-! (-> this initial-velocity) arg1 arg0)
|
||||
(vector-xz-normalize! (-> this initial-velocity) f0-3)
|
||||
)
|
||||
(set! (-> this initial-velocity y) (- (/ (- (-> arg1 y) (-> arg0 y)) arg2) (* (/ arg2 2) (-> this gravity))))
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type trajectory
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod setup-from-to-xz-vel! ((this trajectory) (arg0 vector) (arg1 vector) (arg2 float) (arg3 float))
|
||||
(let ((f0-1 (/ (vector-vector-xz-distance arg1 arg0) arg2)))
|
||||
(setup-from-to-duration! this arg0 arg1 f0-1 arg3)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 14 of type trajectory
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod setup-from-to-y-vel! ((this trajectory) (arg0 vector) (arg1 vector) (arg2 float) (arg3 float))
|
||||
(let ((f1-3 (- (square arg2) (* 2.0 (- (-> arg0 y) (-> arg1 y)) arg3)))
|
||||
(f0-3 900.0)
|
||||
)
|
||||
(when (>= f1-3 0.0)
|
||||
(let ((f0-4 (sqrtf f1-3)))
|
||||
(set! f0-3 (fmax (/ (- (- arg2) f0-4) arg3) (/ (+ (- arg2) f0-4) arg3)))
|
||||
)
|
||||
)
|
||||
(setup-from-to-duration! this arg0 arg1 f0-3 arg3)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 15 of type trajectory
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod setup-from-to-height! ((this trajectory) (arg0 vector) (arg1 vector) (arg2 float) (arg3 float))
|
||||
(let* ((f0-1 (+ arg2 (fmax (-> arg0 y) (-> arg1 y))))
|
||||
(f1-4 (* 2.0 (- (-> arg0 y) f0-1) arg3))
|
||||
(f0-4 4096.0)
|
||||
)
|
||||
(if (< 0.0 f1-4)
|
||||
(set! f0-4 (sqrtf f1-4))
|
||||
)
|
||||
(setup-from-to-y-vel! this arg0 arg1 f0-4 arg3)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 16 of type trajectory
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
;; WARN: Function (method 16 trajectory) has a return type of none, but the expression builder found a return statement.
|
||||
(defmethod setup-from-to-duration-and-height! ((this trajectory) (arg0 vector) (arg1 vector) (arg2 float) (arg3 float))
|
||||
(let ((f0-1 (- (-> arg1 y) (-> arg0 y))))
|
||||
(cond
|
||||
((= f0-1 0.0)
|
||||
(setup-from-to-duration! this arg0 arg1 arg2 (/ (* -8.0 arg3) (square arg2)))
|
||||
(return 0)
|
||||
)
|
||||
((and (< 0.0 f0-1) (< 0.0 arg3) (< arg3 f0-1))
|
||||
(set! arg3 f0-1)
|
||||
)
|
||||
((and (< f0-1 0.0) (< arg3 0.0) (< f0-1 arg3))
|
||||
(set! arg3 f0-1)
|
||||
)
|
||||
)
|
||||
(let* ((f1-14 (/ (- arg3 f0-1) arg3))
|
||||
(f0-8 (* -2.0 (square (/ (- 1.0 f1-14) (- arg2 (* arg2 (sqrtf f1-14))))) arg3))
|
||||
)
|
||||
(setup-from-to-duration! this arg0 arg1 arg2 f0-8)
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(method-set!
|
||||
trajectory
|
||||
17
|
||||
(if *debug-segment*
|
||||
(lambda ((arg0 trajectory))
|
||||
(let ((s5-0 (new 'stack-no-clear 'vector))
|
||||
(s4-0 (new 'stack-no-clear 'vector))
|
||||
(s3-0 10)
|
||||
)
|
||||
(set! (-> s4-0 quad) (-> arg0 initial-position quad))
|
||||
(dotimes (s2-0 s3-0)
|
||||
(set! (-> s5-0 quad) (-> s4-0 quad))
|
||||
(let ((f0-1 (* (-> arg0 time) (/ (+ 1.0 (the float s2-0)) (the float s3-0)))))
|
||||
(compute-trans-at-time arg0 f0-1 s4-0)
|
||||
)
|
||||
(add-debug-line #t (bucket-id bucket785) s5-0 s4-0 (new 'static 'rgba :r #xff :a #x80) #f (the-as rgba -1))
|
||||
)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
nothing
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type impact-control
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod initialize ((this impact-control) (arg0 process-drawable) (arg1 int) (arg2 float) (arg3 collide-spec))
|
||||
(set! (-> this start-time) (the-as uint (current-time)))
|
||||
(set! (-> this process) (the-as (pointer process-drawable) (process->ppointer arg0)))
|
||||
(set! (-> this joint) arg1)
|
||||
(set! (-> this radius) arg2)
|
||||
(set! (-> this collide-with) (logclear arg3 (collide-spec water)))
|
||||
(set! (-> this trans 0 quad) (the-as uint128 0))
|
||||
(set! (-> this trans 1 quad) (the-as uint128 0))
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 10 of type impact-control
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod update-from-cspace ((this impact-control))
|
||||
(when (>= (-> this joint) 0)
|
||||
(set! (-> this trans 1 quad) (-> this trans 0 quad))
|
||||
(vector<-cspace! (-> this trans 0) (-> this process 0 node-list data (-> this joint)))
|
||||
(vector-! (-> this dir) (-> this trans 0) (-> this trans 1))
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
;; definition for method 11 of type impact-control
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod impact-control-method-11 ((this impact-control) (arg0 collide-query) (arg1 process) (arg2 pat-surface))
|
||||
(set! (-> arg0 start-pos quad) (-> this trans 1 quad))
|
||||
(set! (-> arg0 move-dist quad) (-> this dir quad))
|
||||
(let ((v1-2 (ppointer->process (-> this process)))
|
||||
(a0-6 arg0)
|
||||
)
|
||||
(set! (-> a0-6 radius) (-> this radius))
|
||||
(set! (-> a0-6 collide-with) (-> this collide-with))
|
||||
(set! (-> a0-6 ignore-process0) v1-2)
|
||||
(set! (-> a0-6 ignore-process1) #f)
|
||||
(set! (-> a0-6 ignore-pat) arg2)
|
||||
(set! (-> a0-6 action-mask) (collide-action solid))
|
||||
(set! (-> a0-6 best-other-prim) #f)
|
||||
)
|
||||
(let ((f30-0 (fill-and-probe-using-line-sphere *collide-cache* arg0)))
|
||||
(when (and arg1 (>= f30-0 0.0) (>= 0.0 (vector-dot (-> arg0 best-other-tri normal) (-> this dir))))
|
||||
(let ((s3-0 (new 'stack-no-clear 'touching-shapes-entry))
|
||||
(v1-12 (as-type (-> arg0 best-other-tri collide-ptr) collide-shape-prim))
|
||||
)
|
||||
(set! (-> s3-0 cshape1) #f)
|
||||
(set! (-> s3-0 cshape2) (if v1-12
|
||||
(-> (the-as collide-shape-prim v1-12) cshape)
|
||||
)
|
||||
)
|
||||
(set! (-> s3-0 resolve-u) (the int f30-0))
|
||||
(set! (-> s3-0 head) #f)
|
||||
(send-event
|
||||
arg1
|
||||
'impact-control
|
||||
:from (if v1-12
|
||||
(-> (the-as collide-shape-prim v1-12) cshape process)
|
||||
arg1
|
||||
)
|
||||
#f
|
||||
s3-0
|
||||
this
|
||||
arg0
|
||||
)
|
||||
)
|
||||
)
|
||||
f30-0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type point-tracker
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod initialize ((this point-tracker) (arg0 vector) (arg1 vector))
|
||||
(set! (-> this trans 0 quad) (-> arg0 quad))
|
||||
(set! (-> this trans 1 quad) (-> arg1 quad))
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 10 of type point-tracker
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod point-tracker-method-10 ((this point-tracker) (arg0 vector) (arg1 vector) (arg2 vector) (arg3 float))
|
||||
(cond
|
||||
((>= 0.0 arg3)
|
||||
(set! (-> arg0 quad) (-> arg1 quad))
|
||||
)
|
||||
((>= arg3 1.0)
|
||||
(set! (-> arg0 quad) (-> arg2 quad))
|
||||
)
|
||||
(else
|
||||
(let ((a1-2 (vector+float*! arg0 arg2 (vector-! (new 'stack-no-clear 'vector) arg1 arg2) (- 1.0 arg3))))
|
||||
(vector-lerp! arg0 a1-2 arg2 arg3)
|
||||
)
|
||||
)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for method 11 of type point-tracker
|
||||
(defmethod point-tracker-method-11 ((this point-tracker) (arg0 vector) (arg1 vector) (arg2 vector) (arg3 float))
|
||||
(with-pp
|
||||
(let ((v1-1 (point-tracker-method-10 this (new 'stack-no-clear 'vector) arg1 arg2 arg3)))
|
||||
(vector-! arg0 v1-1 arg1)
|
||||
)
|
||||
(vector-float*! arg0 arg0 (-> pp clock frames-per-second))
|
||||
arg0
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 13 of type combo-tracker
|
||||
;; WARN: Return type mismatch process vs process-focusable.
|
||||
(defmethod combo-tracker-method-13 ((this combo-tracker) (arg0 handle) (arg1 vector) (arg2 float) (arg3 vector) (arg4 float))
|
||||
(the-as process-focusable (cond
|
||||
((send-event (handle->process arg0) 'combo)
|
||||
(as-type (handle->process arg0) process-focusable)
|
||||
)
|
||||
(else
|
||||
(let ((s1-0 (new 'stack-no-clear 'sphere))
|
||||
(s2-1 (new 'stack 'boxed-array collide-shape 32))
|
||||
)
|
||||
(sphere<-vector+r! s1-0 arg1 arg2)
|
||||
(let ((t9-4 (method-of-object *actor-hash* spatial-hash-method-38)))
|
||||
(-> s2-1 data)
|
||||
(-> s2-1 allocated-length)
|
||||
(set! (-> s2-1 length) (the-as int (t9-4)))
|
||||
)
|
||||
(as-type
|
||||
(find-nearest-focusable
|
||||
(the-as (array collide-shape) s2-1)
|
||||
arg1
|
||||
arg2
|
||||
(if (= arg4 65536.0)
|
||||
(search-info-flag crate enemy combo)
|
||||
(search-info-flag crate enemy prefer-angle cull-angle combo)
|
||||
)
|
||||
(search-info-flag)
|
||||
arg3
|
||||
(the-as vector #f)
|
||||
arg4
|
||||
)
|
||||
process-focusable
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 12 of type combo-tracker
|
||||
(defmethod combo-tracker-method-12 ((this combo-tracker) (arg0 vector) (arg1 vector) (arg2 process) (arg3 time-frame))
|
||||
(initialize this arg0 arg1)
|
||||
(set! (-> this target) (process->handle arg2))
|
||||
(set! (-> this move-start-time) arg3)
|
||||
this
|
||||
)
|
||||
|
||||
;; definition for method 11 of type combo-tracker
|
||||
;; INFO: Used lq/sq
|
||||
(defmethod point-tracker-method-11 ((this combo-tracker) (arg0 vector) (arg1 vector) (arg2 vector) (arg3 float))
|
||||
(local-vars (at-0 int))
|
||||
(with-pp
|
||||
(rlet ((vf0 :class vf)
|
||||
(vf1 :class vf)
|
||||
(vf2 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(let ((v1-1 (point-tracker-method-10 this (new 'stack-no-clear 'vector) arg1 arg2 arg3)))
|
||||
(vector-! arg0 v1-1 arg1)
|
||||
)
|
||||
(let ((a1-4 (new 'stack-no-clear 'event-message-block)))
|
||||
(set! (-> a1-4 from) (process->ppointer pp))
|
||||
(set! (-> a1-4 num-params) 0)
|
||||
(set! (-> a1-4 message) 'nav-control)
|
||||
(let ((s4-1 (as-type (send-event-function (handle->process (-> this target)) a1-4) nav-control)))
|
||||
(when s4-1
|
||||
(cond
|
||||
(((method-of-type nav-control nav-control-method-11))
|
||||
(let ((t9-4 (method-of-type nav-control nav-control-method-20)))
|
||||
#x45000000
|
||||
(t9-4)
|
||||
)
|
||||
)
|
||||
(else
|
||||
(set! (-> arg0 quad) (the-as uint128 0))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(let ((v1-12 arg0))
|
||||
(.lvf vf1 (&-> arg0 quad))
|
||||
(let ((f0-0 (-> pp clock frames-per-second)))
|
||||
(.mov at-0 f0-0)
|
||||
)
|
||||
(.mov vf2 at-0)
|
||||
(.mov.vf.w vf1 vf0)
|
||||
(.mul.x.vf.xyz vf1 vf1 vf2)
|
||||
(.svf (&-> v1-12 quad) vf1)
|
||||
)
|
||||
arg0
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function traj2d-calc-initial-speed-using-tilt
|
||||
(defun traj2d-calc-initial-speed-using-tilt ((arg0 traj2d-params))
|
||||
(let ((f0-4 (* (- (* (-> arg0 x) (tan (-> arg0 initial-tilt))) (-> arg0 y)) (/ 2.0 (-> arg0 gravity)))))
|
||||
(cond
|
||||
((< 0.0 f0-4)
|
||||
(set! (-> arg0 time) (sqrtf f0-4))
|
||||
(set! (-> arg0 initial-speed) (/ (-> arg0 x) (* (-> arg0 time) (cos (-> arg0 initial-tilt)))))
|
||||
#t
|
||||
)
|
||||
(else
|
||||
(set! (-> arg0 time) 0.0)
|
||||
(set! (-> arg0 initial-speed) 0.0)
|
||||
#f
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function traj3d-calc-initial-velocity-using-tilt
|
||||
(defun traj3d-calc-initial-velocity-using-tilt ((arg0 traj3d-params))
|
||||
(vector-! (-> arg0 diff) (-> arg0 dest) (-> arg0 src))
|
||||
(let ((s5-0 (new 'stack-no-clear 'traj2d-params)))
|
||||
(let ((v1-1 (-> arg0 diff)))
|
||||
(set! (-> s5-0 x) (sqrtf (+ (* (-> v1-1 x) (-> v1-1 x)) (* (-> v1-1 z) (-> v1-1 z)))))
|
||||
)
|
||||
(set! (-> s5-0 y) (-> arg0 diff y))
|
||||
(set! (-> s5-0 gravity) (-> arg0 gravity))
|
||||
(set! (-> s5-0 initial-tilt) (-> arg0 initial-tilt))
|
||||
(cond
|
||||
((traj2d-calc-initial-speed-using-tilt s5-0)
|
||||
(set! (-> arg0 time) (-> s5-0 time))
|
||||
(let* ((f26-0 (atan (-> arg0 diff x) (-> arg0 diff z)))
|
||||
(f30-0 (-> arg0 initial-tilt))
|
||||
(f24-0 (cos f30-0))
|
||||
(f28-0 (-> s5-0 initial-speed))
|
||||
)
|
||||
(set! (-> arg0 initial-speed) f28-0)
|
||||
(set! (-> arg0 initial-velocity x) (* f28-0 f24-0 (sin f26-0)))
|
||||
(set! (-> arg0 initial-velocity z) (* f28-0 f24-0 (cos f26-0)))
|
||||
(set! (-> arg0 initial-velocity y) (* f28-0 (sin f30-0)))
|
||||
)
|
||||
(set! (-> arg0 initial-velocity w) 1.0)
|
||||
#t
|
||||
)
|
||||
(else
|
||||
(set! (-> arg0 time) 0.0)
|
||||
(set! (-> arg0 initial-speed) 0.0)
|
||||
(vector-reset! (-> arg0 initial-velocity))
|
||||
#f
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 9 of type cubic-curve
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod cubic-curve-method-9 ((this cubic-curve) (arg0 vector) (arg1 vector) (arg2 vector) (arg3 vector))
|
||||
(rlet ((acc :class vf)
|
||||
(vf0 :class vf)
|
||||
(vf4 :class vf)
|
||||
(vf5 :class vf)
|
||||
(vf6 :class vf)
|
||||
(vf7 :class vf)
|
||||
)
|
||||
(init-vf0-vector)
|
||||
(set! (-> this vec 0 quad) (-> arg0 quad))
|
||||
(set! (-> this mat uvec quad) (-> arg1 quad))
|
||||
(let ((v1-2 (new 'stack-no-clear 'trajectory)))
|
||||
(vector-! (-> v1-2 initial-velocity) arg2 arg0)
|
||||
(vector-float*! (-> v1-2 initial-position) (-> v1-2 initial-velocity) 3.0)
|
||||
(let ((t1-7 (-> v1-2 initial-position)))
|
||||
(let ((a1-3 (-> v1-2 initial-position)))
|
||||
(let ((a3-2 arg1))
|
||||
(let ((t2-1 -2.0))
|
||||
(.mov vf7 t2-1)
|
||||
)
|
||||
(.lvf vf5 (&-> a3-2 quad))
|
||||
)
|
||||
(.lvf vf4 (&-> a1-3 quad))
|
||||
)
|
||||
(.add.x.vf.w vf6 vf0 vf0)
|
||||
(.mul.x.vf.xyz acc vf5 vf7)
|
||||
(.add.mul.w.vf.xyz vf6 vf4 vf0 acc)
|
||||
(.svf (&-> t1-7 quad) vf6)
|
||||
)
|
||||
(vector-! (-> v1-2 initial-position) (-> v1-2 initial-position) arg3)
|
||||
(set! (-> this mat fvec quad) (-> v1-2 initial-position quad))
|
||||
(vector-float*! (-> v1-2 initial-position) (-> v1-2 initial-velocity) -2.0)
|
||||
(let ((a3-7 (-> v1-2 initial-position)))
|
||||
(.lvf vf4 (&-> (-> v1-2 initial-position) quad))
|
||||
(.lvf vf5 (&-> arg1 quad))
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a3-7 quad) vf6)
|
||||
)
|
||||
(let ((a2-1 (-> v1-2 initial-position)))
|
||||
(let ((a3-8 arg3))
|
||||
(.lvf vf4 (&-> (-> v1-2 initial-position) quad))
|
||||
(.lvf vf5 (&-> a3-8 quad))
|
||||
)
|
||||
(.mov.vf.w vf6 vf0)
|
||||
(.add.vf.xyz vf6 vf4 vf5)
|
||||
(.svf (&-> a2-1 quad) vf6)
|
||||
)
|
||||
(set! (-> this mat trans quad) (-> v1-2 initial-position quad))
|
||||
)
|
||||
(dotimes (v1-5 4)
|
||||
(set! (-> this vec v1-5 w) 0.0)
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for method 10 of type cubic-curve
|
||||
(defmethod cubic-curve-method-10 ((this cubic-curve) (arg0 vector) (arg1 float))
|
||||
(let ((v1-0 (new 'stack-no-clear 'trajectory)))
|
||||
(let ((f0-1 (* arg1 arg1)))
|
||||
(set-vector! (-> v1-0 initial-position) 1.0 arg1 f0-1 (* f0-1 arg1))
|
||||
)
|
||||
(vector-matrix*! arg0 (-> v1-0 initial-position) (the-as matrix (-> this vec)))
|
||||
)
|
||||
(set! (-> arg0 w) 1.0)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for method 11 of type cubic-curve
|
||||
(defmethod cubic-curve-method-11 ((this cubic-curve) (arg0 vector) (arg1 float))
|
||||
(let ((v1-0 (new 'stack-no-clear 'trajectory)))
|
||||
(set-vector! (-> v1-0 initial-position) 0.0 1.0 (* 2.0 arg1) (* 3.0 arg1 arg1))
|
||||
(vector-matrix*! arg0 (-> v1-0 initial-position) (the-as matrix (-> this vec)))
|
||||
)
|
||||
(set! (-> arg0 w) 1.0)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for method 12 of type cubic-curve
|
||||
(defmethod cubic-curve-method-12 ((this cubic-curve) (arg0 vector) (arg1 float))
|
||||
(let ((v1-0 (new 'stack-no-clear 'trajectory)))
|
||||
(set-vector! (-> v1-0 initial-position) 0.0 0.0 2.0 (* 6.0 arg1))
|
||||
(vector-matrix*! arg0 (-> v1-0 initial-position) (the-as matrix (-> this vec)))
|
||||
)
|
||||
(set! (-> arg0 w) 1.0)
|
||||
arg0
|
||||
)
|
||||
|
||||
;; definition for method 13 of type cubic-curve
|
||||
;; INFO: Used lq/sq
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(defmethod debug-draw-curve ((this cubic-curve))
|
||||
(let ((s5-0 (new 'stack-no-clear 'trajectory))
|
||||
(s4-0 10)
|
||||
)
|
||||
(cubic-curve-method-10 this (-> s5-0 initial-velocity) 0.0)
|
||||
(add-debug-x #t (bucket-id bucket785) (-> s5-0 initial-velocity) *color-red*)
|
||||
(dotimes (s3-0 s4-0)
|
||||
(set! (-> s5-0 initial-position quad) (-> s5-0 initial-velocity quad))
|
||||
(let ((f0-2 (/ (+ 1.0 (the float s3-0)) (the float s4-0))))
|
||||
(cubic-curve-method-10 this (-> s5-0 initial-velocity) f0-2)
|
||||
)
|
||||
(add-debug-x #t (bucket-id bucket785) (-> s5-0 initial-velocity) *color-red*)
|
||||
(add-debug-line
|
||||
#t
|
||||
(bucket-id bucket785)
|
||||
(-> s5-0 initial-position)
|
||||
(-> s5-0 initial-velocity)
|
||||
*color-red*
|
||||
#f
|
||||
(the-as rgba -1)
|
||||
)
|
||||
)
|
||||
)
|
||||
(add-debug-vector
|
||||
#t
|
||||
(bucket-id bucket785)
|
||||
(cubic-curve-method-10 this (new 'stack-no-clear 'vector) 0.0)
|
||||
(cubic-curve-method-11 this (new 'stack-no-clear 'vector) 0.0)
|
||||
(meters 0.00024414062)
|
||||
*color-white*
|
||||
)
|
||||
(add-debug-vector
|
||||
#t
|
||||
(bucket-id bucket785)
|
||||
(cubic-curve-method-10 this (new 'stack-no-clear 'vector) 1.0)
|
||||
(vector-negate! (new 'stack-no-clear 'vector) (cubic-curve-method-11 this (new 'stack-no-clear 'vector) 1.0))
|
||||
(meters 0.00024414062)
|
||||
*color-white*
|
||||
)
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+4
@@ -300,3 +300,7 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1537
File diff suppressed because it is too large
Load Diff
+2
-2
@@ -35,7 +35,7 @@
|
||||
|
||||
;; definition of type speech-info
|
||||
(deftype speech-info (structure)
|
||||
((list basic)
|
||||
((list (array speech-info-item))
|
||||
(flags speech-info-flag)
|
||||
)
|
||||
(:methods
|
||||
@@ -98,7 +98,7 @@
|
||||
(time uint64)
|
||||
(current-request speech-request)
|
||||
(requests basic)
|
||||
(speeches speech-info-item 31)
|
||||
(speeches speech-info 31)
|
||||
)
|
||||
(:methods
|
||||
(speech-channel-method-9 () none)
|
||||
|
||||
+463
@@ -0,0 +1,463 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash110r")
|
||||
(new 'static 'speech-info-item :name "ash113r")
|
||||
(new 'static 'speech-info-item :name "ash118r")
|
||||
(new 'static 'speech-info-item :name "ash121r")
|
||||
(new 'static 'speech-info-item :name "ash122r")
|
||||
(new 'static 'speech-info-item :name "ash123r")
|
||||
(new 'static 'speech-info-item :name "ash124r")
|
||||
(new 'static 'speech-info-item :name "ash125r")
|
||||
(new 'static 'speech-info-item :name "ash126r")
|
||||
(new 'static 'speech-info-item :name "ash127r")
|
||||
(new 'static 'speech-info-item :name "ash128r")
|
||||
(new 'static 'speech-info-item :name "ash129r")
|
||||
(new 'static 'speech-info-item :name "ash130r")
|
||||
(new 'static 'speech-info-item :name "ash131r")
|
||||
(new 'static 'speech-info-item :name "ash132r")
|
||||
(new 'static 'speech-info-item :name "ash133r")
|
||||
(new 'static 'speech-info-item :name "ash137r")
|
||||
(new 'static 'speech-info-item :name "ash138r")
|
||||
(new 'static 'speech-info-item :name "ash140r")
|
||||
(new 'static 'speech-info-item :name "ash141r")
|
||||
(new 'static 'speech-info-item :name "ash142r")
|
||||
(new 'static 'speech-info-item :name "ash143r")
|
||||
(new 'static 'speech-info-item :name "ash144r")
|
||||
(new 'static 'speech-info-item :name "ash145r")
|
||||
(new 'static 'speech-info-item :name "ash146r")
|
||||
(new 'static 'speech-info-item :name "ash147r")
|
||||
(new 'static 'speech-info-item :name "ash148r")
|
||||
(new 'static 'speech-info-item :name "ash149r")
|
||||
(new 'static 'speech-info-item :name "ash150r")
|
||||
(new 'static 'speech-info-item :name "ash151r")
|
||||
(new 'static 'speech-info-item :name "ash152r")
|
||||
(new 'static 'speech-info-item :name "ash153r")
|
||||
(new 'static 'speech-info-item :name "ash154r")
|
||||
(new 'static 'speech-info-item :name "ash156r")
|
||||
(new 'static 'speech-info-item :name "ash157r")
|
||||
(new 'static 'speech-info-item :name "ash158r")
|
||||
(new 'static 'speech-info-item :name "ash161r")
|
||||
(new 'static 'speech-info-item :name "ash162r")
|
||||
(new 'static 'speech-info-item :name "ash196r")
|
||||
(new 'static 'speech-info-item :name "ash208r")
|
||||
(new 'static 'speech-info-item :name "ash280r")
|
||||
(new 'static 'speech-info-item :name "ash281r")
|
||||
(new 'static 'speech-info-item :name "ash283r")
|
||||
(new 'static 'speech-info-item :name "ash284r")
|
||||
(new 'static 'speech-info-item :name "ash285r")
|
||||
(new 'static 'speech-info-item :name "ash288r")
|
||||
(new 'static 'speech-info-item :name "ash289r")
|
||||
(new 'static 'speech-info-item :name "ash290r")
|
||||
(new 'static 'speech-info-item :name "ash292r")
|
||||
(new 'static 'speech-info-item :name "ash293r")
|
||||
(new 'static 'speech-info-item :name "ash324r")
|
||||
(new 'static 'speech-info-item :name "ash325r")
|
||||
(new 'static 'speech-info-item :name "ash326r")
|
||||
(new 'static 'speech-info-item :name "ash327r")
|
||||
(new 'static 'speech-info-item :name "ash328r")
|
||||
(new 'static 'speech-info-item :name "ash329r")
|
||||
(new 'static 'speech-info-item :name "ash331r")
|
||||
(new 'static 'speech-info-item :name "ash332r")
|
||||
(new 'static 'speech-info-item :name "ash333r")
|
||||
(new 'static 'speech-info-item :name "ash334r")
|
||||
(new 'static 'speech-info-item :name "ash335r")
|
||||
(new 'static 'speech-info-item :name "ash336r")
|
||||
(new 'static 'speech-info-item :name "ash337r")
|
||||
(new 'static 'speech-info-item :name "ash338r")
|
||||
(new 'static 'speech-info-item :name "ash339r")
|
||||
(new 'static 'speech-info-item :name "ash340r")
|
||||
(new 'static 'speech-info-item :name "ash341r")
|
||||
(new 'static 'speech-info-item :name "ash342r")
|
||||
(new 'static 'speech-info-item :name "ash343r")
|
||||
(new 'static 'speech-info-item :name "ash344r")
|
||||
(new 'static 'speech-info-item :name "ash182r")
|
||||
(new 'static 'speech-info-item :name "ash183r")
|
||||
(new 'static 'speech-info-item :name "ash184r")
|
||||
(new 'static 'speech-info-item :name "ash186r")
|
||||
(new 'static 'speech-info-item :name "ash187r")
|
||||
(new 'static 'speech-info-item :name "ash168r")
|
||||
(new 'static 'speech-info-item :name "ash219r")
|
||||
(new 'static 'speech-info-item :name "ash189r")
|
||||
(new 'static 'speech-info-item :name "ash225r")
|
||||
(new 'static 'speech-info-item :name "ash226r")
|
||||
(new 'static 'speech-info-item :name "ash229r")
|
||||
(new 'static 'speech-info-item :name "ash230r")
|
||||
(new 'static 'speech-info-item :name "ash231r")
|
||||
(new 'static 'speech-info-item :name "ash239r")
|
||||
(new 'static 'speech-info-item :name "ash243r")
|
||||
(new 'static 'speech-info-item :name "ash244r")
|
||||
(new 'static 'speech-info-item :name "ash147r")
|
||||
(new 'static 'speech-info-item :name "ash148r")
|
||||
(new 'static 'speech-info-item :name "ash149r")
|
||||
(new 'static 'speech-info-item :name "ash150r")
|
||||
(new 'static 'speech-info-item :name "ash151r")
|
||||
(new 'static 'speech-info-item :name "ash253r")
|
||||
(new 'static 'speech-info-item :name "ash255r")
|
||||
(new 'static 'speech-info-item :name "ash256r")
|
||||
(new 'static 'speech-info-item :name "ash257r")
|
||||
(new 'static 'speech-info-item :name "ash264r")
|
||||
(new 'static 'speech-info-item :name "ash273r")
|
||||
(new 'static 'speech-info-item :name "ash274r")
|
||||
(new 'static 'speech-info-item :name "ash275r")
|
||||
(new 'static 'speech-info-item :name "ash276r")
|
||||
(new 'static 'speech-info-item :name "ash107r")
|
||||
(new 'static 'speech-info-item :name "ash313r")
|
||||
(new 'static 'speech-info-item :name "ash108r")
|
||||
(new 'static 'speech-info-item :name "ash116r")
|
||||
(new 'static 'speech-info-item :name "ash287r")
|
||||
(new 'static 'speech-info-item :name "ash317r")
|
||||
(new 'static 'speech-info-item :name "ash319r")
|
||||
(new 'static 'speech-info-item :name "ash321r")
|
||||
(new 'static 'speech-info-item :name "ash168r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash164r")
|
||||
(new 'static 'speech-info-item :name "ash165r")
|
||||
(new 'static 'speech-info-item :name "ash166r")
|
||||
(new 'static 'speech-info-item :name "ash167r")
|
||||
(new 'static 'speech-info-item :name "ash169r")
|
||||
(new 'static 'speech-info-item :name "ash170r")
|
||||
(new 'static 'speech-info-item :name "ash171r")
|
||||
(new 'static 'speech-info-item :name "ash172r")
|
||||
(new 'static 'speech-info-item :name "ash173r")
|
||||
(new 'static 'speech-info-item :name "ash174r")
|
||||
(new 'static 'speech-info-item :name "ash175r")
|
||||
(new 'static 'speech-info-item :name "ash176r")
|
||||
(new 'static 'speech-info-item :name "ash177r")
|
||||
(new 'static 'speech-info-item :name "ash178r")
|
||||
(new 'static 'speech-info-item :name "ash179r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "ash180r")
|
||||
(new 'static 'speech-info-item :name "ash181r")
|
||||
(new 'static 'speech-info-item :name "ash117r")
|
||||
(new 'static 'speech-info-item :name "ash119r")
|
||||
(new 'static 'speech-info-item :name "ash163r")
|
||||
(new 'static 'speech-info-item :name "ash282r")
|
||||
(new 'static 'speech-info-item :name "ash286r")
|
||||
(new 'static 'speech-info-item :name "ash291r")
|
||||
(new 'static 'speech-info-item :name "ash330r")
|
||||
(new 'static 'speech-info-item :name "ash209r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash185r")
|
||||
(new 'static 'speech-info-item :name "ash188r")
|
||||
(new 'static 'speech-info-item :name "ash190r")
|
||||
(new 'static 'speech-info-item :name "ash191r")
|
||||
(new 'static 'speech-info-item :name "ash192r")
|
||||
(new 'static 'speech-info-item :name "ash193r")
|
||||
(new 'static 'speech-info-item :name "ash194r")
|
||||
(new 'static 'speech-info-item :name "ash195r")
|
||||
(new 'static 'speech-info-item :name "ash197r")
|
||||
(new 'static 'speech-info-item :name "ash198r")
|
||||
(new 'static 'speech-info-item :name "ash134r")
|
||||
(new 'static 'speech-info-item :name "ash135r")
|
||||
(new 'static 'speech-info-item :name "ash136r")
|
||||
(new 'static 'speech-info-item :name "ash139r")
|
||||
(new 'static 'speech-info-item :name "ash155r")
|
||||
(new 'static 'speech-info-item :name "ash214r")
|
||||
(new 'static 'speech-info-item :name "ash215r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 5)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash199r")
|
||||
(new 'static 'speech-info-item :name "ash200r")
|
||||
(new 'static 'speech-info-item :name "ash201r")
|
||||
(new 'static 'speech-info-item :name "ash202r")
|
||||
(new 'static 'speech-info-item :name "ash203r")
|
||||
(new 'static 'speech-info-item :name "ash204r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "ash205r")
|
||||
(new 'static 'speech-info-item :name "ash206r")
|
||||
(new 'static 'speech-info-item :name "ash207r")
|
||||
(new 'static 'speech-info-item :name "ash210r")
|
||||
(new 'static 'speech-info-item :name "ash211r")
|
||||
(new 'static 'speech-info-item :name "ash212r")
|
||||
(new 'static 'speech-info-item :name "ash213r")
|
||||
(new 'static 'speech-info-item :name "ash216r")
|
||||
(new 'static 'speech-info-item :name "ash217r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash218r")
|
||||
(new 'static 'speech-info-item :name "ash220r")
|
||||
(new 'static 'speech-info-item :name "ash221r")
|
||||
(new 'static 'speech-info-item :name "ash222r")
|
||||
(new 'static 'speech-info-item :name "ash223r")
|
||||
(new 'static 'speech-info-item :name "ash224r")
|
||||
(new 'static 'speech-info-item :name "ash227r")
|
||||
(new 'static 'speech-info-item :name "ash228r")
|
||||
(new 'static 'speech-info-item :name "ash232r")
|
||||
(new 'static 'speech-info-item :name "ash233r")
|
||||
(new 'static 'speech-info-item :name "ash234r")
|
||||
(new 'static 'speech-info-item :name "ash235r")
|
||||
(new 'static 'speech-info-item :name "ash236r")
|
||||
(new 'static 'speech-info-item :name "ash237r")
|
||||
(new 'static 'speech-info-item :name "ash238r")
|
||||
(new 'static 'speech-info-item :name "ash240r")
|
||||
(new 'static 'speech-info-item :name "ash241r")
|
||||
(new 'static 'speech-info-item :name "ash242r")
|
||||
(new 'static 'speech-info-item :name "ash245r")
|
||||
(new 'static 'speech-info-item :name "ash246r")
|
||||
(new 'static 'speech-info-item :name "ash115r")
|
||||
(new 'static 'speech-info-item :name "ash120r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 10)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash252r")
|
||||
(new 'static 'speech-info-item :name "ash254r")
|
||||
(new 'static 'speech-info-item :name "ash258r")
|
||||
(new 'static 'speech-info-item :name "ash259r")
|
||||
(new 'static 'speech-info-item :name "ash260r")
|
||||
(new 'static 'speech-info-item :name "ash261r")
|
||||
(new 'static 'speech-info-item :name "ash262r")
|
||||
(new 'static 'speech-info-item :name "ash263r")
|
||||
(new 'static 'speech-info-item :name "ash265r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "ash266r")
|
||||
(new 'static 'speech-info-item :name "ash267r")
|
||||
(new 'static 'speech-info-item :name "ash268r")
|
||||
(new 'static 'speech-info-item :name "ash269r")
|
||||
(new 'static 'speech-info-item :name "ash160r")
|
||||
(new 'static 'speech-info-item :name "ash159r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash270r")
|
||||
(new 'static 'speech-info-item :name "ash271r")
|
||||
(new 'static 'speech-info-item :name "ash272r")
|
||||
(new 'static 'speech-info-item :name "ash277r")
|
||||
(new 'static 'speech-info-item :name "ash278r")
|
||||
(new 'static 'speech-info-item :name "ash279r")
|
||||
(new 'static 'speech-info-item :name "ash101r")
|
||||
(new 'static 'speech-info-item :name "ash102r")
|
||||
(new 'static 'speech-info-item :name "ash103r")
|
||||
(new 'static 'speech-info-item :name "ash104r")
|
||||
(new 'static 'speech-info-item :name "ash105r")
|
||||
(new 'static 'speech-info-item :name "ash106r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "ash294r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash295r")
|
||||
(new 'static 'speech-info-item :name "ash296r")
|
||||
(new 'static 'speech-info-item :name "ash297r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash298r")
|
||||
(new 'static 'speech-info-item :name "ash299r")
|
||||
(new 'static 'speech-info-item :name "ash300r")
|
||||
(new 'static 'speech-info-item :name "ash301r")
|
||||
(new 'static 'speech-info-item :name "ash302r")
|
||||
(new 'static 'speech-info-item :name "ash303r")
|
||||
(new 'static 'speech-info-item :name "ash304r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash305r")
|
||||
(new 'static 'speech-info-item :name "ash306r")
|
||||
(new 'static 'speech-info-item :name "ash307r")
|
||||
(new 'static 'speech-info-item :name "ash308r")
|
||||
(new 'static 'speech-info-item :name "ash309r")
|
||||
(new 'static 'speech-info-item :name "ash310r")
|
||||
(new 'static 'speech-info-item :name "ash311r")
|
||||
(new 'static 'speech-info-item :name "ash312r")
|
||||
(new 'static 'speech-info-item :name "ash314r")
|
||||
(new 'static 'speech-info-item :name "ash315r")
|
||||
(new 'static 'speech-info-item :name "ash109r")
|
||||
(new 'static 'speech-info-item :name "ash111r")
|
||||
(new 'static 'speech-info-item :name "ash112r")
|
||||
(new 'static 'speech-info-item :name "ash114r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash316r")
|
||||
(new 'static 'speech-info-item :name "ash318r")
|
||||
(new 'static 'speech-info-item :name "ash320r")
|
||||
(new 'static 'speech-info-item :name "ash322r")
|
||||
(new 'static 'speech-info-item :name "ash323r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash305r")
|
||||
(new 'static 'speech-info-item :name "ash306r")
|
||||
(new 'static 'speech-info-item :name "ash307r")
|
||||
(new 'static 'speech-info-item :name "ash308r")
|
||||
(new 'static 'speech-info-item :name "ash309r")
|
||||
(new 'static 'speech-info-item :name "ash310r")
|
||||
(new 'static 'speech-info-item :name "ash311r")
|
||||
(new 'static 'speech-info-item :name "ash312r")
|
||||
(new 'static 'speech-info-item :name "ash314r")
|
||||
(new 'static 'speech-info-item :name "ash315r")
|
||||
(new 'static 'speech-info-item :name "ash109r")
|
||||
(new 'static 'speech-info-item :name "ash111r")
|
||||
(new 'static 'speech-info-item :name "ash112r")
|
||||
(new 'static 'speech-info-item :name "ash114r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash316r")
|
||||
(new 'static 'speech-info-item :name "ash318r")
|
||||
(new 'static 'speech-info-item :name "ash320r")
|
||||
(new 'static 'speech-info-item :name "ash322r")
|
||||
(new 'static 'speech-info-item :name "ash323r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash345r")
|
||||
(new 'static 'speech-info-item :name "ash346r")
|
||||
(new 'static 'speech-info-item :name "ash347r")
|
||||
(new 'static 'speech-info-item :name "ash348r")
|
||||
(new 'static 'speech-info-item :name "ash349r")
|
||||
(new 'static 'speech-info-item :name "ash108r")
|
||||
(new 'static 'speech-info-item :name "ash112r")
|
||||
(new 'static 'speech-info-item :name "ash114r")
|
||||
(new 'static 'speech-info-item :name "ash115r")
|
||||
(new 'static 'speech-info-item :name "ash116r")
|
||||
(new 'static 'speech-info-item :name "ash118r")
|
||||
(new 'static 'speech-info-item :name "ash121r")
|
||||
(new 'static 'speech-info-item :name "ash149r")
|
||||
(new 'static 'speech-info-item :name "ash191r")
|
||||
(new 'static 'speech-info-item :name "ash192r")
|
||||
(new 'static 'speech-info-item :name "ash193r")
|
||||
(new 'static 'speech-info-item :name "ash194r")
|
||||
(new 'static 'speech-info-item :name "ash197r")
|
||||
(new 'static 'speech-info-item :name "ash199r")
|
||||
(new 'static 'speech-info-item :name "ash200r")
|
||||
(new 'static 'speech-info-item :name "ash201r")
|
||||
(new 'static 'speech-info-item :name "ash205r")
|
||||
(new 'static 'speech-info-item :name "ash206r")
|
||||
(new 'static 'speech-info-item :name "ash210r")
|
||||
(new 'static 'speech-info-item :name "ash211r")
|
||||
(new 'static 'speech-info-item :name "ash212r")
|
||||
(new 'static 'speech-info-item :name "ash213r")
|
||||
(new 'static 'speech-info-item :name "ash215r")
|
||||
(new 'static 'speech-info-item :name "ash216r")
|
||||
(new 'static 'speech-info-item :name "ash222r")
|
||||
(new 'static 'speech-info-item :name "ash223r")
|
||||
(new 'static 'speech-info-item :name "ash224r")
|
||||
(new 'static 'speech-info-item :name "ash227r")
|
||||
(new 'static 'speech-info-item :name "ash241r")
|
||||
(new 'static 'speech-info-item :name "ash264r")
|
||||
(new 'static 'speech-info-item :name "ash287r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash106r")
|
||||
(new 'static 'speech-info-item :name "ash107r")
|
||||
(new 'static 'speech-info-item :name "ash198r")
|
||||
(new 'static 'speech-info-item :name "ash256r")
|
||||
(new 'static 'speech-info-item :name "ash257r")
|
||||
(new 'static 'speech-info-item :name "ash258r")
|
||||
(new 'static 'speech-info-item :name "ash259r")
|
||||
(new 'static 'speech-info-item :name "ash261r")
|
||||
(new 'static 'speech-info-item :name "ash262r")
|
||||
(new 'static 'speech-info-item :name "ash265r")
|
||||
(new 'static 'speech-info-item :name "ash266r")
|
||||
(new 'static 'speech-info-item :name "ash267r")
|
||||
(new 'static 'speech-info-item :name "ash268r")
|
||||
(new 'static 'speech-info-item :name "ash270r")
|
||||
(new 'static 'speech-info-item :name "ash273r")
|
||||
(new 'static 'speech-info-item :name "ash274r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 4 speeches 16)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ash164r")
|
||||
(new 'static 'speech-info-item :name "ash166r")
|
||||
(new 'static 'speech-info-item :name "ash167r")
|
||||
(new 'static 'speech-info-item :name "ash169r")
|
||||
(new 'static 'speech-info-item :name "ash170r")
|
||||
(new 'static 'speech-info-item :name "ash172r")
|
||||
(new 'static 'speech-info-item :name "ash173r")
|
||||
(new 'static 'speech-info-item :name "ash174r")
|
||||
(new 'static 'speech-info-item :name "ash176r")
|
||||
(new 'static 'speech-info-item :name "ash177r")
|
||||
(new 'static 'speech-info-item :name "ash178r")
|
||||
(new 'static 'speech-info-item :name "ash179r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "ash180r")
|
||||
(new 'static 'speech-info-item :name "ash181r")
|
||||
(new 'static 'speech-info-item :name "ash119r")
|
||||
(new 'static 'speech-info-item :name "ash163r")
|
||||
(new 'static 'speech-info-item :name "ash282r")
|
||||
(new 'static 'speech-info-item :name "ash291r")
|
||||
(new 'static 'speech-info-item :name "ash330r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+508
@@ -0,0 +1,508 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax106r")
|
||||
(new 'static 'speech-info-item :name "dax107r")
|
||||
(new 'static 'speech-info-item :name "dax108r")
|
||||
(new 'static 'speech-info-item :name "dax109r")
|
||||
(new 'static 'speech-info-item :name "dax111r")
|
||||
(new 'static 'speech-info-item :name "dax112r")
|
||||
(new 'static 'speech-info-item :name "dax113r")
|
||||
(new 'static 'speech-info-item :name "dax114r")
|
||||
(new 'static 'speech-info-item :name "dax125r")
|
||||
(new 'static 'speech-info-item :name "dax127r")
|
||||
(new 'static 'speech-info-item :name "dax128r")
|
||||
(new 'static 'speech-info-item :name "dax129r")
|
||||
(new 'static 'speech-info-item :name "dax130r")
|
||||
(new 'static 'speech-info-item :name "dax131r")
|
||||
(new 'static 'speech-info-item :name "dax132r")
|
||||
(new 'static 'speech-info-item :name "dax133r")
|
||||
(new 'static 'speech-info-item :name "dax135r")
|
||||
(new 'static 'speech-info-item :name "dax136r")
|
||||
(new 'static 'speech-info-item :name "dax137r")
|
||||
(new 'static 'speech-info-item :name "dax138r")
|
||||
(new 'static 'speech-info-item :name "dax139r")
|
||||
(new 'static 'speech-info-item :name "dax142r")
|
||||
(new 'static 'speech-info-item :name "dax143r")
|
||||
(new 'static 'speech-info-item :name "dax144r")
|
||||
(new 'static 'speech-info-item :name "dax145r")
|
||||
(new 'static 'speech-info-item :name "dax146r")
|
||||
(new 'static 'speech-info-item :name "dax147r")
|
||||
(new 'static 'speech-info-item :name "dax150r")
|
||||
(new 'static 'speech-info-item :name "dax159r")
|
||||
(new 'static 'speech-info-item :name "dax160r")
|
||||
(new 'static 'speech-info-item :name "dax161r")
|
||||
(new 'static 'speech-info-item :name "dax162r")
|
||||
(new 'static 'speech-info-item :name "dax164r")
|
||||
(new 'static 'speech-info-item :name "dax223r")
|
||||
(new 'static 'speech-info-item :name "dax224r")
|
||||
(new 'static 'speech-info-item :name "dax225r")
|
||||
(new 'static 'speech-info-item :name "dax254r")
|
||||
(new 'static 'speech-info-item :name "dax256r")
|
||||
(new 'static 'speech-info-item :name "dax339r")
|
||||
(new 'static 'speech-info-item :name "dax340r")
|
||||
(new 'static 'speech-info-item :name "dax341r")
|
||||
(new 'static 'speech-info-item :name "dax342r")
|
||||
(new 'static 'speech-info-item :name "dax343r")
|
||||
(new 'static 'speech-info-item :name "dax344r")
|
||||
(new 'static 'speech-info-item :name "dax345r")
|
||||
(new 'static 'speech-info-item :name "dax346r")
|
||||
(new 'static 'speech-info-item :name "dax347r")
|
||||
(new 'static 'speech-info-item :name "dax348r")
|
||||
(new 'static 'speech-info-item :name "dax351r")
|
||||
(new 'static 'speech-info-item :name "dax352r")
|
||||
(new 'static 'speech-info-item :name "dax353r")
|
||||
(new 'static 'speech-info-item :name "dax354r")
|
||||
(new 'static 'speech-info-item :name "dax355r")
|
||||
(new 'static 'speech-info-item :name "dax356r")
|
||||
(new 'static 'speech-info-item :name "dax402r")
|
||||
(new 'static 'speech-info-item :name "dax403r")
|
||||
(new 'static 'speech-info-item :name "dax404r")
|
||||
(new 'static 'speech-info-item :name "dax405r")
|
||||
(new 'static 'speech-info-item :name "dax409r")
|
||||
(new 'static 'speech-info-item :name "dax410r")
|
||||
(new 'static 'speech-info-item :name "dax413r")
|
||||
(new 'static 'speech-info-item :name "dax414r")
|
||||
(new 'static 'speech-info-item :name "dax416r")
|
||||
(new 'static 'speech-info-item :name "dax420r")
|
||||
(new 'static 'speech-info-item :name "dax421r")
|
||||
(new 'static 'speech-info-item :name "dax422r")
|
||||
(new 'static 'speech-info-item :name "dax423r")
|
||||
(new 'static 'speech-info-item :name "dax425r")
|
||||
(new 'static 'speech-info-item :name "dax426r")
|
||||
(new 'static 'speech-info-item :name "dax427r")
|
||||
(new 'static 'speech-info-item :name "dax428r")
|
||||
(new 'static 'speech-info-item :name "dax328r")
|
||||
(new 'static 'speech-info-item :name "dax329r")
|
||||
(new 'static 'speech-info-item :name "dax330r")
|
||||
(new 'static 'speech-info-item :name "dax332r")
|
||||
(new 'static 'speech-info-item :name "dax335r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax124r")
|
||||
(new 'static 'speech-info-item :name "dax173r")
|
||||
(new 'static 'speech-info-item :name "dax174r")
|
||||
(new 'static 'speech-info-item :name "dax175r")
|
||||
(new 'static 'speech-info-item :name "dax176r")
|
||||
(new 'static 'speech-info-item :name "dax177r")
|
||||
(new 'static 'speech-info-item :name "dax178r")
|
||||
(new 'static 'speech-info-item :name "dax179r")
|
||||
(new 'static 'speech-info-item :name "dax180r")
|
||||
(new 'static 'speech-info-item :name "dax181r")
|
||||
(new 'static 'speech-info-item :name "dax182r")
|
||||
(new 'static 'speech-info-item :name "dax183r")
|
||||
(new 'static 'speech-info-item :name "dax184r")
|
||||
(new 'static 'speech-info-item :name "dax185r")
|
||||
(new 'static 'speech-info-item :name "dax186r")
|
||||
(new 'static 'speech-info-item :name "dax187r")
|
||||
(new 'static 'speech-info-item :name "dax188r")
|
||||
(new 'static 'speech-info-item :name "dax189r")
|
||||
(new 'static 'speech-info-item :name "dax190r")
|
||||
(new 'static 'speech-info-item :name "dax191r")
|
||||
(new 'static 'speech-info-item :name "dax192r")
|
||||
(new 'static 'speech-info-item :name "dax193r")
|
||||
(new 'static 'speech-info-item :name "dax194r")
|
||||
(new 'static 'speech-info-item :name "dax195r")
|
||||
(new 'static 'speech-info-item :name "dax196r")
|
||||
(new 'static 'speech-info-item :name "dax197r")
|
||||
(new 'static 'speech-info-item :name "dax198r")
|
||||
(new 'static 'speech-info-item :name "dax199r")
|
||||
(new 'static 'speech-info-item :name "dax200r")
|
||||
(new 'static 'speech-info-item :name "dax201r")
|
||||
(new 'static 'speech-info-item :name "dax202r")
|
||||
(new 'static 'speech-info-item :name "dax203r")
|
||||
(new 'static 'speech-info-item :name "dax204r")
|
||||
(new 'static 'speech-info-item :name "dax205r")
|
||||
(new 'static 'speech-info-item :name "dax206r")
|
||||
(new 'static 'speech-info-item :name "dax207r")
|
||||
(new 'static 'speech-info-item :name "dax208r")
|
||||
(new 'static 'speech-info-item :name "dax244r")
|
||||
(new 'static 'speech-info-item :name "dax412r")
|
||||
(new 'static 'speech-info-item :name "dax236r")
|
||||
(new 'static 'speech-info-item :name "dax234r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax174r")
|
||||
(new 'static 'speech-info-item :name "dax176r")
|
||||
(new 'static 'speech-info-item :name "dax177r")
|
||||
(new 'static 'speech-info-item :name "dax179r")
|
||||
(new 'static 'speech-info-item :name "dax180r")
|
||||
(new 'static 'speech-info-item :name "dax181r")
|
||||
(new 'static 'speech-info-item :name "dax182r")
|
||||
(new 'static 'speech-info-item :name "dax183r")
|
||||
(new 'static 'speech-info-item :name "dax185r")
|
||||
(new 'static 'speech-info-item :name "dax186r")
|
||||
(new 'static 'speech-info-item :name "dax187r")
|
||||
(new 'static 'speech-info-item :name "dax188r")
|
||||
(new 'static 'speech-info-item :name "dax189r")
|
||||
(new 'static 'speech-info-item :name "dax191r")
|
||||
(new 'static 'speech-info-item :name "dax192r")
|
||||
(new 'static 'speech-info-item :name "dax193r")
|
||||
(new 'static 'speech-info-item :name "dax195r")
|
||||
(new 'static 'speech-info-item :name "dax196r")
|
||||
(new 'static 'speech-info-item :name "dax197r")
|
||||
(new 'static 'speech-info-item :name "dax199r")
|
||||
(new 'static 'speech-info-item :name "dax200r")
|
||||
(new 'static 'speech-info-item :name "dax201r")
|
||||
(new 'static 'speech-info-item :name "dax202r")
|
||||
(new 'static 'speech-info-item :name "dax203r")
|
||||
(new 'static 'speech-info-item :name "dax204r")
|
||||
(new 'static 'speech-info-item :name "dax206r")
|
||||
(new 'static 'speech-info-item :name "dax207r")
|
||||
(new 'static 'speech-info-item :name "dax208r")
|
||||
(new 'static 'speech-info-item :name "dax412r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax115r")
|
||||
(new 'static 'speech-info-item :name "dax119r")
|
||||
(new 'static 'speech-info-item :name "dax120r")
|
||||
(new 'static 'speech-info-item :name "dax122r")
|
||||
(new 'static 'speech-info-item :name "dax126r")
|
||||
(new 'static 'speech-info-item :name "dax368r")
|
||||
(new 'static 'speech-info-item :name "dax369r")
|
||||
(new 'static 'speech-info-item :name "dax370r")
|
||||
(new 'static 'speech-info-item :name "dax371r")
|
||||
(new 'static 'speech-info-item :name "dax372r")
|
||||
(new 'static 'speech-info-item :name "dax373r")
|
||||
(new 'static 'speech-info-item :name "dax374r")
|
||||
(new 'static 'speech-info-item :name "dax375r")
|
||||
(new 'static 'speech-info-item :name "dax376r")
|
||||
(new 'static 'speech-info-item :name "dax377r")
|
||||
(new 'static 'speech-info-item :name "dax378r")
|
||||
(new 'static 'speech-info-item :name "dax379r")
|
||||
(new 'static 'speech-info-item :name "dax380r")
|
||||
(new 'static 'speech-info-item :name "dax381r")
|
||||
(new 'static 'speech-info-item :name "dax382r")
|
||||
(new 'static 'speech-info-item :name "dax383r")
|
||||
(new 'static 'speech-info-item :name "dax384r")
|
||||
(new 'static 'speech-info-item :name "dax385r")
|
||||
(new 'static 'speech-info-item :name "dax386r")
|
||||
(new 'static 'speech-info-item :name "dax387r")
|
||||
(new 'static 'speech-info-item :name "dax388r")
|
||||
(new 'static 'speech-info-item :name "dax235r")
|
||||
(new 'static 'speech-info-item :name "dax424r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax115r")
|
||||
(new 'static 'speech-info-item :name "dax119r")
|
||||
(new 'static 'speech-info-item :name "dax120r")
|
||||
(new 'static 'speech-info-item :name "dax122r")
|
||||
(new 'static 'speech-info-item :name "dax126r")
|
||||
(new 'static 'speech-info-item :name "dax368r")
|
||||
(new 'static 'speech-info-item :name "dax369r")
|
||||
(new 'static 'speech-info-item :name "dax370r")
|
||||
(new 'static 'speech-info-item :name "dax371r")
|
||||
(new 'static 'speech-info-item :name "dax372r")
|
||||
(new 'static 'speech-info-item :name "dax373r")
|
||||
(new 'static 'speech-info-item :name "dax374r")
|
||||
(new 'static 'speech-info-item :name "dax375r")
|
||||
(new 'static 'speech-info-item :name "dax376r")
|
||||
(new 'static 'speech-info-item :name "dax377r")
|
||||
(new 'static 'speech-info-item :name "dax378r")
|
||||
(new 'static 'speech-info-item :name "dax379r")
|
||||
(new 'static 'speech-info-item :name "dax380r")
|
||||
(new 'static 'speech-info-item :name "dax381r")
|
||||
(new 'static 'speech-info-item :name "dax382r")
|
||||
(new 'static 'speech-info-item :name "dax383r")
|
||||
(new 'static 'speech-info-item :name "dax384r")
|
||||
(new 'static 'speech-info-item :name "dax385r")
|
||||
(new 'static 'speech-info-item :name "dax386r")
|
||||
(new 'static 'speech-info-item :name "dax387r")
|
||||
(new 'static 'speech-info-item :name "dax388r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax105r")
|
||||
(new 'static 'speech-info-item :name "dax389r")
|
||||
(new 'static 'speech-info-item :name "dax390r")
|
||||
(new 'static 'speech-info-item :name "dax391r")
|
||||
(new 'static 'speech-info-item :name "dax392r")
|
||||
(new 'static 'speech-info-item :name "dax393r")
|
||||
(new 'static 'speech-info-item :name "dax394r")
|
||||
(new 'static 'speech-info-item :name "dax395r")
|
||||
(new 'static 'speech-info-item :name "dax396r")
|
||||
(new 'static 'speech-info-item :name "dax397r")
|
||||
(new 'static 'speech-info-item :name "dax398r")
|
||||
(new 'static 'speech-info-item :name "dax399r")
|
||||
(new 'static 'speech-info-item :name "dax400r")
|
||||
(new 'static 'speech-info-item :name "dax401r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax105r")
|
||||
(new 'static 'speech-info-item :name "dax389r")
|
||||
(new 'static 'speech-info-item :name "dax390r")
|
||||
(new 'static 'speech-info-item :name "dax391r")
|
||||
(new 'static 'speech-info-item :name "dax392r")
|
||||
(new 'static 'speech-info-item :name "dax393r")
|
||||
(new 'static 'speech-info-item :name "dax394r")
|
||||
(new 'static 'speech-info-item :name "dax395r")
|
||||
(new 'static 'speech-info-item :name "dax396r")
|
||||
(new 'static 'speech-info-item :name "dax397r")
|
||||
(new 'static 'speech-info-item :name "dax398r")
|
||||
(new 'static 'speech-info-item :name "dax399r")
|
||||
(new 'static 'speech-info-item :name "dax400r")
|
||||
(new 'static 'speech-info-item :name "dax401r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax140r")
|
||||
(new 'static 'speech-info-item :name "dax141r")
|
||||
(new 'static 'speech-info-item :name "dax151r")
|
||||
(new 'static 'speech-info-item :name "dax152r")
|
||||
(new 'static 'speech-info-item :name "dax134r")
|
||||
(new 'static 'speech-info-item :name "dax163r")
|
||||
(new 'static 'speech-info-item :name "dax209r")
|
||||
(new 'static 'speech-info-item :name "dax210r")
|
||||
(new 'static 'speech-info-item :name "dax211r")
|
||||
(new 'static 'speech-info-item :name "dax212r")
|
||||
(new 'static 'speech-info-item :name "dax213r")
|
||||
(new 'static 'speech-info-item :name "dax214r")
|
||||
(new 'static 'speech-info-item :name "dax215r")
|
||||
(new 'static 'speech-info-item :name "dax216r")
|
||||
(new 'static 'speech-info-item :name "dax217r")
|
||||
(new 'static 'speech-info-item :name "dax218r")
|
||||
(new 'static 'speech-info-item :name "dax219r")
|
||||
(new 'static 'speech-info-item :name "dax220r")
|
||||
(new 'static 'speech-info-item :name "dax221r")
|
||||
(new 'static 'speech-info-item :name "dax222r")
|
||||
(new 'static 'speech-info-item :name "dax228r")
|
||||
(new 'static 'speech-info-item :name "dax242r")
|
||||
(new 'static 'speech-info-item :name "dax243r")
|
||||
(new 'static 'speech-info-item :name "dax245r")
|
||||
(new 'static 'speech-info-item :name "dax415r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax226r")
|
||||
(new 'static 'speech-info-item :name "dax229r")
|
||||
(new 'static 'speech-info-item :name "dax230r")
|
||||
(new 'static 'speech-info-item :name "dax231r")
|
||||
(new 'static 'speech-info-item :name "dax232r")
|
||||
(new 'static 'speech-info-item :name "dax233r")
|
||||
(new 'static 'speech-info-item :name "dax237r")
|
||||
(new 'static 'speech-info-item :name "dax238r")
|
||||
(new 'static 'speech-info-item :name "dax239r")
|
||||
(new 'static 'speech-info-item :name "dax240r")
|
||||
(new 'static 'speech-info-item :name "dax241r")
|
||||
(new 'static 'speech-info-item :name "dax246r")
|
||||
(new 'static 'speech-info-item :name "dax248r")
|
||||
(new 'static 'speech-info-item :name "dax249r")
|
||||
(new 'static 'speech-info-item :name "dax250r")
|
||||
(new 'static 'speech-info-item :name "dax251r")
|
||||
(new 'static 'speech-info-item :name "dax252r")
|
||||
(new 'static 'speech-info-item :name "dax253r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax258r")
|
||||
(new 'static 'speech-info-item :name "dax259r")
|
||||
(new 'static 'speech-info-item :name "dax260r")
|
||||
(new 'static 'speech-info-item :name "dax261r")
|
||||
(new 'static 'speech-info-item :name "dax262r")
|
||||
(new 'static 'speech-info-item :name "dax263r")
|
||||
(new 'static 'speech-info-item :name "dax264r")
|
||||
(new 'static 'speech-info-item :name "dax265r")
|
||||
(new 'static 'speech-info-item :name "dax266r")
|
||||
(new 'static 'speech-info-item :name "dax267r")
|
||||
(new 'static 'speech-info-item :name "dax268r")
|
||||
(new 'static 'speech-info-item :name "dax269r")
|
||||
(new 'static 'speech-info-item :name "dax270r")
|
||||
(new 'static 'speech-info-item :name "dax271r")
|
||||
(new 'static 'speech-info-item :name "dax272r")
|
||||
(new 'static 'speech-info-item :name "dax273r")
|
||||
(new 'static 'speech-info-item :name "dax274r")
|
||||
(new 'static 'speech-info-item :name "dax275r")
|
||||
(new 'static 'speech-info-item :name "dax276r")
|
||||
(new 'static 'speech-info-item :name "dax277r")
|
||||
(new 'static 'speech-info-item :name "dax278r")
|
||||
(new 'static 'speech-info-item :name "dax279r")
|
||||
(new 'static 'speech-info-item :name "dax280r")
|
||||
(new 'static 'speech-info-item :name "dax281r")
|
||||
(new 'static 'speech-info-item :name "dax282r")
|
||||
(new 'static 'speech-info-item :name "dax283r")
|
||||
(new 'static 'speech-info-item :name "dax284r")
|
||||
(new 'static 'speech-info-item :name "dax285r")
|
||||
(new 'static 'speech-info-item :name "dax286r")
|
||||
(new 'static 'speech-info-item :name "dax287r")
|
||||
(new 'static 'speech-info-item :name "dax288r")
|
||||
(new 'static 'speech-info-item :name "dax289r")
|
||||
(new 'static 'speech-info-item :name "dax290r")
|
||||
(new 'static 'speech-info-item :name "dax336r")
|
||||
(new 'static 'speech-info-item :name "dax337r")
|
||||
(new 'static 'speech-info-item :name "dax338r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax291r")
|
||||
(new 'static 'speech-info-item :name "dax292r")
|
||||
(new 'static 'speech-info-item :name "dax293r")
|
||||
(new 'static 'speech-info-item :name "dax294r")
|
||||
(new 'static 'speech-info-item :name "dax295r")
|
||||
(new 'static 'speech-info-item :name "dax296r")
|
||||
(new 'static 'speech-info-item :name "dax297r")
|
||||
(new 'static 'speech-info-item :name "dax298r")
|
||||
(new 'static 'speech-info-item :name "dax299r")
|
||||
(new 'static 'speech-info-item :name "dax300r")
|
||||
(new 'static 'speech-info-item :name "dax301r")
|
||||
(new 'static 'speech-info-item :name "dax302r")
|
||||
(new 'static 'speech-info-item :name "dax303r")
|
||||
(new 'static 'speech-info-item :name "dax304r")
|
||||
(new 'static 'speech-info-item :name "dax305r")
|
||||
(new 'static 'speech-info-item :name "dax306r")
|
||||
(new 'static 'speech-info-item :name "dax307r")
|
||||
(new 'static 'speech-info-item :name "dax308r")
|
||||
(new 'static 'speech-info-item :name "dax309r")
|
||||
(new 'static 'speech-info-item :name "dax310r")
|
||||
(new 'static 'speech-info-item :name "dax311r")
|
||||
(new 'static 'speech-info-item :name "dax312r")
|
||||
(new 'static 'speech-info-item :name "dax313r")
|
||||
(new 'static 'speech-info-item :name "dax314r")
|
||||
(new 'static 'speech-info-item :name "dax315r")
|
||||
(new 'static 'speech-info-item :name "dax316r")
|
||||
(new 'static 'speech-info-item :name "dax317r")
|
||||
(new 'static 'speech-info-item :name "dax318r")
|
||||
(new 'static 'speech-info-item :name "dax319r")
|
||||
(new 'static 'speech-info-item :name "dax320r")
|
||||
(new 'static 'speech-info-item :name "dax247r")
|
||||
(new 'static 'speech-info-item :name "dax257r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax101r")
|
||||
(new 'static 'speech-info-item :name "dax102r")
|
||||
(new 'static 'speech-info-item :name "dax103r")
|
||||
(new 'static 'speech-info-item :name "dax104r")
|
||||
(new 'static 'speech-info-item :name "dax321r")
|
||||
(new 'static 'speech-info-item :name "dax322r")
|
||||
(new 'static 'speech-info-item :name "dax323r")
|
||||
(new 'static 'speech-info-item :name "dax324r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "dax357r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax358r")
|
||||
(new 'static 'speech-info-item :name "dax359r")
|
||||
(new 'static 'speech-info-item :name "dax360r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax361r")
|
||||
(new 'static 'speech-info-item :name "dax362r")
|
||||
(new 'static 'speech-info-item :name "dax363r")
|
||||
(new 'static 'speech-info-item :name "dax364r")
|
||||
(new 'static 'speech-info-item :name "dax365r")
|
||||
(new 'static 'speech-info-item :name "dax366r")
|
||||
(new 'static 'speech-info-item :name "dax367r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax255r")
|
||||
(new 'static 'speech-info-item :name "dax325r")
|
||||
(new 'static 'speech-info-item :name "dax326r")
|
||||
(new 'static 'speech-info-item :name "dax327r")
|
||||
(new 'static 'speech-info-item :name "dax331r")
|
||||
(new 'static 'speech-info-item :name "dax333r")
|
||||
(new 'static 'speech-info-item :name "dax334r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax429r")
|
||||
(new 'static 'speech-info-item :name "dax430r")
|
||||
(new 'static 'speech-info-item :name "dax431r")
|
||||
(new 'static 'speech-info-item :name "dax432r")
|
||||
(new 'static 'speech-info-item :name "dax433r")
|
||||
(new 'static 'speech-info-item :name "dax434r")
|
||||
(new 'static 'speech-info-item :name "dax435r")
|
||||
(new 'static 'speech-info-item :name "dax436r")
|
||||
(new 'static 'speech-info-item :name "dax227r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 2 speeches 21) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "dax349r")
|
||||
(new 'static 'speech-info-item :name "dax350r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+730
@@ -0,0 +1,730 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb108r")
|
||||
(new 'static 'speech-info-item :name "gtb109r")
|
||||
(new 'static 'speech-info-item :name "gtb119r")
|
||||
(new 'static 'speech-info-item :name "gtb120r")
|
||||
(new 'static 'speech-info-item :name "gtb127r")
|
||||
(new 'static 'speech-info-item :name "gtb128r")
|
||||
(new 'static 'speech-info-item :name "gtb132r")
|
||||
(new 'static 'speech-info-item :name "gtb133r")
|
||||
(new 'static 'speech-info-item :name "gtb134r")
|
||||
(new 'static 'speech-info-item :name "gtb135r")
|
||||
(new 'static 'speech-info-item :name "gtb139r")
|
||||
(new 'static 'speech-info-item :name "gtb141r")
|
||||
(new 'static 'speech-info-item :name "gtb143r")
|
||||
(new 'static 'speech-info-item :name "gtb146r")
|
||||
(new 'static 'speech-info-item :name "gtb155r")
|
||||
(new 'static 'speech-info-item :name "gtb158r")
|
||||
(new 'static 'speech-info-item :name "gtb159r")
|
||||
(new 'static 'speech-info-item :name "gtb161r")
|
||||
(new 'static 'speech-info-item :name "gtb180r")
|
||||
(new 'static 'speech-info-item :name "gtb181r")
|
||||
(new 'static 'speech-info-item :name "gtb182r")
|
||||
(new 'static 'speech-info-item :name "gtb183r")
|
||||
(new 'static 'speech-info-item :name "gtb184r")
|
||||
(new 'static 'speech-info-item :name "gtb186r")
|
||||
(new 'static 'speech-info-item :name "gtb187r")
|
||||
(new 'static 'speech-info-item :name "gtb191r")
|
||||
(new 'static 'speech-info-item :name "gtb192r")
|
||||
(new 'static 'speech-info-item :name "gtb193r")
|
||||
(new 'static 'speech-info-item :name "gtb194r")
|
||||
(new 'static 'speech-info-item :name "gtb195r")
|
||||
(new 'static 'speech-info-item :name "gtb196r")
|
||||
(new 'static 'speech-info-item :name "gtb197r")
|
||||
(new 'static 'speech-info-item :name "gtb198r")
|
||||
(new 'static 'speech-info-item :name "gtb199r")
|
||||
(new 'static 'speech-info-item :name "gtb200r")
|
||||
(new 'static 'speech-info-item :name "gtb201r")
|
||||
(new 'static 'speech-info-item :name "gtb202r")
|
||||
(new 'static 'speech-info-item :name "gtb203r")
|
||||
(new 'static 'speech-info-item :name "gtb204r")
|
||||
(new 'static 'speech-info-item :name "gtb205r")
|
||||
(new 'static 'speech-info-item :name "gtb206r")
|
||||
(new 'static 'speech-info-item :name "gtb207r")
|
||||
(new 'static 'speech-info-item :name "gtb214r")
|
||||
(new 'static 'speech-info-item :name "gtb215r")
|
||||
(new 'static 'speech-info-item :name "gtb218r")
|
||||
(new 'static 'speech-info-item :name "gtb219r")
|
||||
(new 'static 'speech-info-item :name "gtb223r")
|
||||
(new 'static 'speech-info-item :name "gtb224r")
|
||||
(new 'static 'speech-info-item :name "gtb225r")
|
||||
(new 'static 'speech-info-item :name "gtb226r")
|
||||
(new 'static 'speech-info-item :name "gtb227r")
|
||||
(new 'static 'speech-info-item :name "gtb228r")
|
||||
(new 'static 'speech-info-item :name "gtb229r")
|
||||
(new 'static 'speech-info-item :name "gtb230r")
|
||||
(new 'static 'speech-info-item :name "gtb231r")
|
||||
(new 'static 'speech-info-item :name "gtb235r")
|
||||
(new 'static 'speech-info-item :name "gtb236r")
|
||||
(new 'static 'speech-info-item :name "gtb238r")
|
||||
(new 'static 'speech-info-item :name "gtb240r")
|
||||
(new 'static 'speech-info-item :name "gtb241r")
|
||||
(new 'static 'speech-info-item :name "gtb242r")
|
||||
(new 'static 'speech-info-item :name "gtb243r")
|
||||
(new 'static 'speech-info-item :name "gtb244r")
|
||||
(new 'static 'speech-info-item :name "gtb245r")
|
||||
(new 'static 'speech-info-item :name "gtb246r")
|
||||
(new 'static 'speech-info-item :name "gtb247r")
|
||||
(new 'static 'speech-info-item :name "gtb252r")
|
||||
(new 'static 'speech-info-item :name "gtb255r")
|
||||
(new 'static 'speech-info-item :name "gtb257r")
|
||||
(new 'static 'speech-info-item :name "gtb260r")
|
||||
(new 'static 'speech-info-item :name "gtb261r")
|
||||
(new 'static 'speech-info-item :name "gtb265r")
|
||||
(new 'static 'speech-info-item :name "gtb266r")
|
||||
(new 'static 'speech-info-item :name "gtb268r")
|
||||
(new 'static 'speech-info-item :name "gtb270r")
|
||||
(new 'static 'speech-info-item :name "gtb271r")
|
||||
(new 'static 'speech-info-item :name "gtb322r")
|
||||
(new 'static 'speech-info-item :name "gtb332r")
|
||||
(new 'static 'speech-info-item :name "gtb333r")
|
||||
(new 'static 'speech-info-item :name "gtb354r")
|
||||
(new 'static 'speech-info-item :name "gtb369r")
|
||||
(new 'static 'speech-info-item :name "gtb373r")
|
||||
(new 'static 'speech-info-item :name "gtb374r")
|
||||
(new 'static 'speech-info-item :name "gtb375r")
|
||||
(new 'static 'speech-info-item :name "gtb377r")
|
||||
(new 'static 'speech-info-item :name "gtb378r")
|
||||
(new 'static 'speech-info-item :name "gtb379r")
|
||||
(new 'static 'speech-info-item :name "gtb380r")
|
||||
(new 'static 'speech-info-item :name "gtb381r")
|
||||
(new 'static 'speech-info-item :name "gtb382r")
|
||||
(new 'static 'speech-info-item :name "gtb384r")
|
||||
(new 'static 'speech-info-item :name "gtb474r")
|
||||
(new 'static 'speech-info-item :name "gtb475r")
|
||||
(new 'static 'speech-info-item :name "gtb478r")
|
||||
(new 'static 'speech-info-item :name "gtb479r")
|
||||
(new 'static 'speech-info-item :name "gtb480r")
|
||||
(new 'static 'speech-info-item :name "gtb481r")
|
||||
(new 'static 'speech-info-item :name "gtb497r")
|
||||
(new 'static 'speech-info-item :name "gtb483r")
|
||||
(new 'static 'speech-info-item :name "gtb484r")
|
||||
(new 'static 'speech-info-item :name "gtb485r")
|
||||
(new 'static 'speech-info-item :name "gtb486r")
|
||||
(new 'static 'speech-info-item :name "gtb487r")
|
||||
(new 'static 'speech-info-item :name "gtb488r")
|
||||
(new 'static 'speech-info-item :name "gtb489r")
|
||||
(new 'static 'speech-info-item :name "gtb490r")
|
||||
(new 'static 'speech-info-item :name "gtb491r")
|
||||
(new 'static 'speech-info-item :name "gtb492r")
|
||||
(new 'static 'speech-info-item :name "gtb493r")
|
||||
(new 'static 'speech-info-item :name "gtb495r")
|
||||
(new 'static 'speech-info-item :name "gtb496r")
|
||||
(new 'static 'speech-info-item :name "gtb498r")
|
||||
(new 'static 'speech-info-item :name "gtb499r")
|
||||
(new 'static 'speech-info-item :name "gtb553r")
|
||||
(new 'static 'speech-info-item :name "gtb554r")
|
||||
(new 'static 'speech-info-item :name "gtb555r")
|
||||
(new 'static 'speech-info-item :name "gtb557r")
|
||||
(new 'static 'speech-info-item :name "gtb558r")
|
||||
(new 'static 'speech-info-item :name "gtb559r")
|
||||
(new 'static 'speech-info-item :name "gtb560r")
|
||||
(new 'static 'speech-info-item :name "gtb561r")
|
||||
(new 'static 'speech-info-item :name "gtb562r")
|
||||
(new 'static 'speech-info-item :name "gtb563r")
|
||||
(new 'static 'speech-info-item :name "gtb564r")
|
||||
(new 'static 'speech-info-item :name "gtb566r")
|
||||
(new 'static 'speech-info-item :name "gtb567r")
|
||||
(new 'static 'speech-info-item :name "gtb569r")
|
||||
(new 'static 'speech-info-item :name "gtb570r")
|
||||
(new 'static 'speech-info-item :name "gtb571r")
|
||||
(new 'static 'speech-info-item :name "gtb572r")
|
||||
(new 'static 'speech-info-item :name "gtb573r")
|
||||
(new 'static 'speech-info-item :name "gtb575r")
|
||||
(new 'static 'speech-info-item :name "gtb157")
|
||||
(new 'static 'speech-info-item :name "gtb175")
|
||||
(new 'static 'speech-info-item :name "gtb176")
|
||||
(new 'static 'speech-info-item :name "gtb465r")
|
||||
(new 'static 'speech-info-item :name "gtb466r")
|
||||
(new 'static 'speech-info-item :name "gtb467r")
|
||||
(new 'static 'speech-info-item :name "gtb470r")
|
||||
(new 'static 'speech-info-item :name "gtb471r")
|
||||
(new 'static 'speech-info-item :name "gtb472r")
|
||||
(new 'static 'speech-info-item :name "gtb473r")
|
||||
(new 'static 'speech-info-item :name "gtb190")
|
||||
(new 'static 'speech-info-item :name "gtb188")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 17)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb101")
|
||||
(new 'static 'speech-info-item :name "gtb102")
|
||||
(new 'static 'speech-info-item :name "gtb103")
|
||||
(new 'static 'speech-info-item :name "gtb104")
|
||||
(new 'static 'speech-info-item :name "gtb105")
|
||||
(new 'static 'speech-info-item :name "gtb106")
|
||||
(new 'static 'speech-info-item :name "gtb107")
|
||||
(new 'static 'speech-info-item :name "gtb110")
|
||||
(new 'static 'speech-info-item :name "gtb111")
|
||||
(new 'static 'speech-info-item :name "gtb112")
|
||||
(new 'static 'speech-info-item :name "gtb113")
|
||||
(new 'static 'speech-info-item :name "gtb114")
|
||||
(new 'static 'speech-info-item :name "gtb115")
|
||||
(new 'static 'speech-info-item :name "gtb117")
|
||||
(new 'static 'speech-info-item :name "gtb118")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 18)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb116")
|
||||
(new 'static 'speech-info-item :name "gtb122")
|
||||
(new 'static 'speech-info-item :name "gtb121")
|
||||
(new 'static 'speech-info-item :name "gtb123")
|
||||
(new 'static 'speech-info-item :name "gtb124")
|
||||
(new 'static 'speech-info-item :name "gtb125")
|
||||
(new 'static 'speech-info-item :name "gtb126")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 19)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb248")
|
||||
(new 'static 'speech-info-item :name "gtb249")
|
||||
(new 'static 'speech-info-item :name "gtb250")
|
||||
(new 'static 'speech-info-item :name "gtb251")
|
||||
(new 'static 'speech-info-item :name "gtb253")
|
||||
(new 'static 'speech-info-item :name "gtb254")
|
||||
(new 'static 'speech-info-item :name "gtb256")
|
||||
(new 'static 'speech-info-item :name "gtb258")
|
||||
(new 'static 'speech-info-item :name "gtb259")
|
||||
(new 'static 'speech-info-item :name "gtb262")
|
||||
(new 'static 'speech-info-item :name "gtb263")
|
||||
(new 'static 'speech-info-item :name "gtb264")
|
||||
(new 'static 'speech-info-item :name "gtb269")
|
||||
(new 'static 'speech-info-item :name "gtb267")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 20)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb137")
|
||||
(new 'static 'speech-info-item :name "gtb138")
|
||||
(new 'static 'speech-info-item :name "gtb140")
|
||||
(new 'static 'speech-info-item :name "gtb142")
|
||||
(new 'static 'speech-info-item :name "gtb144")
|
||||
(new 'static 'speech-info-item :name "gtb148")
|
||||
(new 'static 'speech-info-item :name "gtb151")
|
||||
(new 'static 'speech-info-item :name "gtb152")
|
||||
(new 'static 'speech-info-item :name "gtb153")
|
||||
(new 'static 'speech-info-item :name "gtb154")
|
||||
(new 'static 'speech-info-item :name "gtb160")
|
||||
(new 'static 'speech-info-item :name "gtb162")
|
||||
(new 'static 'speech-info-item :name "gtb163")
|
||||
(new 'static 'speech-info-item :name "gtb164")
|
||||
(new 'static 'speech-info-item :name "gtb165")
|
||||
(new 'static 'speech-info-item :name "gtb166")
|
||||
(new 'static 'speech-info-item :name "gtb167")
|
||||
(new 'static 'speech-info-item :name "gtb168")
|
||||
(new 'static 'speech-info-item :name "gtb169")
|
||||
(new 'static 'speech-info-item :name "gtb170")
|
||||
(new 'static 'speech-info-item :name "gtb172")
|
||||
(new 'static 'speech-info-item :name "gtb177")
|
||||
(new 'static 'speech-info-item :name "gtb178")
|
||||
(new 'static 'speech-info-item :name "gtb179")
|
||||
(new 'static 'speech-info-item :name "gtb185")
|
||||
(new 'static 'speech-info-item :name "gtb189")
|
||||
(new 'static 'speech-info-item :name "gtb208")
|
||||
(new 'static 'speech-info-item :name "gtb209")
|
||||
(new 'static 'speech-info-item :name "gtb210")
|
||||
(new 'static 'speech-info-item :name "gtb212")
|
||||
(new 'static 'speech-info-item :name "gtb217")
|
||||
(new 'static 'speech-info-item :name "gtb220")
|
||||
(new 'static 'speech-info-item :name "gtb221")
|
||||
(new 'static 'speech-info-item :name "gtb232")
|
||||
(new 'static 'speech-info-item :name "gtb233")
|
||||
(new 'static 'speech-info-item :name "gtb234")
|
||||
(new 'static 'speech-info-item :name "gtb237")
|
||||
(new 'static 'speech-info-item :name "gtb239")
|
||||
(new 'static 'speech-info-item :name "gtb129")
|
||||
(new 'static 'speech-info-item :name "gtb130")
|
||||
(new 'static 'speech-info-item :name "gtb131")
|
||||
(new 'static 'speech-info-item :name "gtb136")
|
||||
(new 'static 'speech-info-item :name "gtb145")
|
||||
(new 'static 'speech-info-item :name "gtb147")
|
||||
(new 'static 'speech-info-item :name "gtb156" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb171" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb173" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb150" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb149" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb216" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb174" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb222")
|
||||
(new 'static 'speech-info-item :name "gtb211" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "gtb213" :flags (speech-info-flag si1))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb272r")
|
||||
(new 'static 'speech-info-item :name "gtb273r")
|
||||
(new 'static 'speech-info-item :name "gtb274r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb275r")
|
||||
(new 'static 'speech-info-item :name "gtb276r")
|
||||
(new 'static 'speech-info-item :name "gtb277r")
|
||||
(new 'static 'speech-info-item :name "gtb278r")
|
||||
(new 'static 'speech-info-item :name "gtb279r")
|
||||
(new 'static 'speech-info-item :name "gtb280r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb281r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb282r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb283r")
|
||||
(new 'static 'speech-info-item :name "gtb284r")
|
||||
(new 'static 'speech-info-item :name "gtb285r")
|
||||
(new 'static 'speech-info-item :name "gtb286r")
|
||||
(new 'static 'speech-info-item :name "gtb287r")
|
||||
(new 'static 'speech-info-item :name "gtb288r")
|
||||
(new 'static 'speech-info-item :name "gtb289r")
|
||||
(new 'static 'speech-info-item :name "gtb290r")
|
||||
(new 'static 'speech-info-item :name "gtb291r")
|
||||
(new 'static 'speech-info-item :name "gtb292r")
|
||||
(new 'static 'speech-info-item :name "gtb293r")
|
||||
(new 'static 'speech-info-item :name "gtb294r")
|
||||
(new 'static 'speech-info-item :name "gtb295r")
|
||||
(new 'static 'speech-info-item :name "gtb296r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb297r")
|
||||
(new 'static 'speech-info-item :name "gtb298r")
|
||||
(new 'static 'speech-info-item :name "gtb299r")
|
||||
(new 'static 'speech-info-item :name "gtb300r")
|
||||
(new 'static 'speech-info-item :name "gtb301r")
|
||||
(new 'static 'speech-info-item :name "gtb302r")
|
||||
(new 'static 'speech-info-item :name "gtb303r")
|
||||
(new 'static 'speech-info-item :name "gtb304r")
|
||||
(new 'static 'speech-info-item :name "gtb305r")
|
||||
(new 'static 'speech-info-item :name "gtb306r")
|
||||
(new 'static 'speech-info-item :name "gtb307r")
|
||||
(new 'static 'speech-info-item :name "gtb308r")
|
||||
(new 'static 'speech-info-item :name "gtb309r")
|
||||
(new 'static 'speech-info-item :name "gtb310r")
|
||||
(new 'static 'speech-info-item :name "gtb311r")
|
||||
(new 'static 'speech-info-item :name "gtb312r")
|
||||
(new 'static 'speech-info-item :name "gtb313r")
|
||||
(new 'static 'speech-info-item :name "gtb314r")
|
||||
(new 'static 'speech-info-item :name "gtb315r")
|
||||
(new 'static 'speech-info-item :name "gtb316r")
|
||||
(new 'static 'speech-info-item :name "gtb317r")
|
||||
(new 'static 'speech-info-item :name "gtb368r")
|
||||
(new 'static 'speech-info-item :name "gtb370r")
|
||||
(new 'static 'speech-info-item :name "gtb371r")
|
||||
(new 'static 'speech-info-item :name "gtb372r")
|
||||
(new 'static 'speech-info-item :name "gtb385r")
|
||||
(new 'static 'speech-info-item :name "gtb383r")
|
||||
(new 'static 'speech-info-item :name "gtb565r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 16)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb272r")
|
||||
(new 'static 'speech-info-item :name "gtb273r")
|
||||
(new 'static 'speech-info-item :name "gtb274r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb276r")
|
||||
(new 'static 'speech-info-item :name "gtb277r")
|
||||
(new 'static 'speech-info-item :name "gtb278r")
|
||||
(new 'static 'speech-info-item :name "gtb279r")
|
||||
(new 'static 'speech-info-item :name "gtb280r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb281r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb282r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb283r")
|
||||
(new 'static 'speech-info-item :name "gtb284r")
|
||||
(new 'static 'speech-info-item :name "gtb285r")
|
||||
(new 'static 'speech-info-item :name "gtb286r")
|
||||
(new 'static 'speech-info-item :name "gtb287r")
|
||||
(new 'static 'speech-info-item :name "gtb288r")
|
||||
(new 'static 'speech-info-item :name "gtb289r")
|
||||
(new 'static 'speech-info-item :name "gtb290r")
|
||||
(new 'static 'speech-info-item :name "gtb291r")
|
||||
(new 'static 'speech-info-item :name "gtb293r")
|
||||
(new 'static 'speech-info-item :name "gtb294r")
|
||||
(new 'static 'speech-info-item :name "gtb295r")
|
||||
(new 'static 'speech-info-item :name "gtb296r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb297r")
|
||||
(new 'static 'speech-info-item :name "gtb299r")
|
||||
(new 'static 'speech-info-item :name "gtb300r")
|
||||
(new 'static 'speech-info-item :name "gtb302r")
|
||||
(new 'static 'speech-info-item :name "gtb303r")
|
||||
(new 'static 'speech-info-item :name "gtb304r")
|
||||
(new 'static 'speech-info-item :name "gtb306r")
|
||||
(new 'static 'speech-info-item :name "gtb307r")
|
||||
(new 'static 'speech-info-item :name "gtb308r")
|
||||
(new 'static 'speech-info-item :name "gtb309r")
|
||||
(new 'static 'speech-info-item :name "gtb310r")
|
||||
(new 'static 'speech-info-item :name "gtb311r")
|
||||
(new 'static 'speech-info-item :name "gtb312r")
|
||||
(new 'static 'speech-info-item :name "gtb313r")
|
||||
(new 'static 'speech-info-item :name "gtb314r")
|
||||
(new 'static 'speech-info-item :name "gtb316r")
|
||||
(new 'static 'speech-info-item :name "gtb317r")
|
||||
(new 'static 'speech-info-item :name "gtb565r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb318r")
|
||||
(new 'static 'speech-info-item :name "gtb319r")
|
||||
(new 'static 'speech-info-item :name "gtb320r")
|
||||
(new 'static 'speech-info-item :name "gtb321r")
|
||||
(new 'static 'speech-info-item :name "gtb323r")
|
||||
(new 'static 'speech-info-item :name "gtb324r")
|
||||
(new 'static 'speech-info-item :name "gtb325r")
|
||||
(new 'static 'speech-info-item :name "gtb326r")
|
||||
(new 'static 'speech-info-item :name "gtb327r")
|
||||
(new 'static 'speech-info-item :name "gtb328r")
|
||||
(new 'static 'speech-info-item :name "gtb329r")
|
||||
(new 'static 'speech-info-item :name "gtb330r")
|
||||
(new 'static 'speech-info-item :name "gtb331r")
|
||||
(new 'static 'speech-info-item :name "gtb334r")
|
||||
(new 'static 'speech-info-item :name "gtb364r")
|
||||
(new 'static 'speech-info-item :name "gtb482r")
|
||||
(new 'static 'speech-info-item :name "gtb568r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb335r")
|
||||
(new 'static 'speech-info-item :name "gtb336r")
|
||||
(new 'static 'speech-info-item :name "gtb337r")
|
||||
(new 'static 'speech-info-item :name "gtb338r")
|
||||
(new 'static 'speech-info-item :name "gtb339r")
|
||||
(new 'static 'speech-info-item :name "gtb340r")
|
||||
(new 'static 'speech-info-item :name "gtb341r")
|
||||
(new 'static 'speech-info-item :name "gtb342r")
|
||||
(new 'static 'speech-info-item :name "gtb343r")
|
||||
(new 'static 'speech-info-item :name "gtb344r")
|
||||
(new 'static 'speech-info-item :name "gtb345r")
|
||||
(new 'static 'speech-info-item :name "gtb346r")
|
||||
(new 'static 'speech-info-item :name "gtb347r")
|
||||
(new 'static 'speech-info-item :name "gtb348r")
|
||||
(new 'static 'speech-info-item :name "gtb349r")
|
||||
(new 'static 'speech-info-item :name "gtb350r")
|
||||
(new 'static 'speech-info-item :name "gtb351r")
|
||||
(new 'static 'speech-info-item :name "gtb352r")
|
||||
(new 'static 'speech-info-item :name "gtb353r")
|
||||
(new 'static 'speech-info-item :name "gtb355r")
|
||||
(new 'static 'speech-info-item :name "gtb356r")
|
||||
(new 'static 'speech-info-item :name "gtb357r")
|
||||
(new 'static 'speech-info-item :name "gtb358r")
|
||||
(new 'static 'speech-info-item :name "gtb359r")
|
||||
(new 'static 'speech-info-item :name "gtb360r")
|
||||
(new 'static 'speech-info-item :name "gtb361r")
|
||||
(new 'static 'speech-info-item :name "gtb362r")
|
||||
(new 'static 'speech-info-item :name "gtb363r")
|
||||
(new 'static 'speech-info-item :name "gtb365r")
|
||||
(new 'static 'speech-info-item :name "gtb366r")
|
||||
(new 'static 'speech-info-item :name "gtb367r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 6)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb386r")
|
||||
(new 'static 'speech-info-item :name "gtb387r")
|
||||
(new 'static 'speech-info-item :name "gtb388r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb389r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb390r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb391r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb392r")
|
||||
(new 'static 'speech-info-item :name "gtb393r")
|
||||
(new 'static 'speech-info-item :name "gtb394r")
|
||||
(new 'static 'speech-info-item :name "gtb395r")
|
||||
(new 'static 'speech-info-item :name "gtb396r")
|
||||
(new 'static 'speech-info-item :name "gtb397r")
|
||||
(new 'static 'speech-info-item :name "gtb398r")
|
||||
(new 'static 'speech-info-item :name "gtb399r")
|
||||
(new 'static 'speech-info-item :name "gtb400r")
|
||||
(new 'static 'speech-info-item :name "gtb401r")
|
||||
(new 'static 'speech-info-item :name "gtb402r")
|
||||
(new 'static 'speech-info-item :name "gtb403r")
|
||||
(new 'static 'speech-info-item :name "gtb404r")
|
||||
(new 'static 'speech-info-item :name "gtb405r")
|
||||
(new 'static 'speech-info-item :name "gtb406r")
|
||||
(new 'static 'speech-info-item :name "gtb407r")
|
||||
(new 'static 'speech-info-item :name "gtb408r")
|
||||
(new 'static 'speech-info-item :name "gtb409r")
|
||||
(new 'static 'speech-info-item :name "gtb410r")
|
||||
(new 'static 'speech-info-item :name "gtb411r")
|
||||
(new 'static 'speech-info-item :name "gtb412r")
|
||||
(new 'static 'speech-info-item :name "gtb413r")
|
||||
(new 'static 'speech-info-item :name "gtb414r")
|
||||
(new 'static 'speech-info-item :name "gtb415r")
|
||||
(new 'static 'speech-info-item :name "gtb416r")
|
||||
(new 'static 'speech-info-item :name "gtb417r")
|
||||
(new 'static 'speech-info-item :name "gtb418r")
|
||||
(new 'static 'speech-info-item :name "gtb419r")
|
||||
(new 'static 'speech-info-item :name "gtb420r")
|
||||
(new 'static 'speech-info-item :name "gtb421r")
|
||||
(new 'static 'speech-info-item :name "gtb422r")
|
||||
(new 'static 'speech-info-item :name "gtb423r")
|
||||
(new 'static 'speech-info-item :name "gtb424r")
|
||||
(new 'static 'speech-info-item :name "gtb425r")
|
||||
(new 'static 'speech-info-item :name "gtb426r")
|
||||
(new 'static 'speech-info-item :name "gtb427r")
|
||||
(new 'static 'speech-info-item :name "gtb428r")
|
||||
(new 'static 'speech-info-item :name "gtb429r")
|
||||
(new 'static 'speech-info-item :name "gtb430r")
|
||||
(new 'static 'speech-info-item :name "gtb431r")
|
||||
(new 'static 'speech-info-item :name "gtb432r")
|
||||
(new 'static 'speech-info-item :name "gtb556r")
|
||||
(new 'static 'speech-info-item :name "gtb574r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb433r")
|
||||
(new 'static 'speech-info-item :name "gtb434r")
|
||||
(new 'static 'speech-info-item :name "gtb435r")
|
||||
(new 'static 'speech-info-item :name "gtb436r")
|
||||
(new 'static 'speech-info-item :name "gtb437r")
|
||||
(new 'static 'speech-info-item :name "gtb438r")
|
||||
(new 'static 'speech-info-item :name "gtb439r")
|
||||
(new 'static 'speech-info-item :name "gtb440r")
|
||||
(new 'static 'speech-info-item :name "gtb441r")
|
||||
(new 'static 'speech-info-item :name "gtb442r")
|
||||
(new 'static 'speech-info-item :name "gtb443r")
|
||||
(new 'static 'speech-info-item :name "gtb444r")
|
||||
(new 'static 'speech-info-item :name "gtb445r")
|
||||
(new 'static 'speech-info-item :name "gtb446r")
|
||||
(new 'static 'speech-info-item :name "gtb447r")
|
||||
(new 'static 'speech-info-item :name "gtb448r")
|
||||
(new 'static 'speech-info-item :name "gtb449r")
|
||||
(new 'static 'speech-info-item :name "gtb450r")
|
||||
(new 'static 'speech-info-item :name "gtb451r")
|
||||
(new 'static 'speech-info-item :name "gtb452r")
|
||||
(new 'static 'speech-info-item :name "gtb453r")
|
||||
(new 'static 'speech-info-item :name "gtb376r")
|
||||
(new 'static 'speech-info-item :name "gtb476r")
|
||||
(new 'static 'speech-info-item :name "gtb477r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb454r")
|
||||
(new 'static 'speech-info-item :name "gtb455r")
|
||||
(new 'static 'speech-info-item :name "gtb456r")
|
||||
(new 'static 'speech-info-item :name "gtb457r")
|
||||
(new 'static 'speech-info-item :name "gtb458r")
|
||||
(new 'static 'speech-info-item :name "gtb459r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb454r")
|
||||
(new 'static 'speech-info-item :name "gtb463r")
|
||||
(new 'static 'speech-info-item :name "gtb464r")
|
||||
(new 'static 'speech-info-item :name "gtb469r")
|
||||
(new 'static 'speech-info-item :name "gtb468r")
|
||||
(new 'static 'speech-info-item :name "gtb460r")
|
||||
(new 'static 'speech-info-item :name "gtb461r")
|
||||
(new 'static 'speech-info-item :name "gtb462r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "gtb500r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb501r")
|
||||
(new 'static 'speech-info-item :name "gtb502r")
|
||||
(new 'static 'speech-info-item :name "gtb503r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb504r")
|
||||
(new 'static 'speech-info-item :name "gtb505r")
|
||||
(new 'static 'speech-info-item :name "gtb506r")
|
||||
(new 'static 'speech-info-item :name "gtb507r")
|
||||
(new 'static 'speech-info-item :name "gtb508r")
|
||||
(new 'static 'speech-info-item :name "gtb509r")
|
||||
(new 'static 'speech-info-item :name "gtb510r")
|
||||
(new 'static 'speech-info-item :name "gtb511r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb512r")
|
||||
(new 'static 'speech-info-item :name "gtb513r")
|
||||
(new 'static 'speech-info-item :name "gtb514r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb515r")
|
||||
(new 'static 'speech-info-item :name "gtb516r")
|
||||
(new 'static 'speech-info-item :name "gtb517r")
|
||||
(new 'static 'speech-info-item :name "gtb518r")
|
||||
(new 'static 'speech-info-item :name "gtb519r")
|
||||
(new 'static 'speech-info-item :name "gtb520r")
|
||||
(new 'static 'speech-info-item :name "gtb521r")
|
||||
(new 'static 'speech-info-item :name "gtb522r")
|
||||
(new 'static 'speech-info-item :name "gtb523r")
|
||||
(new 'static 'speech-info-item :name "gtb524r")
|
||||
(new 'static 'speech-info-item :name "gtb525r")
|
||||
(new 'static 'speech-info-item :name "gtb526r")
|
||||
(new 'static 'speech-info-item :name "gtb527r")
|
||||
(new 'static 'speech-info-item :name "gtb528r")
|
||||
(new 'static 'speech-info-item :name "gtb529r")
|
||||
(new 'static 'speech-info-item :name "gtb530r")
|
||||
(new 'static 'speech-info-item :name "gtb531r")
|
||||
(new 'static 'speech-info-item :name "gtb532r")
|
||||
(new 'static 'speech-info-item :name "gtb533r")
|
||||
(new 'static 'speech-info-item :name "gtb534r")
|
||||
(new 'static 'speech-info-item :name "gtb535r")
|
||||
(new 'static 'speech-info-item :name "gtb536r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 14)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb512r")
|
||||
(new 'static 'speech-info-item :name "gtb513r")
|
||||
(new 'static 'speech-info-item :name "gtb514r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "gtb515r")
|
||||
(new 'static 'speech-info-item :name "gtb516r")
|
||||
(new 'static 'speech-info-item :name "gtb517r")
|
||||
(new 'static 'speech-info-item :name "gtb518r")
|
||||
(new 'static 'speech-info-item :name "gtb519r")
|
||||
(new 'static 'speech-info-item :name "gtb520r")
|
||||
(new 'static 'speech-info-item :name "gtb521r")
|
||||
(new 'static 'speech-info-item :name "gtb522r")
|
||||
(new 'static 'speech-info-item :name "gtb523r")
|
||||
(new 'static 'speech-info-item :name "gtb524r")
|
||||
(new 'static 'speech-info-item :name "gtb525r")
|
||||
(new 'static 'speech-info-item :name "gtb526r")
|
||||
(new 'static 'speech-info-item :name "gtb527r")
|
||||
(new 'static 'speech-info-item :name "gtb528r")
|
||||
(new 'static 'speech-info-item :name "gtb529r")
|
||||
(new 'static 'speech-info-item :name "gtb530r")
|
||||
(new 'static 'speech-info-item :name "gtb531r")
|
||||
(new 'static 'speech-info-item :name "gtb532r")
|
||||
(new 'static 'speech-info-item :name "gtb533r")
|
||||
(new 'static 'speech-info-item :name "gtb534r")
|
||||
(new 'static 'speech-info-item :name "gtb535r")
|
||||
(new 'static 'speech-info-item :name "gtb536r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb537r")
|
||||
(new 'static 'speech-info-item :name "gtb538r")
|
||||
(new 'static 'speech-info-item :name "gtb539r")
|
||||
(new 'static 'speech-info-item :name "gtb540r")
|
||||
(new 'static 'speech-info-item :name "gtb541r")
|
||||
(new 'static 'speech-info-item :name "gtb542r")
|
||||
(new 'static 'speech-info-item :name "gtb543r")
|
||||
(new 'static 'speech-info-item :name "gtb544r")
|
||||
(new 'static 'speech-info-item :name "gtb545r")
|
||||
(new 'static 'speech-info-item :name "gtb546r")
|
||||
(new 'static 'speech-info-item :name "gtb547r")
|
||||
(new 'static 'speech-info-item :name "gtb548r")
|
||||
(new 'static 'speech-info-item :name "gtb549r")
|
||||
(new 'static 'speech-info-item :name "gtb550r")
|
||||
(new 'static 'speech-info-item :name "gtb551r")
|
||||
(new 'static 'speech-info-item :name "gtb552r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb537r")
|
||||
(new 'static 'speech-info-item :name "gtb538r")
|
||||
(new 'static 'speech-info-item :name "gtb539r")
|
||||
(new 'static 'speech-info-item :name "gtb540r")
|
||||
(new 'static 'speech-info-item :name "gtb541r")
|
||||
(new 'static 'speech-info-item :name "gtb542r")
|
||||
(new 'static 'speech-info-item :name "gtb543r")
|
||||
(new 'static 'speech-info-item :name "gtb544r")
|
||||
(new 'static 'speech-info-item :name "gtb545r")
|
||||
(new 'static 'speech-info-item :name "gtb546r")
|
||||
(new 'static 'speech-info-item :name "gtb547r")
|
||||
(new 'static 'speech-info-item :name "gtb548r")
|
||||
(new 'static 'speech-info-item :name "gtb549r")
|
||||
(new 'static 'speech-info-item :name "gtb550r")
|
||||
(new 'static 'speech-info-item :name "gtb551r")
|
||||
(new 'static 'speech-info-item :name "gtb552r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "gtb576r")
|
||||
(new 'static 'speech-info-item :name "gtb577r")
|
||||
(new 'static 'speech-info-item :name "gtb578r")
|
||||
(new 'static 'speech-info-item :name "gtb579r")
|
||||
(new 'static 'speech-info-item :name "gtb580r")
|
||||
(new 'static 'speech-info-item :name "gtb581r")
|
||||
(new 'static 'speech-info-item :name "gtb582r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 6 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "gtb494r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+728
@@ -0,0 +1,728 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak117r")
|
||||
(new 'static 'speech-info-item :name "jak119r")
|
||||
(new 'static 'speech-info-item :name "jak120r")
|
||||
(new 'static 'speech-info-item :name "jak121r")
|
||||
(new 'static 'speech-info-item :name "jak122r")
|
||||
(new 'static 'speech-info-item :name "jak123r")
|
||||
(new 'static 'speech-info-item :name "jak124r")
|
||||
(new 'static 'speech-info-item :name "jak125r")
|
||||
(new 'static 'speech-info-item :name "jak126r")
|
||||
(new 'static 'speech-info-item :name "jak127r")
|
||||
(new 'static 'speech-info-item :name "jak128r")
|
||||
(new 'static 'speech-info-item :name "jak129r")
|
||||
(new 'static 'speech-info-item :name "jak130r")
|
||||
(new 'static 'speech-info-item :name "jak137r")
|
||||
(new 'static 'speech-info-item :name "jak138r")
|
||||
(new 'static 'speech-info-item :name "jak139r")
|
||||
(new 'static 'speech-info-item :name "jak140r")
|
||||
(new 'static 'speech-info-item :name "jak141r")
|
||||
(new 'static 'speech-info-item :name "jak143r")
|
||||
(new 'static 'speech-info-item :name "jak146r")
|
||||
(new 'static 'speech-info-item :name "jak150r")
|
||||
(new 'static 'speech-info-item :name "jak151r")
|
||||
(new 'static 'speech-info-item :name "jak152r")
|
||||
(new 'static 'speech-info-item :name "jak153r")
|
||||
(new 'static 'speech-info-item :name "jak154r")
|
||||
(new 'static 'speech-info-item :name "jak155r")
|
||||
(new 'static 'speech-info-item :name "jak162r")
|
||||
(new 'static 'speech-info-item :name "jak167r")
|
||||
(new 'static 'speech-info-item :name "jak168r")
|
||||
(new 'static 'speech-info-item :name "jak169r")
|
||||
(new 'static 'speech-info-item :name "jak170r")
|
||||
(new 'static 'speech-info-item :name "jak171r")
|
||||
(new 'static 'speech-info-item :name "jak173r")
|
||||
(new 'static 'speech-info-item :name "jak174r")
|
||||
(new 'static 'speech-info-item :name "jak178r")
|
||||
(new 'static 'speech-info-item :name "jak179r")
|
||||
(new 'static 'speech-info-item :name "jak180r")
|
||||
(new 'static 'speech-info-item :name "jak186r")
|
||||
(new 'static 'speech-info-item :name "jak187r")
|
||||
(new 'static 'speech-info-item :name "jak188r")
|
||||
(new 'static 'speech-info-item :name "jak189r")
|
||||
(new 'static 'speech-info-item :name "jak190r")
|
||||
(new 'static 'speech-info-item :name "jak191r")
|
||||
(new 'static 'speech-info-item :name "jak192r")
|
||||
(new 'static 'speech-info-item :name "jak193r")
|
||||
(new 'static 'speech-info-item :name "jak194r")
|
||||
(new 'static 'speech-info-item :name "jak195r")
|
||||
(new 'static 'speech-info-item :name "jak196r")
|
||||
(new 'static 'speech-info-item :name "jak197r")
|
||||
(new 'static 'speech-info-item :name "jak233r")
|
||||
(new 'static 'speech-info-item :name "jak242r")
|
||||
(new 'static 'speech-info-item :name "jak254r")
|
||||
(new 'static 'speech-info-item :name "jak268r")
|
||||
(new 'static 'speech-info-item :name "jak270r")
|
||||
(new 'static 'speech-info-item :name "jak341r")
|
||||
(new 'static 'speech-info-item :name "jak342r")
|
||||
(new 'static 'speech-info-item :name "jak343r")
|
||||
(new 'static 'speech-info-item :name "jak344r")
|
||||
(new 'static 'speech-info-item :name "jak345r")
|
||||
(new 'static 'speech-info-item :name "jak346r")
|
||||
(new 'static 'speech-info-item :name "jak347r")
|
||||
(new 'static 'speech-info-item :name "jak348r")
|
||||
(new 'static 'speech-info-item :name "jak349r")
|
||||
(new 'static 'speech-info-item :name "jak350r")
|
||||
(new 'static 'speech-info-item :name "jak351r")
|
||||
(new 'static 'speech-info-item :name "jak352r")
|
||||
(new 'static 'speech-info-item :name "jak353r")
|
||||
(new 'static 'speech-info-item :name "jak354r")
|
||||
(new 'static 'speech-info-item :name "jak358r")
|
||||
(new 'static 'speech-info-item :name "jak359r")
|
||||
(new 'static 'speech-info-item :name "jak362r")
|
||||
(new 'static 'speech-info-item :name "jak363r")
|
||||
(new 'static 'speech-info-item :name "jak365r")
|
||||
(new 'static 'speech-info-item :name "jak369r")
|
||||
(new 'static 'speech-info-item :name "jak372r")
|
||||
(new 'static 'speech-info-item :name "jak425r")
|
||||
(new 'static 'speech-info-item :name "jak427r")
|
||||
(new 'static 'speech-info-item :name "jak428r")
|
||||
(new 'static 'speech-info-item :name "jak434r")
|
||||
(new 'static 'speech-info-item :name "jak435r")
|
||||
(new 'static 'speech-info-item :name "jak436r")
|
||||
(new 'static 'speech-info-item :name "jak437r")
|
||||
(new 'static 'speech-info-item :name "jak438r")
|
||||
(new 'static 'speech-info-item :name "jak439r")
|
||||
(new 'static 'speech-info-item :name "jak440r")
|
||||
(new 'static 'speech-info-item :name "jak441r")
|
||||
(new 'static 'speech-info-item :name "jak442r")
|
||||
(new 'static 'speech-info-item :name "jak443r")
|
||||
(new 'static 'speech-info-item :name "jak444r")
|
||||
(new 'static 'speech-info-item :name "jak445r")
|
||||
(new 'static 'speech-info-item :name "jak446r")
|
||||
(new 'static 'speech-info-item :name "jak447r")
|
||||
(new 'static 'speech-info-item :name "jak448r")
|
||||
(new 'static 'speech-info-item :name "jak389r")
|
||||
(new 'static 'speech-info-item :name "jak390r")
|
||||
(new 'static 'speech-info-item :name "jak391r")
|
||||
(new 'static 'speech-info-item :name "jak392r")
|
||||
(new 'static 'speech-info-item :name "jak393r")
|
||||
(new 'static 'speech-info-item :name "jak395r")
|
||||
(new 'static 'speech-info-item :name "jak400r")
|
||||
(new 'static 'speech-info-item :name "jak404r")
|
||||
(new 'static 'speech-info-item :name "jak406r")
|
||||
(new 'static 'speech-info-item :name "jak108r")
|
||||
(new 'static 'speech-info-item :name "jak410r")
|
||||
(new 'static 'speech-info-item :name "jak411r")
|
||||
(new 'static 'speech-info-item :name "jak417r")
|
||||
(new 'static 'speech-info-item :name "jak366r")
|
||||
(new 'static 'speech-info-item :name "jak256r")
|
||||
(new 'static 'speech-info-item :name "jak419r")
|
||||
(new 'static 'speech-info-item :name "jak420r")
|
||||
(new 'static 'speech-info-item :name "jak272r")
|
||||
(new 'static 'speech-info-item :name "jak275r")
|
||||
(new 'static 'speech-info-item :name "jak282r")
|
||||
(new 'static 'speech-info-item :name "jak283r")
|
||||
(new 'static 'speech-info-item :name "jak288r")
|
||||
(new 'static 'speech-info-item :name "jak291r")
|
||||
(new 'static 'speech-info-item :name "jak294r")
|
||||
(new 'static 'speech-info-item :name "jak298r")
|
||||
(new 'static 'speech-info-item :name "jak301r")
|
||||
(new 'static 'speech-info-item :name "jak302r")
|
||||
(new 'static 'speech-info-item :name "jak303r")
|
||||
(new 'static 'speech-info-item :name "jak332r")
|
||||
(new 'static 'speech-info-item :name "jak333r")
|
||||
(new 'static 'speech-info-item :name "jak334r")
|
||||
(new 'static 'speech-info-item :name "jak335r")
|
||||
(new 'static 'speech-info-item :name "jak336r")
|
||||
(new 'static 'speech-info-item :name "jak337r")
|
||||
(new 'static 'speech-info-item :name "jak338r")
|
||||
(new 'static 'speech-info-item :name "jak339r")
|
||||
(new 'static 'speech-info-item :name "jak340r")
|
||||
(new 'static 'speech-info-item :name "jak307r")
|
||||
(new 'static 'speech-info-item :name "jak309r")
|
||||
(new 'static 'speech-info-item :name "jak310r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak201r")
|
||||
(new 'static 'speech-info-item :name "jak202r")
|
||||
(new 'static 'speech-info-item :name "jak203r")
|
||||
(new 'static 'speech-info-item :name "jak204r")
|
||||
(new 'static 'speech-info-item :name "jak205r")
|
||||
(new 'static 'speech-info-item :name "jak206r")
|
||||
(new 'static 'speech-info-item :name "jak207r")
|
||||
(new 'static 'speech-info-item :name "jak208r")
|
||||
(new 'static 'speech-info-item :name "jak209r")
|
||||
(new 'static 'speech-info-item :name "jak210r")
|
||||
(new 'static 'speech-info-item :name "jak211r")
|
||||
(new 'static 'speech-info-item :name "jak212r")
|
||||
(new 'static 'speech-info-item :name "jak213r")
|
||||
(new 'static 'speech-info-item :name "jak214r")
|
||||
(new 'static 'speech-info-item :name "jak215r")
|
||||
(new 'static 'speech-info-item :name "jak216r")
|
||||
(new 'static 'speech-info-item :name "jak217r")
|
||||
(new 'static 'speech-info-item :name "jak218r")
|
||||
(new 'static 'speech-info-item :name "jak219r")
|
||||
(new 'static 'speech-info-item :name "jak220r")
|
||||
(new 'static 'speech-info-item :name "jak221r")
|
||||
(new 'static 'speech-info-item :name "jak222r")
|
||||
(new 'static 'speech-info-item :name "jak223r")
|
||||
(new 'static 'speech-info-item :name "jak224r")
|
||||
(new 'static 'speech-info-item :name "jak225r")
|
||||
(new 'static 'speech-info-item :name "jak226r")
|
||||
(new 'static 'speech-info-item :name "jak227r")
|
||||
(new 'static 'speech-info-item :name "jak228r")
|
||||
(new 'static 'speech-info-item :name "jak116r")
|
||||
(new 'static 'speech-info-item :name "jak156r")
|
||||
(new 'static 'speech-info-item :name "jak161r")
|
||||
(new 'static 'speech-info-item :name "jak163r")
|
||||
(new 'static 'speech-info-item :name "jak432r")
|
||||
(new 'static 'speech-info-item :name "jak433r")
|
||||
(new 'static 'speech-info-item :name "jak360r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak385r")
|
||||
(new 'static 'speech-info-item :name "jak386r")
|
||||
(new 'static 'speech-info-item :name "jak387r")
|
||||
(new 'static 'speech-info-item :name "jak388r")
|
||||
(new 'static 'speech-info-item :name "jak394r")
|
||||
(new 'static 'speech-info-item :name "jak396r")
|
||||
(new 'static 'speech-info-item :name "jak397r")
|
||||
(new 'static 'speech-info-item :name "jak398r")
|
||||
(new 'static 'speech-info-item :name "jak399r")
|
||||
(new 'static 'speech-info-item :name "jak401r")
|
||||
(new 'static 'speech-info-item :name "jak402r")
|
||||
(new 'static 'speech-info-item :name "jak403r")
|
||||
(new 'static 'speech-info-item :name "jak405r")
|
||||
(new 'static 'speech-info-item :name "jak407r")
|
||||
(new 'static 'speech-info-item :name "jak408r")
|
||||
(new 'static 'speech-info-item :name "jak109r")
|
||||
(new 'static 'speech-info-item :name "jak110r")
|
||||
(new 'static 'speech-info-item :name "jak111r")
|
||||
(new 'static 'speech-info-item :name "jak112r")
|
||||
(new 'static 'speech-info-item :name "jak113r")
|
||||
(new 'static 'speech-info-item :name "jak114r")
|
||||
(new 'static 'speech-info-item :name "jak115r")
|
||||
(new 'static 'speech-info-item :name "jak135r")
|
||||
(new 'static 'speech-info-item :name "jak199r")
|
||||
(new 'static 'speech-info-item :name "jak200r")
|
||||
(new 'static 'speech-info-item :name "jak136r")
|
||||
(new 'static 'speech-info-item :name "dax116r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "dax117r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "dax118r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 2)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak409r")
|
||||
(new 'static 'speech-info-item :name "jak412r")
|
||||
(new 'static 'speech-info-item :name "jak413r")
|
||||
(new 'static 'speech-info-item :name "jak414r")
|
||||
(new 'static 'speech-info-item :name "jak415r")
|
||||
(new 'static 'speech-info-item :name "jak416r")
|
||||
(new 'static 'speech-info-item :name "jak418r")
|
||||
(new 'static 'speech-info-item :name "jak421r")
|
||||
(new 'static 'speech-info-item :name "dax121r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak385r")
|
||||
(new 'static 'speech-info-item :name "jak386r")
|
||||
(new 'static 'speech-info-item :name "jak387r")
|
||||
(new 'static 'speech-info-item :name "jak396r")
|
||||
(new 'static 'speech-info-item :name "jak397r")
|
||||
(new 'static 'speech-info-item :name "jak398r")
|
||||
(new 'static 'speech-info-item :name "jak399r")
|
||||
(new 'static 'speech-info-item :name "jak401r")
|
||||
(new 'static 'speech-info-item :name "jak402r")
|
||||
(new 'static 'speech-info-item :name "jak403r")
|
||||
(new 'static 'speech-info-item :name "jak407r")
|
||||
(new 'static 'speech-info-item :name "jak408r")
|
||||
(new 'static 'speech-info-item :name "jak109r")
|
||||
(new 'static 'speech-info-item :name "jak110r")
|
||||
(new 'static 'speech-info-item :name "jak111r")
|
||||
(new 'static 'speech-info-item :name "jak112r")
|
||||
(new 'static 'speech-info-item :name "jak114r")
|
||||
(new 'static 'speech-info-item :name "jak115r")
|
||||
(new 'static 'speech-info-item :name "jak135r")
|
||||
(new 'static 'speech-info-item :name "jak200r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak409r")
|
||||
(new 'static 'speech-info-item :name "jak412r")
|
||||
(new 'static 'speech-info-item :name "jak413r")
|
||||
(new 'static 'speech-info-item :name "jak414r")
|
||||
(new 'static 'speech-info-item :name "jak415r")
|
||||
(new 'static 'speech-info-item :name "jak416r")
|
||||
(new 'static 'speech-info-item :name "jak418r")
|
||||
(new 'static 'speech-info-item :name "jak421r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak229r")
|
||||
(new 'static 'speech-info-item :name "jak230r")
|
||||
(new 'static 'speech-info-item :name "jak231r")
|
||||
(new 'static 'speech-info-item :name "jak232r")
|
||||
(new 'static 'speech-info-item :name "jak234r")
|
||||
(new 'static 'speech-info-item :name "jak235r")
|
||||
(new 'static 'speech-info-item :name "jak236r")
|
||||
(new 'static 'speech-info-item :name "jak237r")
|
||||
(new 'static 'speech-info-item :name "jak238r")
|
||||
(new 'static 'speech-info-item :name "jak239r")
|
||||
(new 'static 'speech-info-item :name "jak240r")
|
||||
(new 'static 'speech-info-item :name "jak241r")
|
||||
(new 'static 'speech-info-item :name "jak243r")
|
||||
(new 'static 'speech-info-item :name "jak106r")
|
||||
(new 'static 'speech-info-item :name "jak132r")
|
||||
(new 'static 'speech-info-item :name "jak133r")
|
||||
(new 'static 'speech-info-item :name "jak142r")
|
||||
(new 'static 'speech-info-item :name "jak175r")
|
||||
(new 'static 'speech-info-item :name "jak176r")
|
||||
(new 'static 'speech-info-item :name "jak265r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak244r")
|
||||
(new 'static 'speech-info-item :name "jak245r")
|
||||
(new 'static 'speech-info-item :name "jak246r")
|
||||
(new 'static 'speech-info-item :name "jak247r")
|
||||
(new 'static 'speech-info-item :name "jak248r")
|
||||
(new 'static 'speech-info-item :name "jak249r")
|
||||
(new 'static 'speech-info-item :name "jak250r")
|
||||
(new 'static 'speech-info-item :name "jak251r")
|
||||
(new 'static 'speech-info-item :name "jak252r")
|
||||
(new 'static 'speech-info-item :name "jak253r")
|
||||
(new 'static 'speech-info-item :name "jak255r")
|
||||
(new 'static 'speech-info-item :name "jak257r")
|
||||
(new 'static 'speech-info-item :name "jak258r")
|
||||
(new 'static 'speech-info-item :name "jak259r")
|
||||
(new 'static 'speech-info-item :name "jak260r")
|
||||
(new 'static 'speech-info-item :name "jak261r")
|
||||
(new 'static 'speech-info-item :name "jak262r")
|
||||
(new 'static 'speech-info-item :name "jak263r")
|
||||
(new 'static 'speech-info-item :name "jak264r")
|
||||
(new 'static 'speech-info-item :name "jak266r")
|
||||
(new 'static 'speech-info-item :name "jak267r")
|
||||
(new 'static 'speech-info-item :name "jak320r")
|
||||
(new 'static 'speech-info-item :name "jak355r")
|
||||
(new 'static 'speech-info-item :name "jak356r")
|
||||
(new 'static 'speech-info-item :name "jak357r")
|
||||
(new 'static 'speech-info-item :name "jak364r")
|
||||
(new 'static 'speech-info-item :name "jak368r")
|
||||
(new 'static 'speech-info-item :name "jak370r")
|
||||
(new 'static 'speech-info-item :name "jak371r")
|
||||
(new 'static 'speech-info-item :name "jak430r")
|
||||
(new 'static 'speech-info-item :name "jak431r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "jak373r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak374r")
|
||||
(new 'static 'speech-info-item :name "jak375r")
|
||||
(new 'static 'speech-info-item :name "jak376r")
|
||||
(new 'static 'speech-info-item :name "jak377r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak378r")
|
||||
(new 'static 'speech-info-item :name "jak379r")
|
||||
(new 'static 'speech-info-item :name "jak380r")
|
||||
(new 'static 'speech-info-item :name "jak381r")
|
||||
(new 'static 'speech-info-item :name "jak382r")
|
||||
(new 'static 'speech-info-item :name "jak383r")
|
||||
(new 'static 'speech-info-item :name "jak384r")
|
||||
(new 'static 'speech-info-item :name "jak182r")
|
||||
(new 'static 'speech-info-item :name "jak183r")
|
||||
(new 'static 'speech-info-item :name "jak184r")
|
||||
(new 'static 'speech-info-item :name "jak185r")
|
||||
(new 'static 'speech-info-item :name "jak181r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 6)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak273r")
|
||||
(new 'static 'speech-info-item :name "jak274r")
|
||||
(new 'static 'speech-info-item :name "jak276r")
|
||||
(new 'static 'speech-info-item :name "jak277r")
|
||||
(new 'static 'speech-info-item :name "jak278r")
|
||||
(new 'static 'speech-info-item :name "jak279r")
|
||||
(new 'static 'speech-info-item :name "jak280r")
|
||||
(new 'static 'speech-info-item :name "jak281r")
|
||||
(new 'static 'speech-info-item :name "jak284r")
|
||||
(new 'static 'speech-info-item :name "jak285r")
|
||||
(new 'static 'speech-info-item :name "jak286r")
|
||||
(new 'static 'speech-info-item :name "jak287r")
|
||||
(new 'static 'speech-info-item :name "jak289r")
|
||||
(new 'static 'speech-info-item :name "jak290r")
|
||||
(new 'static 'speech-info-item :name "jak292r")
|
||||
(new 'static 'speech-info-item :name "jak293r")
|
||||
(new 'static 'speech-info-item :name "jak295r")
|
||||
(new 'static 'speech-info-item :name "jak296r")
|
||||
(new 'static 'speech-info-item :name "jak297r")
|
||||
(new 'static 'speech-info-item :name "jak299r")
|
||||
(new 'static 'speech-info-item :name "jak300r")
|
||||
(new 'static 'speech-info-item :name "jak304r")
|
||||
(new 'static 'speech-info-item :name "jak131r")
|
||||
(new 'static 'speech-info-item :name "jak159r")
|
||||
(new 'static 'speech-info-item :name "jak160r")
|
||||
(new 'static 'speech-info-item :name "jak166r")
|
||||
(new 'static 'speech-info-item :name "dax123r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak325r")
|
||||
(new 'static 'speech-info-item :name "jak326r")
|
||||
(new 'static 'speech-info-item :name "jak327r")
|
||||
(new 'static 'speech-info-item :name "jak328r")
|
||||
(new 'static 'speech-info-item :name "jak329r")
|
||||
(new 'static 'speech-info-item :name "jak330r")
|
||||
(new 'static 'speech-info-item :name "jak331r")
|
||||
(new 'static 'speech-info-item :name "jak101r")
|
||||
(new 'static 'speech-info-item :name "jak102r")
|
||||
(new 'static 'speech-info-item :name "jak103r")
|
||||
(new 'static 'speech-info-item :name "jak104r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak449r")
|
||||
(new 'static 'speech-info-item :name "jak450r")
|
||||
(new 'static 'speech-info-item :name "jak451r")
|
||||
(new 'static 'speech-info-item :name "jak452r")
|
||||
(new 'static 'speech-info-item :name "jak453r")
|
||||
(new 'static 'speech-info-item :name "jak454r")
|
||||
(new 'static 'speech-info-item :name "jak108r")
|
||||
(new 'static 'speech-info-item :name "jak114r")
|
||||
(new 'static 'speech-info-item :name "jak115r")
|
||||
(new 'static 'speech-info-item :name "jak117r")
|
||||
(new 'static 'speech-info-item :name "jak238r")
|
||||
(new 'static 'speech-info-item :name "jak244r")
|
||||
(new 'static 'speech-info-item :name "jak245r")
|
||||
(new 'static 'speech-info-item :name "jak246r")
|
||||
(new 'static 'speech-info-item :name "jak247r")
|
||||
(new 'static 'speech-info-item :name "jak250r")
|
||||
(new 'static 'speech-info-item :name "jak251r")
|
||||
(new 'static 'speech-info-item :name "jak258r")
|
||||
(new 'static 'speech-info-item :name "jak263r")
|
||||
(new 'static 'speech-info-item :name "jak264r")
|
||||
(new 'static 'speech-info-item :name "jak266r")
|
||||
(new 'static 'speech-info-item :name "jak267r")
|
||||
(new 'static 'speech-info-item :name "jak360r")
|
||||
(new 'static 'speech-info-item :name "jak367r")
|
||||
(new 'static 'speech-info-item :name "jak368r")
|
||||
(new 'static 'speech-info-item :name "jak371r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak104r")
|
||||
(new 'static 'speech-info-item :name "jak105r")
|
||||
(new 'static 'speech-info-item :name "jak333r")
|
||||
(new 'static 'speech-info-item :name "jak335r")
|
||||
(new 'static 'speech-info-item :name "jak336r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak201r")
|
||||
(new 'static 'speech-info-item :name "jak202r")
|
||||
(new 'static 'speech-info-item :name "jak204r")
|
||||
(new 'static 'speech-info-item :name "jak205r")
|
||||
(new 'static 'speech-info-item :name "jak206r")
|
||||
(new 'static 'speech-info-item :name "jak207r")
|
||||
(new 'static 'speech-info-item :name "jak208r")
|
||||
(new 'static 'speech-info-item :name "jak210r")
|
||||
(new 'static 'speech-info-item :name "jak211r")
|
||||
(new 'static 'speech-info-item :name "jak212r")
|
||||
(new 'static 'speech-info-item :name "jak213r")
|
||||
(new 'static 'speech-info-item :name "jak215r")
|
||||
(new 'static 'speech-info-item :name "jak216r")
|
||||
(new 'static 'speech-info-item :name "jak217r")
|
||||
(new 'static 'speech-info-item :name "jak219r")
|
||||
(new 'static 'speech-info-item :name "jak220r")
|
||||
(new 'static 'speech-info-item :name "jak221r")
|
||||
(new 'static 'speech-info-item :name "jak222r")
|
||||
(new 'static 'speech-info-item :name "jak223r")
|
||||
(new 'static 'speech-info-item :name "jak224r")
|
||||
(new 'static 'speech-info-item :name "jak225r")
|
||||
(new 'static 'speech-info-item :name "jak226r")
|
||||
(new 'static 'speech-info-item :name "jak228r")
|
||||
(new 'static 'speech-info-item :name "jak361r")
|
||||
(new 'static 'speech-info-item :name "jak156r")
|
||||
(new 'static 'speech-info-item :name "jak161r")
|
||||
(new 'static 'speech-info-item :name "jak163r")
|
||||
(new 'static 'speech-info-item :name "jak432r")
|
||||
(new 'static 'speech-info-item :name "jak433r")
|
||||
(new 'static 'speech-info-item :name "jak360r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 10)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak305r")
|
||||
(new 'static 'speech-info-item :name "jak306r")
|
||||
(new 'static 'speech-info-item :name "jak308r")
|
||||
(new 'static 'speech-info-item :name "jak311r")
|
||||
(new 'static 'speech-info-item :name "jak312r")
|
||||
(new 'static 'speech-info-item :name "jak313r")
|
||||
(new 'static 'speech-info-item :name "jak314r")
|
||||
(new 'static 'speech-info-item :name "jak315r")
|
||||
(new 'static 'speech-info-item :name "jak316r")
|
||||
(new 'static 'speech-info-item :name "jak317r")
|
||||
(new 'static 'speech-info-item :name "jak318r")
|
||||
(new 'static 'speech-info-item :name "jak319r")
|
||||
(new 'static 'speech-info-item :name "jak321r")
|
||||
(new 'static 'speech-info-item :name "jak322r")
|
||||
(new 'static 'speech-info-item :name "jak323r")
|
||||
(new 'static 'speech-info-item :name "jak324r")
|
||||
(new 'static 'speech-info-item :name "jak107r")
|
||||
(new 'static 'speech-info-item :name "jak158r")
|
||||
(new 'static 'speech-info-item :name "jak271r")
|
||||
(new 'static 'speech-info-item :name "jak144r")
|
||||
(new 'static 'speech-info-item :name "jak145r")
|
||||
(new 'static 'speech-info-item :name "jak269r")
|
||||
(new 'static 'speech-info-item :name "dax110r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "dax153r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "dax154r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "jak367r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 22)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak165r")
|
||||
(new 'static 'speech-info-item :name "jak166r")
|
||||
(new 'static 'speech-info-item :name "jak198r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 26)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak305r")
|
||||
(new 'static 'speech-info-item :name "jak306r")
|
||||
(new 'static 'speech-info-item :name "jak308r")
|
||||
(new 'static 'speech-info-item :name "jak311r")
|
||||
(new 'static 'speech-info-item :name "jak312r")
|
||||
(new 'static 'speech-info-item :name "jak313r")
|
||||
(new 'static 'speech-info-item :name "jak314r")
|
||||
(new 'static 'speech-info-item :name "jak315r")
|
||||
(new 'static 'speech-info-item :name "jak316r")
|
||||
(new 'static 'speech-info-item :name "jak317r")
|
||||
(new 'static 'speech-info-item :name "jak318r")
|
||||
(new 'static 'speech-info-item :name "jak319r")
|
||||
(new 'static 'speech-info-item :name "jak321r")
|
||||
(new 'static 'speech-info-item :name "jak322r")
|
||||
(new 'static 'speech-info-item :name "jak323r")
|
||||
(new 'static 'speech-info-item :name "jak324r")
|
||||
(new 'static 'speech-info-item :name "jak107r")
|
||||
(new 'static 'speech-info-item :name "jak271r")
|
||||
(new 'static 'speech-info-item :name "jak144r")
|
||||
(new 'static 'speech-info-item :name "jak145r")
|
||||
(new 'static 'speech-info-item :name "jak269r")
|
||||
(new 'static 'speech-info-item :name "dax110r")
|
||||
(new 'static 'speech-info-item :name "jak147r")
|
||||
(new 'static 'speech-info-item :name "jak148r")
|
||||
(new 'static 'speech-info-item :name "jak149r")
|
||||
(new 'static 'speech-info-item :name "jak157r")
|
||||
(new 'static 'speech-info-item :name "jak158r")
|
||||
(new 'static 'speech-info-item :name "jak134r")
|
||||
(new 'static 'speech-info-item :name "dax153r")
|
||||
(new 'static 'speech-info-item :name "dax154r")
|
||||
(new 'static 'speech-info-item :name "dax155r")
|
||||
(new 'static 'speech-info-item :name "dax156r")
|
||||
(new 'static 'speech-info-item :name "dax157r")
|
||||
(new 'static 'speech-info-item :name "dax158r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 23) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak118r")
|
||||
(new 'static 'speech-info-item :name "jak172r")
|
||||
(new 'static 'speech-info-item :name "jak177r")
|
||||
(new 'static 'speech-info-item :name "dax411r")
|
||||
(new 'static 'speech-info-item :name "dax148r")
|
||||
(new 'static 'speech-info-item :name "dax149r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 24) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak429r")
|
||||
(new 'static 'speech-info-item :name "dax417r")
|
||||
(new 'static 'speech-info-item :name "dax418r")
|
||||
(new 'static 'speech-info-item :name "dax419r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 25)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak273r")
|
||||
(new 'static 'speech-info-item :name "jak274r")
|
||||
(new 'static 'speech-info-item :name "jak276r")
|
||||
(new 'static 'speech-info-item :name "jak277r")
|
||||
(new 'static 'speech-info-item :name "jak278r")
|
||||
(new 'static 'speech-info-item :name "jak279r")
|
||||
(new 'static 'speech-info-item :name "jak280r")
|
||||
(new 'static 'speech-info-item :name "jak281r")
|
||||
(new 'static 'speech-info-item :name "jak284r")
|
||||
(new 'static 'speech-info-item :name "jak285r")
|
||||
(new 'static 'speech-info-item :name "jak286r")
|
||||
(new 'static 'speech-info-item :name "jak287r")
|
||||
(new 'static 'speech-info-item :name "jak289r")
|
||||
(new 'static 'speech-info-item :name "jak290r")
|
||||
(new 'static 'speech-info-item :name "jak292r")
|
||||
(new 'static 'speech-info-item :name "jak293r")
|
||||
(new 'static 'speech-info-item :name "jak295r")
|
||||
(new 'static 'speech-info-item :name "jak296r")
|
||||
(new 'static 'speech-info-item :name "jak297r")
|
||||
(new 'static 'speech-info-item :name "jak299r")
|
||||
(new 'static 'speech-info-item :name "jak300r")
|
||||
(new 'static 'speech-info-item :name "jak304r")
|
||||
(new 'static 'speech-info-item :name "jak131r")
|
||||
(new 'static 'speech-info-item :name "jak160r")
|
||||
(new 'static 'speech-info-item :name "jak166r")
|
||||
(new 'static 'speech-info-item :name "dax123r")
|
||||
(new 'static 'speech-info-item :name "jak159r")
|
||||
(new 'static 'speech-info-item :name "jak199r")
|
||||
(new 'static 'speech-info-item :name "jak422r")
|
||||
(new 'static 'speech-info-item :name "jak424r")
|
||||
(new 'static 'speech-info-item :name "dax407r")
|
||||
(new 'static 'speech-info-item :name "dax408r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 27)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak229r")
|
||||
(new 'static 'speech-info-item :name "jak230r")
|
||||
(new 'static 'speech-info-item :name "jak231r")
|
||||
(new 'static 'speech-info-item :name "jak232r")
|
||||
(new 'static 'speech-info-item :name "jak233r")
|
||||
(new 'static 'speech-info-item :name "jak234r")
|
||||
(new 'static 'speech-info-item :name "jak235r")
|
||||
(new 'static 'speech-info-item :name "jak236r")
|
||||
(new 'static 'speech-info-item :name "jak237r")
|
||||
(new 'static 'speech-info-item :name "jak238r")
|
||||
(new 'static 'speech-info-item :name "jak239r")
|
||||
(new 'static 'speech-info-item :name "jak240r")
|
||||
(new 'static 'speech-info-item :name "jak241r")
|
||||
(new 'static 'speech-info-item :name "jak242r")
|
||||
(new 'static 'speech-info-item :name "jak243r")
|
||||
(new 'static 'speech-info-item :name "jak106r")
|
||||
(new 'static 'speech-info-item :name "jak132r")
|
||||
(new 'static 'speech-info-item :name "jak133r")
|
||||
(new 'static 'speech-info-item :name "jak142r")
|
||||
(new 'static 'speech-info-item :name "jak175r")
|
||||
(new 'static 'speech-info-item :name "jak176r")
|
||||
(new 'static 'speech-info-item :name "jak423r")
|
||||
(new 'static 'speech-info-item :name "dax415r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 28)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "jak426r")
|
||||
(new 'static 'speech-info-item :name "dax406r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 1 speeches 29) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn220r")
|
||||
(new 'static 'speech-info-item :name "rayn216r")
|
||||
(new 'static 'speech-info-item :name "rayn217r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+261
@@ -0,0 +1,261 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed126r")
|
||||
(new 'static 'speech-info-item :name "kaed134r")
|
||||
(new 'static 'speech-info-item :name "kaed137r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed101r")
|
||||
(new 'static 'speech-info-item :name "kaed102r")
|
||||
(new 'static 'speech-info-item :name "kaed103r")
|
||||
(new 'static 'speech-info-item :name "kaed104r")
|
||||
(new 'static 'speech-info-item :name "kaed105r")
|
||||
(new 'static 'speech-info-item :name "kaed106r")
|
||||
(new 'static 'speech-info-item :name "kaed107r")
|
||||
(new 'static 'speech-info-item :name "kaed108r")
|
||||
(new 'static 'speech-info-item :name "kaed109r")
|
||||
(new 'static 'speech-info-item :name "kaed110r")
|
||||
(new 'static 'speech-info-item :name "kaed111r")
|
||||
(new 'static 'speech-info-item :name "kaed112r")
|
||||
(new 'static 'speech-info-item :name "kaed113r")
|
||||
(new 'static 'speech-info-item :name "kaed114r")
|
||||
(new 'static 'speech-info-item :name "kaed115r")
|
||||
(new 'static 'speech-info-item :name "kaed116r")
|
||||
(new 'static 'speech-info-item :name "kaed117r")
|
||||
(new 'static 'speech-info-item :name "kaed118r")
|
||||
(new 'static 'speech-info-item :name "kaed119r")
|
||||
(new 'static 'speech-info-item :name "kaed120r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed102r")
|
||||
(new 'static 'speech-info-item :name "kaed103r")
|
||||
(new 'static 'speech-info-item :name "kaed104r")
|
||||
(new 'static 'speech-info-item :name "kaed105r")
|
||||
(new 'static 'speech-info-item :name "kaed106r")
|
||||
(new 'static 'speech-info-item :name "kaed107r")
|
||||
(new 'static 'speech-info-item :name "kaed108r")
|
||||
(new 'static 'speech-info-item :name "kaed109r")
|
||||
(new 'static 'speech-info-item :name "kaed111r")
|
||||
(new 'static 'speech-info-item :name "kaed112r")
|
||||
(new 'static 'speech-info-item :name "kaed113r")
|
||||
(new 'static 'speech-info-item :name "kaed114r")
|
||||
(new 'static 'speech-info-item :name "kaed115r")
|
||||
(new 'static 'speech-info-item :name "kaed116r")
|
||||
(new 'static 'speech-info-item :name "kaed117r")
|
||||
(new 'static 'speech-info-item :name "kaed118r")
|
||||
(new 'static 'speech-info-item :name "kaed120r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed121r")
|
||||
(new 'static 'speech-info-item :name "kaed122r")
|
||||
(new 'static 'speech-info-item :name "kaed123r")
|
||||
(new 'static 'speech-info-item :name "kaed124r")
|
||||
(new 'static 'speech-info-item :name "kaed125r")
|
||||
(new 'static 'speech-info-item :name "kaed127r")
|
||||
(new 'static 'speech-info-item :name "kaed128r")
|
||||
(new 'static 'speech-info-item :name "kaed129r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed130r")
|
||||
(new 'static 'speech-info-item :name "kaed131r")
|
||||
(new 'static 'speech-info-item :name "kaed132r")
|
||||
(new 'static 'speech-info-item :name "kaed133r")
|
||||
(new 'static 'speech-info-item :name "kaed135r")
|
||||
(new 'static 'speech-info-item :name "kaed136r")
|
||||
(new 'static 'speech-info-item :name "kaed138r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed139r")
|
||||
(new 'static 'speech-info-item :name "kaed140r")
|
||||
(new 'static 'speech-info-item :name "kaed141r")
|
||||
(new 'static 'speech-info-item :name "kaed142r")
|
||||
(new 'static 'speech-info-item :name "kaed143r")
|
||||
(new 'static 'speech-info-item :name "kaed144r")
|
||||
(new 'static 'speech-info-item :name "kaed145r")
|
||||
(new 'static 'speech-info-item :name "kaed146r")
|
||||
(new 'static 'speech-info-item :name "kaed147r")
|
||||
(new 'static 'speech-info-item :name "kaed148r")
|
||||
(new 'static 'speech-info-item :name "kaed149r")
|
||||
(new 'static 'speech-info-item :name "kaed150r")
|
||||
(new 'static 'speech-info-item :name "kaed151r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed152r")
|
||||
(new 'static 'speech-info-item :name "kaed153r")
|
||||
(new 'static 'speech-info-item :name "kaed154r")
|
||||
(new 'static 'speech-info-item :name "kaed155r")
|
||||
(new 'static 'speech-info-item :name "kaed156r")
|
||||
(new 'static 'speech-info-item :name "kaed157r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed158r")
|
||||
(new 'static 'speech-info-item :name "kaed159r")
|
||||
(new 'static 'speech-info-item :name "kaed160r")
|
||||
(new 'static 'speech-info-item :name "kaed161r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "kaed163r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "kaed164r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed165r")
|
||||
(new 'static 'speech-info-item :name "kaed166r")
|
||||
(new 'static 'speech-info-item :name "kaed167r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed168r")
|
||||
(new 'static 'speech-info-item :name "kaed169r")
|
||||
(new 'static 'speech-info-item :name "kaed170r")
|
||||
(new 'static 'speech-info-item :name "kaed171r")
|
||||
(new 'static 'speech-info-item :name "kaed172r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed173r")
|
||||
(new 'static 'speech-info-item :name "kaed174r")
|
||||
(new 'static 'speech-info-item :name "kaed175r")
|
||||
(new 'static 'speech-info-item :name "kaed176r")
|
||||
(new 'static 'speech-info-item :name "kaed177r")
|
||||
(new 'static 'speech-info-item :name "kaed178r")
|
||||
(new 'static 'speech-info-item :name "kaed179r")
|
||||
(new 'static 'speech-info-item :name "kaed180r")
|
||||
(new 'static 'speech-info-item :name "kaed181r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed173r")
|
||||
(new 'static 'speech-info-item :name "kaed174r")
|
||||
(new 'static 'speech-info-item :name "kaed175r")
|
||||
(new 'static 'speech-info-item :name "kaed176r")
|
||||
(new 'static 'speech-info-item :name "kaed177r")
|
||||
(new 'static 'speech-info-item :name "kaed178r")
|
||||
(new 'static 'speech-info-item :name "kaed179r")
|
||||
(new 'static 'speech-info-item :name "kaed180r")
|
||||
(new 'static 'speech-info-item :name "kaed181r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed182r")
|
||||
(new 'static 'speech-info-item :name "kaed183r")
|
||||
(new 'static 'speech-info-item :name "kaed184r")
|
||||
(new 'static 'speech-info-item :name "kaed185r")
|
||||
(new 'static 'speech-info-item :name "kaed186r")
|
||||
(new 'static 'speech-info-item :name "kaed187r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed182r")
|
||||
(new 'static 'speech-info-item :name "kaed183r")
|
||||
(new 'static 'speech-info-item :name "kaed184r")
|
||||
(new 'static 'speech-info-item :name "kaed185r")
|
||||
(new 'static 'speech-info-item :name "kaed186r")
|
||||
(new 'static 'speech-info-item :name "kaed187r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed188r")
|
||||
(new 'static 'speech-info-item :name "kaed189r")
|
||||
(new 'static 'speech-info-item :name "kaed190r")
|
||||
(new 'static 'speech-info-item :name "kaed191r")
|
||||
(new 'static 'speech-info-item :name "kaed192r")
|
||||
(new 'static 'speech-info-item :name "kaed193r")
|
||||
(new 'static 'speech-info-item :name "kaed194r")
|
||||
(new 'static 'speech-info-item :name "kaed195r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 19 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "kaed183r")
|
||||
(new 'static 'speech-info-item :name "kaed162r")
|
||||
(new 'static 'speech-info-item :name "kaed155r")
|
||||
(new 'static 'speech-info-item :name "kaed162r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+543
@@ -0,0 +1,543 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir108r")
|
||||
(new 'static 'speech-info-item :name "keir113r")
|
||||
(new 'static 'speech-info-item :name "keir116r")
|
||||
(new 'static 'speech-info-item :name "keir117r")
|
||||
(new 'static 'speech-info-item :name "keir120r")
|
||||
(new 'static 'speech-info-item :name "keir121r")
|
||||
(new 'static 'speech-info-item :name "keir122r")
|
||||
(new 'static 'speech-info-item :name "keir123r")
|
||||
(new 'static 'speech-info-item :name "keir124r")
|
||||
(new 'static 'speech-info-item :name "keir125r")
|
||||
(new 'static 'speech-info-item :name "keir126r")
|
||||
(new 'static 'speech-info-item :name "keir127r")
|
||||
(new 'static 'speech-info-item :name "keir129r")
|
||||
(new 'static 'speech-info-item :name "keir130r")
|
||||
(new 'static 'speech-info-item :name "keir131r")
|
||||
(new 'static 'speech-info-item :name "keir132r")
|
||||
(new 'static 'speech-info-item :name "keir133r")
|
||||
(new 'static 'speech-info-item :name "keir134r")
|
||||
(new 'static 'speech-info-item :name "keir135r")
|
||||
(new 'static 'speech-info-item :name "keir139r")
|
||||
(new 'static 'speech-info-item :name "keir140r")
|
||||
(new 'static 'speech-info-item :name "keir142r")
|
||||
(new 'static 'speech-info-item :name "keir143r")
|
||||
(new 'static 'speech-info-item :name "keir144r")
|
||||
(new 'static 'speech-info-item :name "keir146r")
|
||||
(new 'static 'speech-info-item :name "keir147r")
|
||||
(new 'static 'speech-info-item :name "keir148r")
|
||||
(new 'static 'speech-info-item :name "keir149r")
|
||||
(new 'static 'speech-info-item :name "keir150r")
|
||||
(new 'static 'speech-info-item :name "keir151r")
|
||||
(new 'static 'speech-info-item :name "keir152r")
|
||||
(new 'static 'speech-info-item :name "keir153r")
|
||||
(new 'static 'speech-info-item :name "keir154r")
|
||||
(new 'static 'speech-info-item :name "keir155r")
|
||||
(new 'static 'speech-info-item :name "keir157r")
|
||||
(new 'static 'speech-info-item :name "keir158r")
|
||||
(new 'static 'speech-info-item :name "keir162r")
|
||||
(new 'static 'speech-info-item :name "keir163r")
|
||||
(new 'static 'speech-info-item :name "keir164r")
|
||||
(new 'static 'speech-info-item :name "keir165r")
|
||||
(new 'static 'speech-info-item :name "keir166r")
|
||||
(new 'static 'speech-info-item :name "keir167r")
|
||||
(new 'static 'speech-info-item :name "keir168r")
|
||||
(new 'static 'speech-info-item :name "keir169r")
|
||||
(new 'static 'speech-info-item :name "keir170r")
|
||||
(new 'static 'speech-info-item :name "keir171r")
|
||||
(new 'static 'speech-info-item :name "keir172r")
|
||||
(new 'static 'speech-info-item :name "keir173r")
|
||||
(new 'static 'speech-info-item :name "keir174r")
|
||||
(new 'static 'speech-info-item :name "keir176r")
|
||||
(new 'static 'speech-info-item :name "keir177r")
|
||||
(new 'static 'speech-info-item :name "keir178r")
|
||||
(new 'static 'speech-info-item :name "keir182r")
|
||||
(new 'static 'speech-info-item :name "keir183r")
|
||||
(new 'static 'speech-info-item :name "keir188r")
|
||||
(new 'static 'speech-info-item :name "keir189r")
|
||||
(new 'static 'speech-info-item :name "keir190r")
|
||||
(new 'static 'speech-info-item :name "keir193r")
|
||||
(new 'static 'speech-info-item :name "keir194r")
|
||||
(new 'static 'speech-info-item :name "keir195r")
|
||||
(new 'static 'speech-info-item :name "keir196r")
|
||||
(new 'static 'speech-info-item :name "keir197r")
|
||||
(new 'static 'speech-info-item :name "keir198r")
|
||||
(new 'static 'speech-info-item :name "keir199r")
|
||||
(new 'static 'speech-info-item :name "keir200r")
|
||||
(new 'static 'speech-info-item :name "keir201r")
|
||||
(new 'static 'speech-info-item :name "keir202r")
|
||||
(new 'static 'speech-info-item :name "keir204r")
|
||||
(new 'static 'speech-info-item :name "keir205r")
|
||||
(new 'static 'speech-info-item :name "keir206r")
|
||||
(new 'static 'speech-info-item :name "keir207r")
|
||||
(new 'static 'speech-info-item :name "keir208r")
|
||||
(new 'static 'speech-info-item :name "keir209r")
|
||||
(new 'static 'speech-info-item :name "keir210r")
|
||||
(new 'static 'speech-info-item :name "keir211r")
|
||||
(new 'static 'speech-info-item :name "keir215r")
|
||||
(new 'static 'speech-info-item :name "keir218r")
|
||||
(new 'static 'speech-info-item :name "keir219r")
|
||||
(new 'static 'speech-info-item :name "keir220r")
|
||||
(new 'static 'speech-info-item :name "keir221r")
|
||||
(new 'static 'speech-info-item :name "keir222r")
|
||||
(new 'static 'speech-info-item :name "keir223r")
|
||||
(new 'static 'speech-info-item :name "keir224r")
|
||||
(new 'static 'speech-info-item :name "keir225r")
|
||||
(new 'static 'speech-info-item :name "keir226r")
|
||||
(new 'static 'speech-info-item :name "keir227r")
|
||||
(new 'static 'speech-info-item :name "keir228r")
|
||||
(new 'static 'speech-info-item :name "keir229r")
|
||||
(new 'static 'speech-info-item :name "keir230r")
|
||||
(new 'static 'speech-info-item :name "keir231r")
|
||||
(new 'static 'speech-info-item :name "keir232r")
|
||||
(new 'static 'speech-info-item :name "keir233r")
|
||||
(new 'static 'speech-info-item :name "keir269r")
|
||||
(new 'static 'speech-info-item :name "keir281r")
|
||||
(new 'static 'speech-info-item :name "keir289r")
|
||||
(new 'static 'speech-info-item :name "keir351r")
|
||||
(new 'static 'speech-info-item :name "keir352r")
|
||||
(new 'static 'speech-info-item :name "keir355r")
|
||||
(new 'static 'speech-info-item :name "keir356r")
|
||||
(new 'static 'speech-info-item :name "keir359r")
|
||||
(new 'static 'speech-info-item :name "keir360r")
|
||||
(new 'static 'speech-info-item :name "keir362r")
|
||||
(new 'static 'speech-info-item :name "keir402r")
|
||||
(new 'static 'speech-info-item :name "keir403r")
|
||||
(new 'static 'speech-info-item :name "keir404r")
|
||||
(new 'static 'speech-info-item :name "keir405r")
|
||||
(new 'static 'speech-info-item :name "keir406r")
|
||||
(new 'static 'speech-info-item :name "keir407r")
|
||||
(new 'static 'speech-info-item :name "keir409r")
|
||||
(new 'static 'speech-info-item :name "keir410r")
|
||||
(new 'static 'speech-info-item :name "keir411r")
|
||||
(new 'static 'speech-info-item :name "keir412r")
|
||||
(new 'static 'speech-info-item :name "keir413r")
|
||||
(new 'static 'speech-info-item :name "keir414r")
|
||||
(new 'static 'speech-info-item :name "keir415r")
|
||||
(new 'static 'speech-info-item :name "keir416r")
|
||||
(new 'static 'speech-info-item :name "keir417r")
|
||||
(new 'static 'speech-info-item :name "keir418r")
|
||||
(new 'static 'speech-info-item :name "keir419r")
|
||||
(new 'static 'speech-info-item :name "keir420r")
|
||||
(new 'static 'speech-info-item :name "keir421r")
|
||||
(new 'static 'speech-info-item :name "keir255r")
|
||||
(new 'static 'speech-info-item :name "keir256r")
|
||||
(new 'static 'speech-info-item :name "keir257r")
|
||||
(new 'static 'speech-info-item :name "keir259r")
|
||||
(new 'static 'speech-info-item :name "keir262r")
|
||||
(new 'static 'speech-info-item :name "keir271r")
|
||||
(new 'static 'speech-info-item :name "keir292r")
|
||||
(new 'static 'speech-info-item :name "keir295r")
|
||||
(new 'static 'speech-info-item :name "keir299r")
|
||||
(new 'static 'speech-info-item :name "keir302r")
|
||||
(new 'static 'speech-info-item :name "keir303r")
|
||||
(new 'static 'speech-info-item :name "keir304r")
|
||||
(new 'static 'speech-info-item :name "keir315r")
|
||||
(new 'static 'speech-info-item :name "keir316r")
|
||||
(new 'static 'speech-info-item :name "keir318r")
|
||||
(new 'static 'speech-info-item :name "keir319r")
|
||||
(new 'static 'speech-info-item :name "keir320r")
|
||||
(new 'static 'speech-info-item :name "keir321r")
|
||||
(new 'static 'speech-info-item :name "keir322r")
|
||||
(new 'static 'speech-info-item :name "keir323r")
|
||||
(new 'static 'speech-info-item :name "keir191r")
|
||||
(new 'static 'speech-info-item :name "keir325r")
|
||||
(new 'static 'speech-info-item :name "keir327r")
|
||||
(new 'static 'speech-info-item :name "keir328r")
|
||||
(new 'static 'speech-info-item :name "keir329r")
|
||||
(new 'static 'speech-info-item :name "keir337r")
|
||||
(new 'static 'speech-info-item :name "keir338r")
|
||||
(new 'static 'speech-info-item :name "keir347r")
|
||||
(new 'static 'speech-info-item :name "keir348r")
|
||||
(new 'static 'speech-info-item :name "keir349r")
|
||||
(new 'static 'speech-info-item :name "keir350r")
|
||||
(new 'static 'speech-info-item :name "keir105r")
|
||||
(new 'static 'speech-info-item :name "keir381r")
|
||||
(new 'static 'speech-info-item :name "keir382r")
|
||||
(new 'static 'speech-info-item :name "keir388r")
|
||||
(new 'static 'speech-info-item :name "keir389r")
|
||||
(new 'static 'speech-info-item :name "keir393r")
|
||||
(new 'static 'speech-info-item :name "keir106r")
|
||||
(new 'static 'speech-info-item :name "keir114r")
|
||||
(new 'static 'speech-info-item :name "keir395r")
|
||||
(new 'static 'speech-info-item :name "keir238r")
|
||||
(new 'static 'speech-info-item :name "keir239r")
|
||||
(new 'static 'speech-info-item :name "keir252r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "keir358r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir234r")
|
||||
(new 'static 'speech-info-item :name "keir235r")
|
||||
(new 'static 'speech-info-item :name "keir236r")
|
||||
(new 'static 'speech-info-item :name "keir237r")
|
||||
(new 'static 'speech-info-item :name "keir238r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "keir239r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "keir240r")
|
||||
(new 'static 'speech-info-item :name "keir241r")
|
||||
(new 'static 'speech-info-item :name "keir242r")
|
||||
(new 'static 'speech-info-item :name "keir243r")
|
||||
(new 'static 'speech-info-item :name "keir244r")
|
||||
(new 'static 'speech-info-item :name "keir245r")
|
||||
(new 'static 'speech-info-item :name "keir246r")
|
||||
(new 'static 'speech-info-item :name "keir247r")
|
||||
(new 'static 'speech-info-item :name "keir248r")
|
||||
(new 'static 'speech-info-item :name "keir249r")
|
||||
(new 'static 'speech-info-item :name "keir250r")
|
||||
(new 'static 'speech-info-item :name "keir251r")
|
||||
(new 'static 'speech-info-item :name "keir252r")
|
||||
(new 'static 'speech-info-item :name "keir253r")
|
||||
(new 'static 'speech-info-item :name "keir254r")
|
||||
(new 'static 'speech-info-item :name "keir185r")
|
||||
(new 'static 'speech-info-item :name "keir353r")
|
||||
(new 'static 'speech-info-item :name "keir357r")
|
||||
(new 'static 'speech-info-item :name "keir408r")
|
||||
(new 'static 'speech-info-item :name "keir361r")
|
||||
(new 'static 'speech-info-item :name "keir115r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir258r")
|
||||
(new 'static 'speech-info-item :name "keir260r")
|
||||
(new 'static 'speech-info-item :name "keir261r")
|
||||
(new 'static 'speech-info-item :name "keir263r")
|
||||
(new 'static 'speech-info-item :name "keir264r")
|
||||
(new 'static 'speech-info-item :name "keir265r")
|
||||
(new 'static 'speech-info-item :name "keir266r")
|
||||
(new 'static 'speech-info-item :name "keir267r")
|
||||
(new 'static 'speech-info-item :name "keir268r")
|
||||
(new 'static 'speech-info-item :name "keir270r")
|
||||
(new 'static 'speech-info-item :name "keir136r")
|
||||
(new 'static 'speech-info-item :name "keir137r")
|
||||
(new 'static 'speech-info-item :name "keir138r")
|
||||
(new 'static 'speech-info-item :name "keir156r")
|
||||
(new 'static 'speech-info-item :name "keir203r")
|
||||
(new 'static 'speech-info-item :name "keir128r")
|
||||
(new 'static 'speech-info-item :name "keir141r")
|
||||
(new 'static 'speech-info-item :name "keir159r")
|
||||
(new 'static 'speech-info-item :name "keir179r")
|
||||
(new 'static 'speech-info-item :name "keir180r")
|
||||
(new 'static 'speech-info-item :name "keir363r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir272r")
|
||||
(new 'static 'speech-info-item :name "keir273r")
|
||||
(new 'static 'speech-info-item :name "keir274r")
|
||||
(new 'static 'speech-info-item :name "keir275r")
|
||||
(new 'static 'speech-info-item :name "keir276r")
|
||||
(new 'static 'speech-info-item :name "keir277r")
|
||||
(new 'static 'speech-info-item :name "keir278r")
|
||||
(new 'static 'speech-info-item :name "keir279r")
|
||||
(new 'static 'speech-info-item :name "keir280r")
|
||||
(new 'static 'speech-info-item :name "keir282r")
|
||||
(new 'static 'speech-info-item :name "keir283r")
|
||||
(new 'static 'speech-info-item :name "keir284r")
|
||||
(new 'static 'speech-info-item :name "keir285r")
|
||||
(new 'static 'speech-info-item :name "keir286r")
|
||||
(new 'static 'speech-info-item :name "keir287r")
|
||||
(new 'static 'speech-info-item :name "keir288r")
|
||||
(new 'static 'speech-info-item :name "keir290r")
|
||||
(new 'static 'speech-info-item :name "keir216r")
|
||||
(new 'static 'speech-info-item :name "keir217r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir291r")
|
||||
(new 'static 'speech-info-item :name "keir293r")
|
||||
(new 'static 'speech-info-item :name "keir294r")
|
||||
(new 'static 'speech-info-item :name "keir296r")
|
||||
(new 'static 'speech-info-item :name "keir297r")
|
||||
(new 'static 'speech-info-item :name "keir298r")
|
||||
(new 'static 'speech-info-item :name "keir300r")
|
||||
(new 'static 'speech-info-item :name "keir301r")
|
||||
(new 'static 'speech-info-item :name "keir305r")
|
||||
(new 'static 'speech-info-item :name "keir306r")
|
||||
(new 'static 'speech-info-item :name "keir307r")
|
||||
(new 'static 'speech-info-item :name "keir308r")
|
||||
(new 'static 'speech-info-item :name "keir309r")
|
||||
(new 'static 'speech-info-item :name "keir310r")
|
||||
(new 'static 'speech-info-item :name "keir311r")
|
||||
(new 'static 'speech-info-item :name "keir312r")
|
||||
(new 'static 'speech-info-item :name "keir313r")
|
||||
(new 'static 'speech-info-item :name "keir314r")
|
||||
(new 'static 'speech-info-item :name "keir317r")
|
||||
(new 'static 'speech-info-item :name "keir175r")
|
||||
(new 'static 'speech-info-item :name "keir118r")
|
||||
(new 'static 'speech-info-item :name "keir119r")
|
||||
(new 'static 'speech-info-item :name "keir181r")
|
||||
(new 'static 'speech-info-item :name "keir184r")
|
||||
(new 'static 'speech-info-item :name "keir186r")
|
||||
(new 'static 'speech-info-item :name "keir187r")
|
||||
(new 'static 'speech-info-item :name "keir192r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir324r")
|
||||
(new 'static 'speech-info-item :name "keir326r")
|
||||
(new 'static 'speech-info-item :name "keir330r")
|
||||
(new 'static 'speech-info-item :name "keir331r")
|
||||
(new 'static 'speech-info-item :name "keir332r")
|
||||
(new 'static 'speech-info-item :name "keir333r")
|
||||
(new 'static 'speech-info-item :name "keir334r")
|
||||
(new 'static 'speech-info-item :name "keir335r")
|
||||
(new 'static 'speech-info-item :name "keir336r")
|
||||
(new 'static 'speech-info-item :name "keir339r")
|
||||
(new 'static 'speech-info-item :name "keir340r")
|
||||
(new 'static 'speech-info-item :name "keir341r")
|
||||
(new 'static 'speech-info-item :name "keir354r")
|
||||
(new 'static 'speech-info-item :name "keir159r")
|
||||
(new 'static 'speech-info-item :name "keir160r")
|
||||
(new 'static 'speech-info-item :name "keir161r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir342r")
|
||||
(new 'static 'speech-info-item :name "keir343r")
|
||||
(new 'static 'speech-info-item :name "keir344r")
|
||||
(new 'static 'speech-info-item :name "keir345r")
|
||||
(new 'static 'speech-info-item :name "keir346r")
|
||||
(new 'static 'speech-info-item :name "keir101r")
|
||||
(new 'static 'speech-info-item :name "keir102r")
|
||||
(new 'static 'speech-info-item :name "keir103r")
|
||||
(new 'static 'speech-info-item :name "keir104r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "keir364r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir365r")
|
||||
(new 'static 'speech-info-item :name "keir366r")
|
||||
(new 'static 'speech-info-item :name "keir367r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir368r")
|
||||
(new 'static 'speech-info-item :name "keir369r")
|
||||
(new 'static 'speech-info-item :name "keir370r")
|
||||
(new 'static 'speech-info-item :name "keir371r")
|
||||
(new 'static 'speech-info-item :name "keir372r")
|
||||
(new 'static 'speech-info-item :name "keir373r")
|
||||
(new 'static 'speech-info-item :name "keir374r")
|
||||
(new 'static 'speech-info-item :name "keir375r")
|
||||
(new 'static 'speech-info-item :name "keir212r")
|
||||
(new 'static 'speech-info-item :name "keir213r")
|
||||
(new 'static 'speech-info-item :name "keir214r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir376r")
|
||||
(new 'static 'speech-info-item :name "keir377r")
|
||||
(new 'static 'speech-info-item :name "keir378r")
|
||||
(new 'static 'speech-info-item :name "keir379r")
|
||||
(new 'static 'speech-info-item :name "keir380r")
|
||||
(new 'static 'speech-info-item :name "keir383r")
|
||||
(new 'static 'speech-info-item :name "keir384r")
|
||||
(new 'static 'speech-info-item :name "keir385r")
|
||||
(new 'static 'speech-info-item :name "keir386r")
|
||||
(new 'static 'speech-info-item :name "keir387r")
|
||||
(new 'static 'speech-info-item :name "keir390r")
|
||||
(new 'static 'speech-info-item :name "keir391r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "keir392r")
|
||||
(new 'static 'speech-info-item :name "keir107r")
|
||||
(new 'static 'speech-info-item :name "keir109r")
|
||||
(new 'static 'speech-info-item :name "keir110r")
|
||||
(new 'static 'speech-info-item :name "keir112r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 2)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir394r")
|
||||
(new 'static 'speech-info-item :name "keir396r")
|
||||
(new 'static 'speech-info-item :name "keir397r")
|
||||
(new 'static 'speech-info-item :name "keir398r")
|
||||
(new 'static 'speech-info-item :name "keir399r")
|
||||
(new 'static 'speech-info-item :name "keir400r")
|
||||
(new 'static 'speech-info-item :name "keir401r")
|
||||
(new 'static 'speech-info-item :name "keir111r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "keir145r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir376r")
|
||||
(new 'static 'speech-info-item :name "keir377r")
|
||||
(new 'static 'speech-info-item :name "keir378r")
|
||||
(new 'static 'speech-info-item :name "keir379r")
|
||||
(new 'static 'speech-info-item :name "keir380r")
|
||||
(new 'static 'speech-info-item :name "keir383r")
|
||||
(new 'static 'speech-info-item :name "keir384r")
|
||||
(new 'static 'speech-info-item :name "keir385r")
|
||||
(new 'static 'speech-info-item :name "keir386r")
|
||||
(new 'static 'speech-info-item :name "keir387r")
|
||||
(new 'static 'speech-info-item :name "keir390r")
|
||||
(new 'static 'speech-info-item :name "keir392r")
|
||||
(new 'static 'speech-info-item :name "keir107r")
|
||||
(new 'static 'speech-info-item :name "keir109r")
|
||||
(new 'static 'speech-info-item :name "keir110r")
|
||||
(new 'static 'speech-info-item :name "keir112r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir394r")
|
||||
(new 'static 'speech-info-item :name "keir396r")
|
||||
(new 'static 'speech-info-item :name "keir397r")
|
||||
(new 'static 'speech-info-item :name "keir398r")
|
||||
(new 'static 'speech-info-item :name "keir399r")
|
||||
(new 'static 'speech-info-item :name "keir400r")
|
||||
(new 'static 'speech-info-item :name "keir401r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir422r")
|
||||
(new 'static 'speech-info-item :name "keir423r")
|
||||
(new 'static 'speech-info-item :name "keir424r")
|
||||
(new 'static 'speech-info-item :name "keir425r")
|
||||
(new 'static 'speech-info-item :name "keir426r")
|
||||
(new 'static 'speech-info-item :name "keir427r")
|
||||
(new 'static 'speech-info-item :name "keir106r")
|
||||
(new 'static 'speech-info-item :name "keir112r")
|
||||
(new 'static 'speech-info-item :name "keir114r")
|
||||
(new 'static 'speech-info-item :name "keir116r")
|
||||
(new 'static 'speech-info-item :name "keir120r")
|
||||
(new 'static 'speech-info-item :name "keir181r")
|
||||
(new 'static 'speech-info-item :name "keir184r")
|
||||
(new 'static 'speech-info-item :name "keir188r")
|
||||
(new 'static 'speech-info-item :name "keir190r")
|
||||
(new 'static 'speech-info-item :name "keir227r")
|
||||
(new 'static 'speech-info-item :name "keir263r")
|
||||
(new 'static 'speech-info-item :name "keir265r")
|
||||
(new 'static 'speech-info-item :name "keir266r")
|
||||
(new 'static 'speech-info-item :name "keir273r")
|
||||
(new 'static 'speech-info-item :name "keir274r")
|
||||
(new 'static 'speech-info-item :name "keir278r")
|
||||
(new 'static 'speech-info-item :name "keir279r")
|
||||
(new 'static 'speech-info-item :name "keir280r")
|
||||
(new 'static 'speech-info-item :name "keir281r")
|
||||
(new 'static 'speech-info-item :name "keir284r")
|
||||
(new 'static 'speech-info-item :name "keir286r")
|
||||
(new 'static 'speech-info-item :name "keir287r")
|
||||
(new 'static 'speech-info-item :name "keir288r")
|
||||
(new 'static 'speech-info-item :name "keir290r")
|
||||
(new 'static 'speech-info-item :name "keir295r")
|
||||
(new 'static 'speech-info-item :name "keir296r")
|
||||
(new 'static 'speech-info-item :name "keir297r")
|
||||
(new 'static 'speech-info-item :name "keir300r")
|
||||
(new 'static 'speech-info-item :name "keir313r")
|
||||
(new 'static 'speech-info-item :name "keir353r")
|
||||
(new 'static 'speech-info-item :name "keir358r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir104r")
|
||||
(new 'static 'speech-info-item :name "keir105r")
|
||||
(new 'static 'speech-info-item :name "keir342r")
|
||||
(new 'static 'speech-info-item :name "keir346r")
|
||||
(new 'static 'speech-info-item :name "keir347r")
|
||||
(new 'static 'speech-info-item :name "keir348r")
|
||||
(new 'static 'speech-info-item :name "keir350r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 3 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "keir234r")
|
||||
(new 'static 'speech-info-item :name "keir235r")
|
||||
(new 'static 'speech-info-item :name "keir237r")
|
||||
(new 'static 'speech-info-item :name "keir241r")
|
||||
(new 'static 'speech-info-item :name "keir242r")
|
||||
(new 'static 'speech-info-item :name "keir243r")
|
||||
(new 'static 'speech-info-item :name "keir245r")
|
||||
(new 'static 'speech-info-item :name "keir246r")
|
||||
(new 'static 'speech-info-item :name "keir247r")
|
||||
(new 'static 'speech-info-item :name "keir249r")
|
||||
(new 'static 'speech-info-item :name "keir250r")
|
||||
(new 'static 'speech-info-item :name "keir253r")
|
||||
(new 'static 'speech-info-item :name "keir254r")
|
||||
(new 'static 'speech-info-item :name "keir185r")
|
||||
(new 'static 'speech-info-item :name "keir353r")
|
||||
(new 'static 'speech-info-item :name "keir408r")
|
||||
(new 'static 'speech-info-item :name "keir361r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+534
@@ -0,0 +1,534 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev142r")
|
||||
(new 'static 'speech-info-item :name "klev152r")
|
||||
(new 'static 'speech-info-item :name "klev153r")
|
||||
(new 'static 'speech-info-item :name "klev159r")
|
||||
(new 'static 'speech-info-item :name "klev171r")
|
||||
(new 'static 'speech-info-item :name "klev179r")
|
||||
(new 'static 'speech-info-item :name "klev180r")
|
||||
(new 'static 'speech-info-item :name "klev181r")
|
||||
(new 'static 'speech-info-item :name "klev182r")
|
||||
(new 'static 'speech-info-item :name "klev189r")
|
||||
(new 'static 'speech-info-item :name "klev263r")
|
||||
(new 'static 'speech-info-item :name "klev264r")
|
||||
(new 'static 'speech-info-item :name "klev265r")
|
||||
(new 'static 'speech-info-item :name "klev267r")
|
||||
(new 'static 'speech-info-item :name "klev268r")
|
||||
(new 'static 'speech-info-item :name "klev269r")
|
||||
(new 'static 'speech-info-item :name "klev270r")
|
||||
(new 'static 'speech-info-item :name "klev273r")
|
||||
(new 'static 'speech-info-item :name "klev274r")
|
||||
(new 'static 'speech-info-item :name "klev275r")
|
||||
(new 'static 'speech-info-item :name "klev278r")
|
||||
(new 'static 'speech-info-item :name "klev329r")
|
||||
(new 'static 'speech-info-item :name "klev330r")
|
||||
(new 'static 'speech-info-item :name "klev331r")
|
||||
(new 'static 'speech-info-item :name "klev332r")
|
||||
(new 'static 'speech-info-item :name "klev333r")
|
||||
(new 'static 'speech-info-item :name "klev334r")
|
||||
(new 'static 'speech-info-item :name "klev335r")
|
||||
(new 'static 'speech-info-item :name "klev336r")
|
||||
(new 'static 'speech-info-item :name "klev337r")
|
||||
(new 'static 'speech-info-item :name "klev338r")
|
||||
(new 'static 'speech-info-item :name "klev339r")
|
||||
(new 'static 'speech-info-item :name "klev340r")
|
||||
(new 'static 'speech-info-item :name "klev342r")
|
||||
(new 'static 'speech-info-item :name "klev343r")
|
||||
(new 'static 'speech-info-item :name "klev344r")
|
||||
(new 'static 'speech-info-item :name "klev345r")
|
||||
(new 'static 'speech-info-item :name "klev347r")
|
||||
(new 'static 'speech-info-item :name "klev348r")
|
||||
(new 'static 'speech-info-item :name "klev349r")
|
||||
(new 'static 'speech-info-item :name "klev350r")
|
||||
(new 'static 'speech-info-item :name "klev351r")
|
||||
(new 'static 'speech-info-item :name "klev352r")
|
||||
(new 'static 'speech-info-item :name "klev353r")
|
||||
(new 'static 'speech-info-item :name "klev354r")
|
||||
(new 'static 'speech-info-item :name "klev202r")
|
||||
(new 'static 'speech-info-item :name "klev203r")
|
||||
(new 'static 'speech-info-item :name "klev233r")
|
||||
(new 'static 'speech-info-item :name "klev235r")
|
||||
(new 'static 'speech-info-item :name "klev223r")
|
||||
(new 'static 'speech-info-item :name "klev224r")
|
||||
(new 'static 'speech-info-item :name "klev228r")
|
||||
(new 'static 'speech-info-item :name "klev240r")
|
||||
(new 'static 'speech-info-item :name "klev246r")
|
||||
(new 'static 'speech-info-item :name "klev183r")
|
||||
(new 'static 'speech-info-item :name "klev256r")
|
||||
(new 'static 'speech-info-item :name "klev257r")
|
||||
(new 'static 'speech-info-item :name "klev258r")
|
||||
(new 'static 'speech-info-item :name "klev259r")
|
||||
(new 'static 'speech-info-item :name "klev260r")
|
||||
(new 'static 'speech-info-item :name "klev261r")
|
||||
(new 'static 'speech-info-item :name "klev307r")
|
||||
(new 'static 'speech-info-item :name "klev308r")
|
||||
(new 'static 'speech-info-item :name "klev312r")
|
||||
(new 'static 'speech-info-item :name "klev316r")
|
||||
(new 'static 'speech-info-item :name "klev317r")
|
||||
(new 'static 'speech-info-item :name "klev323r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "klev272r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev101r")
|
||||
(new 'static 'speech-info-item :name "klev102r")
|
||||
(new 'static 'speech-info-item :name "klev103r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev104r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev105r")
|
||||
(new 'static 'speech-info-item :name "klev106r")
|
||||
(new 'static 'speech-info-item :name "klev107r")
|
||||
(new 'static 'speech-info-item :name "klev108r")
|
||||
(new 'static 'speech-info-item :name "klev109r")
|
||||
(new 'static 'speech-info-item :name "klev110r")
|
||||
(new 'static 'speech-info-item :name "klev111r")
|
||||
(new 'static 'speech-info-item :name "klev112r")
|
||||
(new 'static 'speech-info-item :name "klev113r")
|
||||
(new 'static 'speech-info-item :name "klev114r")
|
||||
(new 'static 'speech-info-item :name "klev115r")
|
||||
(new 'static 'speech-info-item :name "klev116r")
|
||||
(new 'static 'speech-info-item :name "klev117r")
|
||||
(new 'static 'speech-info-item :name "klev118r")
|
||||
(new 'static 'speech-info-item :name "klev119r")
|
||||
(new 'static 'speech-info-item :name "klev120r")
|
||||
(new 'static 'speech-info-item :name "klev121r")
|
||||
(new 'static 'speech-info-item :name "klev122r")
|
||||
(new 'static 'speech-info-item :name "klev123r")
|
||||
(new 'static 'speech-info-item :name "klev124r")
|
||||
(new 'static 'speech-info-item :name "klev125r")
|
||||
(new 'static 'speech-info-item :name "klev126r")
|
||||
(new 'static 'speech-info-item :name "klev127r")
|
||||
(new 'static 'speech-info-item :name "klev128r")
|
||||
(new 'static 'speech-info-item :name "klev129r")
|
||||
(new 'static 'speech-info-item :name "klev130r")
|
||||
(new 'static 'speech-info-item :name "klev131r")
|
||||
(new 'static 'speech-info-item :name "klev132r")
|
||||
(new 'static 'speech-info-item :name "klev133r")
|
||||
(new 'static 'speech-info-item :name "klev271r")
|
||||
(new 'static 'speech-info-item :name "klev277r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev134r")
|
||||
(new 'static 'speech-info-item :name "klev135r")
|
||||
(new 'static 'speech-info-item :name "klev136r")
|
||||
(new 'static 'speech-info-item :name "klev137r")
|
||||
(new 'static 'speech-info-item :name "klev138r")
|
||||
(new 'static 'speech-info-item :name "klev139r")
|
||||
(new 'static 'speech-info-item :name "klev140r")
|
||||
(new 'static 'speech-info-item :name "klev141r")
|
||||
(new 'static 'speech-info-item :name "klev143r")
|
||||
(new 'static 'speech-info-item :name "klev144r")
|
||||
(new 'static 'speech-info-item :name "klev145r")
|
||||
(new 'static 'speech-info-item :name "klev146r")
|
||||
(new 'static 'speech-info-item :name "klev147r")
|
||||
(new 'static 'speech-info-item :name "klev148r")
|
||||
(new 'static 'speech-info-item :name "klev149r")
|
||||
(new 'static 'speech-info-item :name "klev150r")
|
||||
(new 'static 'speech-info-item :name "klev151r")
|
||||
(new 'static 'speech-info-item :name "klev176r")
|
||||
(new 'static 'speech-info-item :name "klev279r")
|
||||
(new 'static 'speech-info-item :name "klev346r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev154r")
|
||||
(new 'static 'speech-info-item :name "klev155r")
|
||||
(new 'static 'speech-info-item :name "klev156r")
|
||||
(new 'static 'speech-info-item :name "klev157r")
|
||||
(new 'static 'speech-info-item :name "klev158r")
|
||||
(new 'static 'speech-info-item :name "klev160r")
|
||||
(new 'static 'speech-info-item :name "klev161r")
|
||||
(new 'static 'speech-info-item :name "klev162r")
|
||||
(new 'static 'speech-info-item :name "klev163r")
|
||||
(new 'static 'speech-info-item :name "klev164r")
|
||||
(new 'static 'speech-info-item :name "klev165r")
|
||||
(new 'static 'speech-info-item :name "klev166r")
|
||||
(new 'static 'speech-info-item :name "klev167r")
|
||||
(new 'static 'speech-info-item :name "klev168r")
|
||||
(new 'static 'speech-info-item :name "klev169r")
|
||||
(new 'static 'speech-info-item :name "klev170r")
|
||||
(new 'static 'speech-info-item :name "klev172r")
|
||||
(new 'static 'speech-info-item :name "klev173r")
|
||||
(new 'static 'speech-info-item :name "klev174r")
|
||||
(new 'static 'speech-info-item :name "klev175r")
|
||||
(new 'static 'speech-info-item :name "klev177r")
|
||||
(new 'static 'speech-info-item :name "klev178r")
|
||||
(new 'static 'speech-info-item :name "klev341r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 6)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev190r")
|
||||
(new 'static 'speech-info-item :name "klev191r")
|
||||
(new 'static 'speech-info-item :name "klev192r")
|
||||
(new 'static 'speech-info-item :name "klev193r")
|
||||
(new 'static 'speech-info-item :name "klev194r")
|
||||
(new 'static 'speech-info-item :name "klev195r")
|
||||
(new 'static 'speech-info-item :name "klev196r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev197r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev198r")
|
||||
(new 'static 'speech-info-item :name "klev199r")
|
||||
(new 'static 'speech-info-item :name "klev200r")
|
||||
(new 'static 'speech-info-item :name "klev201r")
|
||||
(new 'static 'speech-info-item :name "klev204r")
|
||||
(new 'static 'speech-info-item :name "klev205r")
|
||||
(new 'static 'speech-info-item :name "klev206r")
|
||||
(new 'static 'speech-info-item :name "klev207r")
|
||||
(new 'static 'speech-info-item :name "klev208r")
|
||||
(new 'static 'speech-info-item :name "klev209r")
|
||||
(new 'static 'speech-info-item :name "klev210r")
|
||||
(new 'static 'speech-info-item :name "klev211r")
|
||||
(new 'static 'speech-info-item :name "klev212r")
|
||||
(new 'static 'speech-info-item :name "klev213r")
|
||||
(new 'static 'speech-info-item :name "klev214r")
|
||||
(new 'static 'speech-info-item :name "klev215r")
|
||||
(new 'static 'speech-info-item :name "klev216r")
|
||||
(new 'static 'speech-info-item :name "klev217r")
|
||||
(new 'static 'speech-info-item :name "klev218r")
|
||||
(new 'static 'speech-info-item :name "klev219r")
|
||||
(new 'static 'speech-info-item :name "klev220r")
|
||||
(new 'static 'speech-info-item :name "klev221r")
|
||||
(new 'static 'speech-info-item :name "klev222r")
|
||||
(new 'static 'speech-info-item :name "klev225r")
|
||||
(new 'static 'speech-info-item :name "klev226r")
|
||||
(new 'static 'speech-info-item :name "klev227r")
|
||||
(new 'static 'speech-info-item :name "klev229r")
|
||||
(new 'static 'speech-info-item :name "klev230r")
|
||||
(new 'static 'speech-info-item :name "klev184r")
|
||||
(new 'static 'speech-info-item :name "klev185r")
|
||||
(new 'static 'speech-info-item :name "klev188r")
|
||||
(new 'static 'speech-info-item :name "klev266r")
|
||||
(new 'static 'speech-info-item :name "klev355r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev231r")
|
||||
(new 'static 'speech-info-item :name "klev232r")
|
||||
(new 'static 'speech-info-item :name "klev234r")
|
||||
(new 'static 'speech-info-item :name "klev236r")
|
||||
(new 'static 'speech-info-item :name "klev237r")
|
||||
(new 'static 'speech-info-item :name "klev238r")
|
||||
(new 'static 'speech-info-item :name "klev239r")
|
||||
(new 'static 'speech-info-item :name "klev241r")
|
||||
(new 'static 'speech-info-item :name "klev242r")
|
||||
(new 'static 'speech-info-item :name "klev243r")
|
||||
(new 'static 'speech-info-item :name "klev244r")
|
||||
(new 'static 'speech-info-item :name "klev245r")
|
||||
(new 'static 'speech-info-item :name "klev247r")
|
||||
(new 'static 'speech-info-item :name "klev248r")
|
||||
(new 'static 'speech-info-item :name "klev249r")
|
||||
(new 'static 'speech-info-item :name "klev250r")
|
||||
(new 'static 'speech-info-item :name "klev186r")
|
||||
(new 'static 'speech-info-item :name "klev187r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev251r")
|
||||
(new 'static 'speech-info-item :name "klev252r")
|
||||
(new 'static 'speech-info-item :name "klev253r")
|
||||
(new 'static 'speech-info-item :name "klev254r")
|
||||
(new 'static 'speech-info-item :name "klev255r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "klev280r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev281r")
|
||||
(new 'static 'speech-info-item :name "klev282r")
|
||||
(new 'static 'speech-info-item :name "klev283r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev284r")
|
||||
(new 'static 'speech-info-item :name "klev285r")
|
||||
(new 'static 'speech-info-item :name "klev286r")
|
||||
(new 'static 'speech-info-item :name "klev287r")
|
||||
(new 'static 'speech-info-item :name "klev288r")
|
||||
(new 'static 'speech-info-item :name "klev289r")
|
||||
(new 'static 'speech-info-item :name "klev290r")
|
||||
(new 'static 'speech-info-item :name "klev291r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev292r")
|
||||
(new 'static 'speech-info-item :name "klev293r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev294r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev295r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev296r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "klev297r")
|
||||
(new 'static 'speech-info-item :name "klev298r")
|
||||
(new 'static 'speech-info-item :name "klev299r")
|
||||
(new 'static 'speech-info-item :name "klev300r")
|
||||
(new 'static 'speech-info-item :name "klev301r")
|
||||
(new 'static 'speech-info-item :name "klev302r")
|
||||
(new 'static 'speech-info-item :name "klev303r")
|
||||
(new 'static 'speech-info-item :name "klev304r")
|
||||
(new 'static 'speech-info-item :name "klev305r")
|
||||
(new 'static 'speech-info-item :name "klev306r")
|
||||
(new 'static 'speech-info-item :name "klev309r")
|
||||
(new 'static 'speech-info-item :name "klev310r")
|
||||
(new 'static 'speech-info-item :name "klev311r")
|
||||
(new 'static 'speech-info-item :name "klev313r")
|
||||
(new 'static 'speech-info-item :name "klev314r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev315r")
|
||||
(new 'static 'speech-info-item :name "klev318r")
|
||||
(new 'static 'speech-info-item :name "klev319r")
|
||||
(new 'static 'speech-info-item :name "klev320r")
|
||||
(new 'static 'speech-info-item :name "klev321r")
|
||||
(new 'static 'speech-info-item :name "klev322r")
|
||||
(new 'static 'speech-info-item :name "klev324r")
|
||||
(new 'static 'speech-info-item :name "klev325r")
|
||||
(new 'static 'speech-info-item :name "klev326r")
|
||||
(new 'static 'speech-info-item :name "klev327r")
|
||||
(new 'static 'speech-info-item :name "klev328r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev292r")
|
||||
(new 'static 'speech-info-item :name "klev297r")
|
||||
(new 'static 'speech-info-item :name "klev298r")
|
||||
(new 'static 'speech-info-item :name "klev299r")
|
||||
(new 'static 'speech-info-item :name "klev300r")
|
||||
(new 'static 'speech-info-item :name "klev301r")
|
||||
(new 'static 'speech-info-item :name "klev302r")
|
||||
(new 'static 'speech-info-item :name "klev303r")
|
||||
(new 'static 'speech-info-item :name "klev304r")
|
||||
(new 'static 'speech-info-item :name "klev305r")
|
||||
(new 'static 'speech-info-item :name "klev306r")
|
||||
(new 'static 'speech-info-item :name "klev309r")
|
||||
(new 'static 'speech-info-item :name "klev310r")
|
||||
(new 'static 'speech-info-item :name "klev311r")
|
||||
(new 'static 'speech-info-item :name "klev313r")
|
||||
(new 'static 'speech-info-item :name "klev314r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev315r")
|
||||
(new 'static 'speech-info-item :name "klev318r")
|
||||
(new 'static 'speech-info-item :name "klev319r")
|
||||
(new 'static 'speech-info-item :name "klev320r")
|
||||
(new 'static 'speech-info-item :name "klev321r")
|
||||
(new 'static 'speech-info-item :name "klev322r")
|
||||
(new 'static 'speech-info-item :name "klev324r")
|
||||
(new 'static 'speech-info-item :name "klev325r")
|
||||
(new 'static 'speech-info-item :name "klev326r")
|
||||
(new 'static 'speech-info-item :name "klev327r")
|
||||
(new 'static 'speech-info-item :name "klev328r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev356r")
|
||||
(new 'static 'speech-info-item :name "klev357r")
|
||||
(new 'static 'speech-info-item :name "klev358r")
|
||||
(new 'static 'speech-info-item :name "klev359r")
|
||||
(new 'static 'speech-info-item :name "klev360r")
|
||||
(new 'static 'speech-info-item :name "klev361r")
|
||||
(new 'static 'speech-info-item :name "klev135r")
|
||||
(new 'static 'speech-info-item :name "klev136r")
|
||||
(new 'static 'speech-info-item :name "klev137r")
|
||||
(new 'static 'speech-info-item :name "klev138r")
|
||||
(new 'static 'speech-info-item :name "klev140r")
|
||||
(new 'static 'speech-info-item :name "klev144r")
|
||||
(new 'static 'speech-info-item :name "klev145r")
|
||||
(new 'static 'speech-info-item :name "klev146r")
|
||||
(new 'static 'speech-info-item :name "klev147r")
|
||||
(new 'static 'speech-info-item :name "klev148r")
|
||||
(new 'static 'speech-info-item :name "klev149r")
|
||||
(new 'static 'speech-info-item :name "klev154r")
|
||||
(new 'static 'speech-info-item :name "klev155r")
|
||||
(new 'static 'speech-info-item :name "klev156r")
|
||||
(new 'static 'speech-info-item :name "klev158r")
|
||||
(new 'static 'speech-info-item :name "klev160r")
|
||||
(new 'static 'speech-info-item :name "klev161r")
|
||||
(new 'static 'speech-info-item :name "klev164r")
|
||||
(new 'static 'speech-info-item :name "klev165r")
|
||||
(new 'static 'speech-info-item :name "klev166r")
|
||||
(new 'static 'speech-info-item :name "klev167r")
|
||||
(new 'static 'speech-info-item :name "klev168r")
|
||||
(new 'static 'speech-info-item :name "klev169r")
|
||||
(new 'static 'speech-info-item :name "klev170r")
|
||||
(new 'static 'speech-info-item :name "klev172r")
|
||||
(new 'static 'speech-info-item :name "klev177r")
|
||||
(new 'static 'speech-info-item :name "klev178r")
|
||||
(new 'static 'speech-info-item :name "klev194r")
|
||||
(new 'static 'speech-info-item :name "klev195r")
|
||||
(new 'static 'speech-info-item :name "klev198r")
|
||||
(new 'static 'speech-info-item :name "klev201r")
|
||||
(new 'static 'speech-info-item :name "klev206r")
|
||||
(new 'static 'speech-info-item :name "klev207r")
|
||||
(new 'static 'speech-info-item :name "klev208r")
|
||||
(new 'static 'speech-info-item :name "klev213r")
|
||||
(new 'static 'speech-info-item :name "klev215r")
|
||||
(new 'static 'speech-info-item :name "klev221r")
|
||||
(new 'static 'speech-info-item :name "klev246r")
|
||||
(new 'static 'speech-info-item :name "klev266r")
|
||||
(new 'static 'speech-info-item :name "klev272r")
|
||||
(new 'static 'speech-info-item :name "klev276r")
|
||||
(new 'static 'speech-info-item :name "klev277r")
|
||||
(new 'static 'speech-info-item :name "klev289r")
|
||||
(new 'static 'speech-info-item :name "klev302r")
|
||||
(new 'static 'speech-info-item :name "klev306r")
|
||||
(new 'static 'speech-info-item :name "klev312r")
|
||||
(new 'static 'speech-info-item :name "klev313r")
|
||||
(new 'static 'speech-info-item :name "klev342r")
|
||||
(new 'static 'speech-info-item :name "klev343r")
|
||||
(new 'static 'speech-info-item :name "klev350r")
|
||||
(new 'static 'speech-info-item :name "klev355r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 15)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev143r")
|
||||
(new 'static 'speech-info-item :name "klev153r")
|
||||
(new 'static 'speech-info-item :name "klev159r")
|
||||
(new 'static 'speech-info-item :name "klev174r")
|
||||
(new 'static 'speech-info-item :name "klev175r")
|
||||
(new 'static 'speech-info-item :name "klev182r")
|
||||
(new 'static 'speech-info-item :name "klev184r")
|
||||
(new 'static 'speech-info-item :name "klev188r")
|
||||
(new 'static 'speech-info-item :name "klev231r")
|
||||
(new 'static 'speech-info-item :name "klev234r")
|
||||
(new 'static 'speech-info-item :name "klev236r")
|
||||
(new 'static 'speech-info-item :name "klev237r")
|
||||
(new 'static 'speech-info-item :name "klev238r")
|
||||
(new 'static 'speech-info-item :name "klev239r")
|
||||
(new 'static 'speech-info-item :name "klev240r")
|
||||
(new 'static 'speech-info-item :name "klev242r")
|
||||
(new 'static 'speech-info-item :name "klev243r")
|
||||
(new 'static 'speech-info-item :name "klev247r")
|
||||
(new 'static 'speech-info-item :name "klev248r")
|
||||
(new 'static 'speech-info-item :name "klev249r")
|
||||
(new 'static 'speech-info-item :name "klev251r")
|
||||
(new 'static 'speech-info-item :name "klev255r")
|
||||
(new 'static 'speech-info-item :name "klev256r")
|
||||
(new 'static 'speech-info-item :name "klev257r")
|
||||
(new 'static 'speech-info-item :name "klev258r")
|
||||
(new 'static 'speech-info-item :name "klev259r")
|
||||
(new 'static 'speech-info-item :name "klev260r")
|
||||
(new 'static 'speech-info-item :name "klev261r")
|
||||
(new 'static 'speech-info-item :name "klev316r")
|
||||
(new 'static 'speech-info-item :name "klev320r")
|
||||
(new 'static 'speech-info-item :name "klev323r")
|
||||
(new 'static 'speech-info-item :name "klev262r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 11 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "klev101r")
|
||||
(new 'static 'speech-info-item :name "klev103r")
|
||||
(new 'static 'speech-info-item :name "klev104r")
|
||||
(new 'static 'speech-info-item :name "klev105r")
|
||||
(new 'static 'speech-info-item :name "klev106r")
|
||||
(new 'static 'speech-info-item :name "klev107r")
|
||||
(new 'static 'speech-info-item :name "klev108r")
|
||||
(new 'static 'speech-info-item :name "klev109r")
|
||||
(new 'static 'speech-info-item :name "klev110r")
|
||||
(new 'static 'speech-info-item :name "klev111r")
|
||||
(new 'static 'speech-info-item :name "klev113r")
|
||||
(new 'static 'speech-info-item :name "klev114r")
|
||||
(new 'static 'speech-info-item :name "klev115r")
|
||||
(new 'static 'speech-info-item :name "klev116r")
|
||||
(new 'static 'speech-info-item :name "klev117r")
|
||||
(new 'static 'speech-info-item :name "klev118r")
|
||||
(new 'static 'speech-info-item :name "klev119r")
|
||||
(new 'static 'speech-info-item :name "klev120r")
|
||||
(new 'static 'speech-info-item :name "klev121r")
|
||||
(new 'static 'speech-info-item :name "klev122r")
|
||||
(new 'static 'speech-info-item :name "klev123r")
|
||||
(new 'static 'speech-info-item :name "klev125r")
|
||||
(new 'static 'speech-info-item :name "klev126r")
|
||||
(new 'static 'speech-info-item :name "klev127r")
|
||||
(new 'static 'speech-info-item :name "klev129r")
|
||||
(new 'static 'speech-info-item :name "klev130r")
|
||||
(new 'static 'speech-info-item :name "klev131r")
|
||||
(new 'static 'speech-info-item :name "klev132r")
|
||||
(new 'static 'speech-info-item :name "klev133r")
|
||||
(new 'static 'speech-info-item :name "klev277r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+94
@@ -0,0 +1,94 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 12 speeches 22)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "mizo101r")
|
||||
(new 'static 'speech-info-item :name "mizo102r")
|
||||
(new 'static 'speech-info-item :name "mizo119r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 12 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "mizo181r")
|
||||
(new 'static 'speech-info-item :name "mizo182r")
|
||||
(new 'static 'speech-info-item :name "mizo184r")
|
||||
(new 'static 'speech-info-item :name "mizo187r")
|
||||
(new 'static 'speech-info-item :name "mizo188r")
|
||||
(new 'static 'speech-info-item :name "mizo189r")
|
||||
(new 'static 'speech-info-item :name "mizo190r")
|
||||
(new 'static 'speech-info-item :name "mizo191r")
|
||||
(new 'static 'speech-info-item :name "mizo192r")
|
||||
(new 'static 'speech-info-item :name "mizo193r")
|
||||
(new 'static 'speech-info-item :name "mizo194r")
|
||||
(new 'static 'speech-info-item :name "mizo183r")
|
||||
(new 'static 'speech-info-item :name "mizo185r")
|
||||
(new 'static 'speech-info-item :name "mizo186r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 12 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "mizo209r")
|
||||
(new 'static 'speech-info-item :name "mizo210r")
|
||||
(new 'static 'speech-info-item :name "mizo213r")
|
||||
(new 'static 'speech-info-item :name "mizo214r")
|
||||
(new 'static 'speech-info-item :name "mizo215r")
|
||||
(new 'static 'speech-info-item :name "mizo216r")
|
||||
(new 'static 'speech-info-item :name "mizo217r")
|
||||
(new 'static 'speech-info-item :name "mizo218r")
|
||||
(new 'static 'speech-info-item :name "mizo228r")
|
||||
(new 'static 'speech-info-item :name "mizo229r")
|
||||
(new 'static 'speech-info-item :name "mizo230r")
|
||||
(new 'static 'speech-info-item :name "mizo231r")
|
||||
(new 'static 'speech-info-item :name "mizo232r")
|
||||
(new 'static 'speech-info-item :name "mizo233r")
|
||||
(new 'static 'speech-info-item :name "mizo234r")
|
||||
(new 'static 'speech-info-item :name "mizo235r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 12 speeches 24)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "mizo303r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 12 speeches 28)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "mizo266r")
|
||||
(new 'static 'speech-info-item :name "mizo268r")
|
||||
(new 'static 'speech-info-item :name "mizo298r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 12 speeches 30) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "mizo102r")
|
||||
(new 'static 'speech-info-item :name "mizo129r")
|
||||
(new 'static 'speech-info-item :name "mizo130r")
|
||||
(new 'static 'speech-info-item :name "mizo131r")
|
||||
(new 'static 'speech-info-item :name "mizo132r")
|
||||
(new 'static 'speech-info-item :name "mizo264r")
|
||||
(new 'static 'speech-info-item :name "mizo296r")
|
||||
(new 'static 'speech-info-item :name "mizo297r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+343
@@ -0,0 +1,343 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm150r")
|
||||
(new 'static 'speech-info-item :name "osm159r")
|
||||
(new 'static 'speech-info-item :name "osm163r")
|
||||
(new 'static 'speech-info-item :name "osm217r")
|
||||
(new 'static 'speech-info-item :name "osm224r")
|
||||
(new 'static 'speech-info-item :name "osm271r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm101r")
|
||||
(new 'static 'speech-info-item :name "osm102r")
|
||||
(new 'static 'speech-info-item :name "osm103r")
|
||||
(new 'static 'speech-info-item :name "osm104r")
|
||||
(new 'static 'speech-info-item :name "osm105r")
|
||||
(new 'static 'speech-info-item :name "osm106r")
|
||||
(new 'static 'speech-info-item :name "osm107r")
|
||||
(new 'static 'speech-info-item :name "osm108r")
|
||||
(new 'static 'speech-info-item :name "osm109r")
|
||||
(new 'static 'speech-info-item :name "osm110r")
|
||||
(new 'static 'speech-info-item :name "osm111r")
|
||||
(new 'static 'speech-info-item :name "osm112r")
|
||||
(new 'static 'speech-info-item :name "osm113r")
|
||||
(new 'static 'speech-info-item :name "osm114r")
|
||||
(new 'static 'speech-info-item :name "osm115r")
|
||||
(new 'static 'speech-info-item :name "osm116r")
|
||||
(new 'static 'speech-info-item :name "osm117r")
|
||||
(new 'static 'speech-info-item :name "osm118r")
|
||||
(new 'static 'speech-info-item :name "osm119r")
|
||||
(new 'static 'speech-info-item :name "osm120r")
|
||||
(new 'static 'speech-info-item :name "osm121r")
|
||||
(new 'static 'speech-info-item :name "osm122r")
|
||||
(new 'static 'speech-info-item :name "osm123r")
|
||||
(new 'static 'speech-info-item :name "osm124r")
|
||||
(new 'static 'speech-info-item :name "osm125r")
|
||||
(new 'static 'speech-info-item :name "osm126r")
|
||||
(new 'static 'speech-info-item :name "osm127r")
|
||||
(new 'static 'speech-info-item :name "osm128r")
|
||||
(new 'static 'speech-info-item :name "osm129r")
|
||||
(new 'static 'speech-info-item :name "osm130r")
|
||||
(new 'static 'speech-info-item :name "osm131r")
|
||||
(new 'static 'speech-info-item :name "osm132r")
|
||||
(new 'static 'speech-info-item :name "osm133r")
|
||||
(new 'static 'speech-info-item :name "osm134r")
|
||||
(new 'static 'speech-info-item :name "osm135r")
|
||||
(new 'static 'speech-info-item :name "osm136r")
|
||||
(new 'static 'speech-info-item :name "osm137r")
|
||||
(new 'static 'speech-info-item :name "osm138r")
|
||||
(new 'static 'speech-info-item :name "osm139r")
|
||||
(new 'static 'speech-info-item :name "osm140r")
|
||||
(new 'static 'speech-info-item :name "osm141r")
|
||||
(new 'static 'speech-info-item :name "osm263r")
|
||||
(new 'static 'speech-info-item :name "osm218r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm101r")
|
||||
(new 'static 'speech-info-item :name "osm102r")
|
||||
(new 'static 'speech-info-item :name "osm103r")
|
||||
(new 'static 'speech-info-item :name "osm106r")
|
||||
(new 'static 'speech-info-item :name "osm107r")
|
||||
(new 'static 'speech-info-item :name "osm108r")
|
||||
(new 'static 'speech-info-item :name "osm109r")
|
||||
(new 'static 'speech-info-item :name "osm110r")
|
||||
(new 'static 'speech-info-item :name "osm112r")
|
||||
(new 'static 'speech-info-item :name "osm113r")
|
||||
(new 'static 'speech-info-item :name "osm115r")
|
||||
(new 'static 'speech-info-item :name "osm116r")
|
||||
(new 'static 'speech-info-item :name "osm117r")
|
||||
(new 'static 'speech-info-item :name "osm118r")
|
||||
(new 'static 'speech-info-item :name "osm120r")
|
||||
(new 'static 'speech-info-item :name "osm121r")
|
||||
(new 'static 'speech-info-item :name "osm122r")
|
||||
(new 'static 'speech-info-item :name "osm123r")
|
||||
(new 'static 'speech-info-item :name "osm124r")
|
||||
(new 'static 'speech-info-item :name "osm125r")
|
||||
(new 'static 'speech-info-item :name "osm126r")
|
||||
(new 'static 'speech-info-item :name "osm127r")
|
||||
(new 'static 'speech-info-item :name "osm128r")
|
||||
(new 'static 'speech-info-item :name "osm129r")
|
||||
(new 'static 'speech-info-item :name "osm130r")
|
||||
(new 'static 'speech-info-item :name "osm131r")
|
||||
(new 'static 'speech-info-item :name "osm132r")
|
||||
(new 'static 'speech-info-item :name "osm133r")
|
||||
(new 'static 'speech-info-item :name "osm134r")
|
||||
(new 'static 'speech-info-item :name "osm135r")
|
||||
(new 'static 'speech-info-item :name "osm136r")
|
||||
(new 'static 'speech-info-item :name "osm137r")
|
||||
(new 'static 'speech-info-item :name "osm139r")
|
||||
(new 'static 'speech-info-item :name "osm140r")
|
||||
(new 'static 'speech-info-item :name "osm141r")
|
||||
(new 'static 'speech-info-item :name "osm263r")
|
||||
(new 'static 'speech-info-item :name "osm218r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm142r")
|
||||
(new 'static 'speech-info-item :name "osm143r")
|
||||
(new 'static 'speech-info-item :name "osm144r")
|
||||
(new 'static 'speech-info-item :name "osm145r")
|
||||
(new 'static 'speech-info-item :name "osm146r")
|
||||
(new 'static 'speech-info-item :name "osm147r")
|
||||
(new 'static 'speech-info-item :name "osm148r")
|
||||
(new 'static 'speech-info-item :name "osm149r")
|
||||
(new 'static 'speech-info-item :name "osm151r")
|
||||
(new 'static 'speech-info-item :name "osm152r")
|
||||
(new 'static 'speech-info-item :name "osm267r")
|
||||
(new 'static 'speech-info-item :name "osm219r")
|
||||
(new 'static 'speech-info-item :name "osm220r")
|
||||
(new 'static 'speech-info-item :name "osm226r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm153r")
|
||||
(new 'static 'speech-info-item :name "osm154r")
|
||||
(new 'static 'speech-info-item :name "osm155r")
|
||||
(new 'static 'speech-info-item :name "osm156r")
|
||||
(new 'static 'speech-info-item :name "osm157r")
|
||||
(new 'static 'speech-info-item :name "osm158r")
|
||||
(new 'static 'speech-info-item :name "osm160r")
|
||||
(new 'static 'speech-info-item :name "osm161r")
|
||||
(new 'static 'speech-info-item :name "osm162r")
|
||||
(new 'static 'speech-info-item :name "osm164r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm166r")
|
||||
(new 'static 'speech-info-item :name "osm167r")
|
||||
(new 'static 'speech-info-item :name "osm168r")
|
||||
(new 'static 'speech-info-item :name "osm169r")
|
||||
(new 'static 'speech-info-item :name "osm170r")
|
||||
(new 'static 'speech-info-item :name "osm171r")
|
||||
(new 'static 'speech-info-item :name "osm172r")
|
||||
(new 'static 'speech-info-item :name "osm173r")
|
||||
(new 'static 'speech-info-item :name "osm174r")
|
||||
(new 'static 'speech-info-item :name "osm175r")
|
||||
(new 'static 'speech-info-item :name "osm176r")
|
||||
(new 'static 'speech-info-item :name "osm177r")
|
||||
(new 'static 'speech-info-item :name "osm178r")
|
||||
(new 'static 'speech-info-item :name "osm179r")
|
||||
(new 'static 'speech-info-item :name "osm180r")
|
||||
(new 'static 'speech-info-item :name "osm181r")
|
||||
(new 'static 'speech-info-item :name "osm182r")
|
||||
(new 'static 'speech-info-item :name "osm183r")
|
||||
(new 'static 'speech-info-item :name "osm187r")
|
||||
(new 'static 'speech-info-item :name "osm188r")
|
||||
(new 'static 'speech-info-item :name "osm189r")
|
||||
(new 'static 'speech-info-item :name "osm190r")
|
||||
(new 'static 'speech-info-item :name "osm193r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm194r")
|
||||
(new 'static 'speech-info-item :name "osm195r")
|
||||
(new 'static 'speech-info-item :name "osm196r")
|
||||
(new 'static 'speech-info-item :name "osm197r")
|
||||
(new 'static 'speech-info-item :name "osm198r")
|
||||
(new 'static 'speech-info-item :name "osm199r")
|
||||
(new 'static 'speech-info-item :name "osm200r")
|
||||
(new 'static 'speech-info-item :name "osm201r")
|
||||
(new 'static 'speech-info-item :name "osm202r")
|
||||
(new 'static 'speech-info-item :name "osm203r")
|
||||
(new 'static 'speech-info-item :name "osm204r")
|
||||
(new 'static 'speech-info-item :name "osm205r")
|
||||
(new 'static 'speech-info-item :name "osm206r")
|
||||
(new 'static 'speech-info-item :name "osm207r")
|
||||
(new 'static 'speech-info-item :name "osm208r")
|
||||
(new 'static 'speech-info-item :name "osm209r")
|
||||
(new 'static 'speech-info-item :name "osm210r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm211r")
|
||||
(new 'static 'speech-info-item :name "osm212r")
|
||||
(new 'static 'speech-info-item :name "osm213r")
|
||||
(new 'static 'speech-info-item :name "osm214r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "osm227r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm228r")
|
||||
(new 'static 'speech-info-item :name "osm229r")
|
||||
(new 'static 'speech-info-item :name "osm230r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm231r")
|
||||
(new 'static 'speech-info-item :name "osm232r")
|
||||
(new 'static 'speech-info-item :name "osm233r")
|
||||
(new 'static 'speech-info-item :name "osm234r")
|
||||
(new 'static 'speech-info-item :name "osm235r")
|
||||
(new 'static 'speech-info-item :name "osm236r")
|
||||
(new 'static 'speech-info-item :name "osm237r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm238r")
|
||||
(new 'static 'speech-info-item :name "osm239r")
|
||||
(new 'static 'speech-info-item :name "osm240r")
|
||||
(new 'static 'speech-info-item :name "osm241r")
|
||||
(new 'static 'speech-info-item :name "osm242r")
|
||||
(new 'static 'speech-info-item :name "osm243r")
|
||||
(new 'static 'speech-info-item :name "osm244r")
|
||||
(new 'static 'speech-info-item :name "osm245r")
|
||||
(new 'static 'speech-info-item :name "osm246r")
|
||||
(new 'static 'speech-info-item :name "osm247r")
|
||||
(new 'static 'speech-info-item :name "osm248r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm238r")
|
||||
(new 'static 'speech-info-item :name "osm239r")
|
||||
(new 'static 'speech-info-item :name "osm240r")
|
||||
(new 'static 'speech-info-item :name "osm241r")
|
||||
(new 'static 'speech-info-item :name "osm242r")
|
||||
(new 'static 'speech-info-item :name "osm243r")
|
||||
(new 'static 'speech-info-item :name "osm244r")
|
||||
(new 'static 'speech-info-item :name "osm245r")
|
||||
(new 'static 'speech-info-item :name "osm246r")
|
||||
(new 'static 'speech-info-item :name "osm247r")
|
||||
(new 'static 'speech-info-item :name "osm248r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm249r")
|
||||
(new 'static 'speech-info-item :name "osm250r")
|
||||
(new 'static 'speech-info-item :name "osm251r")
|
||||
(new 'static 'speech-info-item :name "osm252r")
|
||||
(new 'static 'speech-info-item :name "osm253r")
|
||||
(new 'static 'speech-info-item :name "osm254r")
|
||||
(new 'static 'speech-info-item :name "osm255r")
|
||||
(new 'static 'speech-info-item :name "osm256r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm249r")
|
||||
(new 'static 'speech-info-item :name "osm250r")
|
||||
(new 'static 'speech-info-item :name "osm251r")
|
||||
(new 'static 'speech-info-item :name "osm252r")
|
||||
(new 'static 'speech-info-item :name "osm253r")
|
||||
(new 'static 'speech-info-item :name "osm254r")
|
||||
(new 'static 'speech-info-item :name "osm255r")
|
||||
(new 'static 'speech-info-item :name "osm256r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm275r")
|
||||
(new 'static 'speech-info-item :name "osm278r")
|
||||
(new 'static 'speech-info-item :name "osm279r")
|
||||
(new 'static 'speech-info-item :name "osm281r")
|
||||
(new 'static 'speech-info-item :name "osm282r")
|
||||
(new 'static 'speech-info-item :name "osm283r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "osm222r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 21 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "osm215r")
|
||||
(new 'static 'speech-info-item :name "osm216r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+705
@@ -0,0 +1,705 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec102")
|
||||
(new 'static 'speech-info-item :name "pec111")
|
||||
(new 'static 'speech-info-item :name "pec113")
|
||||
(new 'static 'speech-info-item :name "pec115")
|
||||
(new 'static 'speech-info-item :name "pec119")
|
||||
(new 'static 'speech-info-item :name "pec121")
|
||||
(new 'static 'speech-info-item :name "pec122")
|
||||
(new 'static 'speech-info-item :name "pec128")
|
||||
(new 'static 'speech-info-item :name "pec129")
|
||||
(new 'static 'speech-info-item :name "pec130")
|
||||
(new 'static 'speech-info-item :name "pec133")
|
||||
(new 'static 'speech-info-item :name "pec134")
|
||||
(new 'static 'speech-info-item :name "pec135")
|
||||
(new 'static 'speech-info-item :name "pec137")
|
||||
(new 'static 'speech-info-item :name "pec142")
|
||||
(new 'static 'speech-info-item :name "pec144")
|
||||
(new 'static 'speech-info-item :name "pec158")
|
||||
(new 'static 'speech-info-item :name "pec161")
|
||||
(new 'static 'speech-info-item :name "pec162")
|
||||
(new 'static 'speech-info-item :name "pec165")
|
||||
(new 'static 'speech-info-item :name "pec167")
|
||||
(new 'static 'speech-info-item :name "pec168")
|
||||
(new 'static 'speech-info-item :name "pec169")
|
||||
(new 'static 'speech-info-item :name "pec171")
|
||||
(new 'static 'speech-info-item :name "pec174")
|
||||
(new 'static 'speech-info-item :name "pec177")
|
||||
(new 'static 'speech-info-item :name "pec180")
|
||||
(new 'static 'speech-info-item :name "pec185")
|
||||
(new 'static 'speech-info-item :name "pec186")
|
||||
(new 'static 'speech-info-item :name "pec194")
|
||||
(new 'static 'speech-info-item :name "pec195")
|
||||
(new 'static 'speech-info-item :name "pec196")
|
||||
(new 'static 'speech-info-item :name "pec197")
|
||||
(new 'static 'speech-info-item :name "pec198")
|
||||
(new 'static 'speech-info-item :name "pec200")
|
||||
(new 'static 'speech-info-item :name "pec201")
|
||||
(new 'static 'speech-info-item :name "pec202")
|
||||
(new 'static 'speech-info-item :name "pec203")
|
||||
(new 'static 'speech-info-item :name "pec204")
|
||||
(new 'static 'speech-info-item :name "pec205")
|
||||
(new 'static 'speech-info-item :name "pec206")
|
||||
(new 'static 'speech-info-item :name "pec207")
|
||||
(new 'static 'speech-info-item :name "pec209")
|
||||
(new 'static 'speech-info-item :name "pec210")
|
||||
(new 'static 'speech-info-item :name "pec211")
|
||||
(new 'static 'speech-info-item :name "pec212")
|
||||
(new 'static 'speech-info-item :name "pec213")
|
||||
(new 'static 'speech-info-item :name "pec214")
|
||||
(new 'static 'speech-info-item :name "pec215")
|
||||
(new 'static 'speech-info-item :name "pec216")
|
||||
(new 'static 'speech-info-item :name "pec217")
|
||||
(new 'static 'speech-info-item :name "pec218")
|
||||
(new 'static 'speech-info-item :name "pec219")
|
||||
(new 'static 'speech-info-item :name "pec220")
|
||||
(new 'static 'speech-info-item :name "pec221")
|
||||
(new 'static 'speech-info-item :name "pec222")
|
||||
(new 'static 'speech-info-item :name "pec223")
|
||||
(new 'static 'speech-info-item :name "pec224")
|
||||
(new 'static 'speech-info-item :name "pec225")
|
||||
(new 'static 'speech-info-item :name "pec229")
|
||||
(new 'static 'speech-info-item :name "pec232")
|
||||
(new 'static 'speech-info-item :name "pec235")
|
||||
(new 'static 'speech-info-item :name "pec236")
|
||||
(new 'static 'speech-info-item :name "pec239")
|
||||
(new 'static 'speech-info-item :name "pec240")
|
||||
(new 'static 'speech-info-item :name "pec241")
|
||||
(new 'static 'speech-info-item :name "pec242")
|
||||
(new 'static 'speech-info-item :name "pec243")
|
||||
(new 'static 'speech-info-item :name "pec244")
|
||||
(new 'static 'speech-info-item :name "pec245")
|
||||
(new 'static 'speech-info-item :name "pec246")
|
||||
(new 'static 'speech-info-item :name "pec247")
|
||||
(new 'static 'speech-info-item :name "pec252")
|
||||
(new 'static 'speech-info-item :name "pec253")
|
||||
(new 'static 'speech-info-item :name "pec254")
|
||||
(new 'static 'speech-info-item :name "pec256")
|
||||
(new 'static 'speech-info-item :name "pec258")
|
||||
(new 'static 'speech-info-item :name "pec259")
|
||||
(new 'static 'speech-info-item :name "pec260")
|
||||
(new 'static 'speech-info-item :name "pec261")
|
||||
(new 'static 'speech-info-item :name "pec262")
|
||||
(new 'static 'speech-info-item :name "pec264")
|
||||
(new 'static 'speech-info-item :name "pec269")
|
||||
(new 'static 'speech-info-item :name "pec272")
|
||||
(new 'static 'speech-info-item :name "pec274")
|
||||
(new 'static 'speech-info-item :name "pec277")
|
||||
(new 'static 'speech-info-item :name "pec278")
|
||||
(new 'static 'speech-info-item :name "pec282")
|
||||
(new 'static 'speech-info-item :name "pec283")
|
||||
(new 'static 'speech-info-item :name "pec285")
|
||||
(new 'static 'speech-info-item :name "pec288")
|
||||
(new 'static 'speech-info-item :name "pec289")
|
||||
(new 'static 'speech-info-item :name "pec290")
|
||||
(new 'static 'speech-info-item :name "pec291")
|
||||
(new 'static 'speech-info-item :name "pec292")
|
||||
(new 'static 'speech-info-item :name "pec293")
|
||||
(new 'static 'speech-info-item :name "pec294")
|
||||
(new 'static 'speech-info-item :name "pec295")
|
||||
(new 'static 'speech-info-item :name "pec296")
|
||||
(new 'static 'speech-info-item :name "pec298")
|
||||
(new 'static 'speech-info-item :name "pec299")
|
||||
(new 'static 'speech-info-item :name "pec302")
|
||||
(new 'static 'speech-info-item :name "pec303")
|
||||
(new 'static 'speech-info-item :name "pec304")
|
||||
(new 'static 'speech-info-item :name "pec305")
|
||||
(new 'static 'speech-info-item :name "pec306")
|
||||
(new 'static 'speech-info-item :name "pec307")
|
||||
(new 'static 'speech-info-item :name "pec309")
|
||||
(new 'static 'speech-info-item :name "pec310")
|
||||
(new 'static 'speech-info-item :name "pec311")
|
||||
(new 'static 'speech-info-item :name "pec312")
|
||||
(new 'static 'speech-info-item :name "pec314")
|
||||
(new 'static 'speech-info-item :name "pec317")
|
||||
(new 'static 'speech-info-item :name "pec319")
|
||||
(new 'static 'speech-info-item :name "pec320")
|
||||
(new 'static 'speech-info-item :name "pec321")
|
||||
(new 'static 'speech-info-item :name "pec322")
|
||||
(new 'static 'speech-info-item :name "pec324")
|
||||
(new 'static 'speech-info-item :name "pec371r")
|
||||
(new 'static 'speech-info-item :name "pec372r")
|
||||
(new 'static 'speech-info-item :name "pec376r")
|
||||
(new 'static 'speech-info-item :name "pec392r")
|
||||
(new 'static 'speech-info-item :name "pec404")
|
||||
(new 'static 'speech-info-item :name "pec405")
|
||||
(new 'static 'speech-info-item :name "pec406")
|
||||
(new 'static 'speech-info-item :name "pec489")
|
||||
(new 'static 'speech-info-item :name "pec492")
|
||||
(new 'static 'speech-info-item :name "pec493")
|
||||
(new 'static 'speech-info-item :name "pec494")
|
||||
(new 'static 'speech-info-item :name "pec495")
|
||||
(new 'static 'speech-info-item :name "pec496")
|
||||
(new 'static 'speech-info-item :name "pec497")
|
||||
(new 'static 'speech-info-item :name "pec498")
|
||||
(new 'static 'speech-info-item :name "pec499")
|
||||
(new 'static 'speech-info-item :name "pec500")
|
||||
(new 'static 'speech-info-item :name "pec501")
|
||||
(new 'static 'speech-info-item :name "pec506r")
|
||||
(new 'static 'speech-info-item :name "pec508")
|
||||
(new 'static 'speech-info-item :name "pec509")
|
||||
(new 'static 'speech-info-item :name "pec554")
|
||||
(new 'static 'speech-info-item :name "pec555")
|
||||
(new 'static 'speech-info-item :name "pec556")
|
||||
(new 'static 'speech-info-item :name "pec557")
|
||||
(new 'static 'speech-info-item :name "pec558")
|
||||
(new 'static 'speech-info-item :name "pec559")
|
||||
(new 'static 'speech-info-item :name "pec560")
|
||||
(new 'static 'speech-info-item :name "pec561")
|
||||
(new 'static 'speech-info-item :name "pec562")
|
||||
(new 'static 'speech-info-item :name "pec563")
|
||||
(new 'static 'speech-info-item :name "pec565")
|
||||
(new 'static 'speech-info-item :name "pec566")
|
||||
(new 'static 'speech-info-item :name "pec567")
|
||||
(new 'static 'speech-info-item :name "pec568")
|
||||
(new 'static 'speech-info-item :name "pec569")
|
||||
(new 'static 'speech-info-item :name "pec570")
|
||||
(new 'static 'speech-info-item :name "pec571")
|
||||
(new 'static 'speech-info-item :name "pec572")
|
||||
(new 'static 'speech-info-item :name "pec573")
|
||||
(new 'static 'speech-info-item :name "pec574")
|
||||
(new 'static 'speech-info-item :name "pec575")
|
||||
(new 'static 'speech-info-item :name "pec159")
|
||||
(new 'static 'speech-info-item :name "pec164")
|
||||
(new 'static 'speech-info-item :name "pec166")
|
||||
(new 'static 'speech-info-item :name "pec188")
|
||||
(new 'static 'speech-info-item :name "pec193")
|
||||
(new 'static 'speech-info-item :name "pec226")
|
||||
(new 'static 'speech-info-item :name "pec251")
|
||||
(new 'static 'speech-info-item :name "pec300")
|
||||
(new 'static 'speech-info-item :name "pec315")
|
||||
(new 'static 'speech-info-item :name "pec318")
|
||||
(new 'static 'speech-info-item :name "pec323")
|
||||
(new 'static 'speech-info-item :name "pec418r")
|
||||
(new 'static 'speech-info-item :name "pec442r")
|
||||
(new 'static 'speech-info-item :name "pec443r")
|
||||
(new 'static 'speech-info-item :name "pec444r")
|
||||
(new 'static 'speech-info-item :name "pec488r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 17)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec101")
|
||||
(new 'static 'speech-info-item :name "pec103")
|
||||
(new 'static 'speech-info-item :name "pec104")
|
||||
(new 'static 'speech-info-item :name "pec105")
|
||||
(new 'static 'speech-info-item :name "pec106")
|
||||
(new 'static 'speech-info-item :name "pec107")
|
||||
(new 'static 'speech-info-item :name "pec108")
|
||||
(new 'static 'speech-info-item :name "pec109")
|
||||
(new 'static 'speech-info-item :name "pec110")
|
||||
(new 'static 'speech-info-item :name "pec112")
|
||||
(new 'static 'speech-info-item :name "pec114")
|
||||
(new 'static 'speech-info-item :name "pec117")
|
||||
(new 'static 'speech-info-item :name "pec118")
|
||||
(new 'static 'speech-info-item :name "pec136")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 18)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec116")
|
||||
(new 'static 'speech-info-item :name "pec120")
|
||||
(new 'static 'speech-info-item :name "pec123")
|
||||
(new 'static 'speech-info-item :name "pec124")
|
||||
(new 'static 'speech-info-item :name "pec125")
|
||||
(new 'static 'speech-info-item :name "pec126")
|
||||
(new 'static 'speech-info-item :name "pec127")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 19)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec263")
|
||||
(new 'static 'speech-info-item :name "pec265")
|
||||
(new 'static 'speech-info-item :name "pec266")
|
||||
(new 'static 'speech-info-item :name "pec267")
|
||||
(new 'static 'speech-info-item :name "pec268")
|
||||
(new 'static 'speech-info-item :name "pec270")
|
||||
(new 'static 'speech-info-item :name "pec271")
|
||||
(new 'static 'speech-info-item :name "pec273")
|
||||
(new 'static 'speech-info-item :name "pec275")
|
||||
(new 'static 'speech-info-item :name "pec276")
|
||||
(new 'static 'speech-info-item :name "pec279")
|
||||
(new 'static 'speech-info-item :name "pec280")
|
||||
(new 'static 'speech-info-item :name "pec281")
|
||||
(new 'static 'speech-info-item :name "pec284")
|
||||
(new 'static 'speech-info-item :name "pec286")
|
||||
(new 'static 'speech-info-item :name "pec287")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 20)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec139")
|
||||
(new 'static 'speech-info-item :name "pec140")
|
||||
(new 'static 'speech-info-item :name "pec141")
|
||||
(new 'static 'speech-info-item :name "pec143")
|
||||
(new 'static 'speech-info-item :name "pec145")
|
||||
(new 'static 'speech-info-item :name "pec147")
|
||||
(new 'static 'speech-info-item :name "pec149")
|
||||
(new 'static 'speech-info-item :name "pec151")
|
||||
(new 'static 'speech-info-item :name "pec156")
|
||||
(new 'static 'speech-info-item :name "pec157")
|
||||
(new 'static 'speech-info-item :name "pec160")
|
||||
(new 'static 'speech-info-item :name "pec163")
|
||||
(new 'static 'speech-info-item :name "pec170")
|
||||
(new 'static 'speech-info-item :name "pec172")
|
||||
(new 'static 'speech-info-item :name "pec173")
|
||||
(new 'static 'speech-info-item :name "pec175")
|
||||
(new 'static 'speech-info-item :name "pec176")
|
||||
(new 'static 'speech-info-item :name "pec178")
|
||||
(new 'static 'speech-info-item :name "pec181")
|
||||
(new 'static 'speech-info-item :name "pec187")
|
||||
(new 'static 'speech-info-item :name "pec189")
|
||||
(new 'static 'speech-info-item :name "pec190")
|
||||
(new 'static 'speech-info-item :name "pec191")
|
||||
(new 'static 'speech-info-item :name "pec192")
|
||||
(new 'static 'speech-info-item :name "pec199")
|
||||
(new 'static 'speech-info-item :name "pec227")
|
||||
(new 'static 'speech-info-item :name "pec228")
|
||||
(new 'static 'speech-info-item :name "pec230")
|
||||
(new 'static 'speech-info-item :name "pec231")
|
||||
(new 'static 'speech-info-item :name "pec234")
|
||||
(new 'static 'speech-info-item :name "pec237")
|
||||
(new 'static 'speech-info-item :name "pec238")
|
||||
(new 'static 'speech-info-item :name "pec249")
|
||||
(new 'static 'speech-info-item :name "pec250")
|
||||
(new 'static 'speech-info-item :name "pec255")
|
||||
(new 'static 'speech-info-item :name "pec297")
|
||||
(new 'static 'speech-info-item :name "pec301")
|
||||
(new 'static 'speech-info-item :name "pec308")
|
||||
(new 'static 'speech-info-item :name "pec131")
|
||||
(new 'static 'speech-info-item :name "pec132")
|
||||
(new 'static 'speech-info-item :name "pec138")
|
||||
(new 'static 'speech-info-item :name "pec146")
|
||||
(new 'static 'speech-info-item :name "pec148")
|
||||
(new 'static 'speech-info-item :name "pec150")
|
||||
(new 'static 'speech-info-item :name "pec152" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec153" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec154" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec155" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec179" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec182" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec183")
|
||||
(new 'static 'speech-info-item :name "pec208")
|
||||
(new 'static 'speech-info-item :name "pec257")
|
||||
(new 'static 'speech-info-item :name "pec233" :flags (speech-info-flag si1))
|
||||
(new 'static 'speech-info-item :name "pec313")
|
||||
(new 'static 'speech-info-item :name "pec316")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec325r")
|
||||
(new 'static 'speech-info-item :name "pec326r")
|
||||
(new 'static 'speech-info-item :name "pec327r")
|
||||
(new 'static 'speech-info-item :name "pec328r")
|
||||
(new 'static 'speech-info-item :name "pec329r")
|
||||
(new 'static 'speech-info-item :name "pec330r")
|
||||
(new 'static 'speech-info-item :name "pec331r")
|
||||
(new 'static 'speech-info-item :name "pec332r")
|
||||
(new 'static 'speech-info-item :name "pec333r")
|
||||
(new 'static 'speech-info-item :name "pec334r")
|
||||
(new 'static 'speech-info-item :name "pec335r")
|
||||
(new 'static 'speech-info-item :name "pec336r")
|
||||
(new 'static 'speech-info-item :name "pec337r")
|
||||
(new 'static 'speech-info-item :name "pec338r")
|
||||
(new 'static 'speech-info-item :name "pec339r")
|
||||
(new 'static 'speech-info-item :name "pec340r")
|
||||
(new 'static 'speech-info-item :name "pec341r")
|
||||
(new 'static 'speech-info-item :name "pec342r")
|
||||
(new 'static 'speech-info-item :name "pec343r")
|
||||
(new 'static 'speech-info-item :name "pec344r")
|
||||
(new 'static 'speech-info-item :name "pec345r")
|
||||
(new 'static 'speech-info-item :name "pec346r")
|
||||
(new 'static 'speech-info-item :name "pec347r")
|
||||
(new 'static 'speech-info-item :name "pec348r")
|
||||
(new 'static 'speech-info-item :name "pec349r")
|
||||
(new 'static 'speech-info-item :name "pec350r")
|
||||
(new 'static 'speech-info-item :name "pec351r")
|
||||
(new 'static 'speech-info-item :name "pec352r")
|
||||
(new 'static 'speech-info-item :name "pec353r")
|
||||
(new 'static 'speech-info-item :name "pec354r")
|
||||
(new 'static 'speech-info-item :name "pec355r")
|
||||
(new 'static 'speech-info-item :name "pec356r")
|
||||
(new 'static 'speech-info-item :name "pec184r")
|
||||
(new 'static 'speech-info-item :name "pec564r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec325r")
|
||||
(new 'static 'speech-info-item :name "pec326r")
|
||||
(new 'static 'speech-info-item :name "pec327r")
|
||||
(new 'static 'speech-info-item :name "pec328r")
|
||||
(new 'static 'speech-info-item :name "pec329r")
|
||||
(new 'static 'speech-info-item :name "pec330r")
|
||||
(new 'static 'speech-info-item :name "pec333r")
|
||||
(new 'static 'speech-info-item :name "pec334r")
|
||||
(new 'static 'speech-info-item :name "pec335r")
|
||||
(new 'static 'speech-info-item :name "pec336r")
|
||||
(new 'static 'speech-info-item :name "pec337r")
|
||||
(new 'static 'speech-info-item :name "pec338r")
|
||||
(new 'static 'speech-info-item :name "pec340r")
|
||||
(new 'static 'speech-info-item :name "pec341r")
|
||||
(new 'static 'speech-info-item :name "pec342r")
|
||||
(new 'static 'speech-info-item :name "pec343r")
|
||||
(new 'static 'speech-info-item :name "pec345r")
|
||||
(new 'static 'speech-info-item :name "pec346r")
|
||||
(new 'static 'speech-info-item :name "pec347r")
|
||||
(new 'static 'speech-info-item :name "pec349r")
|
||||
(new 'static 'speech-info-item :name "pec350r")
|
||||
(new 'static 'speech-info-item :name "pec351r")
|
||||
(new 'static 'speech-info-item :name "pec352r")
|
||||
(new 'static 'speech-info-item :name "pec353r")
|
||||
(new 'static 'speech-info-item :name "pec354r")
|
||||
(new 'static 'speech-info-item :name "pec355r")
|
||||
(new 'static 'speech-info-item :name "pec356r")
|
||||
(new 'static 'speech-info-item :name "pec184r")
|
||||
(new 'static 'speech-info-item :name "pec564r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec357r")
|
||||
(new 'static 'speech-info-item :name "pec358r")
|
||||
(new 'static 'speech-info-item :name "pec359r")
|
||||
(new 'static 'speech-info-item :name "pec360r")
|
||||
(new 'static 'speech-info-item :name "pec361r")
|
||||
(new 'static 'speech-info-item :name "pec362r")
|
||||
(new 'static 'speech-info-item :name "pec363r")
|
||||
(new 'static 'speech-info-item :name "pec364r")
|
||||
(new 'static 'speech-info-item :name "pec365r")
|
||||
(new 'static 'speech-info-item :name "pec366r")
|
||||
(new 'static 'speech-info-item :name "pec367r")
|
||||
(new 'static 'speech-info-item :name "pec368r")
|
||||
(new 'static 'speech-info-item :name "pec369r")
|
||||
(new 'static 'speech-info-item :name "pec370r")
|
||||
(new 'static 'speech-info-item :name "pec248r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec373r")
|
||||
(new 'static 'speech-info-item :name "pec374r")
|
||||
(new 'static 'speech-info-item :name "pec375r")
|
||||
(new 'static 'speech-info-item :name "pec377r")
|
||||
(new 'static 'speech-info-item :name "pec378r")
|
||||
(new 'static 'speech-info-item :name "pec379r")
|
||||
(new 'static 'speech-info-item :name "pec380r")
|
||||
(new 'static 'speech-info-item :name "pec381r")
|
||||
(new 'static 'speech-info-item :name "pec382r")
|
||||
(new 'static 'speech-info-item :name "pec383r")
|
||||
(new 'static 'speech-info-item :name "pec384r")
|
||||
(new 'static 'speech-info-item :name "pec385r")
|
||||
(new 'static 'speech-info-item :name "pec386r")
|
||||
(new 'static 'speech-info-item :name "pec387r")
|
||||
(new 'static 'speech-info-item :name "pec388r")
|
||||
(new 'static 'speech-info-item :name "pec389r")
|
||||
(new 'static 'speech-info-item :name "pec390r")
|
||||
(new 'static 'speech-info-item :name "pec391r")
|
||||
(new 'static 'speech-info-item :name "pec393r")
|
||||
(new 'static 'speech-info-item :name "pec394r")
|
||||
(new 'static 'speech-info-item :name "pec395r")
|
||||
(new 'static 'speech-info-item :name "pec396r")
|
||||
(new 'static 'speech-info-item :name "pec397r")
|
||||
(new 'static 'speech-info-item :name "pec398r")
|
||||
(new 'static 'speech-info-item :name "pec399r")
|
||||
(new 'static 'speech-info-item :name "pec400r")
|
||||
(new 'static 'speech-info-item :name "pec401r")
|
||||
(new 'static 'speech-info-item :name "pec402r")
|
||||
(new 'static 'speech-info-item :name "pec403r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec408r")
|
||||
(new 'static 'speech-info-item :name "pec409r")
|
||||
(new 'static 'speech-info-item :name "pec410r")
|
||||
(new 'static 'speech-info-item :name "pec411r")
|
||||
(new 'static 'speech-info-item :name "pec412r")
|
||||
(new 'static 'speech-info-item :name "pec413r")
|
||||
(new 'static 'speech-info-item :name "pec414r")
|
||||
(new 'static 'speech-info-item :name "pec415r")
|
||||
(new 'static 'speech-info-item :name "pec416r")
|
||||
(new 'static 'speech-info-item :name "pec417r")
|
||||
(new 'static 'speech-info-item :name "pec419r")
|
||||
(new 'static 'speech-info-item :name "pec420r")
|
||||
(new 'static 'speech-info-item :name "pec421r")
|
||||
(new 'static 'speech-info-item :name "pec422r")
|
||||
(new 'static 'speech-info-item :name "pec423r")
|
||||
(new 'static 'speech-info-item :name "pec424r")
|
||||
(new 'static 'speech-info-item :name "pec425r")
|
||||
(new 'static 'speech-info-item :name "pec426r")
|
||||
(new 'static 'speech-info-item :name "pec427r")
|
||||
(new 'static 'speech-info-item :name "pec428r")
|
||||
(new 'static 'speech-info-item :name "pec429r")
|
||||
(new 'static 'speech-info-item :name "pec430r")
|
||||
(new 'static 'speech-info-item :name "pec431r")
|
||||
(new 'static 'speech-info-item :name "pec432r")
|
||||
(new 'static 'speech-info-item :name "pec433r")
|
||||
(new 'static 'speech-info-item :name "pec434r")
|
||||
(new 'static 'speech-info-item :name "pec435r")
|
||||
(new 'static 'speech-info-item :name "pec436r")
|
||||
(new 'static 'speech-info-item :name "pec437r")
|
||||
(new 'static 'speech-info-item :name "pec438r")
|
||||
(new 'static 'speech-info-item :name "pec439r")
|
||||
(new 'static 'speech-info-item :name "pec440r")
|
||||
(new 'static 'speech-info-item :name "pec441r")
|
||||
(new 'static 'speech-info-item :name "pec445r")
|
||||
(new 'static 'speech-info-item :name "pec490r")
|
||||
(new 'static 'speech-info-item :name "pec491r")
|
||||
(new 'static 'speech-info-item :name "pec505r")
|
||||
(new 'static 'speech-info-item :name "pec507r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec446r")
|
||||
(new 'static 'speech-info-item :name "pec447r")
|
||||
(new 'static 'speech-info-item :name "pec448r")
|
||||
(new 'static 'speech-info-item :name "pec449r")
|
||||
(new 'static 'speech-info-item :name "pec450r")
|
||||
(new 'static 'speech-info-item :name "pec451r")
|
||||
(new 'static 'speech-info-item :name "pec452r")
|
||||
(new 'static 'speech-info-item :name "pec453r")
|
||||
(new 'static 'speech-info-item :name "pec454r")
|
||||
(new 'static 'speech-info-item :name "pec455r")
|
||||
(new 'static 'speech-info-item :name "pec456r")
|
||||
(new 'static 'speech-info-item :name "pec457r")
|
||||
(new 'static 'speech-info-item :name "pec458r")
|
||||
(new 'static 'speech-info-item :name "pec459r")
|
||||
(new 'static 'speech-info-item :name "pec460r")
|
||||
(new 'static 'speech-info-item :name "pec461r")
|
||||
(new 'static 'speech-info-item :name "pec462r")
|
||||
(new 'static 'speech-info-item :name "pec463r")
|
||||
(new 'static 'speech-info-item :name "pec464r")
|
||||
(new 'static 'speech-info-item :name "pec465r")
|
||||
(new 'static 'speech-info-item :name "pec466r")
|
||||
(new 'static 'speech-info-item :name "pec467r")
|
||||
(new 'static 'speech-info-item :name "pec468r")
|
||||
(new 'static 'speech-info-item :name "pec469r")
|
||||
(new 'static 'speech-info-item :name "pec470r")
|
||||
(new 'static 'speech-info-item :name "pec471r")
|
||||
(new 'static 'speech-info-item :name "pec472r")
|
||||
(new 'static 'speech-info-item :name "pec407r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec473r")
|
||||
(new 'static 'speech-info-item :name "pec474r")
|
||||
(new 'static 'speech-info-item :name "pec475r")
|
||||
(new 'static 'speech-info-item :name "pec476r")
|
||||
(new 'static 'speech-info-item :name "pec477r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "pec510r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec511r")
|
||||
(new 'static 'speech-info-item :name "pec512r")
|
||||
(new 'static 'speech-info-item :name "pec513r")
|
||||
(new 'static 'speech-info-item :name "pec514r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec515r")
|
||||
(new 'static 'speech-info-item :name "pec516r")
|
||||
(new 'static 'speech-info-item :name "pec517r")
|
||||
(new 'static 'speech-info-item :name "pec518r")
|
||||
(new 'static 'speech-info-item :name "pec519r")
|
||||
(new 'static 'speech-info-item :name "pec520r")
|
||||
(new 'static 'speech-info-item :name "pec521r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec522r")
|
||||
(new 'static 'speech-info-item :name "pec523r")
|
||||
(new 'static 'speech-info-item :name "pec524r")
|
||||
(new 'static 'speech-info-item :name "pec525r")
|
||||
(new 'static 'speech-info-item :name "pec526r")
|
||||
(new 'static 'speech-info-item :name "pec527r")
|
||||
(new 'static 'speech-info-item :name "pec528r")
|
||||
(new 'static 'speech-info-item :name "pec529r")
|
||||
(new 'static 'speech-info-item :name "pec530r")
|
||||
(new 'static 'speech-info-item :name "pec531r")
|
||||
(new 'static 'speech-info-item :name "pec532r")
|
||||
(new 'static 'speech-info-item :name "pec533r")
|
||||
(new 'static 'speech-info-item :name "pec534r")
|
||||
(new 'static 'speech-info-item :name "pec535r")
|
||||
(new 'static 'speech-info-item :name "pec536r")
|
||||
(new 'static 'speech-info-item :name "pec537r")
|
||||
(new 'static 'speech-info-item :name "pec538r")
|
||||
(new 'static 'speech-info-item :name "pec539r")
|
||||
(new 'static 'speech-info-item :name "pec540r")
|
||||
(new 'static 'speech-info-item :name "pec541r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec522r")
|
||||
(new 'static 'speech-info-item :name "pec523r")
|
||||
(new 'static 'speech-info-item :name "pec524r")
|
||||
(new 'static 'speech-info-item :name "pec525r")
|
||||
(new 'static 'speech-info-item :name "pec526r")
|
||||
(new 'static 'speech-info-item :name "pec527r")
|
||||
(new 'static 'speech-info-item :name "pec528r")
|
||||
(new 'static 'speech-info-item :name "pec529r")
|
||||
(new 'static 'speech-info-item :name "pec530r")
|
||||
(new 'static 'speech-info-item :name "pec531r")
|
||||
(new 'static 'speech-info-item :name "pec532r")
|
||||
(new 'static 'speech-info-item :name "pec533r")
|
||||
(new 'static 'speech-info-item :name "pec534r")
|
||||
(new 'static 'speech-info-item :name "pec535r")
|
||||
(new 'static 'speech-info-item :name "pec536r")
|
||||
(new 'static 'speech-info-item :name "pec537r")
|
||||
(new 'static 'speech-info-item :name "pec538r")
|
||||
(new 'static 'speech-info-item :name "pec539r")
|
||||
(new 'static 'speech-info-item :name "pec540r")
|
||||
(new 'static 'speech-info-item :name "pec541r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec542r")
|
||||
(new 'static 'speech-info-item :name "pec543r")
|
||||
(new 'static 'speech-info-item :name "pec544r")
|
||||
(new 'static 'speech-info-item :name "pec545r")
|
||||
(new 'static 'speech-info-item :name "pec546r")
|
||||
(new 'static 'speech-info-item :name "pec547r")
|
||||
(new 'static 'speech-info-item :name "pec548r")
|
||||
(new 'static 'speech-info-item :name "pec549r")
|
||||
(new 'static 'speech-info-item :name "pec550r")
|
||||
(new 'static 'speech-info-item :name "pec551r")
|
||||
(new 'static 'speech-info-item :name "pec552r")
|
||||
(new 'static 'speech-info-item :name "pec553r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec542r")
|
||||
(new 'static 'speech-info-item :name "pec543r")
|
||||
(new 'static 'speech-info-item :name "pec544r")
|
||||
(new 'static 'speech-info-item :name "pec545r")
|
||||
(new 'static 'speech-info-item :name "pec546r")
|
||||
(new 'static 'speech-info-item :name "pec547r")
|
||||
(new 'static 'speech-info-item :name "pec548r")
|
||||
(new 'static 'speech-info-item :name "pec549r")
|
||||
(new 'static 'speech-info-item :name "pec550r")
|
||||
(new 'static 'speech-info-item :name "pec551r")
|
||||
(new 'static 'speech-info-item :name "pec552r")
|
||||
(new 'static 'speech-info-item :name "pec553r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec576r")
|
||||
(new 'static 'speech-info-item :name "pec577r")
|
||||
(new 'static 'speech-info-item :name "pec578r")
|
||||
(new 'static 'speech-info-item :name "pec579r")
|
||||
(new 'static 'speech-info-item :name "pec580r")
|
||||
(new 'static 'speech-info-item :name "pec581r")
|
||||
(new 'static 'speech-info-item :name "pec582r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 21) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec502r")
|
||||
(new 'static 'speech-info-item :name "pec503r")
|
||||
(new 'static 'speech-info-item :name "pec504r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 7 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "pec446r")
|
||||
(new 'static 'speech-info-item :name "pec478r")
|
||||
(new 'static 'speech-info-item :name "pec479r")
|
||||
(new 'static 'speech-info-item :name "pec480r")
|
||||
(new 'static 'speech-info-item :name "pec481r")
|
||||
(new 'static 'speech-info-item :name "pec482r")
|
||||
(new 'static 'speech-info-item :name "pec483r")
|
||||
(new 'static 'speech-info-item :name "pec484r")
|
||||
(new 'static 'speech-info-item :name "pec485r")
|
||||
(new 'static 'speech-info-item :name "pec486r")
|
||||
(new 'static 'speech-info-item :name "pec487r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+349
@@ -0,0 +1,349 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat102r")
|
||||
(new 'static 'speech-info-item :name "rat106r")
|
||||
(new 'static 'speech-info-item :name "rat107r")
|
||||
(new 'static 'speech-info-item :name "rat110r")
|
||||
(new 'static 'speech-info-item :name "rat115r")
|
||||
(new 'static 'speech-info-item :name "rat120r")
|
||||
(new 'static 'speech-info-item :name "rat126r")
|
||||
(new 'static 'speech-info-item :name "rat141r")
|
||||
(new 'static 'speech-info-item :name "rat143r")
|
||||
(new 'static 'speech-info-item :name "rat144r")
|
||||
(new 'static 'speech-info-item :name "rat159r")
|
||||
(new 'static 'speech-info-item :name "rat160r")
|
||||
(new 'static 'speech-info-item :name "rat162r")
|
||||
(new 'static 'speech-info-item :name "rat163r")
|
||||
(new 'static 'speech-info-item :name "rat169r")
|
||||
(new 'static 'speech-info-item :name "rat170r")
|
||||
(new 'static 'speech-info-item :name "rat171r")
|
||||
(new 'static 'speech-info-item :name "rat176r")
|
||||
(new 'static 'speech-info-item :name "rat179r")
|
||||
(new 'static 'speech-info-item :name "rat200r")
|
||||
(new 'static 'speech-info-item :name "rat204r")
|
||||
(new 'static 'speech-info-item :name "rat207r")
|
||||
(new 'static 'speech-info-item :name "rat208r")
|
||||
(new 'static 'speech-info-item :name "rat238r")
|
||||
(new 'static 'speech-info-item :name "rat243r")
|
||||
(new 'static 'speech-info-item :name "rat244r")
|
||||
(new 'static 'speech-info-item :name "rat245r")
|
||||
(new 'static 'speech-info-item :name "rat246r")
|
||||
(new 'static 'speech-info-item :name "rat247r")
|
||||
(new 'static 'speech-info-item :name "rat248r")
|
||||
(new 'static 'speech-info-item :name "rat250r")
|
||||
(new 'static 'speech-info-item :name "rat252r")
|
||||
(new 'static 'speech-info-item :name "rat253r")
|
||||
(new 'static 'speech-info-item :name "rat254r")
|
||||
(new 'static 'speech-info-item :name "rat256r")
|
||||
(new 'static 'speech-info-item :name "rat257r")
|
||||
(new 'static 'speech-info-item :name "rat258r")
|
||||
(new 'static 'speech-info-item :name "rat261r")
|
||||
(new 'static 'speech-info-item :name "rat262r")
|
||||
(new 'static 'speech-info-item :name "rat263r")
|
||||
(new 'static 'speech-info-item :name "rat264r")
|
||||
(new 'static 'speech-info-item :name "rat268r")
|
||||
(new 'static 'speech-info-item :name "rat271r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat108r")
|
||||
(new 'static 'speech-info-item :name "rat109r")
|
||||
(new 'static 'speech-info-item :name "rat111r")
|
||||
(new 'static 'speech-info-item :name "rat112r")
|
||||
(new 'static 'speech-info-item :name "rat113r")
|
||||
(new 'static 'speech-info-item :name "rat114r")
|
||||
(new 'static 'speech-info-item :name "rat116r")
|
||||
(new 'static 'speech-info-item :name "rat117r")
|
||||
(new 'static 'speech-info-item :name "rat118r")
|
||||
(new 'static 'speech-info-item :name "rat119r")
|
||||
(new 'static 'speech-info-item :name "rat121r")
|
||||
(new 'static 'speech-info-item :name "rat122r")
|
||||
(new 'static 'speech-info-item :name "rat123r")
|
||||
(new 'static 'speech-info-item :name "rat124r")
|
||||
(new 'static 'speech-info-item :name "rat125r")
|
||||
(new 'static 'speech-info-item :name "rat127r")
|
||||
(new 'static 'speech-info-item :name "rat128r")
|
||||
(new 'static 'speech-info-item :name "rat129r")
|
||||
(new 'static 'speech-info-item :name "rat130r")
|
||||
(new 'static 'speech-info-item :name "rat131r")
|
||||
(new 'static 'speech-info-item :name "rat132r")
|
||||
(new 'static 'speech-info-item :name "rat133r")
|
||||
(new 'static 'speech-info-item :name "rat209r")
|
||||
(new 'static 'speech-info-item :name "rat201r")
|
||||
(new 'static 'speech-info-item :name "rat101r")
|
||||
(new 'static 'speech-info-item :name "rat103r")
|
||||
(new 'static 'speech-info-item :name "rat104r")
|
||||
(new 'static 'speech-info-item :name "rat105r")
|
||||
(new 'static 'speech-info-item :name "rat251r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat109r")
|
||||
(new 'static 'speech-info-item :name "rat112r")
|
||||
(new 'static 'speech-info-item :name "rat113r")
|
||||
(new 'static 'speech-info-item :name "rat114r")
|
||||
(new 'static 'speech-info-item :name "rat116r")
|
||||
(new 'static 'speech-info-item :name "rat117r")
|
||||
(new 'static 'speech-info-item :name "rat118r")
|
||||
(new 'static 'speech-info-item :name "rat119r")
|
||||
(new 'static 'speech-info-item :name "rat121r")
|
||||
(new 'static 'speech-info-item :name "rat122r")
|
||||
(new 'static 'speech-info-item :name "rat123r")
|
||||
(new 'static 'speech-info-item :name "rat124r")
|
||||
(new 'static 'speech-info-item :name "rat125r")
|
||||
(new 'static 'speech-info-item :name "rat127r")
|
||||
(new 'static 'speech-info-item :name "rat128r")
|
||||
(new 'static 'speech-info-item :name "rat129r")
|
||||
(new 'static 'speech-info-item :name "rat130r")
|
||||
(new 'static 'speech-info-item :name "rat133r")
|
||||
(new 'static 'speech-info-item :name "rat209r")
|
||||
(new 'static 'speech-info-item :name "rat201r")
|
||||
(new 'static 'speech-info-item :name "rat101r")
|
||||
(new 'static 'speech-info-item :name "rat104r")
|
||||
(new 'static 'speech-info-item :name "rat251r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat134r")
|
||||
(new 'static 'speech-info-item :name "rat135r")
|
||||
(new 'static 'speech-info-item :name "rat136r")
|
||||
(new 'static 'speech-info-item :name "rat137r")
|
||||
(new 'static 'speech-info-item :name "rat138r")
|
||||
(new 'static 'speech-info-item :name "rat139r")
|
||||
(new 'static 'speech-info-item :name "rat140r")
|
||||
(new 'static 'speech-info-item :name "rat142r")
|
||||
(new 'static 'speech-info-item :name "rat148r")
|
||||
(new 'static 'speech-info-item :name "rat152r")
|
||||
(new 'static 'speech-info-item :name "rat210r")
|
||||
(new 'static 'speech-info-item :name "rat203r")
|
||||
(new 'static 'speech-info-item :name "rat255r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat145r")
|
||||
(new 'static 'speech-info-item :name "rat146r")
|
||||
(new 'static 'speech-info-item :name "rat147r")
|
||||
(new 'static 'speech-info-item :name "rat149r")
|
||||
(new 'static 'speech-info-item :name "rat150r")
|
||||
(new 'static 'speech-info-item :name "rat151r")
|
||||
(new 'static 'speech-info-item :name "rat153r")
|
||||
(new 'static 'speech-info-item :name "rat154r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat155r")
|
||||
(new 'static 'speech-info-item :name "rat156r")
|
||||
(new 'static 'speech-info-item :name "rat157r")
|
||||
(new 'static 'speech-info-item :name "rat158r")
|
||||
(new 'static 'speech-info-item :name "rat161r")
|
||||
(new 'static 'speech-info-item :name "rat164r")
|
||||
(new 'static 'speech-info-item :name "rat165r")
|
||||
(new 'static 'speech-info-item :name "rat166r")
|
||||
(new 'static 'speech-info-item :name "rat167r")
|
||||
(new 'static 'speech-info-item :name "rat168r")
|
||||
(new 'static 'speech-info-item :name "rat172r")
|
||||
(new 'static 'speech-info-item :name "rat173r")
|
||||
(new 'static 'speech-info-item :name "rat174r")
|
||||
(new 'static 'speech-info-item :name "rat175r")
|
||||
(new 'static 'speech-info-item :name "rat177r")
|
||||
(new 'static 'speech-info-item :name "rat249r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat178r")
|
||||
(new 'static 'speech-info-item :name "rat180r")
|
||||
(new 'static 'speech-info-item :name "rat181r")
|
||||
(new 'static 'speech-info-item :name "rat182r")
|
||||
(new 'static 'speech-info-item :name "rat183r")
|
||||
(new 'static 'speech-info-item :name "rat184r")
|
||||
(new 'static 'speech-info-item :name "rat185r")
|
||||
(new 'static 'speech-info-item :name "rat186r")
|
||||
(new 'static 'speech-info-item :name "rat187r")
|
||||
(new 'static 'speech-info-item :name "rat188r")
|
||||
(new 'static 'speech-info-item :name "rat189r")
|
||||
(new 'static 'speech-info-item :name "rat190r")
|
||||
(new 'static 'speech-info-item :name "rat191r")
|
||||
(new 'static 'speech-info-item :name "rat192r")
|
||||
(new 'static 'speech-info-item :name "rat202r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat193r")
|
||||
(new 'static 'speech-info-item :name "rat194r")
|
||||
(new 'static 'speech-info-item :name "rat195r")
|
||||
(new 'static 'speech-info-item :name "rat196r")
|
||||
(new 'static 'speech-info-item :name "rat197r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "rat211r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat212r")
|
||||
(new 'static 'speech-info-item :name "rat213r")
|
||||
(new 'static 'speech-info-item :name "rat214r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat215r")
|
||||
(new 'static 'speech-info-item :name "rat216r")
|
||||
(new 'static 'speech-info-item :name "rat217r")
|
||||
(new 'static 'speech-info-item :name "rat218r")
|
||||
(new 'static 'speech-info-item :name "rat219r")
|
||||
(new 'static 'speech-info-item :name "rat220r")
|
||||
(new 'static 'speech-info-item :name "rat221r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat222r")
|
||||
(new 'static 'speech-info-item :name "rat223r")
|
||||
(new 'static 'speech-info-item :name "rat224r")
|
||||
(new 'static 'speech-info-item :name "rat225r")
|
||||
(new 'static 'speech-info-item :name "rat226r")
|
||||
(new 'static 'speech-info-item :name "rat227r")
|
||||
(new 'static 'speech-info-item :name "rat228r")
|
||||
(new 'static 'speech-info-item :name "rat229r")
|
||||
(new 'static 'speech-info-item :name "rat230r")
|
||||
(new 'static 'speech-info-item :name "rat231r")
|
||||
(new 'static 'speech-info-item :name "rat232r")
|
||||
(new 'static 'speech-info-item :name "rat233r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat222r")
|
||||
(new 'static 'speech-info-item :name "rat223r")
|
||||
(new 'static 'speech-info-item :name "rat224r")
|
||||
(new 'static 'speech-info-item :name "rat225r")
|
||||
(new 'static 'speech-info-item :name "rat226r")
|
||||
(new 'static 'speech-info-item :name "rat227r")
|
||||
(new 'static 'speech-info-item :name "rat228r")
|
||||
(new 'static 'speech-info-item :name "rat229r")
|
||||
(new 'static 'speech-info-item :name "rat230r")
|
||||
(new 'static 'speech-info-item :name "rat231r")
|
||||
(new 'static 'speech-info-item :name "rat232r")
|
||||
(new 'static 'speech-info-item :name "rat233r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat234r")
|
||||
(new 'static 'speech-info-item :name "rat235r")
|
||||
(new 'static 'speech-info-item :name "rat236r")
|
||||
(new 'static 'speech-info-item :name "rat237r")
|
||||
(new 'static 'speech-info-item :name "rat239r")
|
||||
(new 'static 'speech-info-item :name "rat240r")
|
||||
(new 'static 'speech-info-item :name "rat241r")
|
||||
(new 'static 'speech-info-item :name "rat242r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat234r")
|
||||
(new 'static 'speech-info-item :name "rat235r")
|
||||
(new 'static 'speech-info-item :name "rat236r")
|
||||
(new 'static 'speech-info-item :name "rat237r")
|
||||
(new 'static 'speech-info-item :name "rat239r")
|
||||
(new 'static 'speech-info-item :name "rat240r")
|
||||
(new 'static 'speech-info-item :name "rat241r")
|
||||
(new 'static 'speech-info-item :name "rat242r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat265r")
|
||||
(new 'static 'speech-info-item :name "rat266r")
|
||||
(new 'static 'speech-info-item :name "rat267r")
|
||||
(new 'static 'speech-info-item :name "rat269r")
|
||||
(new 'static 'speech-info-item :name "rat270r")
|
||||
(new 'static 'speech-info-item :name "rat272r")
|
||||
(new 'static 'speech-info-item :name "rat273r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 21) (new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat205r")
|
||||
(new 'static 'speech-info-item :name "rat206r")
|
||||
)
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 17 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rat193r")
|
||||
(new 'static 'speech-info-item :name "rat198r")
|
||||
(new 'static 'speech-info-item :name "rat199r")
|
||||
(new 'static 'speech-info-item :name "rat259r")
|
||||
(new 'static 'speech-info-item :name "rat260r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+287
@@ -0,0 +1,287 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn112r")
|
||||
(new 'static 'speech-info-item :name "rayn113r")
|
||||
(new 'static 'speech-info-item :name "rayn114r")
|
||||
(new 'static 'speech-info-item :name "rayn115r")
|
||||
(new 'static 'speech-info-item :name "rayn148r")
|
||||
(new 'static 'speech-info-item :name "rayn149r")
|
||||
(new 'static 'speech-info-item :name "rayn150r")
|
||||
(new 'static 'speech-info-item :name "rayn151r")
|
||||
(new 'static 'speech-info-item :name "rayn152r")
|
||||
(new 'static 'speech-info-item :name "rayn153r")
|
||||
(new 'static 'speech-info-item :name "rayn155r")
|
||||
(new 'static 'speech-info-item :name "rayn156r")
|
||||
(new 'static 'speech-info-item :name "rayn182r")
|
||||
(new 'static 'speech-info-item :name "rayn183r")
|
||||
(new 'static 'speech-info-item :name "rayn184r")
|
||||
(new 'static 'speech-info-item :name "rayn185r")
|
||||
(new 'static 'speech-info-item :name "rayn186r")
|
||||
(new 'static 'speech-info-item :name "rayn187r")
|
||||
(new 'static 'speech-info-item :name "rayn188r")
|
||||
(new 'static 'speech-info-item :name "rayn189r")
|
||||
(new 'static 'speech-info-item :name "rayn190r")
|
||||
(new 'static 'speech-info-item :name "rayn191r")
|
||||
(new 'static 'speech-info-item :name "rayn192r")
|
||||
(new 'static 'speech-info-item :name "rayn193r")
|
||||
(new 'static 'speech-info-item :name "rayn194r")
|
||||
(new 'static 'speech-info-item :name "rayn195r")
|
||||
(new 'static 'speech-info-item :name "rayn196r")
|
||||
(new 'static 'speech-info-item :name "rayn197r")
|
||||
(new 'static 'speech-info-item :name "rayn198r")
|
||||
(new 'static 'speech-info-item :name "rayn199r")
|
||||
(new 'static 'speech-info-item :name "rayn200r")
|
||||
(new 'static 'speech-info-item :name "rayn201r")
|
||||
(new 'static 'speech-info-item :name "rayn202r")
|
||||
(new 'static 'speech-info-item :name "rayn203r")
|
||||
(new 'static 'speech-info-item :name "rayn204r")
|
||||
(new 'static 'speech-info-item :name "rayn205r")
|
||||
(new 'static 'speech-info-item :name "rayn206r")
|
||||
(new 'static 'speech-info-item :name "rayn207r")
|
||||
(new 'static 'speech-info-item :name "rayn208r")
|
||||
(new 'static 'speech-info-item :name "rayn209r")
|
||||
(new 'static 'speech-info-item :name "rayn211r")
|
||||
(new 'static 'speech-info-item :name "rayn212r")
|
||||
(new 'static 'speech-info-item :name "rayn213r")
|
||||
(new 'static 'speech-info-item :name "rayn214r")
|
||||
(new 'static 'speech-info-item :name "rayn215r")
|
||||
(new 'static 'speech-info-item :name "rayn218r")
|
||||
(new 'static 'speech-info-item :name "rayn219r")
|
||||
(new 'static 'speech-info-item :name "rayn135r")
|
||||
(new 'static 'speech-info-item :name "rayn136r")
|
||||
(new 'static 'speech-info-item :name "rayn146r")
|
||||
(new 'static 'speech-info-item :name "rayn147r")
|
||||
(new 'static 'speech-info-item :name "rayn175r")
|
||||
(new 'static 'speech-info-item :name "rayn176r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "rayn154r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn101r")
|
||||
(new 'static 'speech-info-item :name "rayn102r")
|
||||
(new 'static 'speech-info-item :name "rayn103r")
|
||||
(new 'static 'speech-info-item :name "rayn104r")
|
||||
(new 'static 'speech-info-item :name "rayn105r")
|
||||
(new 'static 'speech-info-item :name "rayn106r")
|
||||
(new 'static 'speech-info-item :name "rayn107r")
|
||||
(new 'static 'speech-info-item :name "rayn108r")
|
||||
(new 'static 'speech-info-item :name "rayn109r")
|
||||
(new 'static 'speech-info-item :name "rayn110r")
|
||||
(new 'static 'speech-info-item :name "rayn111r")
|
||||
(new 'static 'speech-info-item :name "rayn126r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn116r")
|
||||
(new 'static 'speech-info-item :name "rayn117r")
|
||||
(new 'static 'speech-info-item :name "rayn118r")
|
||||
(new 'static 'speech-info-item :name "rayn119r")
|
||||
(new 'static 'speech-info-item :name "rayn120r")
|
||||
(new 'static 'speech-info-item :name "rayn121r")
|
||||
(new 'static 'speech-info-item :name "rayn122r")
|
||||
(new 'static 'speech-info-item :name "rayn123r")
|
||||
(new 'static 'speech-info-item :name "rayn124r")
|
||||
(new 'static 'speech-info-item :name "rayn210r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn125r")
|
||||
(new 'static 'speech-info-item :name "rayn127r")
|
||||
(new 'static 'speech-info-item :name "rayn128r")
|
||||
(new 'static 'speech-info-item :name "rayn129r")
|
||||
(new 'static 'speech-info-item :name "rayn130r")
|
||||
(new 'static 'speech-info-item :name "rayn131r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn132r")
|
||||
(new 'static 'speech-info-item :name "rayn133r")
|
||||
(new 'static 'speech-info-item :name "rayn134r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn137r")
|
||||
(new 'static 'speech-info-item :name "rayn138r")
|
||||
(new 'static 'speech-info-item :name "rayn139r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn141r")
|
||||
(new 'static 'speech-info-item :name "rayn142r")
|
||||
(new 'static 'speech-info-item :name "rayn143r")
|
||||
(new 'static 'speech-info-item :name "rayn144r")
|
||||
(new 'static 'speech-info-item :name "rayn145r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "rayn157r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn158r")
|
||||
(new 'static 'speech-info-item :name "rayn159r")
|
||||
(new 'static 'speech-info-item :name "rayn160r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn161r")
|
||||
(new 'static 'speech-info-item :name "rayn162r")
|
||||
(new 'static 'speech-info-item :name "rayn163r")
|
||||
(new 'static 'speech-info-item :name "rayn164r")
|
||||
(new 'static 'speech-info-item :name "rayn165r")
|
||||
(new 'static 'speech-info-item :name "rayn166r")
|
||||
(new 'static 'speech-info-item :name "rayn167r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn168r")
|
||||
(new 'static 'speech-info-item :name "rayn169r")
|
||||
(new 'static 'speech-info-item :name "rayn170r")
|
||||
(new 'static 'speech-info-item :name "rayn171r")
|
||||
(new 'static 'speech-info-item :name "rayn172r")
|
||||
(new 'static 'speech-info-item :name "rayn173r")
|
||||
(new 'static 'speech-info-item :name "rayn174r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn178r")
|
||||
(new 'static 'speech-info-item :name "rayn180r")
|
||||
(new 'static 'speech-info-item :name "rayn181r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn168r")
|
||||
(new 'static 'speech-info-item :name "rayn169r")
|
||||
(new 'static 'speech-info-item :name "rayn170r")
|
||||
(new 'static 'speech-info-item :name "rayn171r")
|
||||
(new 'static 'speech-info-item :name "rayn172r")
|
||||
(new 'static 'speech-info-item :name "rayn173r")
|
||||
(new 'static 'speech-info-item :name "rayn174r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn178r")
|
||||
(new 'static 'speech-info-item :name "rayn180r")
|
||||
(new 'static 'speech-info-item :name "rayn181r")
|
||||
(new 'static 'speech-info-item :name "rayn177r")
|
||||
(new 'static 'speech-info-item :name "rayn179r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn117r")
|
||||
(new 'static 'speech-info-item :name "rayn118r")
|
||||
(new 'static 'speech-info-item :name "rayn119r")
|
||||
(new 'static 'speech-info-item :name "rayn120r")
|
||||
(new 'static 'speech-info-item :name "rayn121r")
|
||||
(new 'static 'speech-info-item :name "rayn122r")
|
||||
(new 'static 'speech-info-item :name "rayn123r")
|
||||
(new 'static 'speech-info-item :name "rayn125r")
|
||||
(new 'static 'speech-info-item :name "rayn127r")
|
||||
(new 'static 'speech-info-item :name "rayn128r")
|
||||
(new 'static 'speech-info-item :name "rayn129r")
|
||||
(new 'static 'speech-info-item :name "rayn130r")
|
||||
(new 'static 'speech-info-item :name "rayn135r")
|
||||
(new 'static 'speech-info-item :name "rayn154r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn138r")
|
||||
(new 'static 'speech-info-item :name "rayn140r")
|
||||
(new 'static 'speech-info-item :name "rayn141r")
|
||||
(new 'static 'speech-info-item :name "rayn144r")
|
||||
(new 'static 'speech-info-item :name "rayn146r")
|
||||
(new 'static 'speech-info-item :name "rayn179r")
|
||||
(new 'static 'speech-info-item :name "rayn180r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 5 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "rayn101r")
|
||||
(new 'static 'speech-info-item :name "rayn102r")
|
||||
(new 'static 'speech-info-item :name "rayn103r")
|
||||
(new 'static 'speech-info-item :name "rayn104r")
|
||||
(new 'static 'speech-info-item :name "rayn105r")
|
||||
(new 'static 'speech-info-item :name "rayn106r")
|
||||
(new 'static 'speech-info-item :name "rayn108r")
|
||||
(new 'static 'speech-info-item :name "rayn110r")
|
||||
(new 'static 'speech-info-item :name "rayn111r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+520
@@ -0,0 +1,520 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz101r")
|
||||
(new 'static 'speech-info-item :name "raz102r")
|
||||
(new 'static 'speech-info-item :name "raz104r")
|
||||
(new 'static 'speech-info-item :name "raz108r")
|
||||
(new 'static 'speech-info-item :name "raz109r")
|
||||
(new 'static 'speech-info-item :name "raz110r")
|
||||
(new 'static 'speech-info-item :name "raz111r")
|
||||
(new 'static 'speech-info-item :name "raz115r")
|
||||
(new 'static 'speech-info-item :name "raz116r")
|
||||
(new 'static 'speech-info-item :name "raz117r")
|
||||
(new 'static 'speech-info-item :name "raz118r")
|
||||
(new 'static 'speech-info-item :name "raz120r")
|
||||
(new 'static 'speech-info-item :name "raz123r")
|
||||
(new 'static 'speech-info-item :name "raz124r")
|
||||
(new 'static 'speech-info-item :name "raz126r")
|
||||
(new 'static 'speech-info-item :name "raz130r")
|
||||
(new 'static 'speech-info-item :name "raz131r")
|
||||
(new 'static 'speech-info-item :name "raz143r")
|
||||
(new 'static 'speech-info-item :name "raz144r")
|
||||
(new 'static 'speech-info-item :name "raz148r")
|
||||
(new 'static 'speech-info-item :name "raz149r")
|
||||
(new 'static 'speech-info-item :name "raz150r")
|
||||
(new 'static 'speech-info-item :name "raz153r")
|
||||
(new 'static 'speech-info-item :name "raz157r")
|
||||
(new 'static 'speech-info-item :name "raz158r")
|
||||
(new 'static 'speech-info-item :name "raz195r")
|
||||
(new 'static 'speech-info-item :name "raz199r")
|
||||
(new 'static 'speech-info-item :name "raz202r")
|
||||
(new 'static 'speech-info-item :name "raz203r")
|
||||
(new 'static 'speech-info-item :name "raz204r")
|
||||
(new 'static 'speech-info-item :name "raz205r")
|
||||
(new 'static 'speech-info-item :name "raz220r")
|
||||
(new 'static 'speech-info-item :name "raz293r")
|
||||
(new 'static 'speech-info-item :name "raz295r")
|
||||
(new 'static 'speech-info-item :name "raz300r")
|
||||
(new 'static 'speech-info-item :name "raz301r")
|
||||
(new 'static 'speech-info-item :name "raz305r")
|
||||
(new 'static 'speech-info-item :name "raz306r")
|
||||
(new 'static 'speech-info-item :name "raz307r")
|
||||
(new 'static 'speech-info-item :name "raz308r")
|
||||
(new 'static 'speech-info-item :name "raz350r")
|
||||
(new 'static 'speech-info-item :name "raz351r")
|
||||
(new 'static 'speech-info-item :name "raz352r")
|
||||
(new 'static 'speech-info-item :name "raz353r")
|
||||
(new 'static 'speech-info-item :name "raz355r")
|
||||
(new 'static 'speech-info-item :name "raz356r")
|
||||
(new 'static 'speech-info-item :name "raz357r")
|
||||
(new 'static 'speech-info-item :name "raz358r")
|
||||
(new 'static 'speech-info-item :name "raz359r")
|
||||
(new 'static 'speech-info-item :name "raz360r")
|
||||
(new 'static 'speech-info-item :name "raz362r")
|
||||
(new 'static 'speech-info-item :name "raz363r")
|
||||
(new 'static 'speech-info-item :name "raz364r")
|
||||
(new 'static 'speech-info-item :name "raz365r")
|
||||
(new 'static 'speech-info-item :name "raz366r")
|
||||
(new 'static 'speech-info-item :name "raz368r")
|
||||
(new 'static 'speech-info-item :name "raz174r")
|
||||
(new 'static 'speech-info-item :name "raz177r")
|
||||
(new 'static 'speech-info-item :name "raz182r")
|
||||
(new 'static 'speech-info-item :name "raz190r")
|
||||
(new 'static 'speech-info-item :name "raz194r")
|
||||
(new 'static 'speech-info-item :name "raz103r")
|
||||
(new 'static 'speech-info-item :name "raz146r")
|
||||
(new 'static 'speech-info-item :name "raz197r")
|
||||
(new 'static 'speech-info-item :name "raz212r")
|
||||
(new 'static 'speech-info-item :name "raz238r")
|
||||
(new 'static 'speech-info-item :name "raz245r")
|
||||
(new 'static 'speech-info-item :name "raz246r")
|
||||
(new 'static 'speech-info-item :name "raz247r")
|
||||
(new 'static 'speech-info-item :name "raz255r")
|
||||
(new 'static 'speech-info-item :name "raz256r")
|
||||
(new 'static 'speech-info-item :name "raz257r")
|
||||
(new 'static 'speech-info-item :name "raz258r")
|
||||
(new 'static 'speech-info-item :name "raz259r")
|
||||
(new 'static 'speech-info-item :name "raz260r")
|
||||
(new 'static 'speech-info-item :name "raz263r")
|
||||
(new 'static 'speech-info-item :name "raz264r")
|
||||
(new 'static 'speech-info-item :name "raz265r")
|
||||
(new 'static 'speech-info-item :name "raz266r")
|
||||
(new 'static 'speech-info-item :name "raz267r")
|
||||
(new 'static 'speech-info-item :name "raz268r")
|
||||
(new 'static 'speech-info-item :name "raz274r")
|
||||
(new 'static 'speech-info-item :name "raz275r")
|
||||
(new 'static 'speech-info-item :name "raz279r")
|
||||
(new 'static 'speech-info-item :name "raz291r")
|
||||
(new 'static 'speech-info-item :name "raz292r")
|
||||
(new 'static 'speech-info-item :name "raz135r")
|
||||
(new 'static 'speech-info-item :name "raz337r")
|
||||
(new 'static 'speech-info-item :name "raz339r")
|
||||
(new 'static 'speech-info-item :name "raz313r")
|
||||
(new 'static 'speech-info-item :name "raz331r")
|
||||
(new 'static 'speech-info-item :name "raz333r")
|
||||
(new 'static 'speech-info-item :name "raz334r")
|
||||
(new 'static 'speech-info-item :name "raz128r")
|
||||
(new 'static 'speech-info-item :name "raz129r")
|
||||
(new 'static 'speech-info-item :name "raz154r")
|
||||
(new 'static 'speech-info-item :name "raz156r")
|
||||
(new 'static 'speech-info-item :name "raz348r")
|
||||
(new 'static 'speech-info-item :name "raz349r")
|
||||
(new 'static 'speech-info-item :name "raz174r")
|
||||
(new 'static 'speech-info-item :name "raz185r")
|
||||
(new 'static 'speech-info-item :name "raz190r")
|
||||
(new 'static 'speech-info-item :name "raz194r")
|
||||
(new 'static 'speech-info-item :name "raz103r")
|
||||
(new 'static 'speech-info-item :name "raz197r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz145r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz147r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz172r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz173r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz175r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz176r")
|
||||
(new 'static 'speech-info-item :name "raz178r")
|
||||
(new 'static 'speech-info-item :name "raz179r")
|
||||
(new 'static 'speech-info-item :name "raz180r")
|
||||
(new 'static 'speech-info-item :name "raz181r")
|
||||
(new 'static 'speech-info-item :name "raz183r")
|
||||
(new 'static 'speech-info-item :name "raz184r")
|
||||
(new 'static 'speech-info-item :name "raz185r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz186r")
|
||||
(new 'static 'speech-info-item :name "raz187r")
|
||||
(new 'static 'speech-info-item :name "raz188r")
|
||||
(new 'static 'speech-info-item :name "raz189r")
|
||||
(new 'static 'speech-info-item :name "raz191r")
|
||||
(new 'static 'speech-info-item :name "raz192r")
|
||||
(new 'static 'speech-info-item :name "raz193r")
|
||||
(new 'static 'speech-info-item :name "raz105r")
|
||||
(new 'static 'speech-info-item :name "raz140r")
|
||||
(new 'static 'speech-info-item :name "raz141r")
|
||||
(new 'static 'speech-info-item :name "raz196r")
|
||||
(new 'static 'speech-info-item :name "raz198r")
|
||||
(new 'static 'speech-info-item :name "raz200r")
|
||||
(new 'static 'speech-info-item :name "raz201r")
|
||||
(new 'static 'speech-info-item :name "raz354r")
|
||||
(new 'static 'speech-info-item :name "raz361r")
|
||||
(new 'static 'speech-info-item :name "raz370r")
|
||||
(new 'static 'speech-info-item :name "raz369r")
|
||||
(new 'static 'speech-info-item :name "raz226r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz206r")
|
||||
(new 'static 'speech-info-item :name "raz207r")
|
||||
(new 'static 'speech-info-item :name "raz208r")
|
||||
(new 'static 'speech-info-item :name "raz209r")
|
||||
(new 'static 'speech-info-item :name "raz210r")
|
||||
(new 'static 'speech-info-item :name "raz211r")
|
||||
(new 'static 'speech-info-item :name "raz213r")
|
||||
(new 'static 'speech-info-item :name "raz214r")
|
||||
(new 'static 'speech-info-item :name "raz215r")
|
||||
(new 'static 'speech-info-item :name "raz216r")
|
||||
(new 'static 'speech-info-item :name "raz217r")
|
||||
(new 'static 'speech-info-item :name "raz218r")
|
||||
(new 'static 'speech-info-item :name "raz219r")
|
||||
(new 'static 'speech-info-item :name "raz221r")
|
||||
(new 'static 'speech-info-item :name "raz227r")
|
||||
(new 'static 'speech-info-item :name "raz233r")
|
||||
(new 'static 'speech-info-item :name "raz125r")
|
||||
(new 'static 'speech-info-item :name "raz139r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz222r")
|
||||
(new 'static 'speech-info-item :name "raz223r")
|
||||
(new 'static 'speech-info-item :name "raz224r")
|
||||
(new 'static 'speech-info-item :name "raz225r")
|
||||
(new 'static 'speech-info-item :name "raz228r")
|
||||
(new 'static 'speech-info-item :name "raz229r")
|
||||
(new 'static 'speech-info-item :name "raz230r")
|
||||
(new 'static 'speech-info-item :name "raz231r")
|
||||
(new 'static 'speech-info-item :name "raz232r")
|
||||
(new 'static 'speech-info-item :name "raz234r")
|
||||
(new 'static 'speech-info-item :name "raz235r")
|
||||
(new 'static 'speech-info-item :name "raz106r")
|
||||
(new 'static 'speech-info-item :name "raz112r")
|
||||
(new 'static 'speech-info-item :name "raz113r")
|
||||
(new 'static 'speech-info-item :name "raz119r")
|
||||
(new 'static 'speech-info-item :name "raz296r")
|
||||
(new 'static 'speech-info-item :name "raz297r")
|
||||
(new 'static 'speech-info-item :name "raz298r")
|
||||
(new 'static 'speech-info-item :name "raz367r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 6)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz236r")
|
||||
(new 'static 'speech-info-item :name "raz237r")
|
||||
(new 'static 'speech-info-item :name "raz239r")
|
||||
(new 'static 'speech-info-item :name "raz240r")
|
||||
(new 'static 'speech-info-item :name "raz241r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz242r")
|
||||
(new 'static 'speech-info-item :name "raz243r")
|
||||
(new 'static 'speech-info-item :name "raz244r")
|
||||
(new 'static 'speech-info-item :name "raz248r")
|
||||
(new 'static 'speech-info-item :name "raz249r")
|
||||
(new 'static 'speech-info-item :name "raz250r")
|
||||
(new 'static 'speech-info-item :name "raz251r")
|
||||
(new 'static 'speech-info-item :name "raz252r")
|
||||
(new 'static 'speech-info-item :name "raz253r")
|
||||
(new 'static 'speech-info-item :name "raz254r")
|
||||
(new 'static 'speech-info-item :name "raz261r")
|
||||
(new 'static 'speech-info-item :name "raz262r")
|
||||
(new 'static 'speech-info-item :name "raz133r")
|
||||
(new 'static 'speech-info-item :name "raz136r")
|
||||
(new 'static 'speech-info-item :name "raz302r")
|
||||
(new 'static 'speech-info-item :name "raz303r")
|
||||
(new 'static 'speech-info-item :name "raz107r")
|
||||
(new 'static 'speech-info-item :name "raz114r")
|
||||
(new 'static 'speech-info-item :name "raz121r")
|
||||
(new 'static 'speech-info-item :name "raz122r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz269r")
|
||||
(new 'static 'speech-info-item :name "raz270r")
|
||||
(new 'static 'speech-info-item :name "raz271r")
|
||||
(new 'static 'speech-info-item :name "raz272r")
|
||||
(new 'static 'speech-info-item :name "raz273r")
|
||||
(new 'static 'speech-info-item :name "raz276r")
|
||||
(new 'static 'speech-info-item :name "raz277r")
|
||||
(new 'static 'speech-info-item :name "raz278r")
|
||||
(new 'static 'speech-info-item :name "raz280r")
|
||||
(new 'static 'speech-info-item :name "raz281r")
|
||||
(new 'static 'speech-info-item :name "raz282r")
|
||||
(new 'static 'speech-info-item :name "raz283r")
|
||||
(new 'static 'speech-info-item :name "raz284r")
|
||||
(new 'static 'speech-info-item :name "raz285r")
|
||||
(new 'static 'speech-info-item :name "raz299r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz286r")
|
||||
(new 'static 'speech-info-item :name "raz287r")
|
||||
(new 'static 'speech-info-item :name "raz288r")
|
||||
(new 'static 'speech-info-item :name "raz289r")
|
||||
(new 'static 'speech-info-item :name "raz290r")
|
||||
(new 'static 'speech-info-item :name "raz134r")
|
||||
(new 'static 'speech-info-item :name "raz137r")
|
||||
(new 'static 'speech-info-item :name "raz138r")
|
||||
(new 'static 'speech-info-item :name "raz165r")
|
||||
(new 'static 'speech-info-item :name "raz166r")
|
||||
(new 'static 'speech-info-item :name "raz167r")
|
||||
(new 'static 'speech-info-item :name "raz168r")
|
||||
(new 'static 'speech-info-item :name "raz169r")
|
||||
(new 'static 'speech-info-item :name "raz170r")
|
||||
(new 'static 'speech-info-item :name "raz171r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "raz309r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz310r")
|
||||
(new 'static 'speech-info-item :name "raz311r")
|
||||
(new 'static 'speech-info-item :name "raz312r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 11)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz314r")
|
||||
(new 'static 'speech-info-item :name "raz315r")
|
||||
(new 'static 'speech-info-item :name "raz316r")
|
||||
(new 'static 'speech-info-item :name "raz317r")
|
||||
(new 'static 'speech-info-item :name "raz318r")
|
||||
(new 'static 'speech-info-item :name "raz319r")
|
||||
(new 'static 'speech-info-item :name "raz320r")
|
||||
(new 'static 'speech-info-item :name "raz321r")
|
||||
(new 'static 'speech-info-item :name "raz322r")
|
||||
(new 'static 'speech-info-item :name "raz323r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz127r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz324r")
|
||||
(new 'static 'speech-info-item :name "raz325r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz326r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz327r")
|
||||
(new 'static 'speech-info-item :name "raz328r")
|
||||
(new 'static 'speech-info-item :name "raz329r")
|
||||
(new 'static 'speech-info-item :name "raz330r")
|
||||
(new 'static 'speech-info-item :name "raz332r")
|
||||
(new 'static 'speech-info-item :name "raz335r")
|
||||
(new 'static 'speech-info-item :name "raz151r")
|
||||
(new 'static 'speech-info-item :name "raz152r")
|
||||
(new 'static 'speech-info-item :name "raz155r")
|
||||
(new 'static 'speech-info-item :name "raz159r")
|
||||
(new 'static 'speech-info-item :name "raz160r")
|
||||
(new 'static 'speech-info-item :name "raz161r")
|
||||
(new 'static 'speech-info-item :name "raz162r")
|
||||
(new 'static 'speech-info-item :name "raz371r")
|
||||
(new 'static 'speech-info-item :name "raz142r")
|
||||
(new 'static 'speech-info-item :name "raz132r")
|
||||
(new 'static 'speech-info-item :name "raz163r")
|
||||
(new 'static 'speech-info-item :name "raz164r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz336r")
|
||||
(new 'static 'speech-info-item :name "raz338r")
|
||||
(new 'static 'speech-info-item :name "raz340r")
|
||||
(new 'static 'speech-info-item :name "raz341r")
|
||||
(new 'static 'speech-info-item :name "raz342r")
|
||||
(new 'static 'speech-info-item :name "raz343r")
|
||||
(new 'static 'speech-info-item :name "raz344r")
|
||||
(new 'static 'speech-info-item :name "raz345r")
|
||||
(new 'static 'speech-info-item :name "raz346r")
|
||||
(new 'static 'speech-info-item :name "raz347r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz324r")
|
||||
(new 'static 'speech-info-item :name "raz327r")
|
||||
(new 'static 'speech-info-item :name "raz328r")
|
||||
(new 'static 'speech-info-item :name "raz329r")
|
||||
(new 'static 'speech-info-item :name "raz330r")
|
||||
(new 'static 'speech-info-item :name "raz332r")
|
||||
(new 'static 'speech-info-item :name "raz335r")
|
||||
(new 'static 'speech-info-item :name "raz152r")
|
||||
(new 'static 'speech-info-item :name "raz155r")
|
||||
(new 'static 'speech-info-item :name "raz159r")
|
||||
(new 'static 'speech-info-item :name "raz160r")
|
||||
(new 'static 'speech-info-item :name "raz161r")
|
||||
(new 'static 'speech-info-item :name "raz162r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz336r")
|
||||
(new 'static 'speech-info-item :name "raz338r")
|
||||
(new 'static 'speech-info-item :name "raz340r")
|
||||
(new 'static 'speech-info-item :name "raz341r")
|
||||
(new 'static 'speech-info-item :name "raz342r")
|
||||
(new 'static 'speech-info-item :name "raz343r")
|
||||
(new 'static 'speech-info-item :name "raz344r")
|
||||
(new 'static 'speech-info-item :name "raz345r")
|
||||
(new 'static 'speech-info-item :name "raz346r")
|
||||
(new 'static 'speech-info-item :name "raz347r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz372r")
|
||||
(new 'static 'speech-info-item :name "raz373r")
|
||||
(new 'static 'speech-info-item :name "raz374r")
|
||||
(new 'static 'speech-info-item :name "raz375r")
|
||||
(new 'static 'speech-info-item :name "raz376r")
|
||||
(new 'static 'speech-info-item :name "raz377r")
|
||||
(new 'static 'speech-info-item :name "raz378r")
|
||||
(new 'static 'speech-info-item :name "raz379r")
|
||||
(new 'static 'speech-info-item :name "raz136r")
|
||||
(new 'static 'speech-info-item :name "raz139r")
|
||||
(new 'static 'speech-info-item :name "raz140r")
|
||||
(new 'static 'speech-info-item :name "raz143r")
|
||||
(new 'static 'speech-info-item :name "raz144r")
|
||||
(new 'static 'speech-info-item :name "raz201r")
|
||||
(new 'static 'speech-info-item :name "raz206r")
|
||||
(new 'static 'speech-info-item :name "raz207r")
|
||||
(new 'static 'speech-info-item :name "raz210r")
|
||||
(new 'static 'speech-info-item :name "raz211r")
|
||||
(new 'static 'speech-info-item :name "raz212r")
|
||||
(new 'static 'speech-info-item :name "raz213r")
|
||||
(new 'static 'speech-info-item :name "raz214r")
|
||||
(new 'static 'speech-info-item :name "raz215r")
|
||||
(new 'static 'speech-info-item :name "raz216r")
|
||||
(new 'static 'speech-info-item :name "raz217r")
|
||||
(new 'static 'speech-info-item :name "raz218r")
|
||||
(new 'static 'speech-info-item :name "raz219r")
|
||||
(new 'static 'speech-info-item :name "raz221r")
|
||||
(new 'static 'speech-info-item :name "raz223r")
|
||||
(new 'static 'speech-info-item :name "raz224r")
|
||||
(new 'static 'speech-info-item :name "raz225r")
|
||||
(new 'static 'speech-info-item :name "raz227r")
|
||||
(new 'static 'speech-info-item :name "raz230r")
|
||||
(new 'static 'speech-info-item :name "raz231r")
|
||||
(new 'static 'speech-info-item :name "raz232r")
|
||||
(new 'static 'speech-info-item :name "raz233r")
|
||||
(new 'static 'speech-info-item :name "raz234r")
|
||||
(new 'static 'speech-info-item :name "raz238r")
|
||||
(new 'static 'speech-info-item :name "raz242r")
|
||||
(new 'static 'speech-info-item :name "raz243r")
|
||||
(new 'static 'speech-info-item :name "raz261r")
|
||||
(new 'static 'speech-info-item :name "raz294r")
|
||||
(new 'static 'speech-info-item :name "raz297r")
|
||||
(new 'static 'speech-info-item :name "raz298r")
|
||||
(new 'static 'speech-info-item :name "raz302r")
|
||||
(new 'static 'speech-info-item :name "raz303r")
|
||||
(new 'static 'speech-info-item :name "raz304r")
|
||||
(new 'static 'speech-info-item :name "raz333r")
|
||||
(new 'static 'speech-info-item :name "raz361r")
|
||||
(new 'static 'speech-info-item :name "raz362r")
|
||||
(new 'static 'speech-info-item :name "raz366r")
|
||||
(new 'static 'speech-info-item :name "raz367r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz134r")
|
||||
(new 'static 'speech-info-item :name "raz135r")
|
||||
(new 'static 'speech-info-item :name "raz165r")
|
||||
(new 'static 'speech-info-item :name "raz200r")
|
||||
(new 'static 'speech-info-item :name "raz269r")
|
||||
(new 'static 'speech-info-item :name "raz270r")
|
||||
(new 'static 'speech-info-item :name "raz272r")
|
||||
(new 'static 'speech-info-item :name "raz273r")
|
||||
(new 'static 'speech-info-item :name "raz275r")
|
||||
(new 'static 'speech-info-item :name "raz276r")
|
||||
(new 'static 'speech-info-item :name "raz277r")
|
||||
(new 'static 'speech-info-item :name "raz278r")
|
||||
(new 'static 'speech-info-item :name "raz279r")
|
||||
(new 'static 'speech-info-item :name "raz286r")
|
||||
(new 'static 'speech-info-item :name "raz291r")
|
||||
(new 'static 'speech-info-item :name "raz292r")
|
||||
(new 'static 'speech-info-item :name "raz342r")
|
||||
(new 'static 'speech-info-item :name "raz343r")
|
||||
(new 'static 'speech-info-item :name "raz344r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 8 speeches 16)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "raz172r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz173r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz175r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz177r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "raz178r")
|
||||
(new 'static 'speech-info-item :name "raz179r")
|
||||
(new 'static 'speech-info-item :name "raz181r")
|
||||
(new 'static 'speech-info-item :name "raz184r")
|
||||
(new 'static 'speech-info-item :name "raz186r")
|
||||
(new 'static 'speech-info-item :name "raz188r")
|
||||
(new 'static 'speech-info-item :name "raz189r")
|
||||
(new 'static 'speech-info-item :name "raz192r")
|
||||
(new 'static 'speech-info-item :name "raz193r")
|
||||
(new 'static 'speech-info-item :name "raz140r")
|
||||
(new 'static 'speech-info-item :name "raz141r")
|
||||
(new 'static 'speech-info-item :name "raz196r")
|
||||
(new 'static 'speech-info-item :name "raz198r")
|
||||
(new 'static 'speech-info-item :name "raz200r")
|
||||
(new 'static 'speech-info-item :name "raz201r")
|
||||
(new 'static 'speech-info-item :name "raz354r")
|
||||
(new 'static 'speech-info-item :name "raz361r")
|
||||
(new 'static 'speech-info-item :name "raz370r")
|
||||
(new 'static 'speech-info-item :name "raz369r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+397
@@ -0,0 +1,397 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig135r")
|
||||
(new 'static 'speech-info-item :name "sig140r")
|
||||
(new 'static 'speech-info-item :name "sig143r")
|
||||
(new 'static 'speech-info-item :name "sig145r")
|
||||
(new 'static 'speech-info-item :name "sig154r")
|
||||
(new 'static 'speech-info-item :name "sig155r")
|
||||
(new 'static 'speech-info-item :name "sig212r")
|
||||
(new 'static 'speech-info-item :name "sig214r")
|
||||
(new 'static 'speech-info-item :name "sig215r")
|
||||
(new 'static 'speech-info-item :name "sig216r")
|
||||
(new 'static 'speech-info-item :name "sig217r")
|
||||
(new 'static 'speech-info-item :name "sig219r")
|
||||
(new 'static 'speech-info-item :name "sig220r")
|
||||
(new 'static 'speech-info-item :name "sig259r")
|
||||
(new 'static 'speech-info-item :name "sig260r")
|
||||
(new 'static 'speech-info-item :name "sig261r")
|
||||
(new 'static 'speech-info-item :name "sig262r")
|
||||
(new 'static 'speech-info-item :name "sig263r")
|
||||
(new 'static 'speech-info-item :name "sig264r")
|
||||
(new 'static 'speech-info-item :name "sig266r")
|
||||
(new 'static 'speech-info-item :name "sig267r")
|
||||
(new 'static 'speech-info-item :name "sig268r")
|
||||
(new 'static 'speech-info-item :name "sig269r")
|
||||
(new 'static 'speech-info-item :name "sig270r")
|
||||
(new 'static 'speech-info-item :name "sig271r")
|
||||
(new 'static 'speech-info-item :name "sig272r")
|
||||
(new 'static 'speech-info-item :name "sig273r")
|
||||
(new 'static 'speech-info-item :name "sig274r")
|
||||
(new 'static 'speech-info-item :name "sig275r")
|
||||
(new 'static 'speech-info-item :name "sig276r")
|
||||
(new 'static 'speech-info-item :name "sig112r")
|
||||
(new 'static 'speech-info-item :name "sig113r")
|
||||
(new 'static 'speech-info-item :name "sig130r")
|
||||
(new 'static 'speech-info-item :name "sig131r")
|
||||
(new 'static 'speech-info-item :name "sig133r")
|
||||
(new 'static 'speech-info-item :name "sig136r")
|
||||
(new 'static 'speech-info-item :name "sig138r")
|
||||
(new 'static 'speech-info-item :name "sig157r")
|
||||
(new 'static 'speech-info-item :name "sig165r")
|
||||
(new 'static 'speech-info-item :name "sig166r")
|
||||
(new 'static 'speech-info-item :name "sig169r")
|
||||
(new 'static 'speech-info-item :name "sig170r")
|
||||
(new 'static 'speech-info-item :name "sig177r")
|
||||
(new 'static 'speech-info-item :name "sig178r")
|
||||
(new 'static 'speech-info-item :name "sig181r")
|
||||
(new 'static 'speech-info-item :name "sig182r")
|
||||
(new 'static 'speech-info-item :name "sig183r")
|
||||
(new 'static 'speech-info-item :name "sig184r")
|
||||
(new 'static 'speech-info-item :name "sig185r")
|
||||
(new 'static 'speech-info-item :name "sig189r")
|
||||
(new 'static 'speech-info-item :name "sig195r")
|
||||
(new 'static 'speech-info-item :name "sig196r")
|
||||
(new 'static 'speech-info-item :name "sig239r")
|
||||
(new 'static 'speech-info-item :name "sig243r")
|
||||
(new 'static 'speech-info-item :name "sig229r")
|
||||
(new 'static 'speech-info-item :name "sig108r")
|
||||
(new 'static 'speech-info-item :name "sig112r")
|
||||
(new 'static 'speech-info-item :name "sig113r")
|
||||
(new 'static 'speech-info-item :name "sig247r")
|
||||
(new 'static 'speech-info-item :name "sig248r")
|
||||
(new 'static 'speech-info-item :name "sig253r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "sig218r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig101r")
|
||||
(new 'static 'speech-info-item :name "sig102r")
|
||||
(new 'static 'speech-info-item :name "sig103r")
|
||||
(new 'static 'speech-info-item :name "sig104r")
|
||||
(new 'static 'speech-info-item :name "sig105r")
|
||||
(new 'static 'speech-info-item :name "sig106r")
|
||||
(new 'static 'speech-info-item :name "sig107r")
|
||||
(new 'static 'speech-info-item :name "sig108r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "sig109r")
|
||||
(new 'static 'speech-info-item :name "sig110r")
|
||||
(new 'static 'speech-info-item :name "sig111r")
|
||||
(new 'static 'speech-info-item :name "sig114r")
|
||||
(new 'static 'speech-info-item :name "sig115r")
|
||||
(new 'static 'speech-info-item :name "sig116r")
|
||||
(new 'static 'speech-info-item :name "sig117r")
|
||||
(new 'static 'speech-info-item :name "sig118r")
|
||||
(new 'static 'speech-info-item :name "sig119r")
|
||||
(new 'static 'speech-info-item :name "sig120r")
|
||||
(new 'static 'speech-info-item :name "sig121r")
|
||||
(new 'static 'speech-info-item :name "sig122r")
|
||||
(new 'static 'speech-info-item :name "sig258r")
|
||||
(new 'static 'speech-info-item :name "sig265r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig123r")
|
||||
(new 'static 'speech-info-item :name "sig124r")
|
||||
(new 'static 'speech-info-item :name "sig125r")
|
||||
(new 'static 'speech-info-item :name "sig126r")
|
||||
(new 'static 'speech-info-item :name "sig127r")
|
||||
(new 'static 'speech-info-item :name "sig128r")
|
||||
(new 'static 'speech-info-item :name "sig129r")
|
||||
(new 'static 'speech-info-item :name "sig132r")
|
||||
(new 'static 'speech-info-item :name "sig134r")
|
||||
(new 'static 'speech-info-item :name "sig137r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig139r")
|
||||
(new 'static 'speech-info-item :name "sig141r")
|
||||
(new 'static 'speech-info-item :name "sig142r")
|
||||
(new 'static 'speech-info-item :name "sig144r")
|
||||
(new 'static 'speech-info-item :name "sig146r")
|
||||
(new 'static 'speech-info-item :name "sig147r")
|
||||
(new 'static 'speech-info-item :name "sig148r")
|
||||
(new 'static 'speech-info-item :name "sig149r")
|
||||
(new 'static 'speech-info-item :name "sig150r")
|
||||
(new 'static 'speech-info-item :name "sig151r")
|
||||
(new 'static 'speech-info-item :name "sig152r")
|
||||
(new 'static 'speech-info-item :name "sig153r")
|
||||
(new 'static 'speech-info-item :name "sig156r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig158r")
|
||||
(new 'static 'speech-info-item :name "sig159r")
|
||||
(new 'static 'speech-info-item :name "sig160r")
|
||||
(new 'static 'speech-info-item :name "sig161r")
|
||||
(new 'static 'speech-info-item :name "sig162r")
|
||||
(new 'static 'speech-info-item :name "sig163r")
|
||||
(new 'static 'speech-info-item :name "sig164r")
|
||||
(new 'static 'speech-info-item :name "sig167r")
|
||||
(new 'static 'speech-info-item :name "sig168r")
|
||||
(new 'static 'speech-info-item :name "sig171r")
|
||||
(new 'static 'speech-info-item :name "sig172r")
|
||||
(new 'static 'speech-info-item :name "sig173r")
|
||||
(new 'static 'speech-info-item :name "sig174r")
|
||||
(new 'static 'speech-info-item :name "sig175r")
|
||||
(new 'static 'speech-info-item :name "sig176r")
|
||||
(new 'static 'speech-info-item :name "sig179r")
|
||||
(new 'static 'speech-info-item :name "sig180r")
|
||||
(new 'static 'speech-info-item :name "sig186r")
|
||||
(new 'static 'speech-info-item :name "sig187r")
|
||||
(new 'static 'speech-info-item :name "sig188r")
|
||||
(new 'static 'speech-info-item :name "sig213r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig190r")
|
||||
(new 'static 'speech-info-item :name "sig191r")
|
||||
(new 'static 'speech-info-item :name "sig192r")
|
||||
(new 'static 'speech-info-item :name "sig193r")
|
||||
(new 'static 'speech-info-item :name "sig194r")
|
||||
(new 'static 'speech-info-item :name "sig197r")
|
||||
(new 'static 'speech-info-item :name "sig198r")
|
||||
(new 'static 'speech-info-item :name "sig199r")
|
||||
(new 'static 'speech-info-item :name "sig200r")
|
||||
(new 'static 'speech-info-item :name "sig202r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig203r")
|
||||
(new 'static 'speech-info-item :name "sig204r")
|
||||
(new 'static 'speech-info-item :name "sig205r")
|
||||
(new 'static 'speech-info-item :name "sig206r")
|
||||
(new 'static 'speech-info-item :name "sig207r")
|
||||
(new 'static 'speech-info-item :name "sig208r")
|
||||
(new 'static 'speech-info-item :name "sig211r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "sig221r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig222r")
|
||||
(new 'static 'speech-info-item :name "sig223r")
|
||||
(new 'static 'speech-info-item :name "sig224r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig225r")
|
||||
(new 'static 'speech-info-item :name "sig226r")
|
||||
(new 'static 'speech-info-item :name "sig227r")
|
||||
(new 'static 'speech-info-item :name "sig228r")
|
||||
(new 'static 'speech-info-item :name "sig229r")
|
||||
(new 'static 'speech-info-item :name "sig230r")
|
||||
(new 'static 'speech-info-item :name "sig231r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig232r")
|
||||
(new 'static 'speech-info-item :name "sig233r")
|
||||
(new 'static 'speech-info-item :name "sig234r")
|
||||
(new 'static 'speech-info-item :name "sig235r")
|
||||
(new 'static 'speech-info-item :name "sig236r")
|
||||
(new 'static 'speech-info-item :name "sig237r")
|
||||
(new 'static 'speech-info-item :name "sig238r")
|
||||
(new 'static 'speech-info-item :name "sig240r")
|
||||
(new 'static 'speech-info-item :name "sig241r")
|
||||
(new 'static 'speech-info-item :name "sig242r")
|
||||
(new 'static 'speech-info-item :name "sig245r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig246r")
|
||||
(new 'static 'speech-info-item :name "sig249r")
|
||||
(new 'static 'speech-info-item :name "sig250r")
|
||||
(new 'static 'speech-info-item :name "sig251r")
|
||||
(new 'static 'speech-info-item :name "sig252r")
|
||||
(new 'static 'speech-info-item :name "sig254r")
|
||||
(new 'static 'speech-info-item :name "sig255r")
|
||||
(new 'static 'speech-info-item :name "sig256r")
|
||||
(new 'static 'speech-info-item :name "sig257r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig232r")
|
||||
(new 'static 'speech-info-item :name "sig233r")
|
||||
(new 'static 'speech-info-item :name "sig234r")
|
||||
(new 'static 'speech-info-item :name "sig235r")
|
||||
(new 'static 'speech-info-item :name "sig236r")
|
||||
(new 'static 'speech-info-item :name "sig237r")
|
||||
(new 'static 'speech-info-item :name "sig238r")
|
||||
(new 'static 'speech-info-item :name "sig240r")
|
||||
(new 'static 'speech-info-item :name "sig241r")
|
||||
(new 'static 'speech-info-item :name "sig242r")
|
||||
(new 'static 'speech-info-item :name "sig245r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig246r")
|
||||
(new 'static 'speech-info-item :name "sig249r")
|
||||
(new 'static 'speech-info-item :name "sig250r")
|
||||
(new 'static 'speech-info-item :name "sig251r")
|
||||
(new 'static 'speech-info-item :name "sig252r")
|
||||
(new 'static 'speech-info-item :name "sig254r")
|
||||
(new 'static 'speech-info-item :name "sig255r")
|
||||
(new 'static 'speech-info-item :name "sig256r")
|
||||
(new 'static 'speech-info-item :name "sig257r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig278r")
|
||||
(new 'static 'speech-info-item :name "sig279r")
|
||||
(new 'static 'speech-info-item :name "sig280r")
|
||||
(new 'static 'speech-info-item :name "sig281r")
|
||||
(new 'static 'speech-info-item :name "sig282r")
|
||||
(new 'static 'speech-info-item :name "sig123r")
|
||||
(new 'static 'speech-info-item :name "sig125r")
|
||||
(new 'static 'speech-info-item :name "sig127r")
|
||||
(new 'static 'speech-info-item :name "sig128r")
|
||||
(new 'static 'speech-info-item :name "sig132r")
|
||||
(new 'static 'speech-info-item :name "sig133r")
|
||||
(new 'static 'speech-info-item :name "sig134r")
|
||||
(new 'static 'speech-info-item :name "sig136r")
|
||||
(new 'static 'speech-info-item :name "sig137r")
|
||||
(new 'static 'speech-info-item :name "sig140r")
|
||||
(new 'static 'speech-info-item :name "sig141r")
|
||||
(new 'static 'speech-info-item :name "sig145r")
|
||||
(new 'static 'speech-info-item :name "sig148r")
|
||||
(new 'static 'speech-info-item :name "sig149r")
|
||||
(new 'static 'speech-info-item :name "sig151r")
|
||||
(new 'static 'speech-info-item :name "sig152r")
|
||||
(new 'static 'speech-info-item :name "sig155r")
|
||||
(new 'static 'speech-info-item :name "sig156r")
|
||||
(new 'static 'speech-info-item :name "sig159r")
|
||||
(new 'static 'speech-info-item :name "sig176r")
|
||||
(new 'static 'speech-info-item :name "sig179r")
|
||||
(new 'static 'speech-info-item :name "sig218r")
|
||||
(new 'static 'speech-info-item :name "sig244r")
|
||||
(new 'static 'speech-info-item :name "sig265r")
|
||||
(new 'static 'speech-info-item :name "sig277r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig129r")
|
||||
(new 'static 'speech-info-item :name "sig130r")
|
||||
(new 'static 'speech-info-item :name "sig131r")
|
||||
(new 'static 'speech-info-item :name "sig189r")
|
||||
(new 'static 'speech-info-item :name "sig191r")
|
||||
(new 'static 'speech-info-item :name "sig192r")
|
||||
(new 'static 'speech-info-item :name "sig193r")
|
||||
(new 'static 'speech-info-item :name "sig195r")
|
||||
(new 'static 'speech-info-item :name "sig197r")
|
||||
(new 'static 'speech-info-item :name "sig198r")
|
||||
(new 'static 'speech-info-item :name "sig199r")
|
||||
(new 'static 'speech-info-item :name "sig200r")
|
||||
(new 'static 'speech-info-item :name "sig201r")
|
||||
(new 'static 'speech-info-item :name "sig203r")
|
||||
(new 'static 'speech-info-item :name "sig208r")
|
||||
(new 'static 'speech-info-item :name "sig209r")
|
||||
(new 'static 'speech-info-item :name "sig210r")
|
||||
(new 'static 'speech-info-item :name "sig247r")
|
||||
(new 'static 'speech-info-item :name "sig248r")
|
||||
(new 'static 'speech-info-item :name "sig253r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 10 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "sig101r")
|
||||
(new 'static 'speech-info-item :name "sig102r")
|
||||
(new 'static 'speech-info-item :name "sig104r")
|
||||
(new 'static 'speech-info-item :name "sig105r")
|
||||
(new 'static 'speech-info-item :name "sig106r")
|
||||
(new 'static 'speech-info-item :name "sig107r")
|
||||
(new 'static 'speech-info-item :name "sig109r")
|
||||
(new 'static 'speech-info-item :name "sig111r")
|
||||
(new 'static 'speech-info-item :name "sig114r")
|
||||
(new 'static 'speech-info-item :name "sig115r")
|
||||
(new 'static 'speech-info-item :name "sig116r")
|
||||
(new 'static 'speech-info-item :name "sig117r")
|
||||
(new 'static 'speech-info-item :name "sig118r")
|
||||
(new 'static 'speech-info-item :name "sig119r")
|
||||
(new 'static 'speech-info-item :name "sig120r")
|
||||
(new 'static 'speech-info-item :name "sig121r")
|
||||
(new 'static 'speech-info-item :name "sig122r")
|
||||
(new 'static 'speech-info-item :name "sig258r")
|
||||
(new 'static 'speech-info-item :name "sig265r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+342
@@ -0,0 +1,342 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar102r")
|
||||
(new 'static 'speech-info-item :name "tar103r")
|
||||
(new 'static 'speech-info-item :name "tar141r")
|
||||
(new 'static 'speech-info-item :name "tar197r")
|
||||
(new 'static 'speech-info-item :name "tar199r")
|
||||
(new 'static 'speech-info-item :name "tar201r")
|
||||
(new 'static 'speech-info-item :name "tar203r")
|
||||
(new 'static 'speech-info-item :name "tar204r")
|
||||
(new 'static 'speech-info-item :name "tar205r")
|
||||
(new 'static 'speech-info-item :name "tar236r")
|
||||
(new 'static 'speech-info-item :name "tar237r")
|
||||
(new 'static 'speech-info-item :name "tar238r")
|
||||
(new 'static 'speech-info-item :name "tar239r")
|
||||
(new 'static 'speech-info-item :name "tar240r")
|
||||
(new 'static 'speech-info-item :name "tar241r")
|
||||
(new 'static 'speech-info-item :name "tar243r")
|
||||
(new 'static 'speech-info-item :name "tar244r")
|
||||
(new 'static 'speech-info-item :name "tar245r")
|
||||
(new 'static 'speech-info-item :name "tar246r")
|
||||
(new 'static 'speech-info-item :name "tar247r")
|
||||
(new 'static 'speech-info-item :name "tar248r")
|
||||
(new 'static 'speech-info-item :name "tar249r")
|
||||
(new 'static 'speech-info-item :name "tar251r")
|
||||
(new 'static 'speech-info-item :name "tar252r")
|
||||
(new 'static 'speech-info-item :name "tar253r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar101r")
|
||||
(new 'static 'speech-info-item :name "tar104r")
|
||||
(new 'static 'speech-info-item :name "tar105r")
|
||||
(new 'static 'speech-info-item :name "tar106r")
|
||||
(new 'static 'speech-info-item :name "tar107r")
|
||||
(new 'static 'speech-info-item :name "tar108r")
|
||||
(new 'static 'speech-info-item :name "tar109r")
|
||||
(new 'static 'speech-info-item :name "tar110r")
|
||||
(new 'static 'speech-info-item :name "tar111r")
|
||||
(new 'static 'speech-info-item :name "tar112r")
|
||||
(new 'static 'speech-info-item :name "tar113r")
|
||||
(new 'static 'speech-info-item :name "tar114r")
|
||||
(new 'static 'speech-info-item :name "tar115r")
|
||||
(new 'static 'speech-info-item :name "tar116r")
|
||||
(new 'static 'speech-info-item :name "tar117r")
|
||||
(new 'static 'speech-info-item :name "tar118r")
|
||||
(new 'static 'speech-info-item :name "tar119r")
|
||||
(new 'static 'speech-info-item :name "tar120r")
|
||||
(new 'static 'speech-info-item :name "tar121r")
|
||||
(new 'static 'speech-info-item :name "tar122r")
|
||||
(new 'static 'speech-info-item :name "tar123r")
|
||||
(new 'static 'speech-info-item :name "tar124r")
|
||||
(new 'static 'speech-info-item :name "tar125r")
|
||||
(new 'static 'speech-info-item :name "tar126r")
|
||||
(new 'static 'speech-info-item :name "tar127r")
|
||||
(new 'static 'speech-info-item :name "tar128r")
|
||||
(new 'static 'speech-info-item :name "tar129r")
|
||||
(new 'static 'speech-info-item :name "tar130r")
|
||||
(new 'static 'speech-info-item :name "tar131r")
|
||||
(new 'static 'speech-info-item :name "tar132r")
|
||||
(new 'static 'speech-info-item :name "tar133r")
|
||||
(new 'static 'speech-info-item :name "tar198r")
|
||||
(new 'static 'speech-info-item :name "tar242r")
|
||||
(new 'static 'speech-info-item :name "tar146r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar101r")
|
||||
(new 'static 'speech-info-item :name "tar105r")
|
||||
(new 'static 'speech-info-item :name "tar106r")
|
||||
(new 'static 'speech-info-item :name "tar108r")
|
||||
(new 'static 'speech-info-item :name "tar109r")
|
||||
(new 'static 'speech-info-item :name "tar110r")
|
||||
(new 'static 'speech-info-item :name "tar111r")
|
||||
(new 'static 'speech-info-item :name "tar113r")
|
||||
(new 'static 'speech-info-item :name "tar114r")
|
||||
(new 'static 'speech-info-item :name "tar115r")
|
||||
(new 'static 'speech-info-item :name "tar116r")
|
||||
(new 'static 'speech-info-item :name "tar117r")
|
||||
(new 'static 'speech-info-item :name "tar118r")
|
||||
(new 'static 'speech-info-item :name "tar119r")
|
||||
(new 'static 'speech-info-item :name "tar120r")
|
||||
(new 'static 'speech-info-item :name "tar121r")
|
||||
(new 'static 'speech-info-item :name "tar122r")
|
||||
(new 'static 'speech-info-item :name "tar123r")
|
||||
(new 'static 'speech-info-item :name "tar124r")
|
||||
(new 'static 'speech-info-item :name "tar125r")
|
||||
(new 'static 'speech-info-item :name "tar126r")
|
||||
(new 'static 'speech-info-item :name "tar127r")
|
||||
(new 'static 'speech-info-item :name "tar128r")
|
||||
(new 'static 'speech-info-item :name "tar130r")
|
||||
(new 'static 'speech-info-item :name "tar131r")
|
||||
(new 'static 'speech-info-item :name "tar132r")
|
||||
(new 'static 'speech-info-item :name "tar133r")
|
||||
(new 'static 'speech-info-item :name "tar198r")
|
||||
(new 'static 'speech-info-item :name "tar242r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar134r")
|
||||
(new 'static 'speech-info-item :name "tar135r")
|
||||
(new 'static 'speech-info-item :name "tar136r")
|
||||
(new 'static 'speech-info-item :name "tar137r")
|
||||
(new 'static 'speech-info-item :name "tar138r")
|
||||
(new 'static 'speech-info-item :name "tar139r")
|
||||
(new 'static 'speech-info-item :name "tar140r")
|
||||
(new 'static 'speech-info-item :name "tar142r")
|
||||
(new 'static 'speech-info-item :name "tar200r")
|
||||
(new 'static 'speech-info-item :name "tar206r")
|
||||
(new 'static 'speech-info-item :name "tar150r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar143r")
|
||||
(new 'static 'speech-info-item :name "tar144r")
|
||||
(new 'static 'speech-info-item :name "tar145r")
|
||||
(new 'static 'speech-info-item :name "tar147r")
|
||||
(new 'static 'speech-info-item :name "tar148r")
|
||||
(new 'static 'speech-info-item :name "tar149r")
|
||||
(new 'static 'speech-info-item :name "tar151r")
|
||||
(new 'static 'speech-info-item :name "tar152r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar153r")
|
||||
(new 'static 'speech-info-item :name "tar154r")
|
||||
(new 'static 'speech-info-item :name "tar155r")
|
||||
(new 'static 'speech-info-item :name "tar156r")
|
||||
(new 'static 'speech-info-item :name "tar157r")
|
||||
(new 'static 'speech-info-item :name "tar158r")
|
||||
(new 'static 'speech-info-item :name "tar159r")
|
||||
(new 'static 'speech-info-item :name "tar160r")
|
||||
(new 'static 'speech-info-item :name "tar161r")
|
||||
(new 'static 'speech-info-item :name "tar162r")
|
||||
(new 'static 'speech-info-item :name "tar163r")
|
||||
(new 'static 'speech-info-item :name "tar164r")
|
||||
(new 'static 'speech-info-item :name "tar165r")
|
||||
(new 'static 'speech-info-item :name "tar166r")
|
||||
(new 'static 'speech-info-item :name "tar167r")
|
||||
(new 'static 'speech-info-item :name "tar168r")
|
||||
(new 'static 'speech-info-item :name "tar169r")
|
||||
(new 'static 'speech-info-item :name "tar170r")
|
||||
(new 'static 'speech-info-item :name "tar171r")
|
||||
(new 'static 'speech-info-item :name "tar172r")
|
||||
(new 'static 'speech-info-item :name "tar173r")
|
||||
(new 'static 'speech-info-item :name "tar174r")
|
||||
(new 'static 'speech-info-item :name "tar175r")
|
||||
(new 'static 'speech-info-item :name "tar176r")
|
||||
(new 'static 'speech-info-item :name "tar177r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar178r")
|
||||
(new 'static 'speech-info-item :name "tar179r")
|
||||
(new 'static 'speech-info-item :name "tar180r")
|
||||
(new 'static 'speech-info-item :name "tar181r")
|
||||
(new 'static 'speech-info-item :name "tar182r")
|
||||
(new 'static 'speech-info-item :name "tar183r")
|
||||
(new 'static 'speech-info-item :name "tar184r")
|
||||
(new 'static 'speech-info-item :name "tar185r")
|
||||
(new 'static 'speech-info-item :name "tar186r")
|
||||
(new 'static 'speech-info-item :name "tar187r")
|
||||
(new 'static 'speech-info-item :name "tar188r")
|
||||
(new 'static 'speech-info-item :name "tar189r")
|
||||
(new 'static 'speech-info-item :name "tar190r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar191r")
|
||||
(new 'static 'speech-info-item :name "tar192r")
|
||||
(new 'static 'speech-info-item :name "tar193r")
|
||||
(new 'static 'speech-info-item :name "tar194r")
|
||||
(new 'static 'speech-info-item :name "tar196r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "tar207r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar208r")
|
||||
(new 'static 'speech-info-item :name "tar209r")
|
||||
(new 'static 'speech-info-item :name "tar210r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar211r")
|
||||
(new 'static 'speech-info-item :name "tar212r")
|
||||
(new 'static 'speech-info-item :name "tar213r")
|
||||
(new 'static 'speech-info-item :name "tar214r")
|
||||
(new 'static 'speech-info-item :name "tar215r")
|
||||
(new 'static 'speech-info-item :name "tar216r")
|
||||
(new 'static 'speech-info-item :name "tar217r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar218r")
|
||||
(new 'static 'speech-info-item :name "tar219r")
|
||||
(new 'static 'speech-info-item :name "tar220r")
|
||||
(new 'static 'speech-info-item :name "tar221r")
|
||||
(new 'static 'speech-info-item :name "tar222r")
|
||||
(new 'static 'speech-info-item :name "tar223r")
|
||||
(new 'static 'speech-info-item :name "tar224r")
|
||||
(new 'static 'speech-info-item :name "tar225r")
|
||||
(new 'static 'speech-info-item :name "tar226r")
|
||||
(new 'static 'speech-info-item :name "tar227r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar218r")
|
||||
(new 'static 'speech-info-item :name "tar219r")
|
||||
(new 'static 'speech-info-item :name "tar220r")
|
||||
(new 'static 'speech-info-item :name "tar221r")
|
||||
(new 'static 'speech-info-item :name "tar222r")
|
||||
(new 'static 'speech-info-item :name "tar223r")
|
||||
(new 'static 'speech-info-item :name "tar224r")
|
||||
(new 'static 'speech-info-item :name "tar225r")
|
||||
(new 'static 'speech-info-item :name "tar226r")
|
||||
(new 'static 'speech-info-item :name "tar227r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar228r")
|
||||
(new 'static 'speech-info-item :name "tar229r")
|
||||
(new 'static 'speech-info-item :name "tar230r")
|
||||
(new 'static 'speech-info-item :name "tar231r")
|
||||
(new 'static 'speech-info-item :name "tar232r")
|
||||
(new 'static 'speech-info-item :name "tar233r")
|
||||
(new 'static 'speech-info-item :name "tar234r")
|
||||
(new 'static 'speech-info-item :name "tar235r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar228r")
|
||||
(new 'static 'speech-info-item :name "tar229r")
|
||||
(new 'static 'speech-info-item :name "tar230r")
|
||||
(new 'static 'speech-info-item :name "tar231r")
|
||||
(new 'static 'speech-info-item :name "tar232r")
|
||||
(new 'static 'speech-info-item :name "tar233r")
|
||||
(new 'static 'speech-info-item :name "tar234r")
|
||||
(new 'static 'speech-info-item :name "tar235r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar254r")
|
||||
(new 'static 'speech-info-item :name "tar255r")
|
||||
(new 'static 'speech-info-item :name "tar256r")
|
||||
(new 'static 'speech-info-item :name "tar257r")
|
||||
(new 'static 'speech-info-item :name "tar258r")
|
||||
(new 'static 'speech-info-item :name "tar259r")
|
||||
(new 'static 'speech-info-item :name "tar260r")
|
||||
(new 'static 'speech-info-item :name "tar261r")
|
||||
(new 'static 'speech-info-item :name "tar262r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "tar202r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 18 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "tar191r")
|
||||
(new 'static 'speech-info-item :name "tar250r")
|
||||
(new 'static 'speech-info-item :name "tar142r")
|
||||
(new 'static 'speech-info-item :name "tar195r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+340
@@ -0,0 +1,340 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb199r")
|
||||
(new 'static 'speech-info-item :name "thgb200r")
|
||||
(new 'static 'speech-info-item :name "thgb202r")
|
||||
(new 'static 'speech-info-item :name "thgb203r")
|
||||
(new 'static 'speech-info-item :name "thgb235r")
|
||||
(new 'static 'speech-info-item :name "thgb236r")
|
||||
(new 'static 'speech-info-item :name "thgb237r")
|
||||
(new 'static 'speech-info-item :name "thgb238r")
|
||||
(new 'static 'speech-info-item :name "thgb239r")
|
||||
(new 'static 'speech-info-item :name "thgb241r")
|
||||
(new 'static 'speech-info-item :name "thgb242r")
|
||||
(new 'static 'speech-info-item :name "thgb244r")
|
||||
(new 'static 'speech-info-item :name "thgb245r")
|
||||
(new 'static 'speech-info-item :name "thgb246r")
|
||||
(new 'static 'speech-info-item :name "thgb247r")
|
||||
(new 'static 'speech-info-item :name "thgb248r")
|
||||
(new 'static 'speech-info-item :name "thgb249r")
|
||||
(new 'static 'speech-info-item :name "thgb250r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb101r")
|
||||
(new 'static 'speech-info-item :name "thgb102r")
|
||||
(new 'static 'speech-info-item :name "thgb103r")
|
||||
(new 'static 'speech-info-item :name "thgb104r")
|
||||
(new 'static 'speech-info-item :name "thgb105r")
|
||||
(new 'static 'speech-info-item :name "thgb106r")
|
||||
(new 'static 'speech-info-item :name "thgb107r")
|
||||
(new 'static 'speech-info-item :name "thgb108r")
|
||||
(new 'static 'speech-info-item :name "thgb109r")
|
||||
(new 'static 'speech-info-item :name "thgb110r")
|
||||
(new 'static 'speech-info-item :name "thgb111r")
|
||||
(new 'static 'speech-info-item :name "thgb112r")
|
||||
(new 'static 'speech-info-item :name "thgb113r")
|
||||
(new 'static 'speech-info-item :name "thgb114r")
|
||||
(new 'static 'speech-info-item :name "thgb115r")
|
||||
(new 'static 'speech-info-item :name "thgb116r")
|
||||
(new 'static 'speech-info-item :name "thgb117r")
|
||||
(new 'static 'speech-info-item :name "thgb118r")
|
||||
(new 'static 'speech-info-item :name "thgb119r")
|
||||
(new 'static 'speech-info-item :name "thgb120r")
|
||||
(new 'static 'speech-info-item :name "thgb121r")
|
||||
(new 'static 'speech-info-item :name "thgb122r")
|
||||
(new 'static 'speech-info-item :name "thgb123r")
|
||||
(new 'static 'speech-info-item :name "thgb124r")
|
||||
(new 'static 'speech-info-item :name "thgb125r")
|
||||
(new 'static 'speech-info-item :name "thgb126r")
|
||||
(new 'static 'speech-info-item :name "thgb127r")
|
||||
(new 'static 'speech-info-item :name "thgb128r")
|
||||
(new 'static 'speech-info-item :name "thgb129r")
|
||||
(new 'static 'speech-info-item :name "thgb130r")
|
||||
(new 'static 'speech-info-item :name "thgb131r")
|
||||
(new 'static 'speech-info-item :name "thgb197r")
|
||||
(new 'static 'speech-info-item :name "thgb240r")
|
||||
(new 'static 'speech-info-item :name "thgb145r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb102r")
|
||||
(new 'static 'speech-info-item :name "thgb103r")
|
||||
(new 'static 'speech-info-item :name "thgb105r")
|
||||
(new 'static 'speech-info-item :name "thgb106r")
|
||||
(new 'static 'speech-info-item :name "thgb107r")
|
||||
(new 'static 'speech-info-item :name "thgb108r")
|
||||
(new 'static 'speech-info-item :name "thgb109r")
|
||||
(new 'static 'speech-info-item :name "thgb110r")
|
||||
(new 'static 'speech-info-item :name "thgb111r")
|
||||
(new 'static 'speech-info-item :name "thgb112r")
|
||||
(new 'static 'speech-info-item :name "thgb113r")
|
||||
(new 'static 'speech-info-item :name "thgb114r")
|
||||
(new 'static 'speech-info-item :name "thgb115r")
|
||||
(new 'static 'speech-info-item :name "thgb116r")
|
||||
(new 'static 'speech-info-item :name "thgb117r")
|
||||
(new 'static 'speech-info-item :name "thgb118r")
|
||||
(new 'static 'speech-info-item :name "thgb119r")
|
||||
(new 'static 'speech-info-item :name "thgb120r")
|
||||
(new 'static 'speech-info-item :name "thgb121r")
|
||||
(new 'static 'speech-info-item :name "thgb122r")
|
||||
(new 'static 'speech-info-item :name "thgb123r")
|
||||
(new 'static 'speech-info-item :name "thgb124r")
|
||||
(new 'static 'speech-info-item :name "thgb125r")
|
||||
(new 'static 'speech-info-item :name "thgb126r")
|
||||
(new 'static 'speech-info-item :name "thgb128r")
|
||||
(new 'static 'speech-info-item :name "thgb129r")
|
||||
(new 'static 'speech-info-item :name "thgb130r")
|
||||
(new 'static 'speech-info-item :name "thgb131r")
|
||||
(new 'static 'speech-info-item :name "thgb197r")
|
||||
(new 'static 'speech-info-item :name "thgb240r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb132r")
|
||||
(new 'static 'speech-info-item :name "thgb133r")
|
||||
(new 'static 'speech-info-item :name "thgb134r")
|
||||
(new 'static 'speech-info-item :name "thgb135r")
|
||||
(new 'static 'speech-info-item :name "thgb136r")
|
||||
(new 'static 'speech-info-item :name "thgb137r")
|
||||
(new 'static 'speech-info-item :name "thgb138r")
|
||||
(new 'static 'speech-info-item :name "thgb140r")
|
||||
(new 'static 'speech-info-item :name "thgb141r")
|
||||
(new 'static 'speech-info-item :name "thgb243r")
|
||||
(new 'static 'speech-info-item :name "thgb149r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb142r")
|
||||
(new 'static 'speech-info-item :name "thgb143r")
|
||||
(new 'static 'speech-info-item :name "thgb144r")
|
||||
(new 'static 'speech-info-item :name "thgb146r")
|
||||
(new 'static 'speech-info-item :name "thgb147r")
|
||||
(new 'static 'speech-info-item :name "thgb148r")
|
||||
(new 'static 'speech-info-item :name "thgb150r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb151r")
|
||||
(new 'static 'speech-info-item :name "thgb152r")
|
||||
(new 'static 'speech-info-item :name "thgb153r")
|
||||
(new 'static 'speech-info-item :name "thgb154r")
|
||||
(new 'static 'speech-info-item :name "thgb155r")
|
||||
(new 'static 'speech-info-item :name "thgb156r")
|
||||
(new 'static 'speech-info-item :name "thgb157r")
|
||||
(new 'static 'speech-info-item :name "thgb158r")
|
||||
(new 'static 'speech-info-item :name "thgb159r")
|
||||
(new 'static 'speech-info-item :name "thgb160r")
|
||||
(new 'static 'speech-info-item :name "thgb161r")
|
||||
(new 'static 'speech-info-item :name "thgb162r")
|
||||
(new 'static 'speech-info-item :name "thgb163r")
|
||||
(new 'static 'speech-info-item :name "thgb164r")
|
||||
(new 'static 'speech-info-item :name "thgb165r")
|
||||
(new 'static 'speech-info-item :name "thgb166r")
|
||||
(new 'static 'speech-info-item :name "thgb167r")
|
||||
(new 'static 'speech-info-item :name "thgb168r")
|
||||
(new 'static 'speech-info-item :name "thgb169r")
|
||||
(new 'static 'speech-info-item :name "thgb170r")
|
||||
(new 'static 'speech-info-item :name "thgb171r")
|
||||
(new 'static 'speech-info-item :name "thgb172r")
|
||||
(new 'static 'speech-info-item :name "thgb173r")
|
||||
(new 'static 'speech-info-item :name "thgb174r")
|
||||
(new 'static 'speech-info-item :name "thgb175r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb176r")
|
||||
(new 'static 'speech-info-item :name "thgb177r")
|
||||
(new 'static 'speech-info-item :name "thgb178r")
|
||||
(new 'static 'speech-info-item :name "thgb179r")
|
||||
(new 'static 'speech-info-item :name "thgb180r")
|
||||
(new 'static 'speech-info-item :name "thgb181r")
|
||||
(new 'static 'speech-info-item :name "thgb182r")
|
||||
(new 'static 'speech-info-item :name "thgb183r")
|
||||
(new 'static 'speech-info-item :name "thgb184r")
|
||||
(new 'static 'speech-info-item :name "thgb185r")
|
||||
(new 'static 'speech-info-item :name "thgb186r")
|
||||
(new 'static 'speech-info-item :name "thgb187r")
|
||||
(new 'static 'speech-info-item :name "thgb198r")
|
||||
(new 'static 'speech-info-item :name "thgb188r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb189r")
|
||||
(new 'static 'speech-info-item :name "thgb190r")
|
||||
(new 'static 'speech-info-item :name "thgb191r")
|
||||
(new 'static 'speech-info-item :name "thgb192r")
|
||||
(new 'static 'speech-info-item :name "thgb195r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "thgb204r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb205r")
|
||||
(new 'static 'speech-info-item :name "thgb206r")
|
||||
(new 'static 'speech-info-item :name "thgb207r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb208r")
|
||||
(new 'static 'speech-info-item :name "thgb209r")
|
||||
(new 'static 'speech-info-item :name "thgb210r")
|
||||
(new 'static 'speech-info-item :name "thgb211r")
|
||||
(new 'static 'speech-info-item :name "thgb212r")
|
||||
(new 'static 'speech-info-item :name "thgb213r")
|
||||
(new 'static 'speech-info-item :name "thgb214r")
|
||||
(new 'static 'speech-info-item :name "thgb215r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb216r")
|
||||
(new 'static 'speech-info-item :name "thgb217r")
|
||||
(new 'static 'speech-info-item :name "thgb218r")
|
||||
(new 'static 'speech-info-item :name "thgb219r")
|
||||
(new 'static 'speech-info-item :name "thgb220r")
|
||||
(new 'static 'speech-info-item :name "thgb221r")
|
||||
(new 'static 'speech-info-item :name "thgb222r")
|
||||
(new 'static 'speech-info-item :name "thgb223r")
|
||||
(new 'static 'speech-info-item :name "thgb224r")
|
||||
(new 'static 'speech-info-item :name "thgb225r")
|
||||
(new 'static 'speech-info-item :name "thgb226r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb216r")
|
||||
(new 'static 'speech-info-item :name "thgb217r")
|
||||
(new 'static 'speech-info-item :name "thgb218r")
|
||||
(new 'static 'speech-info-item :name "thgb219r")
|
||||
(new 'static 'speech-info-item :name "thgb220r")
|
||||
(new 'static 'speech-info-item :name "thgb221r")
|
||||
(new 'static 'speech-info-item :name "thgb222r")
|
||||
(new 'static 'speech-info-item :name "thgb223r")
|
||||
(new 'static 'speech-info-item :name "thgb224r")
|
||||
(new 'static 'speech-info-item :name "thgb225r")
|
||||
(new 'static 'speech-info-item :name "thgb226r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb227r")
|
||||
(new 'static 'speech-info-item :name "thgb228r")
|
||||
(new 'static 'speech-info-item :name "thgb229r")
|
||||
(new 'static 'speech-info-item :name "thgb230r")
|
||||
(new 'static 'speech-info-item :name "thgb231r")
|
||||
(new 'static 'speech-info-item :name "thgb232r")
|
||||
(new 'static 'speech-info-item :name "thgb233r")
|
||||
(new 'static 'speech-info-item :name "thgb234r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb227r")
|
||||
(new 'static 'speech-info-item :name "thgb228r")
|
||||
(new 'static 'speech-info-item :name "thgb229r")
|
||||
(new 'static 'speech-info-item :name "thgb230r")
|
||||
(new 'static 'speech-info-item :name "thgb231r")
|
||||
(new 'static 'speech-info-item :name "thgb232r")
|
||||
(new 'static 'speech-info-item :name "thgb233r")
|
||||
(new 'static 'speech-info-item :name "thgb234r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb251r")
|
||||
(new 'static 'speech-info-item :name "thgb252")
|
||||
(new 'static 'speech-info-item :name "thgb253")
|
||||
(new 'static 'speech-info-item :name "thgb254r")
|
||||
(new 'static 'speech-info-item :name "thgb255r")
|
||||
(new 'static 'speech-info-item :name "thgb256r")
|
||||
(new 'static 'speech-info-item :name "thgb257r")
|
||||
(new 'static 'speech-info-item :name "thgb258r")
|
||||
(new 'static 'speech-info-item :name "thgb259r")
|
||||
(new 'static 'speech-info-item :name "thgb260r")
|
||||
(new 'static 'speech-info-item :name "thgb261r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "thgb201r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 14 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgb193r")
|
||||
(new 'static 'speech-info-item :name "thgb194r")
|
||||
(new 'static 'speech-info-item :name "thgb228r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+328
@@ -0,0 +1,328 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc135r")
|
||||
(new 'static 'speech-info-item :name "thgc190r")
|
||||
(new 'static 'speech-info-item :name "thgc192r")
|
||||
(new 'static 'speech-info-item :name "thgc193r")
|
||||
(new 'static 'speech-info-item :name "thgc194r")
|
||||
(new 'static 'speech-info-item :name "thgc196r")
|
||||
(new 'static 'speech-info-item :name "thgc197r")
|
||||
(new 'static 'speech-info-item :name "thgc198r")
|
||||
(new 'static 'speech-info-item :name "thgc199r")
|
||||
(new 'static 'speech-info-item :name "thgc229r")
|
||||
(new 'static 'speech-info-item :name "thgc230r")
|
||||
(new 'static 'speech-info-item :name "thgc231r")
|
||||
(new 'static 'speech-info-item :name "thgc232r")
|
||||
(new 'static 'speech-info-item :name "thgc233r")
|
||||
(new 'static 'speech-info-item :name "thgc234r")
|
||||
(new 'static 'speech-info-item :name "thgc236r")
|
||||
(new 'static 'speech-info-item :name "thgc237r")
|
||||
(new 'static 'speech-info-item :name "thgc238r")
|
||||
(new 'static 'speech-info-item :name "thgc239r")
|
||||
(new 'static 'speech-info-item :name "thgc240r")
|
||||
(new 'static 'speech-info-item :name "thgc241r")
|
||||
(new 'static 'speech-info-item :name "thgc242r")
|
||||
(new 'static 'speech-info-item :name "thgc243r")
|
||||
(new 'static 'speech-info-item :name "thgc244r")
|
||||
(new 'static 'speech-info-item :name "thgc245r")
|
||||
(new 'static 'speech-info-item :name "thgc246r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc101r")
|
||||
(new 'static 'speech-info-item :name "thgc102r")
|
||||
(new 'static 'speech-info-item :name "thgc103r")
|
||||
(new 'static 'speech-info-item :name "thgc104r")
|
||||
(new 'static 'speech-info-item :name "thgc105r")
|
||||
(new 'static 'speech-info-item :name "thgc106r")
|
||||
(new 'static 'speech-info-item :name "thgc107r")
|
||||
(new 'static 'speech-info-item :name "thgc108r")
|
||||
(new 'static 'speech-info-item :name "thgc109r")
|
||||
(new 'static 'speech-info-item :name "thgc110r")
|
||||
(new 'static 'speech-info-item :name "thgc111r")
|
||||
(new 'static 'speech-info-item :name "thgc112r")
|
||||
(new 'static 'speech-info-item :name "thgc113r")
|
||||
(new 'static 'speech-info-item :name "thgc114r")
|
||||
(new 'static 'speech-info-item :name "thgc115r")
|
||||
(new 'static 'speech-info-item :name "thgc116r")
|
||||
(new 'static 'speech-info-item :name "thgc117r")
|
||||
(new 'static 'speech-info-item :name "thgc118r")
|
||||
(new 'static 'speech-info-item :name "thgc119r")
|
||||
(new 'static 'speech-info-item :name "thgc120r")
|
||||
(new 'static 'speech-info-item :name "thgc121r")
|
||||
(new 'static 'speech-info-item :name "thgc122r")
|
||||
(new 'static 'speech-info-item :name "thgc123r")
|
||||
(new 'static 'speech-info-item :name "thgc124r")
|
||||
(new 'static 'speech-info-item :name "thgc125r")
|
||||
(new 'static 'speech-info-item :name "thgc126r")
|
||||
(new 'static 'speech-info-item :name "thgc127r")
|
||||
(new 'static 'speech-info-item :name "thgc191r")
|
||||
(new 'static 'speech-info-item :name "thgc235r")
|
||||
(new 'static 'speech-info-item :name "thgc141r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc102r")
|
||||
(new 'static 'speech-info-item :name "thgc103r")
|
||||
(new 'static 'speech-info-item :name "thgc105r")
|
||||
(new 'static 'speech-info-item :name "thgc106r")
|
||||
(new 'static 'speech-info-item :name "thgc107r")
|
||||
(new 'static 'speech-info-item :name "thgc108r")
|
||||
(new 'static 'speech-info-item :name "thgc109r")
|
||||
(new 'static 'speech-info-item :name "thgc110r")
|
||||
(new 'static 'speech-info-item :name "thgc111r")
|
||||
(new 'static 'speech-info-item :name "thgc112r")
|
||||
(new 'static 'speech-info-item :name "thgc113r")
|
||||
(new 'static 'speech-info-item :name "thgc114r")
|
||||
(new 'static 'speech-info-item :name "thgc115r")
|
||||
(new 'static 'speech-info-item :name "thgc116r")
|
||||
(new 'static 'speech-info-item :name "thgc117r")
|
||||
(new 'static 'speech-info-item :name "thgc118r")
|
||||
(new 'static 'speech-info-item :name "thgc119r")
|
||||
(new 'static 'speech-info-item :name "thgc120r")
|
||||
(new 'static 'speech-info-item :name "thgc121r")
|
||||
(new 'static 'speech-info-item :name "thgc122r")
|
||||
(new 'static 'speech-info-item :name "thgc123r")
|
||||
(new 'static 'speech-info-item :name "thgc126r")
|
||||
(new 'static 'speech-info-item :name "thgc127r")
|
||||
(new 'static 'speech-info-item :name "thgc191r")
|
||||
(new 'static 'speech-info-item :name "thgc235r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc128r")
|
||||
(new 'static 'speech-info-item :name "thgc129r")
|
||||
(new 'static 'speech-info-item :name "thgc130r")
|
||||
(new 'static 'speech-info-item :name "thgc131r")
|
||||
(new 'static 'speech-info-item :name "thgc132r")
|
||||
(new 'static 'speech-info-item :name "thgc133r")
|
||||
(new 'static 'speech-info-item :name "thgc134r")
|
||||
(new 'static 'speech-info-item :name "thgc136r")
|
||||
(new 'static 'speech-info-item :name "thgc137r")
|
||||
(new 'static 'speech-info-item :name "thgc145r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc138r")
|
||||
(new 'static 'speech-info-item :name "thgc139r")
|
||||
(new 'static 'speech-info-item :name "thgc140r")
|
||||
(new 'static 'speech-info-item :name "thgc142r")
|
||||
(new 'static 'speech-info-item :name "thgc143r")
|
||||
(new 'static 'speech-info-item :name "thgc144r")
|
||||
(new 'static 'speech-info-item :name "thgc146r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc147r")
|
||||
(new 'static 'speech-info-item :name "thgc148r")
|
||||
(new 'static 'speech-info-item :name "thgc149r")
|
||||
(new 'static 'speech-info-item :name "thgc150r")
|
||||
(new 'static 'speech-info-item :name "thgc151r")
|
||||
(new 'static 'speech-info-item :name "thgc152r")
|
||||
(new 'static 'speech-info-item :name "thgc153r")
|
||||
(new 'static 'speech-info-item :name "thgc154r")
|
||||
(new 'static 'speech-info-item :name "thgc155r")
|
||||
(new 'static 'speech-info-item :name "thgc156r")
|
||||
(new 'static 'speech-info-item :name "thgc157r")
|
||||
(new 'static 'speech-info-item :name "thgc158r")
|
||||
(new 'static 'speech-info-item :name "thgc159r")
|
||||
(new 'static 'speech-info-item :name "thgc160r")
|
||||
(new 'static 'speech-info-item :name "thgc161r")
|
||||
(new 'static 'speech-info-item :name "thgc162r")
|
||||
(new 'static 'speech-info-item :name "thgc163r")
|
||||
(new 'static 'speech-info-item :name "thgc164r")
|
||||
(new 'static 'speech-info-item :name "thgc165r")
|
||||
(new 'static 'speech-info-item :name "thgc166r")
|
||||
(new 'static 'speech-info-item :name "thgc167r")
|
||||
(new 'static 'speech-info-item :name "thgc168r")
|
||||
(new 'static 'speech-info-item :name "thgc169r")
|
||||
(new 'static 'speech-info-item :name "thgc170r")
|
||||
(new 'static 'speech-info-item :name "thgc171r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc172r")
|
||||
(new 'static 'speech-info-item :name "thgc173r")
|
||||
(new 'static 'speech-info-item :name "thgc174r")
|
||||
(new 'static 'speech-info-item :name "thgc175r")
|
||||
(new 'static 'speech-info-item :name "thgc176r")
|
||||
(new 'static 'speech-info-item :name "thgc177r")
|
||||
(new 'static 'speech-info-item :name "thgc178r")
|
||||
(new 'static 'speech-info-item :name "thgc179r")
|
||||
(new 'static 'speech-info-item :name "thgc180r")
|
||||
(new 'static 'speech-info-item :name "thgc181r")
|
||||
(new 'static 'speech-info-item :name "thgc182r")
|
||||
(new 'static 'speech-info-item :name "thgc183r")
|
||||
(new 'static 'speech-info-item :name "thgc184r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc185r")
|
||||
(new 'static 'speech-info-item :name "thgc186r")
|
||||
(new 'static 'speech-info-item :name "thgc187r")
|
||||
(new 'static 'speech-info-item :name "thgc188r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "thgc200r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc201r")
|
||||
(new 'static 'speech-info-item :name "thgc202r")
|
||||
(new 'static 'speech-info-item :name "thgc203r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc204r")
|
||||
(new 'static 'speech-info-item :name "thgc205r")
|
||||
(new 'static 'speech-info-item :name "thgc206r")
|
||||
(new 'static 'speech-info-item :name "thgc207r")
|
||||
(new 'static 'speech-info-item :name "thgc208r")
|
||||
(new 'static 'speech-info-item :name "thgc209r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc210r")
|
||||
(new 'static 'speech-info-item :name "thgc211r")
|
||||
(new 'static 'speech-info-item :name "thgc212r")
|
||||
(new 'static 'speech-info-item :name "thgc213r")
|
||||
(new 'static 'speech-info-item :name "thgc214r")
|
||||
(new 'static 'speech-info-item :name "thgc215r")
|
||||
(new 'static 'speech-info-item :name "thgc216r")
|
||||
(new 'static 'speech-info-item :name "thgc217r")
|
||||
(new 'static 'speech-info-item :name "thgc218r")
|
||||
(new 'static 'speech-info-item :name "thgc219r")
|
||||
(new 'static 'speech-info-item :name "thgc220r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc210r")
|
||||
(new 'static 'speech-info-item :name "thgc211r")
|
||||
(new 'static 'speech-info-item :name "thgc212r")
|
||||
(new 'static 'speech-info-item :name "thgc213r")
|
||||
(new 'static 'speech-info-item :name "thgc214r")
|
||||
(new 'static 'speech-info-item :name "thgc215r")
|
||||
(new 'static 'speech-info-item :name "thgc216r")
|
||||
(new 'static 'speech-info-item :name "thgc217r")
|
||||
(new 'static 'speech-info-item :name "thgc218r")
|
||||
(new 'static 'speech-info-item :name "thgc219r")
|
||||
(new 'static 'speech-info-item :name "thgc220r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc221r")
|
||||
(new 'static 'speech-info-item :name "thgc222r")
|
||||
(new 'static 'speech-info-item :name "thgc223r")
|
||||
(new 'static 'speech-info-item :name "thgc224r")
|
||||
(new 'static 'speech-info-item :name "thgc225r")
|
||||
(new 'static 'speech-info-item :name "thgc226r")
|
||||
(new 'static 'speech-info-item :name "thgc227r")
|
||||
(new 'static 'speech-info-item :name "thgc228r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc221r")
|
||||
(new 'static 'speech-info-item :name "thgc222r")
|
||||
(new 'static 'speech-info-item :name "thgc223r")
|
||||
(new 'static 'speech-info-item :name "thgc224r")
|
||||
(new 'static 'speech-info-item :name "thgc225r")
|
||||
(new 'static 'speech-info-item :name "thgc226r")
|
||||
(new 'static 'speech-info-item :name "thgc227r")
|
||||
(new 'static 'speech-info-item :name "thgc228r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc247r")
|
||||
(new 'static 'speech-info-item :name "thgc248r")
|
||||
(new 'static 'speech-info-item :name "thgc249r")
|
||||
(new 'static 'speech-info-item :name "thgc250r")
|
||||
(new 'static 'speech-info-item :name "thgc251r")
|
||||
(new 'static 'speech-info-item :name "thgc252r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "thgc195r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 15 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thgc189r")
|
||||
(new 'static 'speech-info-item :name "thgc222r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+397
@@ -0,0 +1,397 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug122r")
|
||||
(new 'static 'speech-info-item :name "thug123r")
|
||||
(new 'static 'speech-info-item :name "thug124r")
|
||||
(new 'static 'speech-info-item :name "thug125r")
|
||||
(new 'static 'speech-info-item :name "thug126r")
|
||||
(new 'static 'speech-info-item :name "thug127r")
|
||||
(new 'static 'speech-info-item :name "thug129r")
|
||||
(new 'static 'speech-info-item :name "thug130r")
|
||||
(new 'static 'speech-info-item :name "thug131r")
|
||||
(new 'static 'speech-info-item :name "thug133r")
|
||||
(new 'static 'speech-info-item :name "thug134r")
|
||||
(new 'static 'speech-info-item :name "thug135r")
|
||||
(new 'static 'speech-info-item :name "thug137r")
|
||||
(new 'static 'speech-info-item :name "thug138r")
|
||||
(new 'static 'speech-info-item :name "thug139r")
|
||||
(new 'static 'speech-info-item :name "thug140r")
|
||||
(new 'static 'speech-info-item :name "thug141r")
|
||||
(new 'static 'speech-info-item :name "thug142r")
|
||||
(new 'static 'speech-info-item :name "thug143r")
|
||||
(new 'static 'speech-info-item :name "thug144r")
|
||||
(new 'static 'speech-info-item :name "thug145r")
|
||||
(new 'static 'speech-info-item :name "thug166r")
|
||||
(new 'static 'speech-info-item :name "thug236r")
|
||||
(new 'static 'speech-info-item :name "thug237r")
|
||||
(new 'static 'speech-info-item :name "thug238r")
|
||||
(new 'static 'speech-info-item :name "thug239r")
|
||||
(new 'static 'speech-info-item :name "thug241r")
|
||||
(new 'static 'speech-info-item :name "thug242r")
|
||||
(new 'static 'speech-info-item :name "thug243r")
|
||||
(new 'static 'speech-info-item :name "thug244r")
|
||||
(new 'static 'speech-info-item :name "thug245r")
|
||||
(new 'static 'speech-info-item :name "thug246r")
|
||||
(new 'static 'speech-info-item :name "thug247r")
|
||||
(new 'static 'speech-info-item :name "thug248r")
|
||||
(new 'static 'speech-info-item :name "thug249r")
|
||||
(new 'static 'speech-info-item :name "thug291r")
|
||||
(new 'static 'speech-info-item :name "thug292r")
|
||||
(new 'static 'speech-info-item :name "thug293r")
|
||||
(new 'static 'speech-info-item :name "thug294r")
|
||||
(new 'static 'speech-info-item :name "thug295r")
|
||||
(new 'static 'speech-info-item :name "thug296r")
|
||||
(new 'static 'speech-info-item :name "thug297r")
|
||||
(new 'static 'speech-info-item :name "thug298r")
|
||||
(new 'static 'speech-info-item :name "thug299r")
|
||||
(new 'static 'speech-info-item :name "thug300r")
|
||||
(new 'static 'speech-info-item :name "thug301r")
|
||||
(new 'static 'speech-info-item :name "thug303r")
|
||||
(new 'static 'speech-info-item :name "thug304r")
|
||||
(new 'static 'speech-info-item :name "thug305r")
|
||||
(new 'static 'speech-info-item :name "thug306r")
|
||||
(new 'static 'speech-info-item :name "thug307r")
|
||||
(new 'static 'speech-info-item :name "thug308r")
|
||||
(new 'static 'speech-info-item :name "thug309r")
|
||||
(new 'static 'speech-info-item :name "thug311r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 1)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug101r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug102r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug103r")
|
||||
(new 'static 'speech-info-item :name "thug104r")
|
||||
(new 'static 'speech-info-item :name "thug105r")
|
||||
(new 'static 'speech-info-item :name "thug106r")
|
||||
(new 'static 'speech-info-item :name "thug107r")
|
||||
(new 'static 'speech-info-item :name "thug108r")
|
||||
(new 'static 'speech-info-item :name "thug109r")
|
||||
(new 'static 'speech-info-item :name "thug110r")
|
||||
(new 'static 'speech-info-item :name "thug111r")
|
||||
(new 'static 'speech-info-item :name "thug112r")
|
||||
(new 'static 'speech-info-item :name "thug113r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug114r")
|
||||
(new 'static 'speech-info-item :name "thug115r")
|
||||
(new 'static 'speech-info-item :name "thug117r")
|
||||
(new 'static 'speech-info-item :name "thug118r")
|
||||
(new 'static 'speech-info-item :name "thug119r")
|
||||
(new 'static 'speech-info-item :name "thug120r")
|
||||
(new 'static 'speech-info-item :name "thug121r")
|
||||
(new 'static 'speech-info-item :name "thug128r")
|
||||
(new 'static 'speech-info-item :name "thug132r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug136r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug302r")
|
||||
(new 'static 'speech-info-item :name "thug310r")
|
||||
(new 'static 'speech-info-item :name "thug172r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 16)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug101r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug102r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug103r")
|
||||
(new 'static 'speech-info-item :name "thug104r")
|
||||
(new 'static 'speech-info-item :name "thug105r")
|
||||
(new 'static 'speech-info-item :name "thug106r")
|
||||
(new 'static 'speech-info-item :name "thug107r")
|
||||
(new 'static 'speech-info-item :name "thug108r")
|
||||
(new 'static 'speech-info-item :name "thug109r")
|
||||
(new 'static 'speech-info-item :name "thug110r")
|
||||
(new 'static 'speech-info-item :name "thug111r")
|
||||
(new 'static 'speech-info-item :name "thug112r")
|
||||
(new 'static 'speech-info-item :name "thug113r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug114r")
|
||||
(new 'static 'speech-info-item :name "thug115r")
|
||||
(new 'static 'speech-info-item :name "thug117r")
|
||||
(new 'static 'speech-info-item :name "thug118r")
|
||||
(new 'static 'speech-info-item :name "thug119r")
|
||||
(new 'static 'speech-info-item :name "thug120r")
|
||||
(new 'static 'speech-info-item :name "thug121r")
|
||||
(new 'static 'speech-info-item :name "thug128r")
|
||||
(new 'static 'speech-info-item :name "thug132r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug136r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug302r")
|
||||
(new 'static 'speech-info-item :name "thug310r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 4)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug146r")
|
||||
(new 'static 'speech-info-item :name "thug147r")
|
||||
(new 'static 'speech-info-item :name "thug148r")
|
||||
(new 'static 'speech-info-item :name "thug149r")
|
||||
(new 'static 'speech-info-item :name "thug150r")
|
||||
(new 'static 'speech-info-item :name "thug151r")
|
||||
(new 'static 'speech-info-item :name "thug152r")
|
||||
(new 'static 'speech-info-item :name "thug153r")
|
||||
(new 'static 'speech-info-item :name "thug154r")
|
||||
(new 'static 'speech-info-item :name "thug155r")
|
||||
(new 'static 'speech-info-item :name "thug156r")
|
||||
(new 'static 'speech-info-item :name "thug157r")
|
||||
(new 'static 'speech-info-item :name "thug158r")
|
||||
(new 'static 'speech-info-item :name "thug159r")
|
||||
(new 'static 'speech-info-item :name "thug160r")
|
||||
(new 'static 'speech-info-item :name "thug161r")
|
||||
(new 'static 'speech-info-item :name "thug162r")
|
||||
(new 'static 'speech-info-item :name "thug163r")
|
||||
(new 'static 'speech-info-item :name "thug164r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug165r")
|
||||
(new 'static 'speech-info-item :name "thug173r")
|
||||
(new 'static 'speech-info-item :name "thug178r")
|
||||
(new 'static 'speech-info-item :name "thug179r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug167r")
|
||||
(new 'static 'speech-info-item :name "thug168r")
|
||||
(new 'static 'speech-info-item :name "thug169r")
|
||||
(new 'static 'speech-info-item :name "thug170r")
|
||||
(new 'static 'speech-info-item :name "thug171r")
|
||||
(new 'static 'speech-info-item :name "thug175r")
|
||||
(new 'static 'speech-info-item :name "thug176r")
|
||||
(new 'static 'speech-info-item :name "thug177r")
|
||||
(new 'static 'speech-info-item :name "thug180r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 6)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug181r")
|
||||
(new 'static 'speech-info-item :name "thug182r")
|
||||
(new 'static 'speech-info-item :name "thug183r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug184r")
|
||||
(new 'static 'speech-info-item :name "thug185r")
|
||||
(new 'static 'speech-info-item :name "thug186r")
|
||||
(new 'static 'speech-info-item :name "thug187r")
|
||||
(new 'static 'speech-info-item :name "thug188r")
|
||||
(new 'static 'speech-info-item :name "thug189r")
|
||||
(new 'static 'speech-info-item :name "thug190r")
|
||||
(new 'static 'speech-info-item :name "thug191r")
|
||||
(new 'static 'speech-info-item :name "thug192r")
|
||||
(new 'static 'speech-info-item :name "thug193r")
|
||||
(new 'static 'speech-info-item :name "thug194r")
|
||||
(new 'static 'speech-info-item :name "thug197r")
|
||||
(new 'static 'speech-info-item :name "thug198r")
|
||||
(new 'static 'speech-info-item :name "thug199r")
|
||||
(new 'static 'speech-info-item :name "thug200r")
|
||||
(new 'static 'speech-info-item :name "thug201r")
|
||||
(new 'static 'speech-info-item :name "thug202r")
|
||||
(new 'static 'speech-info-item :name "thug203r")
|
||||
(new 'static 'speech-info-item :name "thug204r")
|
||||
(new 'static 'speech-info-item :name "thug205r")
|
||||
(new 'static 'speech-info-item :name "thug206r")
|
||||
(new 'static 'speech-info-item :name "thug207r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 10)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug209r")
|
||||
(new 'static 'speech-info-item :name "thug210r")
|
||||
(new 'static 'speech-info-item :name "thug211r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug212r")
|
||||
(new 'static 'speech-info-item :name "thug213r")
|
||||
(new 'static 'speech-info-item :name "thug214r")
|
||||
(new 'static 'speech-info-item :name "thug215r")
|
||||
(new 'static 'speech-info-item :name "thug216r")
|
||||
(new 'static 'speech-info-item :name "thug217r")
|
||||
(new 'static 'speech-info-item :name "thug218r")
|
||||
(new 'static 'speech-info-item :name "thug219r")
|
||||
(new 'static 'speech-info-item :name "thug220r")
|
||||
(new 'static 'speech-info-item :name "thug221r")
|
||||
(new 'static 'speech-info-item :name "thug222r")
|
||||
(new 'static 'speech-info-item :name "thug223r")
|
||||
(new 'static 'speech-info-item :name "thug224r")
|
||||
(new 'static 'speech-info-item :name "thug225r")
|
||||
(new 'static 'speech-info-item :name "thug226r")
|
||||
(new 'static 'speech-info-item :name "thug227r")
|
||||
(new 'static 'speech-info-item :name "thug174r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug228r")
|
||||
(new 'static 'speech-info-item :name "thug229r")
|
||||
(new 'static 'speech-info-item :name "thug230r")
|
||||
(new 'static 'speech-info-item :name "thug231r")
|
||||
(new 'static 'speech-info-item :name "thug234r")
|
||||
(new 'static 'speech-info-item :name "thug235r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug228r")
|
||||
(new 'static 'speech-info-item :name "thug232r")
|
||||
(new 'static 'speech-info-item :name "thug233r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "thug250r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug251r")
|
||||
(new 'static 'speech-info-item :name "thug252r")
|
||||
(new 'static 'speech-info-item :name "thug253r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 11)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug254r")
|
||||
(new 'static 'speech-info-item :name "thug255r")
|
||||
(new 'static 'speech-info-item :name "thug256r")
|
||||
(new 'static 'speech-info-item :name "thug257r")
|
||||
(new 'static 'speech-info-item :name "thug258r")
|
||||
(new 'static 'speech-info-item :name "thug259r")
|
||||
(new 'static 'speech-info-item :name "thug260r")
|
||||
(new 'static 'speech-info-item :name "thug261r")
|
||||
(new 'static 'speech-info-item :name "thug262r")
|
||||
(new 'static 'speech-info-item :name "thug263r")
|
||||
(new 'static 'speech-info-item :name "thug264r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug265r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug266r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug267r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug268r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug269r")
|
||||
(new 'static 'speech-info-item :name "thug270r")
|
||||
(new 'static 'speech-info-item :name "thug271r")
|
||||
(new 'static 'speech-info-item :name "thug272r")
|
||||
(new 'static 'speech-info-item :name "thug273r")
|
||||
(new 'static 'speech-info-item :name "thug274r")
|
||||
(new 'static 'speech-info-item :name "thug275r")
|
||||
(new 'static 'speech-info-item :name "thug276r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 14)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug265r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug266r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug267r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug268r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "thug269r")
|
||||
(new 'static 'speech-info-item :name "thug270r")
|
||||
(new 'static 'speech-info-item :name "thug271r")
|
||||
(new 'static 'speech-info-item :name "thug272r")
|
||||
(new 'static 'speech-info-item :name "thug273r")
|
||||
(new 'static 'speech-info-item :name "thug274r")
|
||||
(new 'static 'speech-info-item :name "thug275r")
|
||||
(new 'static 'speech-info-item :name "thug276r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug277r")
|
||||
(new 'static 'speech-info-item :name "thug278r")
|
||||
(new 'static 'speech-info-item :name "thug279r")
|
||||
(new 'static 'speech-info-item :name "thug280r")
|
||||
(new 'static 'speech-info-item :name "thug281r")
|
||||
(new 'static 'speech-info-item :name "thug282r")
|
||||
(new 'static 'speech-info-item :name "thug283r")
|
||||
(new 'static 'speech-info-item :name "thug284r")
|
||||
(new 'static 'speech-info-item :name "thug285r")
|
||||
(new 'static 'speech-info-item :name "thug286r")
|
||||
(new 'static 'speech-info-item :name "thug287r")
|
||||
(new 'static 'speech-info-item :name "thug288r")
|
||||
(new 'static 'speech-info-item :name "thug289r")
|
||||
(new 'static 'speech-info-item :name "thug290r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug277r")
|
||||
(new 'static 'speech-info-item :name "thug278r")
|
||||
(new 'static 'speech-info-item :name "thug279r")
|
||||
(new 'static 'speech-info-item :name "thug280r")
|
||||
(new 'static 'speech-info-item :name "thug281r")
|
||||
(new 'static 'speech-info-item :name "thug282r")
|
||||
(new 'static 'speech-info-item :name "thug283r")
|
||||
(new 'static 'speech-info-item :name "thug284r")
|
||||
(new 'static 'speech-info-item :name "thug285r")
|
||||
(new 'static 'speech-info-item :name "thug286r")
|
||||
(new 'static 'speech-info-item :name "thug287r")
|
||||
(new 'static 'speech-info-item :name "thug288r")
|
||||
(new 'static 'speech-info-item :name "thug289r")
|
||||
(new 'static 'speech-info-item :name "thug290r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 16 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "thug313r")
|
||||
(new 'static 'speech-info-item :name "thug314r")
|
||||
(new 'static 'speech-info-item :name "thug315r")
|
||||
(new 'static 'speech-info-item :name "thug316r")
|
||||
(new 'static 'speech-info-item :name "thug317r")
|
||||
(new 'static 'speech-info-item :name "thug318r")
|
||||
(new 'static 'speech-info-item :name "thug240r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+488
@@ -0,0 +1,488 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 0)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn108r")
|
||||
(new 'static 'speech-info-item :name "torn116r")
|
||||
(new 'static 'speech-info-item :name "torn121r")
|
||||
(new 'static 'speech-info-item :name "torn122r")
|
||||
(new 'static 'speech-info-item :name "torn123r")
|
||||
(new 'static 'speech-info-item :name "torn124r")
|
||||
(new 'static 'speech-info-item :name "torn125r")
|
||||
(new 'static 'speech-info-item :name "torn126r")
|
||||
(new 'static 'speech-info-item :name "torn127r")
|
||||
(new 'static 'speech-info-item :name "torn129r")
|
||||
(new 'static 'speech-info-item :name "torn130r")
|
||||
(new 'static 'speech-info-item :name "torn131r")
|
||||
(new 'static 'speech-info-item :name "torn132r")
|
||||
(new 'static 'speech-info-item :name "torn133r")
|
||||
(new 'static 'speech-info-item :name "torn134r")
|
||||
(new 'static 'speech-info-item :name "torn135r")
|
||||
(new 'static 'speech-info-item :name "torn139r")
|
||||
(new 'static 'speech-info-item :name "torn140r")
|
||||
(new 'static 'speech-info-item :name "torn141r")
|
||||
(new 'static 'speech-info-item :name "torn142r")
|
||||
(new 'static 'speech-info-item :name "torn143r")
|
||||
(new 'static 'speech-info-item :name "torn144r")
|
||||
(new 'static 'speech-info-item :name "torn146r")
|
||||
(new 'static 'speech-info-item :name "torn147r")
|
||||
(new 'static 'speech-info-item :name "torn148r")
|
||||
(new 'static 'speech-info-item :name "torn149r")
|
||||
(new 'static 'speech-info-item :name "torn150r")
|
||||
(new 'static 'speech-info-item :name "torn151r")
|
||||
(new 'static 'speech-info-item :name "torn152r")
|
||||
(new 'static 'speech-info-item :name "torn153r")
|
||||
(new 'static 'speech-info-item :name "torn154r")
|
||||
(new 'static 'speech-info-item :name "torn155r")
|
||||
(new 'static 'speech-info-item :name "torn157r")
|
||||
(new 'static 'speech-info-item :name "torn158r")
|
||||
(new 'static 'speech-info-item :name "torn159r")
|
||||
(new 'static 'speech-info-item :name "torn160r")
|
||||
(new 'static 'speech-info-item :name "torn163r")
|
||||
(new 'static 'speech-info-item :name "torn164r")
|
||||
(new 'static 'speech-info-item :name "torn165r")
|
||||
(new 'static 'speech-info-item :name "torn166r")
|
||||
(new 'static 'speech-info-item :name "torn167r")
|
||||
(new 'static 'speech-info-item :name "torn168r")
|
||||
(new 'static 'speech-info-item :name "torn169r")
|
||||
(new 'static 'speech-info-item :name "torn170r")
|
||||
(new 'static 'speech-info-item :name "torn172r")
|
||||
(new 'static 'speech-info-item :name "torn173r")
|
||||
(new 'static 'speech-info-item :name "torn174r")
|
||||
(new 'static 'speech-info-item :name "torn175r")
|
||||
(new 'static 'speech-info-item :name "torn177r")
|
||||
(new 'static 'speech-info-item :name "torn178r")
|
||||
(new 'static 'speech-info-item :name "torn179r")
|
||||
(new 'static 'speech-info-item :name "torn180r")
|
||||
(new 'static 'speech-info-item :name "torn182r")
|
||||
(new 'static 'speech-info-item :name "torn183r")
|
||||
(new 'static 'speech-info-item :name "torn184r")
|
||||
(new 'static 'speech-info-item :name "torn185r")
|
||||
(new 'static 'speech-info-item :name "torn187r")
|
||||
(new 'static 'speech-info-item :name "torn188r")
|
||||
(new 'static 'speech-info-item :name "torn189r")
|
||||
(new 'static 'speech-info-item :name "torn190r")
|
||||
(new 'static 'speech-info-item :name "torn194r")
|
||||
(new 'static 'speech-info-item :name "torn196r")
|
||||
(new 'static 'speech-info-item :name "torn197r")
|
||||
(new 'static 'speech-info-item :name "torn198r")
|
||||
(new 'static 'speech-info-item :name "torn199r")
|
||||
(new 'static 'speech-info-item :name "torn200r")
|
||||
(new 'static 'speech-info-item :name "torn201r")
|
||||
(new 'static 'speech-info-item :name "torn202r")
|
||||
(new 'static 'speech-info-item :name "torn203r")
|
||||
(new 'static 'speech-info-item :name "torn205r")
|
||||
(new 'static 'speech-info-item :name "torn206r")
|
||||
(new 'static 'speech-info-item :name "torn207r")
|
||||
(new 'static 'speech-info-item :name "torn208r")
|
||||
(new 'static 'speech-info-item :name "torn209r")
|
||||
(new 'static 'speech-info-item :name "torn210r")
|
||||
(new 'static 'speech-info-item :name "torn211r")
|
||||
(new 'static 'speech-info-item :name "torn212r")
|
||||
(new 'static 'speech-info-item :name "torn216r")
|
||||
(new 'static 'speech-info-item :name "torn219r")
|
||||
(new 'static 'speech-info-item :name "torn220r")
|
||||
(new 'static 'speech-info-item :name "torn221r")
|
||||
(new 'static 'speech-info-item :name "torn222r")
|
||||
(new 'static 'speech-info-item :name "torn223r")
|
||||
(new 'static 'speech-info-item :name "torn224r")
|
||||
(new 'static 'speech-info-item :name "torn225r")
|
||||
(new 'static 'speech-info-item :name "torn227r")
|
||||
(new 'static 'speech-info-item :name "torn228r")
|
||||
(new 'static 'speech-info-item :name "torn229r")
|
||||
(new 'static 'speech-info-item :name "torn230r")
|
||||
(new 'static 'speech-info-item :name "torn231r")
|
||||
(new 'static 'speech-info-item :name "torn232r")
|
||||
(new 'static 'speech-info-item :name "torn233r")
|
||||
(new 'static 'speech-info-item :name "torn234r")
|
||||
(new 'static 'speech-info-item :name "torn316r")
|
||||
(new 'static 'speech-info-item :name "torn319r")
|
||||
(new 'static 'speech-info-item :name "torn320r")
|
||||
(new 'static 'speech-info-item :name "torn321r")
|
||||
(new 'static 'speech-info-item :name "torn324r")
|
||||
(new 'static 'speech-info-item :name "torn326r")
|
||||
(new 'static 'speech-info-item :name "torn361r")
|
||||
(new 'static 'speech-info-item :name "torn362r")
|
||||
(new 'static 'speech-info-item :name "torn363r")
|
||||
(new 'static 'speech-info-item :name "torn364r")
|
||||
(new 'static 'speech-info-item :name "torn365r")
|
||||
(new 'static 'speech-info-item :name "torn366r")
|
||||
(new 'static 'speech-info-item :name "torn368r")
|
||||
(new 'static 'speech-info-item :name "torn369r")
|
||||
(new 'static 'speech-info-item :name "torn370r")
|
||||
(new 'static 'speech-info-item :name "torn371r")
|
||||
(new 'static 'speech-info-item :name "torn372r")
|
||||
(new 'static 'speech-info-item :name "torn373r")
|
||||
(new 'static 'speech-info-item :name "torn374r")
|
||||
(new 'static 'speech-info-item :name "torn376r")
|
||||
(new 'static 'speech-info-item :name "torn377r")
|
||||
(new 'static 'speech-info-item :name "torn378r")
|
||||
(new 'static 'speech-info-item :name "torn282r")
|
||||
(new 'static 'speech-info-item :name "torn283r")
|
||||
(new 'static 'speech-info-item :name "torn284r")
|
||||
(new 'static 'speech-info-item :name "torn291r")
|
||||
(new 'static 'speech-info-item :name "torn292r")
|
||||
(new 'static 'speech-info-item :name "torn293r")
|
||||
(new 'static 'speech-info-item :name "torn353r")
|
||||
(new 'static 'speech-info-item :name "torn315r")
|
||||
(new 'static 'speech-info-item :name "torn105r")
|
||||
(new 'static 'speech-info-item :name "torn345r")
|
||||
(new 'static 'speech-info-item :name "torn347r")
|
||||
(new 'static 'speech-info-item :name "torn349r")
|
||||
(new 'static 'speech-info-item :name "torn106r")
|
||||
(new 'static 'speech-info-item :name "torn114r")
|
||||
(new 'static 'speech-info-item :name "torn323r")
|
||||
(new 'static 'speech-info-item :name "torn355r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn236r")
|
||||
(new 'static 'speech-info-item :name "torn237r")
|
||||
(new 'static 'speech-info-item :name "torn238r")
|
||||
(new 'static 'speech-info-item :name "torn239r")
|
||||
(new 'static 'speech-info-item :name "torn240r")
|
||||
(new 'static 'speech-info-item :name "torn241r")
|
||||
(new 'static 'speech-info-item :name "torn242r")
|
||||
(new 'static 'speech-info-item :name "torn243r")
|
||||
(new 'static 'speech-info-item :name "torn244r")
|
||||
(new 'static 'speech-info-item :name "torn245r")
|
||||
(new 'static 'speech-info-item :name "torn115r")
|
||||
(new 'static 'speech-info-item :name "torn186r")
|
||||
(new 'static 'speech-info-item :name "torn191r")
|
||||
(new 'static 'speech-info-item :name "torn235r")
|
||||
(new 'static 'speech-info-item :name "torn317r")
|
||||
(new 'static 'speech-info-item :name "torn260r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn246r")
|
||||
(new 'static 'speech-info-item :name "torn247r")
|
||||
(new 'static 'speech-info-item :name "torn248r")
|
||||
(new 'static 'speech-info-item :name "torn249r")
|
||||
(new 'static 'speech-info-item :name "torn250r")
|
||||
(new 'static 'speech-info-item :name "torn251r")
|
||||
(new 'static 'speech-info-item :name "torn252r")
|
||||
(new 'static 'speech-info-item :name "torn253r")
|
||||
(new 'static 'speech-info-item :name "torn254r")
|
||||
(new 'static 'speech-info-item :name "torn255r")
|
||||
(new 'static 'speech-info-item :name "torn256r")
|
||||
(new 'static 'speech-info-item :name "torn136r")
|
||||
(new 'static 'speech-info-item :name "torn137r")
|
||||
(new 'static 'speech-info-item :name "torn138r")
|
||||
(new 'static 'speech-info-item :name "torn156r")
|
||||
(new 'static 'speech-info-item :name "torn181r")
|
||||
(new 'static 'speech-info-item :name "torn204r")
|
||||
(new 'static 'speech-info-item :name "torn325r")
|
||||
(new 'static 'speech-info-item :name "torn128r")
|
||||
(new 'static 'speech-info-item :name "torn171r")
|
||||
(new 'static 'speech-info-item :name "torn327r")
|
||||
(new 'static 'speech-info-item :name "torn264r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn257r")
|
||||
(new 'static 'speech-info-item :name "torn258r")
|
||||
(new 'static 'speech-info-item :name "torn259r")
|
||||
(new 'static 'speech-info-item :name "torn261r")
|
||||
(new 'static 'speech-info-item :name "torn262r")
|
||||
(new 'static 'speech-info-item :name "torn263r")
|
||||
(new 'static 'speech-info-item :name "torn265r")
|
||||
(new 'static 'speech-info-item :name "torn217r")
|
||||
(new 'static 'speech-info-item :name "torn218r")
|
||||
(new 'static 'speech-info-item :name "torn226r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn266r")
|
||||
(new 'static 'speech-info-item :name "torn267r")
|
||||
(new 'static 'speech-info-item :name "torn268r")
|
||||
(new 'static 'speech-info-item :name "torn269r")
|
||||
(new 'static 'speech-info-item :name "torn270r")
|
||||
(new 'static 'speech-info-item :name "torn271r")
|
||||
(new 'static 'speech-info-item :name "torn272r")
|
||||
(new 'static 'speech-info-item :name "torn273r")
|
||||
(new 'static 'speech-info-item :name "torn274r")
|
||||
(new 'static 'speech-info-item :name "torn275r")
|
||||
(new 'static 'speech-info-item :name "torn276r")
|
||||
(new 'static 'speech-info-item :name "torn277r")
|
||||
(new 'static 'speech-info-item :name "torn278r")
|
||||
(new 'static 'speech-info-item :name "torn279r")
|
||||
(new 'static 'speech-info-item :name "torn280r")
|
||||
(new 'static 'speech-info-item :name "torn281r")
|
||||
(new 'static 'speech-info-item :name "torn285r")
|
||||
(new 'static 'speech-info-item :name "torn286r")
|
||||
(new 'static 'speech-info-item :name "torn287r")
|
||||
(new 'static 'speech-info-item :name "torn288r")
|
||||
(new 'static 'speech-info-item :name "torn289r")
|
||||
(new 'static 'speech-info-item :name "torn290r")
|
||||
(new 'static 'speech-info-item :name "torn294r")
|
||||
(new 'static 'speech-info-item :name "torn295r")
|
||||
(new 'static 'speech-info-item :name "torn117r")
|
||||
(new 'static 'speech-info-item :name "torn176r")
|
||||
(new 'static 'speech-info-item :name "torn193r")
|
||||
(new 'static 'speech-info-item :name "torn118r")
|
||||
(new 'static 'speech-info-item :name "torn119r")
|
||||
(new 'static 'speech-info-item :name "torn192r")
|
||||
(new 'static 'speech-info-item :name "torn195r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn296r")
|
||||
(new 'static 'speech-info-item :name "torn297r")
|
||||
(new 'static 'speech-info-item :name "torn298r")
|
||||
(new 'static 'speech-info-item :name "torn299r")
|
||||
(new 'static 'speech-info-item :name "torn300r")
|
||||
(new 'static 'speech-info-item :name "torn301r")
|
||||
(new 'static 'speech-info-item :name "torn302r")
|
||||
(new 'static 'speech-info-item :name "torn303r")
|
||||
(new 'static 'speech-info-item :name "torn304r")
|
||||
(new 'static 'speech-info-item :name "torn305r")
|
||||
(new 'static 'speech-info-item :name "torn306r")
|
||||
(new 'static 'speech-info-item :name "torn307r")
|
||||
(new 'static 'speech-info-item :name "torn308r")
|
||||
(new 'static 'speech-info-item :name "torn161r")
|
||||
(new 'static 'speech-info-item :name "torn162r")
|
||||
(new 'static 'speech-info-item :name "torn318r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn309r")
|
||||
(new 'static 'speech-info-item :name "torn310r")
|
||||
(new 'static 'speech-info-item :name "torn311r")
|
||||
(new 'static 'speech-info-item :name "torn312r")
|
||||
(new 'static 'speech-info-item :name "torn313r")
|
||||
(new 'static 'speech-info-item :name "torn314r")
|
||||
(new 'static 'speech-info-item :name "torn101r")
|
||||
(new 'static 'speech-info-item :name "torn102r")
|
||||
(new 'static 'speech-info-item :name "torn103r")
|
||||
(new 'static 'speech-info-item :name "torn104r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "torn328r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn329r")
|
||||
(new 'static 'speech-info-item :name "torn330r")
|
||||
(new 'static 'speech-info-item :name "torn331r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn332r")
|
||||
(new 'static 'speech-info-item :name "torn333r")
|
||||
(new 'static 'speech-info-item :name "torn334r")
|
||||
(new 'static 'speech-info-item :name "torn335r")
|
||||
(new 'static 'speech-info-item :name "torn336r")
|
||||
(new 'static 'speech-info-item :name "torn337r")
|
||||
(new 'static 'speech-info-item :name "torn338r")
|
||||
(new 'static 'speech-info-item :name "torn213r")
|
||||
(new 'static 'speech-info-item :name "torn214r")
|
||||
(new 'static 'speech-info-item :name "torn215r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 3)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn339r")
|
||||
(new 'static 'speech-info-item :name "torn340r")
|
||||
(new 'static 'speech-info-item :name "torn341r")
|
||||
(new 'static 'speech-info-item :name "torn342r")
|
||||
(new 'static 'speech-info-item :name "torn343r")
|
||||
(new 'static 'speech-info-item :name "torn344r")
|
||||
(new 'static 'speech-info-item :name "torn346r")
|
||||
(new 'static 'speech-info-item :name "torn348r")
|
||||
(new 'static 'speech-info-item :name "torn350r")
|
||||
(new 'static 'speech-info-item :name "torn351r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "torn107r")
|
||||
(new 'static 'speech-info-item :name "torn109r")
|
||||
(new 'static 'speech-info-item :name "torn110r")
|
||||
(new 'static 'speech-info-item :name "torn112r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 2)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn352r")
|
||||
(new 'static 'speech-info-item :name "torn354r")
|
||||
(new 'static 'speech-info-item :name "torn356r")
|
||||
(new 'static 'speech-info-item :name "torn357r")
|
||||
(new 'static 'speech-info-item :name "torn358r")
|
||||
(new 'static 'speech-info-item :name "torn359r")
|
||||
(new 'static 'speech-info-item :name "torn360r")
|
||||
(new 'static 'speech-info-item :name "torn111r" :flags (speech-info-flag si0))
|
||||
(new 'static 'speech-info-item :name "torn145r" :flags (speech-info-flag si0))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn339r")
|
||||
(new 'static 'speech-info-item :name "torn340r")
|
||||
(new 'static 'speech-info-item :name "torn341r")
|
||||
(new 'static 'speech-info-item :name "torn342r")
|
||||
(new 'static 'speech-info-item :name "torn343r")
|
||||
(new 'static 'speech-info-item :name "torn344r")
|
||||
(new 'static 'speech-info-item :name "torn346r")
|
||||
(new 'static 'speech-info-item :name "torn348r")
|
||||
(new 'static 'speech-info-item :name "torn350r")
|
||||
(new 'static 'speech-info-item :name "torn107r")
|
||||
(new 'static 'speech-info-item :name "torn109r")
|
||||
(new 'static 'speech-info-item :name "torn110r")
|
||||
(new 'static 'speech-info-item :name "torn112r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn352r")
|
||||
(new 'static 'speech-info-item :name "torn354r")
|
||||
(new 'static 'speech-info-item :name "torn356r")
|
||||
(new 'static 'speech-info-item :name "torn357r")
|
||||
(new 'static 'speech-info-item :name "torn358r")
|
||||
(new 'static 'speech-info-item :name "torn359r")
|
||||
(new 'static 'speech-info-item :name "torn360r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn379r")
|
||||
(new 'static 'speech-info-item :name "torn380r")
|
||||
(new 'static 'speech-info-item :name "torn381r")
|
||||
(new 'static 'speech-info-item :name "torn382r")
|
||||
(new 'static 'speech-info-item :name "torn106r")
|
||||
(new 'static 'speech-info-item :name "torn113r")
|
||||
(new 'static 'speech-info-item :name "torn114r")
|
||||
(new 'static 'speech-info-item :name "torn120r")
|
||||
(new 'static 'speech-info-item :name "torn247r")
|
||||
(new 'static 'speech-info-item :name "torn248r")
|
||||
(new 'static 'speech-info-item :name "torn249r")
|
||||
(new 'static 'speech-info-item :name "torn250r")
|
||||
(new 'static 'speech-info-item :name "torn251r")
|
||||
(new 'static 'speech-info-item :name "torn252r")
|
||||
(new 'static 'speech-info-item :name "torn258r")
|
||||
(new 'static 'speech-info-item :name "torn259r")
|
||||
(new 'static 'speech-info-item :name "torn263r")
|
||||
(new 'static 'speech-info-item :name "torn264r")
|
||||
(new 'static 'speech-info-item :name "torn265r")
|
||||
(new 'static 'speech-info-item :name "torn267r")
|
||||
(new 'static 'speech-info-item :name "torn268r")
|
||||
(new 'static 'speech-info-item :name "torn269r")
|
||||
(new 'static 'speech-info-item :name "torn271r")
|
||||
(new 'static 'speech-info-item :name "torn280r")
|
||||
(new 'static 'speech-info-item :name "torn285r")
|
||||
(new 'static 'speech-info-item :name "torn286r")
|
||||
(new 'static 'speech-info-item :name "torn287r")
|
||||
(new 'static 'speech-info-item :name "torn305r")
|
||||
(new 'static 'speech-info-item :name "torn322r")
|
||||
(new 'static 'speech-info-item :name "torn323r")
|
||||
(new 'static 'speech-info-item :name "torn367r")
|
||||
(new 'static 'speech-info-item :name "torn375r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn102r")
|
||||
(new 'static 'speech-info-item :name "torn104r")
|
||||
(new 'static 'speech-info-item :name "torn105r")
|
||||
(new 'static 'speech-info-item :name "torn254r")
|
||||
(new 'static 'speech-info-item :name "torn255r")
|
||||
(new 'static 'speech-info-item :name "torn296r")
|
||||
(new 'static 'speech-info-item :name "torn299r")
|
||||
(new 'static 'speech-info-item :name "torn300r")
|
||||
(new 'static 'speech-info-item :name "torn301r")
|
||||
(new 'static 'speech-info-item :name "torn303r")
|
||||
(new 'static 'speech-info-item :name "torn304r")
|
||||
(new 'static 'speech-info-item :name "torn306r")
|
||||
(new 'static 'speech-info-item :name "torn307r")
|
||||
(new 'static 'speech-info-item :name "torn309r")
|
||||
(new 'static 'speech-info-item :name "torn313r")
|
||||
(new 'static 'speech-info-item :name "torn314r")
|
||||
(new 'static 'speech-info-item :name "torn315r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "torn236r")
|
||||
(new 'static 'speech-info-item :name "torn237r")
|
||||
(new 'static 'speech-info-item :name "torn239r")
|
||||
(new 'static 'speech-info-item :name "torn240r")
|
||||
(new 'static 'speech-info-item :name "torn241r")
|
||||
(new 'static 'speech-info-item :name "torn242r")
|
||||
(new 'static 'speech-info-item :name "torn243r")
|
||||
(new 'static 'speech-info-item :name "torn244r")
|
||||
(new 'static 'speech-info-item :name "torn245r")
|
||||
(new 'static 'speech-info-item :name "torn186r")
|
||||
(new 'static 'speech-info-item :name "torn191r")
|
||||
(new 'static 'speech-info-item :name "torn317r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 9 speeches 21)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "torn322r"))
|
||||
:flags (speech-info-flag si0)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
+222
@@ -0,0 +1,222 @@
|
||||
;;-*-Lisp-*-
|
||||
(in-package goal)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 1)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86101r")
|
||||
(new 'static 'speech-info-item :name "ur86102r")
|
||||
(new 'static 'speech-info-item :name "ur86103r")
|
||||
(new 'static 'speech-info-item :name "ur86104r")
|
||||
(new 'static 'speech-info-item :name "ur86105r")
|
||||
(new 'static 'speech-info-item :name "ur86106r")
|
||||
(new 'static 'speech-info-item :name "ur86107r")
|
||||
(new 'static 'speech-info-item :name "ur86108r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 16)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86101r")
|
||||
(new 'static 'speech-info-item :name "ur86102r")
|
||||
(new 'static 'speech-info-item :name "ur86103r")
|
||||
(new 'static 'speech-info-item :name "ur86104r")
|
||||
(new 'static 'speech-info-item :name "ur86105r")
|
||||
(new 'static 'speech-info-item :name "ur86106r")
|
||||
(new 'static 'speech-info-item :name "ur86107r")
|
||||
(new 'static 'speech-info-item :name "ur86108r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 4)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86109r")
|
||||
(new 'static 'speech-info-item :name "ur86110r")
|
||||
(new 'static 'speech-info-item :name "ur86111r")
|
||||
(new 'static 'speech-info-item :name "ur86112r")
|
||||
(new 'static 'speech-info-item :name "ur86113r")
|
||||
(new 'static 'speech-info-item :name "ur86114r")
|
||||
(new 'static 'speech-info-item :name "ur86115r")
|
||||
(new 'static 'speech-info-item :name "ur86116r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 6)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86117r")
|
||||
(new 'static 'speech-info-item :name "ur86118r")
|
||||
(new 'static 'speech-info-item :name "ur86119r")
|
||||
(new 'static 'speech-info-item :name "ur86120r")
|
||||
(new 'static 'speech-info-item :name "ur86121r")
|
||||
(new 'static 'speech-info-item :name "ur86122r")
|
||||
(new 'static 'speech-info-item :name "ur86123r")
|
||||
(new 'static 'speech-info-item :name "ur86142r")
|
||||
(new 'static 'speech-info-item :name "ur86143r")
|
||||
(new 'static 'speech-info-item :name "ur86144r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 10)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86124r")
|
||||
(new 'static 'speech-info-item :name "ur86126r")
|
||||
(new 'static 'speech-info-item :name "ur86127r")
|
||||
(new 'static 'speech-info-item :name "ur86128r")
|
||||
(new 'static 'speech-info-item :name "ur86129r")
|
||||
(new 'static 'speech-info-item :name "ur86130r")
|
||||
(new 'static 'speech-info-item :name "ur86131r")
|
||||
(new 'static 'speech-info-item :name "ur86138r")
|
||||
(new 'static 'speech-info-item :name "ur86139r")
|
||||
(new 'static 'speech-info-item :name "ur86140r")
|
||||
(new 'static 'speech-info-item :name "ur86141r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 7)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86132r")
|
||||
(new 'static 'speech-info-item :name "ur86133r")
|
||||
(new 'static 'speech-info-item :name "ur86134r")
|
||||
(new 'static 'speech-info-item :name "ur86135r")
|
||||
(new 'static 'speech-info-item :name "ur86136r")
|
||||
(new 'static 'speech-info-item :name "ur86137r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 3)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86152r")
|
||||
(new 'static 'speech-info-item :name "ur86153r")
|
||||
(new 'static 'speech-info-item :name "ur86154r")
|
||||
(new 'static 'speech-info-item :name "ur86155r")
|
||||
(new 'static 'speech-info-item :name "ur86156r")
|
||||
(new 'static 'speech-info-item :name "ur86157r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 14)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86152r")
|
||||
(new 'static 'speech-info-item :name "ur86153r")
|
||||
(new 'static 'speech-info-item :name "ur86154r")
|
||||
(new 'static 'speech-info-item :name "ur86155r")
|
||||
(new 'static 'speech-info-item :name "ur86156r")
|
||||
(new 'static 'speech-info-item :name "ur86157r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 2)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86158r")
|
||||
(new 'static 'speech-info-item :name "ur86159r")
|
||||
(new 'static 'speech-info-item :name "ur86160r")
|
||||
(new 'static 'speech-info-item :name "ur86161r")
|
||||
(new 'static 'speech-info-item :name "ur86162r")
|
||||
(new 'static 'speech-info-item :name "ur86163r")
|
||||
(new 'static 'speech-info-item :name "ur86164r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 13)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86158r")
|
||||
(new 'static 'speech-info-item :name "ur86159r")
|
||||
(new 'static 'speech-info-item :name "ur86160r")
|
||||
(new 'static 'speech-info-item :name "ur86161r")
|
||||
(new 'static 'speech-info-item :name "ur86162r")
|
||||
(new 'static 'speech-info-item :name "ur86163r")
|
||||
(new 'static 'speech-info-item :name "ur86164r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 9)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86172r")
|
||||
(new 'static 'speech-info-item :name "ur86173r")
|
||||
(new 'static 'speech-info-item :name "ur86174r")
|
||||
(new 'static 'speech-info-item :name "ur86175r")
|
||||
(new 'static 'speech-info-item :name "ur86176r")
|
||||
(new 'static 'speech-info-item :name "ur86177r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 12)
|
||||
(new 'static 'speech-info
|
||||
:list (new 'static 'boxed-array :type speech-info-item (new 'static 'speech-info-item :name "ur86145r"))
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 8)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86146r")
|
||||
(new 'static 'speech-info-item :name "ur86147r")
|
||||
(new 'static 'speech-info-item :name "ur86148r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 11)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86149r")
|
||||
(new 'static 'speech-info-item :name "ur86150r")
|
||||
(new 'static 'speech-info-item :name "ur86151r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 5)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86178r")
|
||||
(new 'static 'speech-info-item :name "ur86179r")
|
||||
(new 'static 'speech-info-item :name "ur86180r")
|
||||
(new 'static 'speech-info-item :name "ur86181r")
|
||||
(new 'static 'speech-info-item :name "ur86182r")
|
||||
(new 'static 'speech-info-item :name "ur86183r")
|
||||
(new 'static 'speech-info-item :name "ur86184r")
|
||||
(new 'static 'speech-info-item :name "ur86185r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(set! (-> *speech-control* channels 13 speeches 15)
|
||||
(new 'static 'speech-info :list (new 'static 'boxed-array :type speech-info-item
|
||||
(new 'static 'speech-info-item :name "ur86165r")
|
||||
(new 'static 'speech-info-item :name "ur86166r")
|
||||
(new 'static 'speech-info-item :name "ur86167r")
|
||||
(new 'static 'speech-info-item :name "ur86168r")
|
||||
(new 'static 'speech-info-item :name "ur86169r")
|
||||
(new 'static 'speech-info-item :name "ur86170r")
|
||||
(new 'static 'speech-info-item :name "ur86171r")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user