mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-14 12:34:36 -04:00
Code Issues Packages Projects Releases Wiki Activity

decomp: decompile remaining particle files (#865)

Browse Source 
* decomp: finish `beach-part`

* decomp: finish `citadel-part`

* decomp: finish `robotboss-part`

* decomp: finish `sage-finalboss-part`

* decomp: finish `jungle-part`

* decomp: finish `flut-part`

* decomp: finish `firecanyon-part`

* decomp: finish `village2-part2`

* decomp: finish `swamp-part`

* decomp: finish `maincave-part`

* decomp: finish `sunken-part0-5`

* decomp: finish `ogre-part`

* decomp: finish `robocave-part` and `snow-part`

* decomp: finish `collectables-part`

* decomp: finish `village1-part`

* decomp: finish `village1-part2

* decomp: finish `training-part`

* decomp: finish `misty-part`

* decomp: finish `village2-part`

* decomp: finish `village3-part`

* decomp: finish `lavatube-part`

* decomp: finish `hud-h`, `target-racer-h`, `racer-part`

* address feedback
This commit is contained in:
Tyler Wilding
2021-09-29 20:33:40 -04:00
committed by GitHub
parent b1e987c42f
commit fbcc1542f3
76 changed files with 119899 additions and 933 deletions
Download Patch File Download Diff File Expand all files Collapse all files
decompiler/config/all-types.gc
+385 -711
View File
File diff suppressed because it is too large Load Diff
decompiler/config/jak1_ntsc_black_label/label_types.jsonc
+53
View File
@@ -619,6 +619,7 @@
"hint-control": [
["L45", "(array task-hint-control-group)"]
],
"sparticle-launcher": [
["L192", "adgif-shader"]
],
@@ -724,6 +725,58 @@
["L30", "vector"]
],
"citadel-part": [
["L235", "float", true],
["L236", "float", true],
["L237", "float", true],
["L238", "float", true],
["L242", "uint64", true]
],
"village1-part": [
["L238", "float", true],
["L239", "float", true],
["L240", "float", true],
["L241", "float", true],
["L245", "uint64", true]
],
"sunken-part": [
["L220", "uint64", true]
],
"ogre-part": [
["L93", "uint64", true]
],
"collectables-part": [
["L309", "float", true],
["L310", "float", true]
],
"village1-part2": [
["L122", "float", true],
["L123", "float", true],
["L124", "float", true],
["L125", "uint64", true]
],
"village2-part": [
["L226", "float", true],
["L227", "float", true],
["L228", "float", true],
["L229", "uint64", true],
["L233", "uint64", true]
],
"village3-part": [
["L244", "uint64", true]
],
"lavatube-part": [
["L110", "uint64", true]
],
// please do not add things after this entry! git is dumb.
"object-file-that-doesnt-actually-exist-and-i-just-put-this-here-to-prevent-merge-conflicts-with-this-file": []
}
decompiler/config/jak1_ntsc_black_label/stack_structures.jsonc
+54
View File
@@ -2570,5 +2570,59 @@
[16, "vector"]
],
"check-drop-level-firehose-pops": [
[16, "vector"]
],
"birth-func-random-rot": [
[16, "matrix"],
[80, "vector"],
[96, "vector"]
],
"check-drop-level-bigdoor-open-pops": [
[16, "vector"]
],
"check-drop-level-eichar-lighteco-pops": [
[16, "vector"]
],
"check-drop-level-maincave-drip": [
[16, "vector"]
],
"part-tracker-move-to-target": [
[16, "vector"]
],
"part-tracker-track-target": [
[16, "vector"]
],
"check-drop-level-village1-fountain-nosplash": [
[16, "vector"]
],
"check-drop-level-village1-fountain": [
[16, "vector"]
],
"check-drop-level-sagehut": [
[16, "vector"]
],
"check-drop-level-training-mist": [
[16, "vector"]
],
"check-drop-level-training-spout-rain": [
[16, "vector"]
],
"check-drop-level-sagehut2": [
[16, "vector"]
],
"placeholder-do-not-add-below!": []
}
decompiler/config/jak1_ntsc_black_label/type_casts.jsonc
+46
View File
@@ -3712,5 +3712,51 @@
[118, "v1", "art-joint-anim"]
],
"check-drop-level-maincave-drip": [
[17, "v1", "float"]
],
"snow-bird-bob-func": [
[3, "v1", "process-drawable"]
],
"bird-bob-func": [
[3, "v1", "process-drawable"]
],
"part-tracker-track-root": [
[2, "v1", "process-drawable"]
],
"sparticle-track-root-money": [
[5, "v1", "process-drawable"]
],
"eco-fadeout": [
[2, "v1", "process-drawable"]
],
"eco-track-root-prim-fadeout": [
[2, "v1", "process-drawable"],
[3, "a0", "collide-shape-moving"],
[11, "v1", "process-drawable"]
],
"check-drop-level-sagehut": [
[18, "v1", "float"]
],
"check-drop-level-training-spout-rain": [
[17, "v1", "float"]
],
"check-drop-level-sagehut2": [
[18, "v1", "float"]
],
"tra-bird-bob-func": [
[3, "v1", "process-drawable"]
],
"placeholder-do-not-add-below": []
}
decompiler/util/data_decompile.cpp
+12 -5
View File
@@ -353,16 +353,20 @@ goos::Object decomp_ref_to_inline_array_guess_size(
int end_label_idx =
index_of_closest_following_label_in_segment(start_label.offset, my_seg, labels);
int end_offset = all_words.at(my_seg).size() * 4;
if (end_label_idx < 0) {
throw std::runtime_error(
lg::warn(
"Failed to find label: likely just an unimplemented case for when the data is the last "
"thing in the file.");
} else {
const auto& end_label = labels.at(end_label_idx);
end_offset = end_label.offset;
}
const auto& end_label = labels.at(end_label_idx);
// fmt::print("Data is from {} to {}\n", start_label.name, end_label.name);
// now we can figure out the size
int size_bytes = end_label.offset - start_label.offset;
int size_bytes = end_offset - start_label.offset;
int size_elts = size_bytes / stride; // 32 bytes per ocean-near-index
int leftover_bytes = size_bytes % stride;
// fmt::print("Size is {} bytes ({} elts), with {} bytes left over\n", size_bytes,
@@ -375,8 +379,8 @@ goos::Object decomp_ref_to_inline_array_guess_size(
// .type <some-other-basic's type tag>
// L21: ; label some other basic
// <other basic's data>
int padding_start = end_label.offset - leftover_bytes;
int padding_end = end_label.offset;
int padding_start = end_offset - leftover_bytes;
int padding_end = end_offset;
for (int pad_byte_idx = padding_start; pad_byte_idx < padding_end; pad_byte_idx++) {
auto& word = all_words.at(my_seg).at(pad_byte_idx / 4);
switch (word.kind) {
@@ -782,6 +786,9 @@ goos::Object decompile_structure(const TypeSpec& type,
auto& word = obj_words.at(field_start / 4);
if (word.kind == LinkedWord::PTR) {
if (field.type() == TypeSpec("symbol")) {
continue;
}
field_defs_out.emplace_back(
field.name(),
decompile_at_label(field.type(), labels.at(word.label_id), labels, words, ts, file));
decompiler/util/sparticle_decompile.cpp
+3 -3
View File
@@ -118,7 +118,7 @@ const SparticleFieldDecomp field_kinds[68] = {
{true, FieldKind::FUNCTION}, // SPT_BIRTH_FUNC = 4
{false}, // SPT_JOINT/REFPOINT = 5
{true, FieldKind::FLOAT_WITH_RAND}, // SPT_NUM = 6
{false}, // SPT_SOUND = 7
{true, FieldKind::NO_FANCY_DECOMP}, // SPT_SOUND = 7
{false}, // MISC_FIELDS_END = 8
{false}, // SPRITE_FIELDS_START = 9
{true, FieldKind::METER_WITH_RAND}, // SPT_X = 10
@@ -140,8 +140,8 @@ const SparticleFieldDecomp field_kinds[68] = {
{true, FieldKind::METER_WITH_RAND}, // SPT_VEL_Y = 26
{true, FieldKind::METER_WITH_RAND}, // SPT_VEL_Z = 27
{true, FieldKind::METER_WITH_RAND}, // SPT_SCALEVEL_X = 28
{false}, // SPT_ROTVEL_X = 29
{false}, // SPT_ROTVEL_Y = 30
{true, FieldKind::DEGREES_WITH_RAND}, // SPT_ROTVEL_X = 29
{true, FieldKind::DEGREES_WITH_RAND}, // SPT_ROTVEL_Y = 30
{true, FieldKind::DEGREES_WITH_RAND}, // SPT_ROTVEL_Z = 31
{true, FieldKind::METER_WITH_RAND}, // SPT_SCALEVEL_Y = 32
{true, FieldKind::FLOAT_WITH_RAND}, // SPT_FADE_R = 33
goal_src/engine/ambient/weather-part.gc
+6 -45
View File
@@ -5,7 +5,8 @@
;; name in dgo: weather-part
;; dgos: GAME, ENGINE
;; failed to figure out what this is:
;; DECOMP BEGINS
(set!
(-> *part-group-id-table* 188)
(new 'static 'sparticle-launch-group
@@ -87,10 +88,8 @@
)
)
;; definition for symbol group-rain-screend-drop, type sparticle-launch-group
(define group-rain-screend-drop (-> *part-group-id-table* 188))
;; failed to figure out what this is:
(set!
(-> *part-id-table* 21)
(new 'static 'sparticle-launcher
@@ -117,7 +116,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 22)
(new 'static 'sparticle-launcher
@@ -144,7 +142,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 24)
(new 'static 'sparticle-launcher
@@ -158,7 +155,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 23)
(new 'static 'sparticle-launcher
@@ -182,7 +178,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 25)
(new 'static 'sparticle-launcher
@@ -194,7 +189,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 18)
(new 'static 'sparticle-launcher
@@ -221,7 +215,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 19)
(new 'static 'sparticle-launcher
@@ -248,7 +241,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 26)
(new 'static 'sparticle-launcher
@@ -262,7 +254,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 20)
(new 'static 'sparticle-launcher
@@ -286,7 +277,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 27)
(new 'static 'sparticle-launcher
@@ -298,7 +288,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 34)
(new 'static 'sparticle-launch-group
@@ -317,7 +306,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 28)
(new 'static 'sparticle-launcher
@@ -345,7 +333,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 31)
(new 'static 'sparticle-launcher
@@ -359,7 +346,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 32)
(new 'static 'sparticle-launcher
@@ -371,7 +357,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 29)
(new 'static 'sparticle-launcher
@@ -399,7 +384,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 30)
(new 'static 'sparticle-launcher
@@ -427,7 +411,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 33)
(new 'static 'sparticle-launcher
@@ -458,7 +441,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 34)
(new 'static 'sparticle-launcher
@@ -489,7 +471,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 35)
(new 'static 'sparticle-launcher
@@ -503,7 +484,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 36)
(new 'static 'sparticle-launcher
@@ -515,8 +495,6 @@
)
)
;; definition for function update-snow
;; INFO: Return type mismatch int vs none.
(defun update-snow ((arg0 target))
(let ((gp-0 (-> arg0 control trans)))
(let
@@ -558,7 +536,6 @@
(none)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 37)
(new 'static 'sparticle-launcher
@@ -585,7 +562,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 38)
(new 'static 'sparticle-launcher
@@ -610,7 +586,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 39)
(new 'static 'sparticle-launcher
@@ -636,7 +611,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 40)
(new 'static 'sparticle-launcher
@@ -663,11 +637,12 @@
)
)
;; definition for function check-drop-level-rain
(defun check-drop-level-rain ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 vector))
(defun
check-drop-level-rain
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(sp-kill-particle (the-as sparticle-system arg0) arg1)
(sp-kill-particle arg0 arg1)
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
(sp-launch-particles-var
*sp-particle-system-2d*
@@ -690,8 +665,6 @@
(none)
)
;; definition for function update-rain
;; INFO: Return type mismatch int vs none.
(defun update-rain ((arg0 target))
(with-pp
(let ((a2-0 (new 'stack-no-clear 'vector)))
@@ -763,8 +736,6 @@
)
)
;; definition for function cam-master-effect
;; INFO: Return type mismatch int vs none.
(defbehavior cam-master-effect camera-master ()
(when
(<
@@ -801,8 +772,6 @@
(none)
)
;; definition for function sparticle-track-sun
;; INFO: Return type mismatch int vs none.
(defun sparticle-track-sun ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 matrix))
(-> arg1 key)
(let ((s5-0 (the int (-> arg1 user-float))))
@@ -859,7 +828,6 @@
(none)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 35)
(new 'static 'sparticle-launch-group
@@ -878,7 +846,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1950)
(new 'static 'sparticle-launcher
@@ -901,7 +868,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1951)
(new 'static 'sparticle-launcher
@@ -926,7 +892,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1952)
(new 'static 'sparticle-launcher
@@ -951,7 +916,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 36)
(new 'static 'sparticle-launch-group
@@ -970,7 +934,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1974)
(new 'static 'sparticle-launcher
@@ -993,7 +956,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1975)
(new 'static 'sparticle-launcher
@@ -1018,7 +980,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1976)
(new 'static 'sparticle-launcher
goal_src/engine/game/collectables-part.gc
+3348
View File
File diff suppressed because it is too large Load Diff
goal_src/engine/game/collectables.gc
+2 -5
View File
@@ -12,7 +12,8 @@
(define-extern *money-sg* skeleton-group) ;; unknown type
;; TODO - for entity and beach-rocks
(deftype collectable (process-drawable)
((pickup-type int32 :offset-assert 176)
((root-override collide-shape-moving :score 100 :offset 112)
(pickup-type int32 :offset-assert 176)
(pickup-amount float :offset-assert 180)
(notify-parent basic :offset-assert 184)
(old-base vector :inline :offset-assert 192)
@@ -28,7 +29,6 @@
(pickup-handle handle :offset-assert 304) ;; not sure it's a handle
(actor-pause basic :offset-assert 312)
)
(:methods
(dummy-20 () none 20)
(dummy-21 () none 21)
@@ -39,7 +39,6 @@
:size-assert #x13c
:flag-assert #x1600d0013c
)
(deftype eco-collectable (collectable)
((eco-effect basic :offset-assert 316)
(collect-effect basic :offset-assert 320)
@@ -64,13 +63,11 @@
(dummy-29 () none 29)
(dummy-30 () none 30)
)
:heap-base #x130
:method-count-assert 31
:size-assert #x194
:flag-assert #x1f01300194
)
(deftype fuel-cell (eco-collectable)
((victory-anim basic :offset-assert 404)
(state-object basic :offset-assert 408))
goal_src/engine/sparticle/sparticle-h.gc
+2 -1
View File
@@ -21,6 +21,7 @@
:bitfield #t
:type uint32
(bit0 0)
(bit1 1) ;; village1-part
(bit2 2) ;; cleared after an aux has its func set to add-to-sprite-aux-lst
(bit3 3)
(ready-to-launch 6) ;; maybe just just death?
@@ -122,4 +123,4 @@
(defun-extern kill-all-particles-with-key sparticle-launch-control none)
(define-extern sp-get-particle (function sparticle-system int sparticle-launch-state sparticle-cpuinfo))
(define-extern sp-get-particle (function sparticle-system int sparticle-launch-state sparticle-cpuinfo))
goal_src/engine/sparticle/sparticle-launcher-h.gc
+3 -2
View File
@@ -145,10 +145,10 @@
(random-range int32 :offset 8)
(random-mult int32 :offset 12)
(sym symbol :offset 4) ;; moved
(func function :offset 4)
(func symbol :offset 4)
(tex uint32 :offset 4)
(pntr pointer :offset 4)
;; gap
;; sym used to be here
(sound sound-spec :offset 4)
)
:method-count-assert 9
@@ -357,6 +357,7 @@
(use-local-clock 0)
(always-draw 1)
(screen-space 2)
(unknown-bit-01 3) ;; beach-part
)
(deftype sparticle-launch-group (basic)
goal_src/engine/target/target-h.gc
+25 -21
View File
@@ -5,16 +5,39 @@
;; name in dgo: target-h
;; dgos: GAME, ENGINE
;; definition of type target
(declare-type sidekick basic)
(declare-type collide-cache basic)
(declare-type snowball-info basic)
(declare-type tube-info basic)
(declare-type racer-info basic)
;; TODO - for mood
(define-extern target-joint-pos (function vector)) ;; TODO - unconfirmed
;; TODO - for target-util
(define-extern target-falling (state symbol none))
(define-extern target-slide-down (state none))
;; TODO - for logic-target - defined in shadow
(define-extern do-target-shadow (function none :behavior target))
;; TODO - for logic-target - defined in powerups
(define-extern target-powerup-process (function none))
;; TODO - for logic-target - defined in target-handler
(define-extern target-exit (function none))
(define-extern target-generic-event-handler (function process int symbol event-message-block object))
;; TODO - for logic-target - defined in sidekick
(define-extern init-sidekick (function none)) ;; TODO - not finished
;; TODO - for logic-target - defined in target-death
(define-extern target-continue (state continue-point none))
;; decomp begins
;; definition of type target
(deftype target (process-drawable)
((control control-info :score 100 :offset 112)
(fact-info-target fact-info-target :score 100 :offset 144)
(skel2 basic :offset-assert 176)
(racer basic :offset-assert 180)
(racer racer-info :offset-assert 180)
(game game-info :offset-assert 184)
(neck joint-mod :offset-assert 188)
(state-hook-time uint64 :offset-assert 192)
@@ -66,22 +89,3 @@
(defun-extern stop symbol int)
(defun-extern start symbol continue-point target)
;; TODO - for mood
(define-extern target-joint-pos (function vector)) ;; TODO - unconfirmed
;; TODO - for target-util
(define-extern target-falling (state symbol none))
(define-extern target-slide-down (state none))
;; TODO - for logic-target - defined in shadow
(define-extern do-target-shadow (function none :behavior target))
;; TODO - for logic-target - defined in powerups
(define-extern target-powerup-process (function none))
;; TODO - for logic-target - defined in target-handler
(define-extern target-exit (function none))
(define-extern target-generic-event-handler (function process int symbol event-message-block object))
;; TODO - for logic-target - defined in sidekick
(define-extern init-sidekick (function none)) ;; TODO - not finished
;; TODO - for logic-target - defined in target-death
(define-extern target-continue (state continue-point none))
goal_src/engine/ui/hud-h.gc
+47 -32
View File
@@ -12,35 +12,50 @@
;; TODO - for process-taskable
(define-extern hud-hidden? (function symbol))
;; decomp begins
(defun-extern activate-hud process none)
(defun-extern activate-orb-all int int)
(defun-extern hide-bottom-hud none)
(defun-extern bottom-hud-hidden? symbol)
(declare-type hud process)
(declare-type hud-pickups hud)
(declare-type hud-money hud)
(declare-type hud-fuel-cell hud)
(declare-type hud-health hud)
(declare-type hud-buzzers hud)
(declare-type hud-power hud)
(declare-type hud-bike-speed hud)
(declare-type hud-bike-heat hud)
(declare-type hud-money-all hud)
;; DECOMP BEGINS
;; definition of type hud-icon
(deftype hud-icon (basic)
((icon (pointer manipy) :offset-assert 4)
(icon-y int32 :offset-assert 8)
(icon-x int32 :offset-assert 12)
(icon-z int32 :offset-assert 16)
(scale-x float :offset-assert 20)
(scale-y float :offset-assert 24)
((icon (pointer manipy) :offset-assert 4)
(icon-y int32 :offset-assert 8)
(icon-x int32 :offset-assert 12)
(icon-z int32 :offset-assert 16)
(scale-x float :offset-assert 20)
(scale-y float :offset-assert 24)
)
:method-count-assert 9
:size-assert #x1c
:flag-assert #x90000001c
)
;; definition of type hud-particle
(deftype hud-particle (basic)
((part sparticle-launch-control :offset-assert 4)
(init-pos vector :inline :offset-assert 16)
(pos vector :inline :offset-assert 32)
(prev-pos vector :inline :offset-assert 48)
((part sparticle-launch-control :offset-assert 4)
(init-pos vector :inline :offset-assert 16)
(pos vector :inline :offset-assert 32)
(prev-pos vector :inline :offset-assert 48)
)
:method-count-assert 9
:size-assert #x40
:flag-assert #x900000040
)
;; definition of type hud
(deftype hud (process)
((value int32 :offset-assert 112)
(value2 int32 :offset-assert 116)
@@ -76,11 +91,11 @@
(:methods
(dummy-14 () none 14)
(dummy-15 () none 15)
(dummy-16 () none 16)
(dummy-16 (_type_ int int) none 16)
(dummy-17 () none 17)
(dummy-18 () none 18)
(dummy-19 () none 19)
(dummy-20 () none 20)
(TODO-RENAME-19 (_type_) none 19)
(init-particles! (_type_) none 20)
(dummy-21 () none 21)
(dummy-22 () none 22)
(dummy-23 () none 23)
@@ -90,24 +105,24 @@
)
)
;; definition of type hud-parts
(deftype hud-parts (structure)
((pickups basic :offset-assert 0)
(money basic :offset-assert 4)
(fuel-cell basic :offset-assert 8)
(health basic :offset-assert 12)
(buzzers basic :offset-assert 16)
(power basic :offset-assert 20)
(bike-speed basic :offset-assert 24)
(bike-heat basic :offset-assert 28)
(money-all basic :offset-assert 32)
((pickups (pointer hud-pickups) :offset-assert 0)
(money (pointer hud-money) :offset-assert 4)
(fuel-cell (pointer hud-fuel-cell) :offset-assert 8)
(health (pointer hud-health) :offset-assert 12)
(buzzers (pointer hud-buzzers) :offset-assert 16)
(power (pointer hud-power) :offset-assert 20)
(bike-speed (pointer hud-bike-speed) :offset-assert 24)
(bike-heat (pointer hud-bike-heat) :offset-assert 28)
(money-all (pointer hud-money-all) :offset-assert 32)
)
:method-count-assert 9
:size-assert #x24
:flag-assert #x900000024
)
;; definition for symbol *hud-parts*, type hud-parts
(define
*hud-parts*
(new 'static 'hud-parts
@@ -123,8 +138,8 @@
)
)
(defun-extern activate-hud process none)
(defun-extern activate-orb-all int int)
(defun-extern hide-bottom-hud none)
(defun-extern bottom-hud-hidden? symbol)
0
goal_src/engine/ui/progress/progress-part.gc
+3 -83
View File
@@ -5,6 +5,7 @@
;; name in dgo: progress-part
;; dgos: GAME, ENGINE
;; DECOMP BEGINS
(defun
part-progress-hud-left-func
@@ -16,8 +17,6 @@
(none)
)
;; definition for function part-progress-hud-right-func
;; INFO: Return type mismatch float vs none.
(defun
part-progress-hud-right-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -28,8 +27,6 @@
(none)
)
;; definition for function part-progress-hud-orb-func
;; INFO: Return type mismatch float vs none.
(defun
part-progress-hud-orb-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -38,8 +35,6 @@
(none)
)
;; definition for function part-progress-hud-buzzer-func
;; INFO: Return type mismatch float vs none.
(defun
part-progress-hud-buzzer-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -48,8 +43,6 @@
(none)
)
;; definition for function part-progress-hud-button-func
;; INFO: Return type mismatch float vs none.
(defun
part-progress-hud-button-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -58,8 +51,6 @@
(none)
)
;; definition for function part-progress-hud-tint-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-hud-tint-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -71,8 +62,6 @@
(none)
)
;; definition for function part-progress-card-slot-01-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-card-slot-01-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -86,8 +75,6 @@
(none)
)
;; definition for function part-progress-card-slot-02-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-card-slot-02-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -101,8 +88,6 @@
(none)
)
;; definition for function part-progress-card-slot-03-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-card-slot-03-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -116,8 +101,6 @@
(none)
)
;; definition for function part-progress-card-slot-04-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-card-slot-04-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -131,8 +114,6 @@
(none)
)
;; definition for function part-progress-card-cell-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-card-cell-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -150,8 +131,6 @@
(none)
)
;; definition for function part-progress-save-icon-func
;; INFO: Return type mismatch int vs none.
(defun
part-progress-save-icon-func
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -164,8 +143,7 @@
(none)
)
;; definition for function fuel-cell-progress-hud-orbit-callback
;; INFO: Return type mismatch int vs none.
;; TODO - this has some changes within it to prevent a crash until `generic-obs` is finalized!
(defun
fuel-cell-progress-hud-orbit-callback
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -242,7 +220,7 @@
0
(none)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 85)
(new 'static 'sparticle-launch-group
@@ -260,7 +238,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 86)
(new 'static 'sparticle-launch-group
@@ -278,7 +255,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 87)
(new 'static 'sparticle-launch-group
@@ -295,7 +271,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 88)
(new 'static 'sparticle-launch-group
@@ -312,7 +287,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 89)
(new 'static 'sparticle-launch-group
@@ -329,7 +303,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 90)
(new 'static 'sparticle-launch-group
@@ -346,7 +319,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 91)
(new 'static 'sparticle-launch-group
@@ -365,7 +337,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 570)
(new 'static 'sparticle-launch-group
@@ -382,7 +353,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 571)
(new 'static 'sparticle-launch-group
@@ -399,7 +369,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 572)
(new 'static 'sparticle-launch-group
@@ -416,7 +385,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 573)
(new 'static 'sparticle-launch-group
@@ -433,7 +401,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 92)
(new 'static 'sparticle-launch-group
@@ -450,7 +417,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 93)
(new 'static 'sparticle-launch-group
@@ -467,7 +433,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 94)
(new 'static 'sparticle-launch-group
@@ -484,7 +449,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 95)
(new 'static 'sparticle-launch-group
@@ -501,7 +465,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 96)
(new 'static 'sparticle-launch-group
@@ -519,7 +482,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 337)
(new 'static 'sparticle-launcher
@@ -541,7 +503,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2190)
(new 'static 'sparticle-launcher
@@ -563,7 +524,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2191)
(new 'static 'sparticle-launcher
@@ -586,7 +546,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2192)
(new 'static 'sparticle-launcher
@@ -609,7 +568,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2336)
(new 'static 'sparticle-launcher
@@ -631,7 +589,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2337)
(new 'static 'sparticle-launcher
@@ -653,7 +610,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2338)
(new 'static 'sparticle-launcher
@@ -675,7 +631,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2339)
(new 'static 'sparticle-launcher
@@ -697,7 +652,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2142)
(new 'static 'sparticle-launcher
@@ -719,7 +673,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2143)
(new 'static 'sparticle-launcher
@@ -741,7 +694,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2144)
(new 'static 'sparticle-launcher
@@ -763,7 +715,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2145)
(new 'static 'sparticle-launcher
@@ -785,7 +736,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 332)
(new 'static 'sparticle-launcher
@@ -806,7 +756,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 333)
(new 'static 'sparticle-launcher
@@ -827,7 +776,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 334)
(new 'static 'sparticle-launcher
@@ -848,7 +796,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 335)
(new 'static 'sparticle-launcher
@@ -870,7 +817,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 336)
(new 'static 'sparticle-launcher
@@ -892,7 +838,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 339)
(new 'static 'sparticle-launcher
@@ -915,7 +860,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 340)
(new 'static 'sparticle-launcher
@@ -938,7 +882,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 341)
(new 'static 'sparticle-launcher
@@ -961,7 +904,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 342)
(new 'static 'sparticle-launcher
@@ -984,7 +926,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 343)
(new 'static 'sparticle-launcher
@@ -1007,7 +948,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 338)
(new 'static 'sparticle-launcher
@@ -1030,7 +970,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 344)
(new 'static 'sparticle-launcher
@@ -1042,7 +981,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 345)
(new 'static 'sparticle-launcher
@@ -1074,7 +1012,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 346)
(new 'static 'sparticle-launcher
@@ -1105,7 +1042,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 347)
(new 'static 'sparticle-launcher
@@ -1131,7 +1067,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 348)
(new 'static 'sparticle-launcher
@@ -1157,7 +1092,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 97)
(new 'static 'sparticle-launch-group
@@ -1183,7 +1117,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 98)
(new 'static 'sparticle-launch-group
@@ -1201,7 +1134,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1982)
(new 'static 'sparticle-launcher
@@ -1222,7 +1154,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1981)
(new 'static 'sparticle-launcher
@@ -1249,7 +1180,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 99)
(new 'static 'sparticle-launch-group
@@ -1266,7 +1196,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1983)
(new 'static 'sparticle-launcher
@@ -1287,7 +1216,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 100)
(new 'static 'sparticle-launch-group
@@ -1305,7 +1233,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1985)
(new 'static 'sparticle-launcher
@@ -1326,7 +1253,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1984)
(new 'static 'sparticle-launcher
@@ -1354,7 +1280,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 101)
(new 'static 'sparticle-launch-group
@@ -1371,7 +1296,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1986)
(new 'static 'sparticle-launcher
@@ -1393,7 +1317,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 615)
(new 'static 'sparticle-launch-group
@@ -1410,7 +1333,6 @@
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2478)
(new 'static 'sparticle-launcher
@@ -1432,8 +1354,6 @@
)
)
;; definition for method 34 of type progress
;; INFO: Return type mismatch int vs none.
(defmethod initialize-particles progress ((obj progress))
(when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
(let ((s5-0 (-> obj nb-of-particles)))
goal_src/levels/beach/beach-part.gc
+1128
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/citadel/citadel-part.gc
+2911
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/finalboss/robotboss-part.gc
+4294
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/finalboss/sage-finalboss-part.gc
+1539
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/firecanyon/firecanyon-part.gc
+3943
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/flut_common/flut-part.gc
+175
View File
@@ -5,3 +5,178 @@
;; name in dgo: flut-part
;; dgos: L1, SNO, SWA
;; DECOMP BEGINS
(set!
(-> *part-group-id-table* 120)
(new 'static 'sparticle-launch-group
:length 3
:duration #xbb8
:linger-duration #x5dc
:name "group-flut-trans-pad"
:launcher
(new 'static 'inline-array sparticle-group-item 3
(sp-item 746 :fade-after (meters 160.0))
(sp-item 747 :fade-after (meters 160.0))
(sp-item 748 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
)
:bounds (new 'static 'sphere :w 32768.0)
)
)
(set!
(-> *part-id-table* 746)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 12
(sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
(sp-flt spt-num 0.5)
(sp-flt spt-y (meters 7.0))
(sp-rnd-flt spt-scale-x (meters 14.0) (meters 1.0) 1.0)
(sp-flt spt-scale-y (meters 14.0))
(sp-flt spt-r 40.0)
(sp-rnd-flt spt-g 60.0 60.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 32.0 32.0 1.0)
(sp-int spt-timer 10)
(sp-cpuinfo-flags bit2 bit3)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 747)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 13
(sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
(sp-flt spt-num 0.5)
(sp-flt spt-y (meters 4.0))
(sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
(sp-flt spt-scale-y (meters 14.0))
(sp-flt spt-r 40.0)
(sp-rnd-flt spt-g 60.0 60.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-flt spt-fade-a -8.533334)
(sp-int spt-timer 10)
(sp-cpuinfo-flags bit2 bit3)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 748)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
(sp-flt spt-scale-x (meters 0.0))
(sp-int spt-rot-x 0)
(sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 16.0)
(sp-rnd-flt spt-g 0.0 127.0 1.0)
(sp-flt spt-b 127.0)
(sp-flt spt-a 127.0)
(sp-flt spt-vel-y (meters 0.0))
(sp-flt spt-scalevel-x (meters 0.02))
(sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.21333334)
(sp-flt spt-accel-y -0.6144)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit3)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 121)
(new 'static 'sparticle-launch-group
:length 2
:duration #xa
:linger-duration #x1c2
:name "group-flut-attack-strike-ground"
:launcher
(new 'static 'inline-array sparticle-group-item 2
(sp-item 749)
(sp-item 750)
)
:bounds (new 'static 'sphere :w 8192.0)
)
)
(set!
(-> *part-id-table* 749)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 24.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 8.0 56.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.013333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -1.4222223)
(sp-flt spt-fade-a -0.35555556)
(sp-flt spt-accel-y 0.34133333)
(sp-flt spt-friction 0.7)
(sp-int spt-timer 180)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 751)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 750)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 22
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 32.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 64.0 8.0 1.0)
(sp-flt spt-vel-y (meters 0.3))
(sp-flt spt-scalevel-x (meters 0.0033333334))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -2.8444445)
(sp-flt spt-fade-a -0.82222223)
(sp-flt spt-friction 0.7)
(sp-int spt-timer 90)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 45)
(sp-launcher-by-id spt-next-launcher 751)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
goal_src/levels/jungle/jungle-part.gc
+2226
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/lavatube/lavatube-part.gc
+1025
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/maincave/maincave-part.gc
+437
View File
@@ -5,3 +5,440 @@
;; name in dgo: maincave-part
;; dgos: L1, MAI, MAINCAVE
;; DECOMP BEGINS
(deftype maincave-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
(deftype darkcave-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
(set!
(-> *part-group-id-table* 318)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-part-maincave-torch"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 706 :fade-after (meters 200.0) :falloff-to (meters 220.0))
(sp-item 707 :fade-after (meters 140.0) :falloff-to (meters 140.0))
(sp-item 708 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
(sp-item 709 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
(sp-item 710 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
(sp-item 711 :fade-after (meters 60.0) :falloff-to (meters 60.0))
)
:bounds
(new 'static 'sphere :y 12288.0 :w 16384.0)
)
)
(set!
(-> *part-id-table* 711)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 15
(sp-flt spt-num 0.3)
(sp-flt spt-x (meters 0.2))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-int spt-rot-x 5)
(sp-flt spt-r 4096.0)
(sp-flt spt-g 2867.2)
(sp-flt spt-b 3276.8)
(sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
(sp-flt spt-vel-y (meters 0.026666667))
(sp-int spt-timer 180)
(sp-cpuinfo-flags aux-list)
(sp-int spt-next-time 120)
(sp-launcher-by-id spt-next-launcher 712)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 712)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-b -6.826667)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 706)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-int spt-num 1069547520 1 1.0)
(sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
(sp-rnd-flt spt-z -1433.6 2867.2 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 75)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 713)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a -1.3333334)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 708)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-z -1638.4 3276.8 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 709)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z 0.0 1638.4 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 710)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
(sp-flt spt-y (meters 0.6))
(sp-rnd-flt spt-z -2457.6 2457.6 1.0)
(sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 707)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 28
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 0.4)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
(sp-flt spt-y (meters 0.3))
(sp-rnd-flt spt-z -2048.0 4096.0 1.0)
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 96.0)
(sp-rnd-flt spt-a 16.0 32.0 1.0)
(sp-flt spt-vel-y (meters 0.01))
(sp-flt spt-scalevel-x (meters 0.0005))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.10666667)
(sp-flt spt-fade-g -0.053333335)
(sp-flt spt-fade-b -0.053333335)
(sp-flt spt-fade-a -0.08)
(sp-flt spt-accel-x 0.27306667)
(sp-flt spt-accel-y 0.13653333)
(sp-flt spt-friction 0.9975)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 319)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-cave-cavedrip-1"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 369 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 768 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1167 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1701 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2736 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3831 :length 5)
)
:bounds
(new 'static 'sphere :y 32768.0 :w 33792.0)
)
)
(set!
(-> *part-group-id-table* 320)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-cave-cavedrip-2"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 467 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 834 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 984 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2237 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2597 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3587 :length 5)
)
:bounds
(new 'static 'sphere :y 32768.0 :w 33792.0)
)
)
(set!
(-> *part-group-id-table* 321)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-cave-cavedrip-3"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 801 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 867 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1269 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1983 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2601 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 5061 :length 5)
)
:bounds
(new 'static 'sphere :y 32768.0 :w 33792.0)
)
)
(set!
(-> *part-id-table* 2231)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
(sp-rnd-flt spt-num 3.0 4.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 96.0 32.0 1.0)
(sp-rnd-flt spt-g 112.0 64.0 1.0)
(sp-rnd-flt spt-b 128.0 128.0 1.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-fade-a -0.5688889)
(sp-flt spt-accel-y -2.7306666)
(sp-int spt-timer 225)
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
(sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 60.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2232)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 0.02))
(sp-flt spt-scale-x (meters 0.5))
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 96.0 64.0 1.0)
(sp-rnd-flt spt-g 64.0 16.0 1.0)
(sp-rnd-flt spt-b 192.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -1.2222222)
(sp-int spt-timer 90)
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2230)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
(sp-func spt-birth-func 'birth-func-y->userdata)
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 24.0))
(sp-flt spt-scale-x (meters 0.1))
(sp-flt spt-scale-y (meters 0.4))
(sp-rnd-flt spt-r 96.0 64.0 1.0)
(sp-rnd-flt spt-g 64.0 16.0 1.0)
(sp-rnd-flt spt-b 192.0 32.0 1.0)
(sp-flt spt-a 128.0)
(sp-flt spt-vel-y (meters -0.045714285))
(sp-flt spt-fade-a 0.5688889)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
(sp-flt spt-userdata -98304.0)
(sp-func spt-func 'check-drop-level-maincave-drip)
(sp-int-plain-rnd spt-next-time 150 74 1)
(sp-launcher-by-id spt-next-launcher 2233)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2233)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a 0.0)
(sp-end)
)
)
)
(defun
check-drop-level-maincave-drip
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(sp-kill-particle arg0 arg1)
(let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
(v1-2 (the-as number (logior #x3f800000 v1-1)))
)
(if (< (+ -1.0 (the-as float v1-2)) 0.25)
(sound-play-by-name
(static-sound-name "water-drop")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
(sp-launch-particles-var
*sp-particle-system-2d*
(-> *part-id-table* 2231)
gp-0
(the-as sparticle-launch-state #f)
(the-as sparticle-launch-control #f)
1.0
)
(sp-launch-particles-var
*sp-particle-system-3d*
(-> *part-id-table* 2232)
gp-0
(the-as sparticle-launch-state #f)
(the-as sparticle-launch-control #f)
1.0
)
)
)
(none)
)
goal_src/levels/misty/misty-part.gc
+1513
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/ogre/ogre-part.gc
+937
View File
@@ -5,3 +5,940 @@
;; name in dgo: ogre-part
;; dgos: L1, OGR
;; DECOMP BEGINS
(set!
(-> *part-group-id-table* 464)
(new 'static 'sparticle-launch-group
:length 4
:duration #x5dc
:linger-duration #xbb8
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-column-break"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2193 :period 1500 :length 5)
(sp-item 2194 :period 1500 :length 40)
(sp-item 2195 :period 1500 :length 20)
(sp-item 2196 :period 1500 :length 20)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
(set!
(-> *part-id-table* 2194)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.2) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 64.0 32.0 1.0)
(sp-rnd-flt spt-g 64.0 32.0 1.0)
(sp-flt spt-b 64.0)
(sp-rnd-flt spt-a 32.0 96.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.23333333) 1.0)
(sp-flt spt-scalevel-x (meters -0.0026666666))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.7111111)
(sp-flt spt-fade-b -0.7111111)
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
(sp-flt spt-friction 0.9)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 30 89 1)
(sp-launcher-by-id spt-next-launcher 2197)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2197)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 5
(sp-flt spt-fade-r 0.0)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-b 0.0)
(sp-flt spt-fade-a -1.0666667)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2196)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 17
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 6.0)
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
(sp-flt spt-scale-x (meters 0.6))
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
(sp-flt spt-scale-y (meters 20.0))
(sp-flt spt-r 128.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 96.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-flt spt-scalevel-y (meters 1.5))
(sp-flt spt-fade-g -1.6)
(sp-flt spt-fade-b -1.6)
(sp-flt spt-fade-a -1.6)
(sp-int spt-timer 60)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2193)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 13
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters -4.0))
(sp-flt spt-scale-x (meters 44.0))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-flt spt-g 64.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 128.0)
(sp-flt spt-fade-a -2.3272727)
(sp-int spt-timer 54)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2195)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 24.0)
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 64.0)
(sp-flt spt-g 32.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.12) (meters 0.06666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.026666667))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.28444445)
(sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
(sp-flt spt-friction 0.8)
(sp-int spt-timer 1800)
(sp-cpuinfo-flags bit2 bit14)
(sp-int spt-next-time 42)
(sp-launcher-by-id spt-next-launcher 2198)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2198)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 6
(sp-flt spt-fade-r -0.21333334)
(sp-flt spt-fade-g -0.21333334)
(sp-flt spt-fade-b 0.0)
(sp-int spt-next-time 150)
(sp-launcher-by-id spt-next-launcher 2199)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2199)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 7
(sp-flt spt-fade-r -0.021333333)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-b 0.0)
(sp-flt spt-fade-a -0.08533333)
(sp-int spt-next-time 225)
(sp-launcher-by-id spt-next-launcher 2200)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2200)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 4
(sp-flt spt-fade-r 0.0)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-b 0.0)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 465)
(new 'static 'sparticle-launch-group
:length 1
:duration #x96
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-lava-splash"
:launcher
(new 'static 'inline-array sparticle-group-item 1 (sp-item 2023))
:bounds (new 'static 'sphere :w 49152.0)
)
)
(set!
(-> *part-id-table* 2023)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 64.0 1.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 128.0)
(sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
(sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2 bit14)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 466)
(new 'static 'sparticle-launch-group
:length 4
:duration #x4b
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogre-bridge-splash"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2108)
(sp-item 2109)
(sp-item 2110)
(sp-item 2111)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
(set!
(-> *part-id-table* 2111)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 18
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-rnd-flt spt-num 4.0 4.0 1.0)
(sp-flt spt-y (meters -3.0))
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.75) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-rnd-flt spt-a 128.0 128.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
(sp-flt spt-scalevel-x (meters -0.003))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-accel-y -5.4613333)
(sp-int spt-timer 360)
(sp-cpuinfo-flags bit0 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 1.0))
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2108)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
(sp-flt spt-y (meters -3.0))
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.03529412))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -1.1294118)
(sp-flt spt-friction 0.98)
(sp-int spt-timer 81)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2109)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters 3.0) (meters 4.0) 1.0)
(sp-flt spt-y (meters -3.0))
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.07777778))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -2.8444443)
(sp-flt spt-friction 0.98)
(sp-int spt-timer 42)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2110)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 28
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 4.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
(sp-rnd-flt spt-y (meters -3.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-flt spt-g 255.0)
(sp-flt spt-b 255.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
(sp-flt spt-scalevel-x (meters 0.015555556))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.56666666)
(sp-flt spt-fade-g -0.56666666)
(sp-flt spt-fade-b -0.56666666)
(sp-flt spt-fade-a 0.15)
(sp-flt spt-friction 0.97)
(sp-int spt-timer 450)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 81 80 1)
(sp-launcher-by-id spt-next-launcher 2112)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2112)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a -0.08)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 468)
(new 'static 'sparticle-launch-group
:length 4
:duration #x96
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-boulder-grow"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2201)
(sp-item 2202)
(sp-item 2203)
(sp-item 2204)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
(set!
(-> *part-id-table* 2203)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-rnd-flt spt-g 192.0 64.0 1.0)
(sp-rnd-flt spt-b 128.0 64.0 1.0)
(sp-flt spt-a 0.0)
(sp-flt spt-vel-y (meters -0.13333334))
(sp-flt spt-scalevel-x (meters -0.002))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -6.4)
(sp-flt spt-fade-b -6.4)
(sp-flt spt-fade-a 6.4)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int spt-next-time 20)
(sp-launcher-by-id spt-next-launcher 2205)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 12.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2205)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 5
(sp-flt spt-fade-r -0.85333335)
(sp-flt spt-fade-g -0.42666668)
(sp-flt spt-fade-b -0.42666668)
(sp-flt spt-fade-a -0.85333335)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2204)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
(sp-flt spt-scale-y (meters 16.0))
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 64.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-flt spt-scalevel-y (meters 1.2))
(sp-flt spt-fade-g -1.0666667)
(sp-flt spt-fade-b -1.0666667)
(sp-flt spt-fade-a -1.6)
(sp-int spt-timer 30)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2201)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 13
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 2.0))
(sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 64.0 1.0)
(sp-rnd-flt spt-g 0.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-flt spt-fade-a -2.3272727)
(sp-int spt-timer 5)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2202)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 14
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 2.0))
(sp-rnd-flt spt-scale-x (meters 16.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 196.0 64.0 1.0)
(sp-rnd-flt spt-g 128.0 64.0 1.0)
(sp-rnd-flt spt-b 64.0 64.0 1.0)
(sp-flt spt-a 32.0)
(sp-flt spt-fade-a -2.3272727)
(sp-int spt-timer 10)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 469)
(new 'static 'sparticle-launch-group
:length 2
:duration #xbb8
:linger-duration #x5dc
:name "group-ogreboss-missile"
:launcher
(new 'static 'inline-array sparticle-group-item 2
(sp-item 1933)
(sp-item 1934)
)
:bounds (new 'static 'sphere :w 12288.0)
)
)
(set!
(-> *part-id-table* 1934)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-flt spt-num 0.1 0.3 1.0)
(sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-z -4096.0 8192.0 1.0)
(sp-rnd-flt spt-scale-x (meters 4.8) (meters 0.9) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 48.0 48.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.21333334)
(sp-flt spt-fade-g -0.10666667)
(sp-flt spt-fade-b 0.10666667)
(sp-flt spt-fade-a -0.32)
(sp-flt spt-accel-y -0.027306668)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 1933)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-flt spt-num 0.1 0.3 1.0)
(sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-z -4096.0 8192.0 1.0)
(sp-rnd-flt spt-scale-x (meters 4.0) (meters 0.9) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 80.0 80.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
(sp-flt spt-fade-g -0.53333336)
(sp-flt spt-fade-b -0.17777778)
(sp-flt spt-fade-a -1.0666667)
(sp-flt spt-accel-y -0.027306668)
(sp-int spt-timer 180)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 470)
(new 'static 'sparticle-launch-group
:length 8
:duration #x96
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-pre-missile"
:launcher
(new 'static 'inline-array sparticle-group-item 8
(sp-item 2079 :period 600 :length 5)
(sp-item 2206 :period 600 :length 40)
(sp-item 2206 :period 600 :length 40)
(sp-item 2206 :period 600 :length 30)
(sp-item 2206 :period 600 :length 20)
(sp-item 2082 :period 600 :length 20)
(sp-item 2082 :period 600 :length 10)
(sp-item 2082 :period 600 :length 5)
)
:bounds (new 'static 'sphere :w 12288.0)
)
)
(set!
(-> *part-id-table* 2206)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 192.0 64.0 1.0)
(sp-rnd-flt spt-g 192.0 64.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 32.0 96.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
(sp-flt spt-scalevel-x (meters -0.0026666666))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -2.1333334)
(sp-flt spt-fade-b -1.4222223)
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
(sp-flt spt-friction 0.9)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 30 89 1)
(sp-launcher-by-id spt-next-launcher 2083)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 8.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-group-id-table* 471)
(new 'static 'sparticle-launch-group
:length 4
:duration #x12c
:linger-duration #x5dc
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-missile-impact"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2079 :period 600 :length 5)
(sp-item 2080 :period 600 :length 40)
(sp-item 2148 :period 600 :length 20)
(sp-item 2082 :period 600 :length 20)
)
:bounds (new 'static 'sphere :w 65536.0)
)
)
(set!
(-> *part-group-id-table* 472)
(new 'static 'sparticle-launch-group
:length 15
:duration #xbb8
:linger-duration #x5dc
:name "group-ogre-lava-lava-20x20"
:launcher
(new 'static 'inline-array sparticle-group-item 15
(sp-item 2030 :fade-after (meters 40.0) :falloff-to (meters 40.0))
(sp-item 2031 :fade-after (meters 100.0) :falloff-to (meters 100.0))
(sp-item 2032 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 2028)
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2033 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 2029)
(sp-item 2033 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 2029)
(sp-item 2033 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 2029)
(sp-item 2029 :flags (start-dead))
)
:bounds (new 'static 'sphere :w 57344.0)
)
)
(set!
(-> *part-id-table* 2031)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 0.05)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-flt spt-g 192.0)
(sp-flt spt-b 128.0)
(sp-flt spt-a 0.0)
(sp-flt spt-vel-y (meters 0.01))
(sp-flt spt-scalevel-x (meters 0.0033333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a 0.64)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2)
(sp-int-plain-rnd spt-next-time 37 36 1)
(sp-launcher-by-id spt-next-launcher 2034)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2033)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 17
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-a 255.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
(sp-flt spt-fade-a -12.0)
(sp-int spt-timer 20)
(sp-cpuinfo-flags bit2 bit3)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2032)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
(sp-rnd-flt spt-num 0.02 0.02 1.0)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-a 255.0)
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
(sp-flt spt-fade-g -0.30476192)
(sp-flt spt-accel-y -10.922667)
(sp-int spt-timer 180)
(sp-cpuinfo-flags bit2 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2030)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 18
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-int spt-rot-x 5)
(sp-flt spt-r 8192.0)
(sp-flt spt-g 5324.8)
(sp-flt spt-b 5324.8)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
(sp-flt spt-fade-r 40.96)
(sp-flt spt-fade-g 27.306667)
(sp-flt spt-fade-b 38.229332)
(sp-int spt-timer 150)
(sp-cpuinfo-flags aux-list)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 2035)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2035)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-b 16.384)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2034)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 4
(sp-flt spt-fade-a 0.0)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 2036)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2036)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 5
(sp-flt spt-fade-r -0.85333335)
(sp-flt spt-fade-g -0.42666668)
(sp-int spt-next-time 150)
(sp-launcher-by-id spt-next-launcher 2037)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2037)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 4
(sp-flt spt-fade-r 0.0)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-a -0.10666667)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2028)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 14
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 0.7)
(sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-rnd-flt spt-a 128.0 128.0 1.0)
(sp-flt spt-scalevel-x (meters -0.0029166667))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-accel-y -1.3653333)
(sp-int-plain-rnd spt-timer 30 179 1)
(sp-cpuinfo-flags bit0 bit3)
(sp-flt spt-rotate-y (degrees 45.0))
(sp-end)
)
)
)
(set!
(-> *part-id-table* 2029)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-rnd-flt spt-num 1.0 6.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-rnd-flt spt-a 128.0 128.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
(sp-flt spt-scalevel-x (meters -0.0023333333))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-accel-y -2.7306666)
(sp-int spt-timer 360)
(sp-cpuinfo-flags bit0 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(deftype ogre-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
0
goal_src/levels/racer_common/racer-part.gc
+1497
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL.gc
+168
View File
@@ -5,3 +5,171 @@
;; name in dgo: target-racer-h
;; dgos: FIC, LAV, MIS, OGR, ROL
(define-extern *balloon-sg* skeleton-group)
;; decomp begins
(deftype racer-info (basic)
((entity basic :offset-assert 4)
(bike-trans vector :inline :offset-assert 16)
(bike-quat vector :inline :offset-assert 32)
(bike-scale vector :inline :offset-assert 48)
(mod-x float :offset-assert 64)
(rot vector :inline :offset-assert 80)
(rot-old vector :inline :offset-assert 96)
(rotv vector :inline :offset-assert 112)
(lean-rotx degrees :offset-assert 128)
(change-roty degrees :offset-assert 132)
(change-roty-old degrees :offset-assert 136)
(quat vector :inline :offset-assert 144)
(surface-y meters :offset-assert 160)
(surface-vy meters :offset-assert 164)
(surface-quat vector :inline :offset-assert 176)
(surface-quat-smooth vector :inline :offset-assert 192)
(cushion-base meters :offset-assert 208)
(cushion-offset meters :offset-assert 212)
(cushion-bob meters :offset-assert 216)
(cushion-bob-old meters :offset-assert 220)
(cushion-smush smush-control :inline :offset-assert 224)
(shock-offset meters :offset-assert 256)
(shock-offsetv meters :offset-assert 260)
(shock-rotx meters :offset-assert 264)
(hill-value float :offset-assert 268)
(hill-ground-value float :offset-assert 272)
(hill-offset meters :offset-assert 276)
(hill-rotx degrees :offset-assert 280)
(hill-boost meters :offset-assert 284)
(bob-timer float :offset-assert 288)
(bob-meta-timer float :offset-assert 292)
(bob-meta-meta-timer float :offset-assert 296)
(bob-mult-rot float :offset-assert 300)
(bob-mult-trans float :offset-assert 304)
(bob-period float :offset-assert 308)
(bob-meta-time uint64 :offset-assert 312)
(bob-hit-ground-time uint64 :offset-assert 320)
(cur-rotx degrees :offset-assert 328)
(targ-rotx degrees :offset-assert 332)
(speed-rotx float :offset-assert 336)
(mult-rotx degrees :offset-assert 340)
(front-blade basic :offset-assert 344)
(front-rot degrees :offset-assert 348)
(front-rotv degrees :offset-assert 352)
(bottom-blade basic :offset-assert 356)
(bottom-rot degrees :offset-assert 360)
(front basic :offset-assert 364)
(front-turn degrees :offset-assert 368)
(tail basic :offset-assert 372)
(tail-tilt degrees :offset-assert 376)
(transv-max meters :offset-assert 380)
(slide-down-time uint64 2 :offset-assert 384)
(slide-enter-time uint64 :offset-assert 400)
(slide-mode int32 :offset-assert 408)
(slide-amp float :offset-assert 412)
(slide-grip-mult float :offset-assert 416)
(slide-shift-x float :offset-assert 420)
(slide-interp float :offset-assert 424)
(heat float :offset-assert 428)
(boost-time uint64 :offset-assert 432)
(boost-duration uint64 :offset-assert 440)
(boost-curve float :offset-assert 448)
(boost-level float :offset-assert 452)
(boost-target float :offset-assert 456)
(boost-output float :offset-assert 460)
(hop? basic :offset-assert 464)
(hop-start-y float :offset-assert 468)
(bounce int32 :offset-assert 472)
(bounce-hit float :offset-assert 476)
(engine-sound-id sound-id :offset-assert 480)
(boost-sound-id sound-id :offset-assert 484)
(engine-sound-pitch float :offset-assert 488)
(turn-anim-targ float :offset-assert 492)
(turn-anim-frame float :offset-assert 496)
(turn-anim-vel float :offset-assert 500)
(tail-anim-vel float :offset-assert 504)
(tail-anim-frame float :offset-assert 508)
(rudd-anim-vel float :offset-assert 512)
(rudd-anim-frame float :offset-assert 516)
(racing-time uint64 :offset-assert 520)
(stick-lock basic :offset-assert 528)
(stick-off basic :offset-assert 532)
(heavy basic :offset-assert 536)
(unstuck-time uint64 :offset-assert 544)
(stuck-count int32 :offset-assert 552)
(scrape-sound-id sound-id :offset-assert 556)
(heat-sound-time uint64 :offset-assert 560)
)
:method-count-assert 9
:size-assert #x238
:flag-assert #x900000238
)
;; definition of type racer-bank
(deftype racer-bank (basic)
((slide-hold-time seconds :offset-assert 8)
(heat-max float :offset-assert 16)
(hotcoals-heat-inc float :offset-assert 20)
(lava-heat-inc float :offset-assert 24)
(lava-air-heat-inc float :offset-assert 28)
(surface-heat-inc float :offset-assert 32)
(jump-heat-inc float :offset-assert 36)
(lavatube-hotcoals-heat-inc float :offset-assert 40)
(lavatube-lava-heat-inc float :offset-assert 44)
(lavatube-lava-air-heat-inc float :offset-assert 48)
(lavatube-surface-heat-inc float :offset-assert 52)
(lavatube-jump-heat-inc float :offset-assert 56)
(boost-curve-max meters :offset-assert 60)
(boost-level-max meters :offset-assert 64)
(boost-level-inc meters :offset-assert 68)
(boost-duration seconds :offset-assert 72)
(default-front-blade degrees :offset-assert 80)
(yellow-projectile-speed meters :offset-assert 84)
)
:method-count-assert 9
:size-assert #x58
:flag-assert #x900000058
)
;; definition for symbol *RACER-bank*, type racer-bank
(define
*RACER-bank*
(new 'static 'racer-bank
:slide-hold-time #x3c
:heat-max 100.0
:hotcoals-heat-inc 3.0
:lava-heat-inc 20.0
:lava-air-heat-inc 4.0
:surface-heat-inc 1.0
:jump-heat-inc 2.0
:lavatube-hotcoals-heat-inc 2.0
:lavatube-lava-heat-inc 4.5
:lavatube-lava-air-heat-inc 4.0
:lavatube-surface-heat-inc 1.0
:lavatube-jump-heat-inc 10.0
:boost-curve-max (meters 5.0)
:boost-level-max (meters 12.5)
:boost-level-inc (meters 2.0)
:boost-duration #x2ee
:yellow-projectile-speed (meters 80.0)
)
)
;; failed to figure out what this is:
(let
((v0-4
(new 'static 'skeleton-group
:art-group-name "balloon"
:bounds
(new 'static 'vector :y 6963.2 :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v0-4 jgeo) 0)
(set! (-> v0-4 janim) 3)
(set! (-> v0-4 mgeo 0) (the-as uint 1))
(set! (-> v0-4 lod-dist 0) 81920.0)
(set! (-> v0-4 mgeo 1) (the-as uint 2))
(set! (-> v0-4 lod-dist 1) 4095996000.0)
(set! *balloon-sg* v0-4)
)
goal_src/levels/robocave/robocave-part.gc
+233
View File
@@ -5,3 +5,236 @@
;; name in dgo: robocave-part
;; dgos: L1, ROB
;; DECOMP BEGINS
(deftype robocave-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
(set!
(-> *part-group-id-table* 506)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-part-robocave-torch"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 729 :fade-after (meters 150.0) :falloff-to (meters 180.0))
(sp-item 730 :fade-after (meters 100.0) :falloff-to (meters 100.0))
(sp-item 731 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 600 :length 90)
(sp-item 732 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 69)
(sp-item 733 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
(sp-item 734 :fade-after (meters 30.0) :falloff-to (meters 30.0))
)
:bounds
(new 'static 'sphere :y 12288.0 :w 16384.0)
)
)
(set!
(-> *part-id-table* 734)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 15
(sp-flt spt-num 0.3)
(sp-flt spt-x (meters 0.2))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-int spt-rot-x 5)
(sp-flt spt-r 4096.0)
(sp-flt spt-g 2867.2)
(sp-flt spt-b 3276.8)
(sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
(sp-flt spt-vel-y (meters 0.026666667))
(sp-int spt-timer 180)
(sp-cpuinfo-flags aux-list)
(sp-int spt-next-time 120)
(sp-launcher-by-id spt-next-launcher 735)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 735)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-b -6.826667)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 729)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-int spt-num 1068708659 1 0.5)
(sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
(sp-rnd-flt spt-z -1433.6 2867.2 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 75)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 736)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a -1.3333334)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 731)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-z -1638.4 3276.8 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 732)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z 0.0 1638.4 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 733)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
(sp-flt spt-y (meters 0.6))
(sp-rnd-flt spt-z -2457.6 2457.6 1.0)
(sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
(set!
(-> *part-id-table* 730)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 28
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 0.4)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
(sp-flt spt-y (meters 0.3))
(sp-rnd-flt spt-z -2048.0 4096.0 1.0)
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 96.0)
(sp-rnd-flt spt-a 16.0 32.0 1.0)
(sp-flt spt-vel-y (meters 0.01))
(sp-flt spt-scalevel-x (meters 0.0005))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.10666667)
(sp-flt spt-fade-g -0.053333335)
(sp-flt spt-fade-b -0.053333335)
(sp-flt spt-fade-a -0.08)
(sp-flt spt-accel-x 0.27306667)
(sp-flt spt-accel-y 0.13653333)
(sp-flt spt-friction 0.9975)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
goal_src/levels/snow/snow-part.gc
+1112
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/sunken/sunken-part.gc
+3157
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/sunken/sunken-part2.gc
+2890
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/sunken/sunken-part3.gc
+2004
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/sunken/sunken-part4.gc
+3243
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/sunken/sunken-part5.gc
+1820
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/swamp/swamp-part.gc
+2059
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/training/training-part.gc
+1703
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/village1/assistant.gc
+2 -2
View File
@@ -956,10 +956,10 @@
(defun
check-drop-level-assistant
((arg0 assistant) (arg1 sparticle-cpuinfo) (arg2 vector))
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(sp-kill-particle (the-as sparticle-system arg0) arg1)
(sp-kill-particle arg0 arg1)
(let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
(v1-2 (the-as number (logior #x3f800000 v1-1)))
)
goal_src/levels/village1/village1-part.gc
+2791
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/village1/village1-part2.gc
+2609
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/village2/village2-part.gc
+2809
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/village2/village2-part2.gc
+3859
View File
File diff suppressed because it is too large Load Diff
goal_src/levels/village3/village3-part.gc
+2993
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/engine/ambient/weather-part_REF.gc
Vendored
+4 -6
View File
@@ -660,10 +660,12 @@
)
;; definition for function check-drop-level-rain
(defun check-drop-level-rain ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 vector))
(defun
check-drop-level-rain
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(sp-kill-particle (the-as sparticle-system arg0) arg1)
(sp-kill-particle arg0 arg1)
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
(sp-launch-particles-var
*sp-particle-system-2d*
@@ -1038,7 +1040,3 @@
)
)
)
test/decompiler/reference/engine/game/collectables-part_REF.gc
Vendored
+3486
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/engine/gfx/sparticle/sparticle-launcher-h_REF.gc
Vendored
+1 -1
View File
@@ -12,7 +12,7 @@
(random-range int32 :offset 8)
(random-mult int32 :offset 12)
(sym symbol :offset 4)
(func function :offset 4)
(func symbol :offset 4)
(tex uint32 :offset 4)
(pntr pointer :offset 4)
(sound sound-spec :offset 4)
test/decompiler/reference/engine/target/target-h_REF.gc
Vendored
+1 -1
View File
@@ -6,7 +6,7 @@
((control control-info :offset 112)
(fact-info-target fact-info-target :offset 144)
(skel2 basic :offset-assert 176)
(racer basic :offset-assert 180)
(racer racer-info :offset-assert 180)
(game game-info :offset-assert 184)
(neck joint-mod :offset-assert 188)
(state-hook-time uint64 :offset-assert 192)
test/decompiler/reference/engine/ui/hud-h_REF.gc
Vendored
+12 -12
View File
@@ -85,11 +85,11 @@
(:methods
(dummy-14 () none 14)
(dummy-15 () none 15)
(dummy-16 () none 16)
(dummy-16 (_type_ int int) none 16)
(dummy-17 () none 17)
(dummy-18 () none 18)
(dummy-19 () none 19)
(dummy-20 () none 20)
(TODO-RENAME-19 (_type_) none 19)
(init-particles! (_type_) none 20)
(dummy-21 () none 21)
(dummy-22 () none 22)
(dummy-23 () none 23)
@@ -135,15 +135,15 @@
;; definition of type hud-parts
(deftype hud-parts (structure)
((pickups basic :offset-assert 0)
(money basic :offset-assert 4)
(fuel-cell basic :offset-assert 8)
(health basic :offset-assert 12)
(buzzers basic :offset-assert 16)
(power basic :offset-assert 20)
(bike-speed basic :offset-assert 24)
(bike-heat basic :offset-assert 28)
(money-all basic :offset-assert 32)
((pickups (pointer hud-pickups) :offset-assert 0)
(money (pointer hud-money) :offset-assert 4)
(fuel-cell (pointer hud-fuel-cell) :offset-assert 8)
(health (pointer hud-health) :offset-assert 12)
(buzzers (pointer hud-buzzers) :offset-assert 16)
(power (pointer hud-power) :offset-assert 20)
(bike-speed (pointer hud-bike-speed) :offset-assert 24)
(bike-heat (pointer hud-bike-heat) :offset-assert 28)
(money-all (pointer hud-money-all) :offset-assert 32)
)
:method-count-assert 9
:size-assert #x24
test/decompiler/reference/levels/beach/beach-part_REF.gc
Vendored
+1189
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/citadel/citadel-part_REF.gc
Vendored
+3028
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/finalboss/robotboss-part_REF.gc
Vendored
+4477
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/finalboss/sage-finalboss-part_REF.gc
Vendored
+1607
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/firecanyon/firecanyon-part_REF.gc
Vendored
+4105
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/flut_common/flut-part_REF.gc
Vendored
+183
View File
@@ -0,0 +1,183 @@
;;-*-Lisp-*-
(in-package goal)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 120)
(new 'static 'sparticle-launch-group
:length 3
:duration #xbb8
:linger-duration #x5dc
:name "group-flut-trans-pad"
:launcher
(new 'static 'inline-array sparticle-group-item 3
(sp-item 746 :fade-after (meters 160.0))
(sp-item 747 :fade-after (meters 160.0))
(sp-item 748 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
)
:bounds (new 'static 'sphere :w 32768.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 746)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 12
(sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
(sp-flt spt-num 0.5)
(sp-flt spt-y (meters 7.0))
(sp-rnd-flt spt-scale-x (meters 14.0) (meters 1.0) 1.0)
(sp-flt spt-scale-y (meters 14.0))
(sp-flt spt-r 40.0)
(sp-rnd-flt spt-g 60.0 60.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 32.0 32.0 1.0)
(sp-int spt-timer 10)
(sp-cpuinfo-flags bit2 bit3)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 747)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 13
(sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
(sp-flt spt-num 0.5)
(sp-flt spt-y (meters 4.0))
(sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
(sp-flt spt-scale-y (meters 14.0))
(sp-flt spt-r 40.0)
(sp-rnd-flt spt-g 60.0 60.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-flt spt-fade-a -8.533334)
(sp-int spt-timer 10)
(sp-cpuinfo-flags bit2 bit3)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 748)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
(sp-flt spt-scale-x (meters 0.0))
(sp-int spt-rot-x 0)
(sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 16.0)
(sp-rnd-flt spt-g 0.0 127.0 1.0)
(sp-flt spt-b 127.0)
(sp-flt spt-a 127.0)
(sp-flt spt-vel-y (meters 0.0))
(sp-flt spt-scalevel-x (meters 0.02))
(sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.21333334)
(sp-flt spt-accel-y -0.6144)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit3)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 121)
(new 'static 'sparticle-launch-group
:length 2
:duration #xa
:linger-duration #x1c2
:name "group-flut-attack-strike-ground"
:launcher
(new 'static 'inline-array sparticle-group-item 2
(sp-item 749)
(sp-item 750)
)
:bounds (new 'static 'sphere :w 8192.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 749)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 24.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 8.0 56.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.013333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -1.4222223)
(sp-flt spt-fade-a -0.35555556)
(sp-flt spt-accel-y 0.34133333)
(sp-flt spt-friction 0.7)
(sp-int spt-timer 180)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 751)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 750)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 22
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 32.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 64.0 8.0 1.0)
(sp-flt spt-vel-y (meters 0.3))
(sp-flt spt-scalevel-x (meters 0.0033333334))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -2.8444445)
(sp-flt spt-fade-a -0.82222223)
(sp-flt spt-friction 0.7)
(sp-int spt-timer 90)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 45)
(sp-launcher-by-id spt-next-launcher 751)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
test/decompiler/reference/levels/jungle/jungle-part_REF.gc
Vendored
+2309
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/lavatube/lavatube-part_REF.gc
Vendored
+1078
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/maincave/maincave-part_REF.gc
Vendored
+471
View File
@@ -0,0 +1,471 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type maincave-part
(deftype maincave-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
;; definition for method 3 of type maincave-part
(defmethod inspect maincave-part ((obj maincave-part))
(let ((t9-0 (method-of-type part-spawner inspect)))
(t9-0 obj)
)
obj
)
;; definition of type darkcave-part
(deftype darkcave-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
;; definition for method 3 of type darkcave-part
(defmethod inspect darkcave-part ((obj darkcave-part))
(let ((t9-0 (method-of-type part-spawner inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 318)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-part-maincave-torch"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 706 :fade-after (meters 200.0) :falloff-to (meters 220.0))
(sp-item 707 :fade-after (meters 140.0) :falloff-to (meters 140.0))
(sp-item 708 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
(sp-item 709 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
(sp-item 710 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
(sp-item 711 :fade-after (meters 60.0) :falloff-to (meters 60.0))
)
:bounds
(new 'static 'sphere :y 12288.0 :w 16384.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 711)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 15
(sp-flt spt-num 0.3)
(sp-flt spt-x (meters 0.2))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-int spt-rot-x 5)
(sp-flt spt-r 4096.0)
(sp-flt spt-g 2867.2)
(sp-flt spt-b 3276.8)
(sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
(sp-flt spt-vel-y (meters 0.026666667))
(sp-int spt-timer 180)
(sp-cpuinfo-flags aux-list)
(sp-int spt-next-time 120)
(sp-launcher-by-id spt-next-launcher 712)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 712)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-b -6.826667)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 706)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-int spt-num 1069547520 1 1.0)
(sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
(sp-rnd-flt spt-z -1433.6 2867.2 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 75)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 713)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a -1.3333334)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 708)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-z -1638.4 3276.8 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 709)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z 0.0 1638.4 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 710)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
(sp-flt spt-y (meters 0.6))
(sp-rnd-flt spt-z -2457.6 2457.6 1.0)
(sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 713)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 707)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 28
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 0.4)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
(sp-flt spt-y (meters 0.3))
(sp-rnd-flt spt-z -2048.0 4096.0 1.0)
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 96.0)
(sp-rnd-flt spt-a 16.0 32.0 1.0)
(sp-flt spt-vel-y (meters 0.01))
(sp-flt spt-scalevel-x (meters 0.0005))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.10666667)
(sp-flt spt-fade-g -0.053333335)
(sp-flt spt-fade-b -0.053333335)
(sp-flt spt-fade-a -0.08)
(sp-flt spt-accel-x 0.27306667)
(sp-flt spt-accel-y 0.13653333)
(sp-flt spt-friction 0.9975)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 319)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-cave-cavedrip-1"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 369 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 768 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1167 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1701 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2736 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3831 :length 5)
)
:bounds
(new 'static 'sphere :y 32768.0 :w 33792.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 320)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-cave-cavedrip-2"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 467 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 834 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 984 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2237 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2597 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3587 :length 5)
)
:bounds
(new 'static 'sphere :y 32768.0 :w 33792.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 321)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-cave-cavedrip-3"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 801 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 867 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1269 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1983 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2601 :length 5)
(sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 5061 :length 5)
)
:bounds
(new 'static 'sphere :y 32768.0 :w 33792.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2231)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
(sp-rnd-flt spt-num 3.0 4.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 96.0 32.0 1.0)
(sp-rnd-flt spt-g 112.0 64.0 1.0)
(sp-rnd-flt spt-b 128.0 128.0 1.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-fade-a -0.5688889)
(sp-flt spt-accel-y -2.7306666)
(sp-int spt-timer 225)
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
(sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 60.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2232)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 0.02))
(sp-flt spt-scale-x (meters 0.5))
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 96.0 64.0 1.0)
(sp-rnd-flt spt-g 64.0 16.0 1.0)
(sp-rnd-flt spt-b 192.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -1.2222222)
(sp-int spt-timer 90)
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2230)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
(sp-func spt-birth-func 'birth-func-y->userdata)
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 24.0))
(sp-flt spt-scale-x (meters 0.1))
(sp-flt spt-scale-y (meters 0.4))
(sp-rnd-flt spt-r 96.0 64.0 1.0)
(sp-rnd-flt spt-g 64.0 16.0 1.0)
(sp-rnd-flt spt-b 192.0 32.0 1.0)
(sp-flt spt-a 128.0)
(sp-flt spt-vel-y (meters -0.045714285))
(sp-flt spt-fade-a 0.5688889)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
(sp-flt spt-userdata -98304.0)
(sp-func spt-func 'check-drop-level-maincave-drip)
(sp-int-plain-rnd spt-next-time 150 74 1)
(sp-launcher-by-id spt-next-launcher 2233)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2233)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a 0.0)
(sp-end)
)
)
)
;; definition for function check-drop-level-maincave-drip
(defun
check-drop-level-maincave-drip
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(sp-kill-particle arg0 arg1)
(let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
(v1-2 (the-as number (logior #x3f800000 v1-1)))
)
(if (< (+ -1.0 (the-as float v1-2)) 0.25)
(sound-play-by-name
(static-sound-name "water-drop")
(new-sound-id)
1024
0
0
(the-as uint 1)
(the-as vector #t)
)
)
)
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
(sp-launch-particles-var
*sp-particle-system-2d*
(-> *part-id-table* 2231)
gp-0
(the-as sparticle-launch-state #f)
(the-as sparticle-launch-control #f)
1.0
)
(sp-launch-particles-var
*sp-particle-system-3d*
(-> *part-id-table* 2232)
gp-0
(the-as sparticle-launch-state #f)
(the-as sparticle-launch-control #f)
1.0
)
)
)
(none)
)
test/decompiler/reference/levels/misty/misty-part_REF.gc
Vendored
+1578
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/ogre/ogre-part_REF.gc
Vendored
+987
View File
@@ -0,0 +1,987 @@
;;-*-Lisp-*-
(in-package goal)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 464)
(new 'static 'sparticle-launch-group
:length 4
:duration #x5dc
:linger-duration #xbb8
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-column-break"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2193 :period 1500 :length 5)
(sp-item 2194 :period 1500 :length 40)
(sp-item 2195 :period 1500 :length 20)
(sp-item 2196 :period 1500 :length 20)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2194)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.2) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 64.0 32.0 1.0)
(sp-rnd-flt spt-g 64.0 32.0 1.0)
(sp-flt spt-b 64.0)
(sp-rnd-flt spt-a 32.0 96.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.23333333) 1.0)
(sp-flt spt-scalevel-x (meters -0.0026666666))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.7111111)
(sp-flt spt-fade-b -0.7111111)
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
(sp-flt spt-friction 0.9)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 30 89 1)
(sp-launcher-by-id spt-next-launcher 2197)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2197)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 5
(sp-flt spt-fade-r 0.0)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-b 0.0)
(sp-flt spt-fade-a -1.0666667)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2196)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 17
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 6.0)
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
(sp-flt spt-scale-x (meters 0.6))
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
(sp-flt spt-scale-y (meters 20.0))
(sp-flt spt-r 128.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 96.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-flt spt-scalevel-y (meters 1.5))
(sp-flt spt-fade-g -1.6)
(sp-flt spt-fade-b -1.6)
(sp-flt spt-fade-a -1.6)
(sp-int spt-timer 60)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2193)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 13
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters -4.0))
(sp-flt spt-scale-x (meters 44.0))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-flt spt-g 64.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 128.0)
(sp-flt spt-fade-a -2.3272727)
(sp-int spt-timer 54)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2195)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 24.0)
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 64.0)
(sp-flt spt-g 32.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.12) (meters 0.06666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.026666667))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.28444445)
(sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
(sp-flt spt-friction 0.8)
(sp-int spt-timer 1800)
(sp-cpuinfo-flags bit2 bit14)
(sp-int spt-next-time 42)
(sp-launcher-by-id spt-next-launcher 2198)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2198)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 6
(sp-flt spt-fade-r -0.21333334)
(sp-flt spt-fade-g -0.21333334)
(sp-flt spt-fade-b 0.0)
(sp-int spt-next-time 150)
(sp-launcher-by-id spt-next-launcher 2199)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2199)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 7
(sp-flt spt-fade-r -0.021333333)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-b 0.0)
(sp-flt spt-fade-a -0.08533333)
(sp-int spt-next-time 225)
(sp-launcher-by-id spt-next-launcher 2200)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2200)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 4
(sp-flt spt-fade-r 0.0)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-b 0.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 465)
(new 'static 'sparticle-launch-group
:length 1
:duration #x96
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-lava-splash"
:launcher
(new 'static 'inline-array sparticle-group-item 1 (sp-item 2023))
:bounds (new 'static 'sphere :w 49152.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2023)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 64.0 1.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 128.0)
(sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
(sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2 bit14)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 466)
(new 'static 'sparticle-launch-group
:length 4
:duration #x4b
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogre-bridge-splash"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2108)
(sp-item 2109)
(sp-item 2110)
(sp-item 2111)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2111)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 18
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-rnd-flt spt-num 4.0 4.0 1.0)
(sp-flt spt-y (meters -3.0))
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.75) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-rnd-flt spt-a 128.0 128.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
(sp-flt spt-scalevel-x (meters -0.003))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-accel-y -5.4613333)
(sp-int spt-timer 360)
(sp-cpuinfo-flags bit0 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 1.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2108)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
(sp-flt spt-y (meters -3.0))
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.03529412))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -1.1294118)
(sp-flt spt-friction 0.98)
(sp-int spt-timer 81)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2109)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters 3.0) (meters 4.0) 1.0)
(sp-flt spt-y (meters -3.0))
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.07777778))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -2.8444443)
(sp-flt spt-friction 0.98)
(sp-int spt-timer 42)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2110)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 28
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 4.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
(sp-rnd-flt spt-y (meters -3.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-flt spt-g 255.0)
(sp-flt spt-b 255.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
(sp-flt spt-scalevel-x (meters 0.015555556))
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.56666666)
(sp-flt spt-fade-g -0.56666666)
(sp-flt spt-fade-b -0.56666666)
(sp-flt spt-fade-a 0.15)
(sp-flt spt-friction 0.97)
(sp-int spt-timer 450)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 81 80 1)
(sp-launcher-by-id spt-next-launcher 2112)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2112)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a -0.08)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 468)
(new 'static 'sparticle-launch-group
:length 4
:duration #x96
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-boulder-grow"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2201)
(sp-item 2202)
(sp-item 2203)
(sp-item 2204)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2203)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-rnd-flt spt-g 192.0 64.0 1.0)
(sp-rnd-flt spt-b 128.0 64.0 1.0)
(sp-flt spt-a 0.0)
(sp-flt spt-vel-y (meters -0.13333334))
(sp-flt spt-scalevel-x (meters -0.002))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -6.4)
(sp-flt spt-fade-b -6.4)
(sp-flt spt-fade-a 6.4)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int spt-next-time 20)
(sp-launcher-by-id spt-next-launcher 2205)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 12.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2205)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 5
(sp-flt spt-fade-r -0.85333335)
(sp-flt spt-fade-g -0.42666668)
(sp-flt spt-fade-b -0.42666668)
(sp-flt spt-fade-a -0.85333335)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2204)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
(sp-flt spt-scale-y (meters 16.0))
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 64.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-flt spt-scalevel-y (meters 1.2))
(sp-flt spt-fade-g -1.0666667)
(sp-flt spt-fade-b -1.0666667)
(sp-flt spt-fade-a -1.6)
(sp-int spt-timer 30)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2201)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 13
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 2.0))
(sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 64.0 1.0)
(sp-rnd-flt spt-g 0.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-flt spt-fade-a -2.3272727)
(sp-int spt-timer 5)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2202)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 14
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-y (meters 2.0))
(sp-rnd-flt spt-scale-x (meters 16.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 196.0 64.0 1.0)
(sp-rnd-flt spt-g 128.0 64.0 1.0)
(sp-rnd-flt spt-b 64.0 64.0 1.0)
(sp-flt spt-a 32.0)
(sp-flt spt-fade-a -2.3272727)
(sp-int spt-timer 10)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 469)
(new 'static 'sparticle-launch-group
:length 2
:duration #xbb8
:linger-duration #x5dc
:name "group-ogreboss-missile"
:launcher
(new 'static 'inline-array sparticle-group-item 2
(sp-item 1933)
(sp-item 1934)
)
:bounds (new 'static 'sphere :w 12288.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1934)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-flt spt-num 0.1 0.3 1.0)
(sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-z -4096.0 8192.0 1.0)
(sp-rnd-flt spt-scale-x (meters 4.8) (meters 0.9) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 48.0 48.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.21333334)
(sp-flt spt-fade-g -0.10666667)
(sp-flt spt-fade-b 0.10666667)
(sp-flt spt-fade-a -0.32)
(sp-flt spt-accel-y -0.027306668)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 1933)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-flt spt-num 0.1 0.3 1.0)
(sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
(sp-rnd-flt spt-z -4096.0 8192.0 1.0)
(sp-rnd-flt spt-scale-x (meters 4.0) (meters 0.9) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 80.0 80.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
(sp-flt spt-fade-g -0.53333336)
(sp-flt spt-fade-b -0.17777778)
(sp-flt spt-fade-a -1.0666667)
(sp-flt spt-accel-y -0.027306668)
(sp-int spt-timer 180)
(sp-cpuinfo-flags bit2 bit3 bit14)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 470)
(new 'static 'sparticle-launch-group
:length 8
:duration #x96
:linger-duration #x258
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-pre-missile"
:launcher
(new 'static 'inline-array sparticle-group-item 8
(sp-item 2079 :period 600 :length 5)
(sp-item 2206 :period 600 :length 40)
(sp-item 2206 :period 600 :length 40)
(sp-item 2206 :period 600 :length 30)
(sp-item 2206 :period 600 :length 20)
(sp-item 2082 :period 600 :length 20)
(sp-item 2082 :period 600 :length 10)
(sp-item 2082 :period 600 :length 5)
)
:bounds (new 'static 'sphere :w 12288.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2206)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 192.0 64.0 1.0)
(sp-rnd-flt spt-g 192.0 64.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 32.0 96.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
(sp-flt spt-scalevel-x (meters -0.0026666666))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -2.1333334)
(sp-flt spt-fade-b -1.4222223)
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
(sp-flt spt-friction 0.9)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 30 89 1)
(sp-launcher-by-id spt-next-launcher 2083)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 8.0) 1.0)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 471)
(new 'static 'sparticle-launch-group
:length 4
:duration #x12c
:linger-duration #x5dc
:flags (sp-group-flag use-local-clock)
:name "group-ogreboss-missile-impact"
:launcher
(new 'static 'inline-array sparticle-group-item 4
(sp-item 2079 :period 600 :length 5)
(sp-item 2080 :period 600 :length 40)
(sp-item 2148 :period 600 :length 20)
(sp-item 2082 :period 600 :length 20)
)
:bounds (new 'static 'sphere :w 65536.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 472)
(new 'static 'sparticle-launch-group
:length 15
:duration #xbb8
:linger-duration #x5dc
:name "group-ogre-lava-lava-20x20"
:launcher
(new 'static 'inline-array sparticle-group-item 15
(sp-item 2030 :fade-after (meters 40.0) :falloff-to (meters 40.0))
(sp-item 2031 :fade-after (meters 100.0) :falloff-to (meters 100.0))
(sp-item 2032 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 2028)
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2028 :flags (start-dead))
(sp-item 2033 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 2029)
(sp-item 2033 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 2029)
(sp-item 2033 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 2029)
(sp-item 2029 :flags (start-dead))
)
:bounds (new 'static 'sphere :w 57344.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2031)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 0.05)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-flt spt-g 192.0)
(sp-flt spt-b 128.0)
(sp-flt spt-a 0.0)
(sp-flt spt-vel-y (meters 0.01))
(sp-flt spt-scalevel-x (meters 0.0033333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a 0.64)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2)
(sp-int-plain-rnd spt-next-time 37 36 1)
(sp-launcher-by-id spt-next-launcher 2034)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2033)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 17
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-a 255.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
(sp-flt spt-fade-a -12.0)
(sp-int spt-timer 20)
(sp-cpuinfo-flags bit2 bit3)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2032)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
(sp-rnd-flt spt-num 0.02 0.02 1.0)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-flt spt-a 255.0)
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
(sp-flt spt-fade-g -0.30476192)
(sp-flt spt-accel-y -10.922667)
(sp-int spt-timer 180)
(sp-cpuinfo-flags bit2 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2030)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 18
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
(sp-int spt-rot-x 5)
(sp-flt spt-r 8192.0)
(sp-flt spt-g 5324.8)
(sp-flt spt-b 5324.8)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
(sp-flt spt-fade-r 40.96)
(sp-flt spt-fade-g 27.306667)
(sp-flt spt-fade-b 38.229332)
(sp-int spt-timer 150)
(sp-cpuinfo-flags aux-list)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 2035)
(sp-flt spt-rotate-y (degrees 0.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2035)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-b 16.384)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2034)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 4
(sp-flt spt-fade-a 0.0)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 2036)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2036)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 5
(sp-flt spt-fade-r -0.85333335)
(sp-flt spt-fade-g -0.42666668)
(sp-int spt-next-time 150)
(sp-launcher-by-id spt-next-launcher 2037)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2037)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 4
(sp-flt spt-fade-r 0.0)
(sp-flt spt-fade-g 0.0)
(sp-flt spt-fade-a -0.10666667)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2028)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 14
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 0.7)
(sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-rnd-flt spt-a 128.0 128.0 1.0)
(sp-flt spt-scalevel-x (meters -0.0029166667))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-accel-y -1.3653333)
(sp-int-plain-rnd spt-timer 30 179 1)
(sp-cpuinfo-flags bit0 bit3)
(sp-flt spt-rotate-y (degrees 45.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 2029)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 16
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-rnd-flt spt-num 1.0 6.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 256.0)
(sp-rnd-flt spt-g 0.0 128.0 1.0)
(sp-rnd-flt spt-a 128.0 128.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
(sp-flt spt-scalevel-x (meters -0.0023333333))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-accel-y -2.7306666)
(sp-int spt-timer 360)
(sp-cpuinfo-flags bit0 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; definition of type ogre-part
(deftype ogre-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
;; definition for method 3 of type ogre-part
(defmethod inspect ogre-part ((obj ogre-part))
(let ((t9-0 (method-of-type part-spawner inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
0
test/decompiler/reference/levels/racer_common/racer-part_REF.gc
Vendored
+1577
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL_REF.gc
Vendored
+305
View File
@@ -0,0 +1,305 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type racer-info
(deftype racer-info (basic)
((entity basic :offset-assert 4)
(bike-trans vector :inline :offset-assert 16)
(bike-quat vector :inline :offset-assert 32)
(bike-scale vector :inline :offset-assert 48)
(mod-x float :offset-assert 64)
(rot vector :inline :offset-assert 80)
(rot-old vector :inline :offset-assert 96)
(rotv vector :inline :offset-assert 112)
(lean-rotx degrees :offset-assert 128)
(change-roty degrees :offset-assert 132)
(change-roty-old degrees :offset-assert 136)
(quat vector :inline :offset-assert 144)
(surface-y meters :offset-assert 160)
(surface-vy meters :offset-assert 164)
(surface-quat vector :inline :offset-assert 176)
(surface-quat-smooth vector :inline :offset-assert 192)
(cushion-base meters :offset-assert 208)
(cushion-offset meters :offset-assert 212)
(cushion-bob meters :offset-assert 216)
(cushion-bob-old meters :offset-assert 220)
(cushion-smush smush-control :inline :offset-assert 224)
(shock-offset meters :offset-assert 256)
(shock-offsetv meters :offset-assert 260)
(shock-rotx meters :offset-assert 264)
(hill-value float :offset-assert 268)
(hill-ground-value float :offset-assert 272)
(hill-offset meters :offset-assert 276)
(hill-rotx degrees :offset-assert 280)
(hill-boost meters :offset-assert 284)
(bob-timer float :offset-assert 288)
(bob-meta-timer float :offset-assert 292)
(bob-meta-meta-timer float :offset-assert 296)
(bob-mult-rot float :offset-assert 300)
(bob-mult-trans float :offset-assert 304)
(bob-period float :offset-assert 308)
(bob-meta-time uint64 :offset-assert 312)
(bob-hit-ground-time uint64 :offset-assert 320)
(cur-rotx degrees :offset-assert 328)
(targ-rotx degrees :offset-assert 332)
(speed-rotx float :offset-assert 336)
(mult-rotx degrees :offset-assert 340)
(front-blade basic :offset-assert 344)
(front-rot degrees :offset-assert 348)
(front-rotv degrees :offset-assert 352)
(bottom-blade basic :offset-assert 356)
(bottom-rot degrees :offset-assert 360)
(front basic :offset-assert 364)
(front-turn degrees :offset-assert 368)
(tail basic :offset-assert 372)
(tail-tilt degrees :offset-assert 376)
(transv-max meters :offset-assert 380)
(slide-down-time uint64 2 :offset-assert 384)
(slide-enter-time uint64 :offset-assert 400)
(slide-mode int32 :offset-assert 408)
(slide-amp float :offset-assert 412)
(slide-grip-mult float :offset-assert 416)
(slide-shift-x float :offset-assert 420)
(slide-interp float :offset-assert 424)
(heat float :offset-assert 428)
(boost-time uint64 :offset-assert 432)
(boost-duration uint64 :offset-assert 440)
(boost-curve float :offset-assert 448)
(boost-level float :offset-assert 452)
(boost-target float :offset-assert 456)
(boost-output float :offset-assert 460)
(hop? basic :offset-assert 464)
(hop-start-y float :offset-assert 468)
(bounce int32 :offset-assert 472)
(bounce-hit float :offset-assert 476)
(engine-sound-id sound-id :offset-assert 480)
(boost-sound-id sound-id :offset-assert 484)
(engine-sound-pitch float :offset-assert 488)
(turn-anim-targ float :offset-assert 492)
(turn-anim-frame float :offset-assert 496)
(turn-anim-vel float :offset-assert 500)
(tail-anim-vel float :offset-assert 504)
(tail-anim-frame float :offset-assert 508)
(rudd-anim-vel float :offset-assert 512)
(rudd-anim-frame float :offset-assert 516)
(racing-time uint64 :offset-assert 520)
(stick-lock basic :offset-assert 528)
(stick-off basic :offset-assert 532)
(heavy basic :offset-assert 536)
(unstuck-time uint64 :offset-assert 544)
(stuck-count int32 :offset-assert 552)
(scrape-sound-id sound-id :offset-assert 556)
(heat-sound-time uint64 :offset-assert 560)
)
:method-count-assert 9
:size-assert #x238
:flag-assert #x900000238
)
;; definition for method 3 of type racer-info
(defmethod inspect racer-info ((obj racer-info))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tentity: ~A~%" (-> obj entity))
(format #t "~Tbike-trans: ~`vector`P~%" (-> obj bike-trans))
(format #t "~Tbike-quat: ~`vector`P~%" (-> obj bike-quat))
(format #t "~Tbike-scale: ~`vector`P~%" (-> obj bike-scale))
(format #t "~Tmod-x: ~f~%" (-> obj mod-x))
(format #t "~Trot: ~`vector`P~%" (-> obj rot))
(format #t "~Trot-old: ~`vector`P~%" (-> obj rot-old))
(format #t "~Trotv: ~`vector`P~%" (-> obj rotv))
(format #t "~Tlean-rotx: (deg ~r)~%" (-> obj lean-rotx))
(format #t "~Tchange-roty: (deg ~r)~%" (-> obj change-roty))
(format #t "~Tchange-roty-old: (deg ~r)~%" (-> obj change-roty-old))
(format #t "~Tquat: ~`vector`P~%" (-> obj quat))
(format #t "~Tsurface-y: (meters ~m)~%" (-> obj surface-y))
(format #t "~Tsurface-vy: (meters ~m)~%" (-> obj surface-vy))
(format #t "~Tsurface-quat: ~`vector`P~%" (-> obj surface-quat))
(format #t "~Tsurface-quat-smooth: ~`vector`P~%" (-> obj surface-quat-smooth))
(format #t "~Tcushion-base: (meters ~m)~%" (-> obj cushion-base))
(format #t "~Tcushion-offset: (meters ~m)~%" (-> obj cushion-offset))
(format #t "~Tcushion-bob: (meters ~m)~%" (-> obj cushion-bob))
(format #t "~Tcushion-bob-old: (meters ~m)~%" (-> obj cushion-bob-old))
(format
#t
"~Tcushion-smush: #<smush-control @ #x~X>~%"
(-> obj cushion-smush)
)
(format #t "~Tshock-offset: (meters ~m)~%" (-> obj shock-offset))
(format #t "~Tshock-offsetv: (meters ~m)~%" (-> obj shock-offsetv))
(format #t "~Tshock-rotx: (meters ~m)~%" (-> obj shock-rotx))
(format #t "~Thill-value: ~f~%" (-> obj hill-value))
(format #t "~Thill-ground-value: ~f~%" (-> obj hill-ground-value))
(format #t "~Thill-offset: (meters ~m)~%" (-> obj hill-offset))
(format #t "~Thill-rotx: (deg ~r)~%" (-> obj hill-rotx))
(format #t "~Thill-boost: (meters ~m)~%" (-> obj hill-boost))
(format #t "~Tbob-timer: ~f~%" (-> obj bob-timer))
(format #t "~Tbob-meta-timer: ~f~%" (-> obj bob-meta-timer))
(format #t "~Tbob-meta-meta-timer: ~f~%" (-> obj bob-meta-meta-timer))
(format #t "~Tbob-mult-rot: ~f~%" (-> obj bob-mult-rot))
(format #t "~Tbob-mult-trans: ~f~%" (-> obj bob-mult-trans))
(format #t "~Tbob-period: ~f~%" (-> obj bob-period))
(format #t "~Tbob-meta-time: ~D~%" (-> obj bob-meta-time))
(format #t "~Tbob-hit-ground-time: ~D~%" (-> obj bob-hit-ground-time))
(format #t "~Tcur-rotx: (deg ~r)~%" (-> obj cur-rotx))
(format #t "~Ttarg-rotx: (deg ~r)~%" (-> obj targ-rotx))
(format #t "~Tspeed-rotx: ~f~%" (-> obj speed-rotx))
(format #t "~Tmult-rotx: (deg ~r)~%" (-> obj mult-rotx))
(format #t "~Tfront-blade: ~A~%" (-> obj front-blade))
(format #t "~Tfront-rot: (deg ~r)~%" (-> obj front-rot))
(format #t "~Tfront-rotv: (deg ~r)~%" (-> obj front-rotv))
(format #t "~Tbottom-blade: ~A~%" (-> obj bottom-blade))
(format #t "~Tbottom-rot: (deg ~r)~%" (-> obj bottom-rot))
(format #t "~Tfront: ~A~%" (-> obj front))
(format #t "~Tfront-turn: (deg ~r)~%" (-> obj front-turn))
(format #t "~Ttail: ~A~%" (-> obj tail))
(format #t "~Ttail-tilt: (deg ~r)~%" (-> obj tail-tilt))
(format #t "~Ttransv-max: (meters ~m)~%" (-> obj transv-max))
(format #t "~Tslide-down-time[2] @ #x~X~%" (-> obj slide-down-time))
(format #t "~Tslide-enter-time: ~D~%" (-> obj slide-enter-time))
(format #t "~Tslide-mode: ~D~%" (-> obj slide-mode))
(format #t "~Tslide-amp: ~f~%" (-> obj slide-amp))
(format #t "~Tslide-grip-mult: ~f~%" (-> obj slide-grip-mult))
(format #t "~Tslide-shift-x: ~f~%" (-> obj slide-shift-x))
(format #t "~Tslide-interp: ~f~%" (-> obj slide-interp))
(format #t "~Theat: ~f~%" (-> obj heat))
(format #t "~Tboost-time: ~D~%" (-> obj boost-time))
(format #t "~Tboost-duration: ~D~%" (-> obj boost-duration))
(format #t "~Tboost-curve: ~f~%" (-> obj boost-curve))
(format #t "~Tboost-level: ~f~%" (-> obj boost-level))
(format #t "~Tboost-target: ~f~%" (-> obj boost-target))
(format #t "~Tboost-output: ~f~%" (-> obj boost-output))
(format #t "~Thop?: ~A~%" (-> obj hop?))
(format #t "~Thop-start-y: ~f~%" (-> obj hop-start-y))
(format #t "~Tbounce: ~D~%" (-> obj bounce))
(format #t "~Tbounce-hit: ~f~%" (-> obj bounce-hit))
(format #t "~Tengine-sound-id: ~D~%" (-> obj engine-sound-id))
(format #t "~Tboost-sound-id: ~D~%" (-> obj boost-sound-id))
(format #t "~Tengine-sound-pitch: ~f~%" (-> obj engine-sound-pitch))
(format #t "~Tturn-anim-targ: ~f~%" (-> obj turn-anim-targ))
(format #t "~Tturn-anim-frame: ~f~%" (-> obj turn-anim-frame))
(format #t "~Tturn-anim-vel: ~f~%" (-> obj turn-anim-vel))
(format #t "~Ttail-anim-vel: ~f~%" (-> obj tail-anim-vel))
(format #t "~Ttail-anim-frame: ~f~%" (-> obj tail-anim-frame))
(format #t "~Trudd-anim-vel: ~f~%" (-> obj rudd-anim-vel))
(format #t "~Trudd-anim-frame: ~f~%" (-> obj rudd-anim-frame))
(format #t "~Tracing-time: ~D~%" (-> obj racing-time))
(format #t "~Tstick-lock: ~A~%" (-> obj stick-lock))
(format #t "~Tstick-off: ~A~%" (-> obj stick-off))
(format #t "~Theavy: ~A~%" (-> obj heavy))
(format #t "~Tunstuck-time: ~D~%" (-> obj unstuck-time))
(format #t "~Tstuck-count: ~D~%" (-> obj stuck-count))
(format #t "~Tscrape-sound-id: ~D~%" (-> obj scrape-sound-id))
(format #t "~Theat-sound-time: ~D~%" (-> obj heat-sound-time))
obj
)
;; definition of type racer-bank
(deftype racer-bank (basic)
((slide-hold-time seconds :offset-assert 8)
(heat-max float :offset-assert 16)
(hotcoals-heat-inc float :offset-assert 20)
(lava-heat-inc float :offset-assert 24)
(lava-air-heat-inc float :offset-assert 28)
(surface-heat-inc float :offset-assert 32)
(jump-heat-inc float :offset-assert 36)
(lavatube-hotcoals-heat-inc float :offset-assert 40)
(lavatube-lava-heat-inc float :offset-assert 44)
(lavatube-lava-air-heat-inc float :offset-assert 48)
(lavatube-surface-heat-inc float :offset-assert 52)
(lavatube-jump-heat-inc float :offset-assert 56)
(boost-curve-max meters :offset-assert 60)
(boost-level-max meters :offset-assert 64)
(boost-level-inc meters :offset-assert 68)
(boost-duration seconds :offset-assert 72)
(default-front-blade degrees :offset-assert 80)
(yellow-projectile-speed meters :offset-assert 84)
)
:method-count-assert 9
:size-assert #x58
:flag-assert #x900000058
)
;; definition for method 3 of type racer-bank
(defmethod inspect racer-bank ((obj racer-bank))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tslide-hold-time: (seconds ~e)~%" (-> obj slide-hold-time))
(format #t "~Theat-max: ~f~%" (-> obj heat-max))
(format #t "~Thotcoals-heat-inc: ~f~%" (-> obj hotcoals-heat-inc))
(format #t "~Tlava-heat-inc: ~f~%" (-> obj lava-heat-inc))
(format #t "~Tlava-air-heat-inc: ~f~%" (-> obj lava-air-heat-inc))
(format #t "~Tsurface-heat-inc: ~f~%" (-> obj surface-heat-inc))
(format #t "~Tjump-heat-inc: ~f~%" (-> obj jump-heat-inc))
(format
#t
"~Tlavatube-hotcoals-heat-inc: ~f~%"
(-> obj lavatube-hotcoals-heat-inc)
)
(format #t "~Tlavatube-lava-heat-inc: ~f~%" (-> obj lavatube-lava-heat-inc))
(format
#t
"~Tlavatube-lava-air-heat-inc: ~f~%"
(-> obj lavatube-lava-air-heat-inc)
)
(format
#t
"~Tlavatube-surface-heat-inc: ~f~%"
(-> obj lavatube-surface-heat-inc)
)
(format #t "~Tlavatube-jump-heat-inc: ~f~%" (-> obj lavatube-jump-heat-inc))
(format #t "~Tboost-curve-max: (meters ~m)~%" (-> obj boost-curve-max))
(format #t "~Tboost-level-max: (meters ~m)~%" (-> obj boost-level-max))
(format #t "~Tboost-level-inc: (meters ~m)~%" (-> obj boost-level-inc))
(format #t "~Tboost-duration: (seconds ~e)~%" (-> obj boost-duration))
(format #t "~Tdefault-front-blade: (deg ~r)~%" (-> obj default-front-blade))
(format
#t
"~Tyellow-projectile-speed: (meters ~m)~%"
(-> obj yellow-projectile-speed)
)
obj
)
;; definition for symbol *RACER-bank*, type racer-bank
(define
*RACER-bank*
(new 'static 'racer-bank
:slide-hold-time #x3c
:heat-max 100.0
:hotcoals-heat-inc 3.0
:lava-heat-inc 20.0
:lava-air-heat-inc 4.0
:surface-heat-inc 1.0
:jump-heat-inc 2.0
:lavatube-hotcoals-heat-inc 2.0
:lavatube-lava-heat-inc 4.5
:lavatube-lava-air-heat-inc 4.0
:lavatube-surface-heat-inc 1.0
:lavatube-jump-heat-inc 10.0
:boost-curve-max (meters 5.0)
:boost-level-max (meters 12.5)
:boost-level-inc (meters 2.0)
:boost-duration #x2ee
:yellow-projectile-speed (meters 80.0)
)
)
;; failed to figure out what this is:
(let
((v0-4
(new 'static 'skeleton-group
:art-group-name "balloon"
:bounds
(new 'static 'vector :y 6963.2 :w 12288.0)
:max-lod 1
:version #x6
)
)
)
(set! (-> v0-4 jgeo) 0)
(set! (-> v0-4 janim) 3)
(set! (-> v0-4 mgeo 0) (the-as uint 1))
(set! (-> v0-4 lod-dist 0) 81920.0)
(set! (-> v0-4 mgeo 1) (the-as uint 2))
(set! (-> v0-4 lod-dist 1) 4095996000.0)
(set! *balloon-sg* v0-4)
)
test/decompiler/reference/levels/robocave/robocave-part_REF.gc
Vendored
+251
View File
@@ -0,0 +1,251 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type robocave-part
(deftype robocave-part (part-spawner)
()
:heap-base #x60
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15006000d0
)
;; definition for method 3 of type robocave-part
(defmethod inspect robocave-part ((obj robocave-part))
(let ((t9-0 (method-of-type part-spawner inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
(set!
(-> *part-group-id-table* 506)
(new 'static 'sparticle-launch-group
:length 6
:duration #xbb8
:linger-duration #x5dc
:name "group-part-robocave-torch"
:launcher
(new 'static 'inline-array sparticle-group-item 6
(sp-item 729 :fade-after (meters 150.0) :falloff-to (meters 180.0))
(sp-item 730 :fade-after (meters 100.0) :falloff-to (meters 100.0))
(sp-item 731 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 600 :length 90)
(sp-item 732 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 69)
(sp-item 733 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
(sp-item 734 :fade-after (meters 30.0) :falloff-to (meters 30.0))
)
:bounds
(new 'static 'sphere :y 12288.0 :w 16384.0)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 734)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 15
(sp-flt spt-num 0.3)
(sp-flt spt-x (meters 0.2))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-int spt-rot-x 5)
(sp-flt spt-r 4096.0)
(sp-flt spt-g 2867.2)
(sp-flt spt-b 3276.8)
(sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
(sp-flt spt-vel-y (meters 0.026666667))
(sp-int spt-timer 180)
(sp-cpuinfo-flags aux-list)
(sp-int spt-next-time 120)
(sp-launcher-by-id spt-next-launcher 735)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 735)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-b -6.826667)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 729)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 19
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-rnd-int spt-num 1068708659 1 0.5)
(sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
(sp-rnd-flt spt-z -1433.6 2867.2 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 75)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 736)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2
(sp-flt spt-fade-a -1.3333334)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 731)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
(sp-flt spt-y (meters 1.0))
(sp-rnd-flt spt-z -1638.4 3276.8 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 732)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.5)
(sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z 0.0 1638.4 1.0)
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 733)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
(sp-flt spt-y (meters 0.6))
(sp-rnd-flt spt-z -2457.6 2457.6 1.0)
(sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 0.0 60.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
(sp-flt spt-fade-a 13.066667)
(sp-flt spt-accel-y -0.8192)
(sp-int spt-timer 105)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 15)
(sp-launcher-by-id spt-next-launcher 736)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set!
(-> *part-id-table* 730)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 28
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 0.4)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
(sp-flt spt-y (meters 0.3))
(sp-rnd-flt spt-z -2048.0 4096.0 1.0)
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 128.0)
(sp-flt spt-g 96.0)
(sp-flt spt-b 96.0)
(sp-rnd-flt spt-a 16.0 32.0 1.0)
(sp-flt spt-vel-y (meters 0.01))
(sp-flt spt-scalevel-x (meters 0.0005))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-r -0.10666667)
(sp-flt spt-fade-g -0.053333335)
(sp-flt spt-fade-b -0.053333335)
(sp-flt spt-fade-a -0.08)
(sp-flt spt-accel-x 0.27306667)
(sp-flt spt-accel-y 0.13653333)
(sp-flt spt-friction 0.9975)
(sp-int spt-timer 600)
(sp-cpuinfo-flags bit2)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-end)
)
)
)
test/decompiler/reference/levels/snow/snow-part_REF.gc
Vendored
+1166
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/sunken/sunken-part2_REF.gc
Vendored
+2971
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/sunken/sunken-part3_REF.gc
Vendored
+2062
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/sunken/sunken-part4_REF.gc
Vendored
+3353
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/sunken/sunken-part5_REF.gc
Vendored
+1881
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/sunken/sunken-part_REF.gc
Vendored
+3263
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/swamp/swamp-part_REF.gc
Vendored
+2134
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/training/training-part_REF.gc
Vendored
+1772
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/village1/assistant_REF.gc
Vendored
+2 -2
View File
@@ -970,10 +970,10 @@
;; definition for function check-drop-level-assistant
(defun
check-drop-level-assistant
((arg0 assistant) (arg1 sparticle-cpuinfo) (arg2 vector))
((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
(when (< (-> arg2 y) (-> arg1 user-float))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(sp-kill-particle (the-as sparticle-system arg0) arg1)
(sp-kill-particle arg0 arg1)
(let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
(v1-2 (the-as number (logior #x3f800000 v1-1)))
)
test/decompiler/reference/levels/village1/village1-part2_REF.gc
Vendored
+2665
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/village1/village1-part_REF.gc
Vendored
+2916
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/village2/village2-part2_REF.gc
Vendored
+3975
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/village2/village2-part_REF.gc
Vendored
+2920
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/village3/village3-part_REF.gc
Vendored
+3103
View File
File diff suppressed because it is too large Load Diff
test/offline/offline_test_main.cpp
+1 -1
View File
@@ -192,7 +192,7 @@ std::vector<std::string> dgos = {
"CGO/KERNEL.CGO", "CGO/ENGINE.CGO", "CGO/GAME.CGO", "DGO/BEA.DGO", "DGO/INT.DGO", "DGO/VI1.DGO",
"DGO/VI2.DGO", "DGO/VI3.DGO", "DGO/CIT.DGO", "DGO/MIS.DGO", "DGO/JUB.DGO", "DGO/SUN.DGO",
"DGO/DEM.DGO", "DGO/FIN.DGO", "DGO/JUN.DGO", "DGO/FIC.DGO", "DGO/SNO.DGO", "DGO/SWA.DGO",
"DGO/MAI.DGO", "DGO/ROB.DGO", "DGO/LAV.DGO", "DGO/OGR.DGO"};
"DGO/MAI.DGO", "DGO/ROB.DGO", "DGO/LAV.DGO", "DGO/OGR.DGO", "DGO/TRA.DGO"};
} // namespace