mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-07-10 07:07:04 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
3fec68fcb248a623de030fb85fc6c714a22728fa
jak-project/test/decompiler/reference/jak2/levels/hiphog/whack_REF.gc
T
water111 637990314b wip: better stack var support (#4222) 
Closes #736

---------

Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
2026-04-19 00:14:44 +02:00

2713 lines
125 KiB
Common Lisp
Vendored
Generated
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; failed to figure out what this is:
(defpartgroup group-whack-scoreboard-misses
:id 765
:duration (seconds 0.017)
:linger-duration (seconds 2)
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 3334 :flags (is-3d launch-asap bit6 bit7) :period (seconds 0.267) :length (seconds 0.03))
(sp-item 3335 :flags (bit6))
)
)
;; failed to figure out what this is:
(defpart 3335
:init-specs ((:texture (glow-soft effects))
(:num 1.0)
(:scale-x (meters 1.75))
(:rot-x (degrees 1.125))
(:scale-y (meters 2.5))
(:r 64.0 64.0)
(:g 255.0)
(:b 0.0)
(:a 12.0 4.0)
(:omega (degrees 1365.75))
(:timer (seconds 0.017))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
(:userdata 1024.0)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3334
:init-specs ((:texture (screen-00 vinroom-sprite))
(:num 1.0)
(:y (meters -0.01))
(:z (meters 0.01))
(:scale-x (meters 1.03))
(:rot-x (degrees 90.75))
(:scale-y (meters 0.603))
(:r 255.0)
(:g 0.0)
(:b 0.0)
(:a 48.0)
(:timer (seconds -0.005))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 left-multiply-quat))
(:userdata :data (new 'static 'boxed-array :type int32
5
1
0
#x3e605800
#x3e605900
#x3e605a00
#x3e605b00
#x3e605c00
#x3e605d00
#x3e605e00
#x3e605f00
#x3e606000
#x3e606100
#x3e606200
#x3e605300
#x3e605400
#x3e605500
#x3e605600
#x3e605700
)
)
(:func 'sparticle-texture-animate)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3336
:init-specs ((:texture (whack-scoreboard-miss hiphog-sprite))
(:num 1.0)
(:x (meters -0.3) 4 (meters 0.15))
(:y (meters -0.225) 3 (meters 0.15))
(:z (meters 0.01))
(:scale-x (meters 0.125))
(:rot-x (degrees 90))
(:rot-y (degrees 0))
(:scale-y :copy scale-x)
(:r 64.0)
(:g 255.0)
(:b 0.0 255.0)
(:a 255.0)
(:timer (seconds 0.017))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:userdata 4096.0)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpartgroup group-whack-scoreboard-points
:id 766
:duration (seconds 0.017)
:linger-duration (seconds 2)
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 3337 :flags (is-3d bit7))
(sp-item 3338 :flags (is-3d bit7))
(sp-item 3339 :flags (is-3d bit7))
(sp-item 3340 :flags (is-3d bit7))
(sp-item 3334 :flags (is-3d launch-asap bit6 bit7) :period (seconds 0.267) :length (seconds 0.03))
(sp-item 3335 :flags (bit6))
)
)
;; definition for function birth-func-whack-score
;; WARN: Return type mismatch int vs none.
(defun birth-func-whack-score ((arg0 sparticle-system)
(arg1 sparticle-cpuinfo)
(arg2 sprite-vec-data-3d)
(arg3 sparticle-launcher)
(arg4 sparticle-launch-state)
)
(let ((v1-0 (the-as (array int32) (-> arg1 user-float))))
(when (nonzero? v1-0)
(+ (-> v1-0 length) -3)
(let* ((a0-4 (-> v1-0 0))
(v1-2 (-> v1-0 (+ (mod
(the int (/ (-> *game-info* score) (cond
((= a0-4 1)
10.0
)
((= a0-4 2)
100.0
)
((= a0-4 3)
1000.0
)
(else
1.0
)
)
)
)
10
)
3
)
)
)
)
(if (nonzero? v1-2)
(particle-adgif-callback (-> arg1 adgif) (the-as texture-id v1-2))
)
)
)
)
0
(none)
)
;; failed to figure out what this is:
(defpart 3337
:init-specs ((:texture (whack-scoreboard-0 hiphog-sprite))
(:birth-func 'birth-func-whack-score)
(:num 1.0)
(:x (meters -0.36))
(:z (meters 0.01))
(:scale-x (meters 0.2))
(:rot-x (degrees 90))
(:rot-y (degrees 0))
(:scale-y (meters 0.4))
(:r 64.0)
(:g 255.0)
(:b 0.0 255.0)
(:a 255.0)
(:timer (seconds 0.017))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:userdata :data (new 'static 'boxed-array :type int32
3
0
0
#x3e604900
#x3e604a00
#x3e604b00
#x3e604c00
#x3e604d00
#x3e604e00
#x3e604f00
#x3e605000
#x3e605100
#x3e605200
)
)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3338
:init-specs ((:texture (whack-scoreboard-0 hiphog-sprite))
(:birth-func 'birth-func-whack-score)
(:num 1.0)
(:x (meters -0.12))
(:z (meters 0.01))
(:scale-x (meters 0.2))
(:rot-x (degrees 90))
(:rot-y (degrees 0))
(:scale-y (meters 0.4))
(:r 64.0)
(:g 255.0)
(:b 0.0 255.0)
(:a 255.0)
(:timer (seconds 0.017))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:userdata :data (new 'static 'boxed-array :type int32
2
0
0
#x3e604900
#x3e604a00
#x3e604b00
#x3e604c00
#x3e604d00
#x3e604e00
#x3e604f00
#x3e605000
#x3e605100
#x3e605200
)
)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3339
:init-specs ((:texture (whack-scoreboard-0 hiphog-sprite))
(:birth-func 'birth-func-whack-score)
(:num 1.0)
(:x (meters 0.12))
(:z (meters 0.01))
(:scale-x (meters 0.2))
(:rot-x (degrees 90))
(:rot-y (degrees 0))
(:scale-y (meters 0.4))
(:r 64.0)
(:g 255.0)
(:b 0.0 255.0)
(:a 255.0)
(:timer (seconds 0.017))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:userdata :data (new 'static 'boxed-array :type int32
1
0
0
#x3e604900
#x3e604a00
#x3e604b00
#x3e604c00
#x3e604d00
#x3e604e00
#x3e604f00
#x3e605000
#x3e605100
#x3e605200
)
)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3340
:init-specs ((:texture (whack-scoreboard-0 hiphog-sprite))
(:birth-func 'birth-func-whack-score)
(:num 1.0)
(:x (meters 0.36))
(:z (meters 0.01))
(:scale-x (meters 0.2))
(:rot-x (degrees 90))
(:rot-y (degrees 0))
(:scale-y (meters 0.4))
(:r 64.0)
(:g 255.0)
(:b 0.0 255.0)
(:a 255.0)
(:timer (seconds 0.017))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:userdata :data (new 'static 'boxed-array :type int32
0
0
0
#x3e604900
#x3e604a00
#x3e604b00
#x3e604c00
#x3e604d00
#x3e604e00
#x3e604f00
#x3e605000
#x3e605100
#x3e605200
)
)
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpartgroup group-whack-miss
:id 767
:duration (seconds 0.067)
:linger-duration (seconds 2)
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 3341 :flags (bit7) :period (seconds 0.5) :length (seconds 0.017)))
)
;; failed to figure out what this is:
(defpart 3341
:init-specs ((:texture (bigpuff effects))
(:num 8.0)
(:scale-x (meters 0.5) (meters 1))
(:rot-z (degrees 0) (degrees 3600))
(:scale-y :copy scale-x)
(:r 0.0 64.0)
(:g :copy r)
(:b :copy g)
(:a 16.0 32.0)
(:vel-y (meters 0.02) (meters 0.01))
(:scalevel-x (meters 0.0033333334))
(:rotvel-z (degrees -0.2) (degrees 0.4))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.16)
(:accel-y (meters -0.00033333333))
(:friction 0.8 0.12)
(:timer (seconds 1))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:conerot-x (degrees 60) (degrees 30))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpartgroup group-whack-hit
:id 768
:duration (seconds 0.067)
:linger-duration (seconds 2)
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 3342 :flags (bit7) :period (seconds 0.5) :length (seconds 0.035))
(sp-item 3343 :flags (bit7) :period (seconds 0.5) :length (seconds 0.035))
(sp-item 3344 :flags (is-3d bit7) :period (seconds 0.5) :length (seconds 0.05))
(sp-item 3345 :flags (is-3d bit7) :period (seconds 0.5) :length (seconds 0.05))
(sp-item 3346 :flags (bit7) :period (seconds 0.5) :length (seconds 0.05))
(sp-item 3347 :period (seconds 0.5) :length (seconds 0.017))
)
)
;; failed to figure out what this is:
(defpart 3347
:init-specs ((:texture (glow effects))
(:num 1.0)
(:y (meters 0))
(:scale-x (meters 1))
(:rot-x (degrees 0.675))
(:scale-y (meters 3))
(:r 32.0 64.0)
(:g 0.0)
(:b 255.0)
(:a 64.0)
(:scalevel-x (meters 0.04))
(:fade-a -2.56)
(:timer (seconds 0.085))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
(:userdata 4096.0)
)
)
;; failed to figure out what this is:
(defpart 3342
:init-specs ((:texture (bigpuff effects))
(:num 32.0)
(:scale-x (meters 0.5) (meters 1))
(:rot-z (degrees 0) (degrees 3600))
(:scale-y :copy scale-x)
(:r 0.0 64.0)
(:g :copy r)
(:b :copy g)
(:a 16.0 32.0)
(:vel-y (meters 0.02) (meters 0.01))
(:scalevel-x (meters 0.0033333334))
(:rotvel-z (degrees -0.2) (degrees 0.4))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.16)
(:accel-y (meters -0.00033333333))
(:friction 0.8 0.12)
(:timer (seconds 1))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:conerot-x (degrees 60) (degrees 30))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3343
:init-specs ((:texture (bigpuff effects))
(:num 8.0)
(:scale-x (meters 0.25) (meters 0.125))
(:rot-z (degrees 0) (degrees 3600))
(:scale-y :copy scale-x)
(:r 0.0 64.0)
(:g :copy r)
(:b :copy g)
(:a 16.0 16.0)
(:vel-y (meters 0.053333335) (meters 0.02))
(:scalevel-x (meters 0.0016666667))
(:rotvel-z (degrees -0.2) (degrees 0.4))
(:scalevel-y :copy scalevel-x)
(:fade-a -0.21333334)
(:accel-y (meters -0.00033333333))
(:friction 0.9 0.02)
(:timer (seconds 0.5))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:conerot-x (degrees 60) (degrees 30))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpart 3344
:init-specs ((:texture (whack-nut hiphog-sprite))
(:birth-func 'birth-func-texture-group)
(:num 8.0)
(:scale-x (meters 0.025) (meters 0.075))
(:scale-y :copy scale-x)
(:r 32.0)
(:g 32.0 16.0)
(:b 48.0 16.0)
(:a 128.0)
(:vel-y (meters 0.02) (meters 0.04))
(:rotvel-x (degrees -4.8) (degrees 9.6))
(:rotvel-y (degrees -4.8) (degrees 9.6))
(:rotvel-z (degrees -4.8) (degrees 9.6))
(:accel-y (meters -0.0033333334) (meters 0.0016666667))
(:friction 0.92 0.04)
(:timer (seconds 1))
(:flags (sp-cpuinfo-flag-2))
(:userdata :data (new 'static 'boxed-array :type int32 40 1 0 #x3e604700 #x3e604600 #xb09b00))
(:next-time (seconds 0.085) (seconds 0.497))
(:next-launcher 3348)
(:conerot-x (degrees 40) (degrees 40))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
(:conerot-radius (meters 0) (meters 0.1))
)
)
;; failed to figure out what this is:
(defpart 3345
:init-specs ((:texture (common-white common))
(:birth-func 'birth-func-texture-group)
(:num 4.0)
(:scale-x (meters 0.025) (meters 0.175))
(:scale-y (meters 0.025) (meters 0.175))
(:r 16.0 8.0)
(:g :copy r)
(:b 24.0 8.0)
(:a 128.0)
(:vel-y (meters 0.02) (meters 0.04))
(:rotvel-x (degrees -4.8) (degrees 9.6))
(:rotvel-y (degrees -4.8) (degrees 9.6))
(:rotvel-z (degrees -4.8) (degrees 9.6))
(:accel-y (meters -0.0033333334) (meters 0.0016666667))
(:friction 0.92 0.04)
(:timer (seconds 1))
(:next-time (seconds 0.085) (seconds 0.497))
(:next-launcher 3349)
(:conerot-x (degrees 40) (degrees 40))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
(:conerot-radius (meters 0) (meters 0.1))
)
)
;; failed to figure out what this is:
(defpart 3349
:init-specs ((:r 32.0 16.0)
(:g :copy r)
(:b 64.0)
(:vel-y (meters 0.0033333334) (meters 0.013333334))
(:next-time (seconds 0.017) (seconds 0.047))
(:next-launcher 3350)
)
)
;; failed to figure out what this is:
(defpart 3350
:init-specs ((:r 16.0 8.0) (:g :copy r) (:b 24.0 8.0))
)
;; failed to figure out what this is:
(defpart 3346
:init-specs ((:texture (whack-spring hiphog-sprite))
(:num 8.0)
(:scale-x (meters 0.025) (meters 0.025))
(:scale-y :copy scale-x)
(:r 32.0)
(:g 32.0 16.0)
(:b 48.0 16.0)
(:a 128.0)
(:omega (degrees 0.005625) (degrees 0.005625))
(:vel-y (meters 0.02) (meters 0.04))
(:accel-y (meters -0.0033333334) (meters 0.0016666667))
(:friction 0.92 0.04)
(:timer (seconds 0.5))
(:flags (sp-cpuinfo-flag-2))
(:func 'sparticle-motion-blur)
(:next-time (seconds 0.085) (seconds 0.497))
(:next-launcher 3348)
(:conerot-x (degrees 40) (degrees 40))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
(:conerot-radius (meters 0) (meters 0.1))
)
)
;; failed to figure out what this is:
(defpart 3348
:init-specs ((:r 64.0 32.0)
(:g 96.0 32.0)
(:b 128.0)
(:vel-y (meters 0.0033333334) (meters 0.013333334))
(:next-time (seconds 0.017) (seconds 0.047))
(:next-launcher 3351)
)
)
;; failed to figure out what this is:
(defpart 3351
:init-specs ((:r 32.0) (:g 32.0 16.0) (:b 48.0 16.0))
)
;; failed to figure out what this is:
(defpartgroup group-whack-shock
:id 769
:duration (seconds 0.1)
:linger-duration (seconds 2)
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 3352 :flags (launch-asap bit6) :period (seconds 0.5) :length (seconds 0.017))
(sp-item 3353 :flags (launch-asap bit6) :period (seconds 0.5) :length (seconds 0.017))
(sp-item 3354 :flags (bit7) :period (seconds 0.5) :length (seconds 0.035))
)
)
;; failed to figure out what this is:
(defpart 3352
:init-specs ((:texture (glow effects))
(:num 1.0)
(:y (meters 0))
(:scale-x (meters 3))
(:rot-x (degrees 0.675))
(:scale-y (meters 5))
(:r 255.0)
(:b 0.0)
(:a 64.0)
(:scalevel-x (meters 0.04))
(:fade-a -1.28)
(:timer (seconds 0.167))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
(:userdata 4096.0)
)
)
;; failed to figure out what this is:
(defpart 3353
:init-specs ((:texture (glow effects))
(:num 1.0)
(:y (meters 0))
(:scale-x (meters 1))
(:rot-x (degrees 0.675))
(:scale-y (meters 2))
(:r 255.0)
(:b 128.0)
(:a 255.0)
(:scalevel-x (meters 0.00625))
(:scalevel-y (meters 0.01875))
(:fade-g 0.8)
(:fade-b -1.6)
(:fade-a -3.1875)
(:timer (seconds 0.535))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
(:userdata 4096.0)
)
)
;; failed to figure out what this is:
(defpart 3354
:init-specs ((:texture (hotdot effects))
(:num 32.0)
(:scale-x (meters 0.1) (meters 0.05))
(:rot-z (degrees 0) (degrees 3600))
(:scale-y :copy scale-x)
(:r 255.0)
(:b 0.0)
(:a 32.0 96.0)
(:omega (degrees 0.0225))
(:vel-y (meters 0.053333335) (meters 0.02))
(:scalevel-x (meters -0.0018750001))
(:rotvel-z (degrees -0.2) (degrees 0.4))
(:scalevel-y :copy scalevel-x)
(:friction 0.85 0.02)
(:timer (seconds 0.267))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
(:func 'sparticle-motion-blur)
(:conerot-x (degrees 50.000004) (degrees 35))
(:conerot-y (degrees 0) (degrees 3600))
(:rotate-y (degrees 0))
)
)
;; failed to figure out what this is:
(defpartgroup group-mole-dizzy
:id 770
:duration (seconds 4)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 3356 :flags (launch-asap) :binding 3355)
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
(sp-item 3355 :flags (start-dead launch-asap))
)
)
;; failed to figure out what this is:
(defpart 3356
:init-specs ((:texture (hotdot effects))
(:num 32.0)
(:scale-x (meters 1))
(:scale-y :copy scale-x)
(:r 128.0)
(:a 0.0)
(:timer (seconds 4))
(:flags (sp-cpuinfo-flag-3))
(:func 'part-tracker-track-root)
)
)
;; failed to figure out what this is:
(defpart 3355
:init-specs ((:texture (glow-hotdot effects))
(:num 1.0)
(:x (meters 0))
(:y (meters -1.3333334) (meters 2.6666667))
(:z (meters 0.25) (meters 0.25))
(:scale-x (meters 0.05) (meters 0.025))
(:rot-x (degrees 2.25))
(:scale-y :copy scale-x)
(:r 128.0 128.0)
(:g 32.0 92.0)
(:b 0.0)
(:a 0.0)
(:omega (degrees 0) (degrees 3600))
(:vel-x (meters -0.053333335) 1 (meters 0.10666667))
(:vel-y (meters 0))
(:vel-z (meters 0.00083333335))
(:fade-a 0.42666668)
(:timer (seconds 10.667))
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 ready-to-launch glow))
(:userdata 0.0)
(:next-time (seconds 0.25) (seconds 0.747))
(:next-launcher 3357)
)
)
;; failed to figure out what this is:
(defpart 3357
:init-specs ((:fade-a 0.0) (:next-time (seconds 0.75) (seconds 0.747)) (:next-launcher 3358))
)
;; failed to figure out what this is:
(defpart 3358
:init-specs ((:fade-a -0.42666668 -0.42666668))
)
;; definition of type hip-mole-event
(deftype hip-mole-event (structure)
((min-time uint16 :offset 0)
(max-time uint16 :offset 2)
(mode uint8 :offset 4)
)
)
;; definition for method 3 of type hip-mole-event
(defmethod inspect ((this hip-mole-event))
(when (not this)
(set! this this)
(goto cfg-4)
)
(format #t "[~8x] ~A~%" this 'hip-mole-event)
(format #t "~1Tmin-time: ~D~%" (-> this min-time))
(format #t "~1Tmax-time: ~D~%" (-> this max-time))
(format #t "~1Tmode: ~D~%" (-> this mode))
(label cfg-4)
this
)
;; definition for symbol *mole-data*, type (array (array hip-mole-event))
(define *mole-data* (the-as (array (array hip-mole-event))
(new 'static 'boxed-array :type array
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x9)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x9)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x8)
(new 'static 'hip-mole-event :min-time #x5dc)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x1)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x2)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x3)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x4)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x5)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x6)
(new 'static 'hip-mole-event :min-time #x5dc :mode #x7)
)
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x5dc :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #xb)
(new 'static 'hip-mole-event :min-time #x258 :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x10e :mode #x9)
(new 'static 'hip-mole-event :min-time #x10e :mode #x9)
(new 'static 'hip-mole-event :min-time #x10e :mode #x8)
(new 'static 'hip-mole-event :min-time #x10e :mode #xb)
(new 'static 'hip-mole-event :min-time #x10e :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #x9)
)
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x546 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xb)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :max-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x1c2 :max-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :max-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x5a :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :max-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :max-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x258 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :max-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :max-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :max-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x10e :mode #x8)
(new 'static 'hip-mole-event :min-time #x10e :mode #xb)
(new 'static 'hip-mole-event :min-time #x10e :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xb)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x10e :mode #xa)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xb)
(new 'static 'hip-mole-event :min-time #xf0 :mode #xb)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xb)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xb)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xb)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x41a :mode #x8)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #x9)
(new 'static 'hip-mole-event :min-time #x384 :mode #xa)
)
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x41a :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x1)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x2)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x3)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x4)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x5)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x6)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x7)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x7)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x6)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x5)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x4)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x3)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x2)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x1)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x7)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x1)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x2)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
)
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x168 :mode #x9)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x8)
(new 'static 'hip-mole-event :min-time #x168 :mode #x9)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x8)
(new 'static 'hip-mole-event :min-time #x168 :mode #xa)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x8)
)
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x3)
(new 'static 'hip-mole-event :min-time #x12c :mode #x1)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c)
(new 'static 'hip-mole-event :min-time #x12c :mode #x2)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x7)
(new 'static 'hip-mole-event :min-time #x12c :mode #x5)
(new 'static 'hip-mole-event :min-time #x12c :mode #x8)
(new 'static 'hip-mole-event :min-time #x2ee)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x4)
(new 'static 'hip-mole-event :min-time #x2ee :mode #xa)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x2)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x6)
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x3)
(new 'static 'hip-mole-event :min-time #x258 :mode #x1)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #x7)
(new 'static 'hip-mole-event :min-time #x258 :mode #x5)
(new 'static 'hip-mole-event :min-time #x384 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x384 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x384 :mode #x8)
(new 'static 'hip-mole-event :min-time #x258 :mode #x9)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xa)
(new 'static 'hip-mole-event :min-time #x258 :mode #xb)
(new 'static 'hip-mole-event :min-time #x384 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x9)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xb)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #xa5 :mode #xa)
(new 'static 'hip-mole-event :min-time #xa5 :mode #x8)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xa)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #xb)
(new 'static 'hip-mole-event :min-time #x4b0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x546 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
)
(new 'static 'boxed-array :type hip-mole-event
(new 'static 'hip-mole-event :min-time #x2ee :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #xa)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #xe1 :mode #x8)
(new 'static 'hip-mole-event :min-time #x168 :mode #x9)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x8)
(new 'static 'hip-mole-event :min-time #x168 :mode #x9)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x8)
(new 'static 'hip-mole-event :min-time #x168 :mode #xa)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xb)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x1c2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x177 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x177 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x177 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x177 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x14a :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x14a :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x14a :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x12c :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xf0 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xd2 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #xb4 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #xa)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
(new 'static 'hip-mole-event :min-time #x96 :mode #x9)
(new 'static 'hip-mole-event :min-time #x96 :mode #x8)
)
)
)
)
;; failed to figure out what this is:
(defskelgroup skel-hip-mole hip-mole hip-mole-lod0-jg hip-mole-up-ja
((hip-mole-lod0-mg (meters 999999)))
:bounds (static-spherem 0 1 0 1.5)
:origin-joint-index 3
)
;; failed to figure out what this is:
(defskelgroup skel-big-bopper big-bopper big-bopper-lod0-jg big-bopper-idle-ja
((big-bopper-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0 0 2)
:origin-joint-index 3
)
;; definition of type hip-mole
(deftype hip-mole (process-drawable)
((cabinet handle)
(index int32)
(mode uint8)
(sound-id sound-id)
(abort? symbol)
)
(:state-methods
idle
(active time-frame uint)
)
)
;; definition for method 3 of type hip-mole
(defmethod inspect ((this hip-mole))
(when (not this)
(set! this this)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 this)
)
(format #t "~2Tcabinet: ~D~%" (-> this cabinet))
(format #t "~2Tindex: ~D~%" (-> this index))
(format #t "~2Tmode: ~D~%" (-> this mode))
(format #t "~2Tsound-id: ~D~%" (-> this sound-id))
(format #t "~2Tabort?: ~A~%" (-> this abort?))
(label cfg-4)
this
)
;; failed to figure out what this is:
(set! (-> *lightning-spec-id-table* 21) (new 'static 'lightning-spec
:name "lightning-hip-mole-deadly"
:flags (lightning-spec-flags lsf0)
:start-color (new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
:end-color (new 'static 'rgba :r #xff :g #xff :b #xff :a #x80)
:fade-to-color (new 'static 'rgba :r #xbf :b #x8f :a #x5)
:fade-start-factor 0.2
:texture (new 'static 'texture-id :index #x83 :page #xc)
:reduction 0.5
:num-points 32
:box-size 2048.0
:merge-factor 0.5
:merge-count 2
:radius 409.6
:duration 30.0
:sound (static-sound-spec "shock")
)
)
;; failed to figure out what this is:
(defstate idle (hip-mole)
:virtual #t
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('active)
(go-virtual active (the-as time-frame (-> block param 0)) (-> block param 1))
)
)
)
:code (behavior ()
(setup-masks (-> self draw) 2 1)
(set-vector! (-> self draw color-mult) 1.0 1.0 1.0 1.0)
(ja-channel-push! 1 (seconds 0.05))
(ja :group! hip-mole-up-ja :num! min)
(sleep-code)
)
:post (behavior ()
(let ((gp-0 (the-as process (as-type (handle->process (-> self cabinet)) process-drawable))))
(when gp-0
(let* ((v1-4 (-> self index))
(v1-5 (cond
((zero? v1-4)
4
)
((= v1-4 1)
5
)
((= v1-4 2)
6
)
((= v1-4 3)
7
)
((= v1-4 4)
8
)
((= v1-4 5)
9
)
((= v1-4 6)
10
)
(else
11
)
)
)
)
(vector<-cspace! (-> self root trans) (-> (the-as process-drawable gp-0) node-list data v1-5))
)
(quaternion-copy! (-> self root quat) (-> (the-as process-drawable gp-0) root quat))
)
)
(ja-post)
)
)
;; failed to figure out what this is:
(defstate active (hip-mole)
:virtual #t
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('touch)
(case (-> self mode)
((10)
(sound-play "whack-wrong")
'die
)
((11)
(sound-play "whack-gold")
(go-virtual idle)
'gold
)
(else
(sound-play "whack-hit")
(go-virtual idle)
)
)
)
(('abort)
(let ((v0-2 (the-as object #t)))
(set! (-> self abort?) (the-as symbol v0-2))
v0-2
)
)
)
)
:enter (behavior ((arg0 time-frame) (arg1 uint))
(set! (-> self mode) arg1)
(case (-> self mode)
((10)
(set-vector! (-> self draw color-mult) 1.0 0.0 0.0 1.0)
)
((11)
(setup-masks (-> self draw) 1 2)
)
)
(sound-play "whack-up")
(set! (-> self sound-id) (sound-play "whack-bounce"))
(set! (-> self abort?) #f)
)
:exit (behavior ()
(sound-stop (-> self sound-id))
)
:trans (behavior ()
(case (-> self mode)
((10)
(when (rand-vu-percent? 0.4)
(let ((gp-0 (vector<-cspace! (new 'stack-no-clear 'vector) (joint-node hip-mole-lod0-jg head)))
(s5-0 (vector<-cspace! (new 'stack-no-clear 'vector) (joint-node hip-mole-lod0-jg head)))
)
(+! (-> gp-0 x) (rand-vu-float-range -1638.4 819.2))
(+! (-> s5-0 x) (rand-vu-float-range -1638.4 819.2))
(+! (-> gp-0 y) (rand-vu-float-range -1228.8 1228.8))
(+! (-> s5-0 y) (rand-vu-float-range -1228.8 1228.8))
(+! (-> gp-0 z) (rand-vu-float-range -1638.4 819.2))
(+! (-> s5-0 z) (rand-vu-float-range -1638.4 819.2))
(process-spawn
lightning-tracker
:init lightning-tracker-init
(-> *lightning-spec-id-table* 21)
0
#f
#f
gp-0
s5-0
:to *entity-pool*
)
)
)
)
)
)
:code (behavior ((arg0 time-frame) (arg1 uint))
(ja-no-eval :group! hip-mole-up-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
(ja-channel-push! 1 (seconds 0.05))
(let ((s5-0 (current-time)))
(while (and (not (time-elapsed? s5-0 arg0)) (not (-> self abort?)))
(ja :group! hip-mole-loop-ja :num! (loop!))
(suspend)
)
)
(ja-channel-push! 1 (seconds 0.05))
(sound-play "whack-down")
(ja-no-eval :group! hip-mole-down-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
(when (not (-> self abort?))
(case (-> self mode)
((10)
)
(else
(send-event (ppointer->process (-> self parent)) 'done)
)
)
)
(go-virtual idle)
)
:post (-> (method-of-type hip-mole idle) post)
)
;; definition for function hip-mole-init
;; WARN: Return type mismatch object vs none.
(defbehavior hip-mole-init hip-mole ((arg0 handle) (arg1 int))
(set! (-> self index) arg1)
(set! (-> self cabinet) arg0)
(set! (-> self abort?) #f)
(set! (-> self level) (level-get *level* 'lwhack))
(set! (-> self root) (new 'process 'trsqv))
(initialize-skeleton
self
(the-as skeleton-group (art-group-get-by-name *level* "skel-hip-mole" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(setup-masks (-> self draw) 2 1)
(go-virtual idle)
(none)
)
;; definition of type whack-a-metal
(deftype whack-a-metal (process-drawable)
((cabinet handle)
(bopper (pointer process))
(mole (pointer hip-mole) 8)
(score-part sparticle-launch-control 2)
(wave int32)
(event int32)
(event-time time-frame)
(event-length time-frame)
(hud-score handle)
(hud-goal handle)
(score float)
(score-time time-frame)
(dizzy? symbol)
(miss-count int32)
(air-attack-count int32)
(slot-buffer int32 4)
(speech-time time-frame)
(speech-count int32)
(speech-last int32 4)
)
(:state-methods
hide
wait-for-start
(active symbol)
(attack int)
lose
win
)
(:methods
(whack-a-metal-method-26 (_type_) integer)
(whack-a-metal-method-27 (_type_) none)
(whack-a-metal-method-28 (_type_) none)
(whack-a-metal-method-29 (_type_ int int) int)
)
)
;; definition for method 3 of type whack-a-metal
(defmethod inspect ((this whack-a-metal))
(when (not this)
(set! this this)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 this)
)
(format #t "~2Tcabinet: ~D~%" (-> this cabinet))
(format #t "~2Tbopper: #x~X~%" (-> this bopper))
(format #t "~2Tmole[8] @ #x~X~%" (-> this mole))
(format #t "~2Tscore-part[2] @ #x~X~%" (-> this score-part))
(format #t "~2Twave: ~D~%" (-> this wave))
(format #t "~2Tevent: ~D~%" (-> this event))
(format #t "~2Tevent-time: ~D~%" (-> this event-time))
(format #t "~2Tevent-length: ~D~%" (-> this event-length))
(format #t "~2Thud-score: ~D~%" (-> this hud-score))
(format #t "~2Thud-goal: ~D~%" (-> this hud-goal))
(format #t "~2Tscore: ~f~%" (-> this score))
(format #t "~2Tscore-time: ~D~%" (-> this score-time))
(format #t "~2Tdizzy?: ~A~%" (-> this dizzy?))
(format #t "~2Tmiss-count: ~D~%" (-> this miss-count))
(format #t "~2Tair-attack-count: ~D~%" (-> this air-attack-count))
(format #t "~2Tslot-buffer[4] @ #x~X~%" (-> this slot-buffer))
(format #t "~2Tspeech-time: ~D~%" (-> this speech-time))
(format #t "~2Tspeech-count: ~D~%" (-> this speech-count))
(format #t "~2Tspeech-last[4] @ #x~X~%" (-> this speech-last))
(label cfg-4)
this
)
;; definition for method 10 of type whack-a-metal
(defmethod deactivate ((this whack-a-metal))
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
(dotimes (s5-0 2)
(if (nonzero? (-> this score-part s5-0))
(kill-and-free-particles (-> this score-part s5-0))
)
)
(call-parent-method this)
(none)
)
;; definition for method 7 of type whack-a-metal
(defmethod relocate ((this whack-a-metal) (offset int))
(dotimes (v1-0 2)
(if (nonzero? (-> this score-part v1-0))
(&+! (-> this score-part v1-0) offset)
)
)
(call-parent-method this offset)
)
;; definition for method 29 of type whack-a-metal
(defmethod whack-a-metal-method-29 ((this whack-a-metal) (arg0 int) (arg1 int))
(let ((v0-1 (mod (+ (-> this speech-last arg0) (rand-vu-int-range 1 2)) arg1)))
(set! (-> this speech-last arg0) v0-1)
v0-1
)
)
;; definition for method 26 of type whack-a-metal
;; WARN: Return type mismatch int vs integer.
(defmethod whack-a-metal-method-26 ((this whack-a-metal))
(if (or (-> this dizzy?) (>= (-> this miss-count) 20))
(return (the-as integer -1))
)
(let ((v0-0
(cond
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons up)
)
0
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons right)
)
1
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons down)
)
2
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons left)
)
3
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons triangle)
)
4
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons circle)
)
5
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons x)
)
6
)
((logtest? (logior (logior (-> *cpad-list* cpads 0 button0-rel 0) (-> *cpad-list* cpads 0 button0-rel 1))
(-> *cpad-list* cpads 0 button0-rel 2)
)
(pad-buttons square)
)
7
)
(else
-1
)
)
)
)
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons up right down left triangle circle x square))
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons up right down left triangle circle x square))
(dotimes (v1-57 4)
(when (< (-> this slot-buffer v1-57) 0)
(set! (-> this slot-buffer v1-57) v0-0)
(goto cfg-30)
)
)
(label cfg-30)
(if (>= (-> this slot-buffer 0) 0)
(return (the-as integer (-> this slot-buffer 0)))
)
v0-0
)
)
;; definition for method 27 of type whack-a-metal
;; WARN: Return type mismatch int vs none.
(defmethod whack-a-metal-method-27 ((this whack-a-metal))
(let ((s4-0 (-> *mole-data* (-> this wave) (-> this event)))
(s5-0 #t)
)
(when (zero? (-> this event-length))
(set! (-> this event-length)
(rand-vu-int-range (the-as int (-> s4-0 min-time)) (the-as int (+ (-> s4-0 min-time) (-> s4-0 max-time))))
)
(set-time! (-> this event-time))
)
(let ((v1-8 (-> s4-0 mode)))
(cond
((= v1-8 8)
(set! s5-0 (time-elapsed? (-> this event-time) (-> this event-length)))
)
((or (= v1-8 9) (= v1-8 10) (= v1-8 11))
(let ((v1-13 (rand-vu-int-range 0 7)))
(let ((s3-0 0))
(while (let ((a0-20 (-> this mole v1-13)))
(and (-> (the-as hip-mole (if a0-20
(the-as hip-mole (-> a0-20 0 self))
)
)
next-state
)
(let ((a0-26 (-> this mole v1-13)))
(= (-> (the-as hip-mole (if a0-26
(the-as hip-mole (-> a0-26 0 self))
)
)
next-state
name
)
'active
)
)
)
)
(set! v1-13 (rand-vu-int-range 0 7))
(+! s3-0 1)
(if (< 100 s3-0)
(goto cfg-27)
)
)
)
(send-event (ppointer->process (-> this mole v1-13)) 'active (-> this event-length) (-> s4-0 mode))
)
(label cfg-27)
)
((or (zero? v1-8) (= v1-8 1) (= v1-8 2) (= v1-8 3) (= v1-8 4) (= v1-8 5) (= v1-8 6) (= v1-8 7))
(let ((v1-22 (the-as int (-> s4-0 mode))))
(let ((s3-1 0))
(while (let ((a0-49 (-> this mole v1-22)))
(and (-> (the-as hip-mole (if a0-49
(the-as hip-mole (-> a0-49 0 self))
)
)
next-state
)
(let ((a0-55 (-> this mole v1-22)))
(= (-> (the-as hip-mole (if a0-55
(the-as hip-mole (-> a0-55 0 self))
)
)
next-state
name
)
'active
)
)
)
)
(set! v1-22 (rand-vu-int-range 0 7))
(+! s3-1 1)
(if (< 100 s3-1)
(goto cfg-61)
)
)
)
(send-event (ppointer->process (-> this mole v1-22)) 'active (-> this event-length) (-> s4-0 mode))
)
)
)
)
(label cfg-61)
(when s5-0
(set! (-> this event-length) 0)
(+! (-> this event) 1)
(when (>= (-> this event) (-> *mole-data* (-> this wave) length))
(set! (-> this event) 0)
(+! (-> this wave) 1)
(if (>= (-> this wave) (-> *mole-data* length))
(set! (-> this wave) (+ (-> *mole-data* length) -1))
)
)
)
)
(when (time-elapsed? (-> this speech-time) (seconds 15))
(if (nonzero? (cond
((= (-> this speech-count) 1)
0
)
((>= (-> this score) 1300.0)
(set! (-> this speech-count) 1)
(let ((v1-50 (whack-a-metal-method-29 this 0 3)))
(cond
((zero? v1-50)
(the-as int (talker-spawn-func (-> *talker-speech* 430) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-50 1)
(the-as int (talker-spawn-func (-> *talker-speech* 431) *entity-pool* (target-pos 0) (the-as region #f)))
)
(else
(the-as int (talker-spawn-func (-> *talker-speech* 432) *entity-pool* (target-pos 0) (the-as region #f)))
)
)
)
)
(else
(let ((v1-55 (whack-a-metal-method-29 this 1 20)))
(cond
((zero? v1-55)
(the-as int (talker-spawn-func (-> *talker-speech* 395) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 1)
(the-as int (talker-spawn-func (-> *talker-speech* 396) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 2)
(the-as int (talker-spawn-func (-> *talker-speech* 397) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 3)
(the-as int (talker-spawn-func (-> *talker-speech* 398) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 4)
(the-as int (talker-spawn-func (-> *talker-speech* 401) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 5)
(the-as int (talker-spawn-func (-> *talker-speech* 403) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 6)
(the-as int (talker-spawn-func (-> *talker-speech* 404) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 7)
(the-as int (talker-spawn-func (-> *talker-speech* 405) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 8)
(the-as int (talker-spawn-func (-> *talker-speech* 406) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 9)
(the-as int (talker-spawn-func (-> *talker-speech* 407) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 10)
(the-as int (talker-spawn-func (-> *talker-speech* 408) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 11)
(the-as int (talker-spawn-func (-> *talker-speech* 409) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 12)
(the-as int (talker-spawn-func (-> *talker-speech* 410) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 13)
(the-as int (talker-spawn-func (-> *talker-speech* 411) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 14)
(the-as int (talker-spawn-func (-> *talker-speech* 412) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 15)
(the-as int (talker-spawn-func (-> *talker-speech* 413) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 16)
(the-as int (talker-spawn-func (-> *talker-speech* 414) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 17)
(the-as int (talker-spawn-func (-> *talker-speech* 415) *entity-pool* (target-pos 0) (the-as region #f)))
)
((= v1-55 18)
(the-as int (talker-spawn-func (-> *talker-speech* 416) *entity-pool* (target-pos 0) (the-as region #f)))
)
(else
(the-as int (talker-spawn-func (-> *talker-speech* 417) *entity-pool* (target-pos 0) (the-as region #f)))
)
)
)
)
)
)
(set-time! (-> this speech-time))
)
)
(whack-a-metal-method-28 this)
0
(none)
)
;; definition for method 28 of type whack-a-metal
;; WARN: Return type mismatch int vs none.
(defmethod whack-a-metal-method-28 ((this whack-a-metal))
(cond
((>= (-> *game-info* score) (-> this score))
(set! (-> *game-info* score) (-> this score))
)
((and (< (-> *game-info* score) (-> this score)) (time-elapsed? (-> this score-time) (seconds 0.1)))
(sound-play "whack-score")
(seek! (-> *game-info* score) (-> this score) 2.0)
(set-time! (-> this score-time))
)
)
(let ((s5-1 (handle->process (-> this cabinet))))
(when s5-1
(spawn-with-matrix
(-> this score-part 1)
(-> (the-as process-drawable s5-1) node-list data 13 bone transform)
)
(spawn-with-matrix
(-> this score-part 0)
(-> (the-as process-drawable s5-1) node-list data 12 bone transform)
)
(dotimes (s4-1 (- 20 (-> this miss-count)))
(set! (-> *part-id-table* 3336 init-specs 2 initial-valuef) (+ -1228.8 (* 614.4 (the float (mod s4-1 5)))))
(set! (-> *part-id-table* 3336 init-specs 2 random-rangef) 0.0)
(set! (-> *part-id-table* 3336 init-specs 3 initial-valuef) (- 921.6 (* 614.4 (the float (/ s4-1 5)))))
(set! (-> *part-id-table* 3336 init-specs 3 random-rangef) 0.0)
(launch-particles
:system *sp-particle-system-3d*
(-> *part-id-table* 3336)
(-> (the-as process-drawable s5-1) node-list data 12 bone transform)
:origin-is-matrix #t
)
)
)
)
0
(none)
)
;; failed to figure out what this is:
(defstate hide (whack-a-metal)
:virtual #t
:code (behavior ()
(ja-channel-set! 0)
(ja-post)
(sleep-code)
)
)
;; failed to figure out what this is:
(defstate wait-for-start (whack-a-metal)
:virtual #t
:code (behavior ()
(while (or (not *target*) (not (process-grab? *target* #f)))
(suspend)
)
(send-event *target* 'draw #f)
(go-virtual active #t)
)
)
;; failed to figure out what this is:
(defstate active (whack-a-metal)
:virtual #t
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('done)
(let ((v0-0 (+ (-> self miss-count) 1)))
(set! (-> self miss-count) v0-0)
v0-0
)
)
)
)
:enter (behavior ((arg0 symbol))
(when arg0
(set! (-> *game-info* score) 0.0)
(sound-play "whack-start")
(add-setting! 'music 'danger3 0.0 0)
(set-setting! 'entity-name (res-lump-struct (-> self entity) 'camera-name structure) 0.0 0)
(set! (-> self bopper) (process-spawn
manipy
:init manipy-init
(-> self root trans)
(entity-by-name "tess-npc-3")
(art-group-get-by-name *level* "skel-big-bopper" (the-as (pointer uint32) #f))
#f
0
:name "big-bopper"
:to self
)
)
(send-event (ppointer->process (-> self bopper)) 'anim-mode 'clone-anim)
(set-setting! 'airlock #f 0.0 0)
(set-setting! 'borrow '((ctywide 1 lwidea #f) (hiphog 0 lwhack special)) 0.0 0)
(want-display-level *load-state* 'ctyport #f)
(want-display-level *load-state* 'ctywide #f)
(set-time! (-> self speech-time))
(if (not (task-node-closed? (game-task-node city-whack-resolution)))
(set! (-> self hud-goal) (ppointer->handle (process-spawn hud-goal :init hud-init-by-other :to self)))
)
)
)
:exit (behavior ()
(when (not (and (-> self next-state) (let ((v1-3 (-> self next-state name)))
(or (= v1-3 'active) (= v1-3 'attack) (= v1-3 'win) (= v1-3 'lose))
)
)
)
(game-info-method-28 *game-info* (game-score whack) (-> self score))
(remove-setting! 'music)
(let ((a0-7 (handle->process (-> self hud-score))))
(if a0-7
(deactivate a0-7)
)
)
(send-event (handle->process (-> self hud-goal)) 'hide-and-die)
(remove-setting! 'entity-name)
(if (and *target* (focus-test? *target* grabbed))
(process-release? *target*)
)
(send-event *target* 'draw #t)
(let ((v1-32 (-> self bopper)))
(if v1-32
(deactivate (-> v1-32 0))
)
)
(remove-setting! 'airlock)
(remove-setting! 'borrow)
(want-display-level *load-state* 'ctyport 'display)
(want-display-level *load-state* 'ctywide 'display)
)
)
:trans (behavior ()
(cond
((or (and *cheat-mode* (cpad-pressed? 0 l1)) (>= (-> self miss-count) 20))
(go-virtual lose)
)
((or (and *cheat-mode* (cpad-pressed? 0 r1))
(and (>= (-> self score) 1500.0) (not (task-node-closed? (game-task-node city-whack-resolution))))
)
(go-virtual win)
)
)
(let ((a0-10 (whack-a-metal-method-26 self)))
(if (>= (the-as int a0-10) 0)
(go-virtual attack (the-as int a0-10))
)
)
(logclear!
(-> *cpad-list* cpads 0 button0-abs 0)
(pad-buttons up right down left l1 r1 triangle circle x square)
)
(logclear!
(-> *cpad-list* cpads 0 button0-rel 0)
(pad-buttons up right down left l1 r1 triangle circle x square)
)
)
:code (behavior ((arg0 symbol))
(let ((gp-0 (cond
((>= (-> self air-attack-count) 10)
daxter-highres-mole-idle-tired-ja
)
(#f
daxter-highres-mole-idle-crazy-ja
)
(else
daxter-highres-mole-idle-ja
)
)
)
)
(set! (-> self air-attack-count) 0)
(when (-> self dizzy?)
(sound-play "whack-dizzy")
(ja-channel-push! 1 (seconds 0.1))
(ja-no-eval :group! daxter-highres-mole-shock-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(when (rand-vu-percent? 0.2)
(let ((v1-26 (process-spawn
lightning-tracker
:init lightning-tracker-init
(-> *lightning-spec-id-table* 21)
0
lightning-probe-callback
self
(vector<-cspace!
(new 'stack-no-clear 'vector)
(-> self node-list data (rand-vu-int-range 3 (+ (-> self node-list length) -1)))
)
(vector<-cspace!
(new 'stack-no-clear 'vector)
(-> self node-list data (rand-vu-int-range 3 (+ (-> self node-list length) -1)))
)
:to self
)
)
)
(when v1-26
(set! (-> (the-as lightning-tracker (-> v1-26 0)) user-time 0) 0)
0
)
)
)
(+! (-> self event-time) (- (current-time) (-> self clock old-frame-counter)))
(ja-blend-eval)
(suspend)
(ja :num! (seek!))
)
(process-spawn part-tracker :init part-tracker-init group-mole-dizzy 0 #f #f self 9 :to *entity-pool*)
(ja-no-eval :group! daxter-highres-mole-idle-shock-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(+! (-> self event-time) (- (current-time) (-> self clock old-frame-counter)))
(suspend)
(ja :num! (seek!))
)
(set! (-> self dizzy?) #f)
(dotimes (v1-85 4)
(set! (-> self slot-buffer v1-85) -1)
)
(ja-no-eval :group! daxter-highres-mole-idle-shock-end-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(+! (-> self event-time) (- (current-time) (-> self clock old-frame-counter)))
(suspend)
(ja :num! (seek!))
)
(set! gp-0 daxter-highres-mole-idle-angry-ja)
)
(ja-channel-push! 1 (seconds 0.2))
(ja :group! gp-0 :num! (identity (ja-aframe 8.0 0)))
(until #f
(ja :group! gp-0 :num! (loop!))
(ja-blend-eval)
(suspend)
)
)
#f
)
:post (behavior ()
(whack-a-metal-method-27 self)
(ja-post)
)
)
;; failed to figure out what this is:
(defstate attack (whack-a-metal)
:virtual #t
:event (-> (method-of-type whack-a-metal active) event)
:exit (-> (method-of-type whack-a-metal active) exit)
:code (behavior ((arg0 int))
(sound-play "whack-swish")
(set-time! (-> self state-time))
(dotimes (v1-3 3)
(set! (-> self slot-buffer v1-3) (-> self slot-buffer (+ v1-3 1)))
)
(set! (-> self slot-buffer 3) -1)
(+! (-> self air-attack-count) 1)
(let* ((v1-9 arg0)
(s5-1 (cond
((zero? v1-9)
daxter-highres-mole-whack0-ja
)
((= v1-9 1)
daxter-highres-mole-whack2-ja
)
((= v1-9 2)
daxter-highres-mole-whack3-ja
)
((= v1-9 3)
daxter-highres-mole-whack1-ja
)
((= v1-9 4)
daxter-highres-mole-whack4-ja
)
((= v1-9 5)
daxter-highres-mole-whack6-ja
)
((= v1-9 6)
daxter-highres-mole-whack7-ja
)
(else
daxter-highres-mole-whack5-ja
)
)
)
(v1-28 (ja-group))
(f30-0 (cond
((and v1-28 (= v1-28 daxter-highres-mole-idle-ja))
0.0
)
((>= (ja-aframe-num 0) 22.0)
0.0
)
(else
6.0
)
)
)
)
(ja-channel-push! 1 (seconds 0.1))
(ja-no-eval :group! s5-1 :num! (seek! (ja-aframe 10.0 0)) :frame-num (ja-aframe f30-0 0))
)
(until (ja-done? 0)
(ja-blend-eval)
(whack-a-metal-method-26 self)
(suspend)
(ja :num! (seek! (ja-aframe 10.0 0)))
)
((lambda :behavior whack-a-metal
((arg0 int))
(let ((gp-0 (matrix-rotate-y! (new 'stack-no-clear 'matrix) -26396.445)))
(let ((a1-2 (matrix-rotate-x! (new 'stack-no-clear 'matrix) 3640.889)))
(matrix*! gp-0 a1-2 gp-0)
)
(set! (-> gp-0 trans quad) (-> self mole arg0 0 root trans quad))
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-3 from) (process->ppointer self))
(set! (-> a1-3 num-params) 0)
(set! (-> a1-3 message) 'touch)
(case (send-event-function (ppointer->process (-> self mole arg0)) a1-3)
(('die)
(process-spawn part-tracker :init part-tracker-init group-whack-shock 0 #f #f #f gp-0 :to *entity-pool*)
(dotimes (v1-15 4)
(set! (-> self slot-buffer v1-15) -1)
)
(set! (-> self dizzy?) #t)
(+! (-> self miss-count) 2)
(let ((v1-22 (whack-a-metal-method-29 self 2 12)))
(cond
((zero? v1-22)
(talker-spawn-func (-> *talker-speech* 418) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 1)
(talker-spawn-func (-> *talker-speech* 419) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 2)
(talker-spawn-func (-> *talker-speech* 420) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 3)
(talker-spawn-func (-> *talker-speech* 421) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 4)
(talker-spawn-func (-> *talker-speech* 422) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 5)
(talker-spawn-func (-> *talker-speech* 423) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 6)
(talker-spawn-func (-> *talker-speech* 424) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 7)
(talker-spawn-func (-> *talker-speech* 425) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 8)
(talker-spawn-func (-> *talker-speech* 426) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 9)
(talker-spawn-func (-> *talker-speech* 427) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 10)
(talker-spawn-func (-> *talker-speech* 428) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-22 11)
(talker-spawn-func (-> *talker-speech* 429) *entity-pool* (target-pos 0) (the-as region #f))
)
)
)
(dotimes (gp-13 8)
(send-event (ppointer->process (-> self mole gp-13)) 'abort)
)
(go-virtual active #f)
)
((#f)
(sound-play "whack-miss")
(process-spawn part-tracker :init part-tracker-init group-whack-miss 0 #f #f #f gp-0 :to *entity-pool*)
)
(('gold)
(process-spawn part-tracker :init part-tracker-init group-whack-hit 0 #f #f #f gp-0 :to *entity-pool*)
(+! (-> self score) 50.0)
)
(else
(when (time-elapsed? (-> self speech-time) (seconds 12))
(let ((v1-78 (whack-a-metal-method-29 self 3 3)))
(cond
((zero? v1-78)
(talker-spawn-func (-> *talker-speech* 399) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-78 1)
(talker-spawn-func (-> *talker-speech* 400) *entity-pool* (target-pos 0) (the-as region #f))
)
(else
(talker-spawn-func (-> *talker-speech* 402) *entity-pool* (target-pos 0) (the-as region #f))
)
)
)
(set-time! (-> self speech-time))
)
(process-spawn part-tracker :init part-tracker-init group-whack-hit 0 #f #f #f gp-0 :to *entity-pool*)
(+! (-> self score) 10.0)
(if (>= (-> self score) 300.0)
(send-event (handle->process (-> self hud-goal)) 'hide-and-die)
)
)
)
)
)
(none)
)
arg0
)
(ja-no-eval :num! (seek!))
(while (not (ja-done? 0))
(let ((gp-1 (whack-a-metal-method-26 self)))
(when (>= (the-as int gp-1) 0)
(if (>= (ja-aframe-num 0) 12.0)
(go-virtual attack (the-as int gp-1))
)
)
)
(suspend)
(ja-eval)
)
(go-virtual active #f)
)
:post (-> (method-of-type whack-a-metal active) post)
)
;; failed to figure out what this is:
(defstate lose (whack-a-metal)
:virtual #t
:exit (-> (method-of-type whack-a-metal active) exit)
:code (behavior ()
(auto-save-user)
(let ((v1-2 (ja-group)))
(when (not (and v1-2 (= v1-2 daxter-highres-mole-idle-tired-ja)))
(ja-channel-push! 1 (seconds 0.1))
(ja :group! daxter-highres-mole-idle-tired-ja)
)
)
(let* ((v1-9 (rand-vu-int-count 8))
(gp-1 (cond
((zero? v1-9)
(talker-spawn-func (-> *talker-speech* 441) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 1)
(talker-spawn-func (-> *talker-speech* 442) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 2)
(talker-spawn-func (-> *talker-speech* 443) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 3)
(talker-spawn-func (-> *talker-speech* 444) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 4)
(talker-spawn-func (-> *talker-speech* 445) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 5)
(talker-spawn-func (-> *talker-speech* 446) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 6)
(talker-spawn-func (-> *talker-speech* 447) *entity-pool* (target-pos 0) (the-as region #f))
)
(else
(talker-spawn-func (-> *talker-speech* 448) *entity-pool* (target-pos 0) (the-as region #f))
)
)
)
(s5-8 (current-time))
)
(while (or (nonzero? (get-status *gui-control* gp-1)) (not (time-elapsed? s5-8 (seconds 2))))
(suspend)
(ja :num! (loop!))
)
)
(let* ((v1-32 (-> *game-info* sub-task-list (game-task-node city-whack-resolution)))
(v1-34 (if (-> v1-32 info)
(-> v1-32 info manager)
(the-as handle #f)
)
)
)
(cond
((handle->process v1-34)
(send-event (handle->process v1-34) 'fail)
(sleep-code)
)
(else
(ja-channel-set! 0)
(ja-post)
(set-blackout-frames (seconds 0.2))
)
)
)
)
:post (behavior ()
(whack-a-metal-method-28 self)
(ja-post)
)
)
;; failed to figure out what this is:
(defstate win (whack-a-metal)
:virtual #t
:exit (-> (method-of-type whack-a-metal active) exit)
:code (behavior ()
(let ((v1-2 (ja-group)))
(when (not (and v1-2 (= v1-2 daxter-highres-mole-idle-crazy-ja)))
(ja-channel-push! 1 (seconds 0.1))
(ja :group! daxter-highres-mole-idle-crazy-ja)
)
)
(let* ((v1-9 (rand-vu-int-count 8))
(gp-1 (cond
((zero? v1-9)
(talker-spawn-func (-> *talker-speech* 433) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 1)
(talker-spawn-func (-> *talker-speech* 434) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 2)
(talker-spawn-func (-> *talker-speech* 435) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 3)
(talker-spawn-func (-> *talker-speech* 436) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 4)
(talker-spawn-func (-> *talker-speech* 437) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 5)
(talker-spawn-func (-> *talker-speech* 438) *entity-pool* (target-pos 0) (the-as region #f))
)
((= v1-9 6)
(talker-spawn-func (-> *talker-speech* 439) *entity-pool* (target-pos 0) (the-as region #f))
)
(else
(talker-spawn-func (-> *talker-speech* 440) *entity-pool* (target-pos 0) (the-as region #f))
)
)
)
(s5-8 (current-time))
)
(while (or (nonzero? (get-status *gui-control* gp-1)) (not (time-elapsed? s5-8 (seconds 2))))
(suspend)
(ja :num! (loop!))
)
)
(let ((a1-11 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-11 from) (process->ppointer self))
(set! (-> a1-11 num-params) 0)
(set! (-> a1-11 message) 'complete)
(let ((t9-20 send-event-function)
(v1-34 (-> *game-info* sub-task-list (game-task-node city-whack-resolution)))
)
(t9-20
(handle->process (if (-> v1-34 info)
(-> v1-34 info manager)
(the-as handle #f)
)
)
a1-11
)
)
)
(ja-channel-set! 0)
(ja-post)
(set-blackout-frames (seconds 0.2))
)
:post (-> (method-of-type whack-a-metal lose) post)
)
;; definition for function whack-a-metal-init
;; WARN: Return type mismatch object vs none.
(defbehavior whack-a-metal-init whack-a-metal ((arg0 entity-actor))
(set! (-> self entity) arg0)
(set! (-> self level) (level-get *level* 'hiphog))
(set! (-> self root) (new 'process 'trsqv))
(process-drawable-from-entity! self arg0)
(initialize-skeleton
self
(the-as skeleton-group (art-group-get-by-name *level* "skel-sidekick-highres" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(logior! (-> self skel status) (joint-control-status blend-shape eye-anim))
(set! (-> self hud-score) (the-as handle #f))
(set! (-> self hud-goal) (the-as handle #f))
(let ((a0-7 (-> arg0 extra process)))
(set! (-> self cabinet) (if a0-7
(process->handle a0-7)
(the-as handle #f)
)
)
)
(dotimes (gp-1 8)
(set! (-> self mole gp-1) (process-spawn hip-mole :init hip-mole-init (-> self cabinet) gp-1 :to self))
)
(set! (-> self dizzy?) #f)
(dotimes (v1-20 4)
(set! (-> self slot-buffer v1-20) -1)
)
(set! (-> self score-part 0) (create-launch-control group-whack-scoreboard-misses self))
(set! (-> self score-part 1) (create-launch-control group-whack-scoreboard-points self))
(set! (-> *game-info* goal) 1500.0)
(dotimes (v1-31 4)
(set! (-> self speech-last v1-31) 0)
)
(go-virtual wait-for-start)
(none)
)
;; failed to figure out what this is:
(set-subtask-hook!
*game-info*
(game-task-node city-whack-resolution)
TASK_MANAGER_INIT_HOOK
(lambda :behavior whack-a-metal () (let ((gp-0 (entity-by-name "hip-whack-a-metal-2")))
(if gp-0
(process-spawn whack-a-metal :init whack-a-metal-init gp-0 :to self)
)
)
)
)
Reference in New Issue View Git Blame Copy Permalink